f_Init.h

00001 #ifndef _f_Init_included_
00002 #define _f_Init_included_
00003 
00004 extern "C"
00005 {
00006 
00007         extern struct
00008         {
00009                 double alpha;
00010                 double xphcut;
00011         } phocop_;
00012 
00013         extern struct
00014         {
00015                 double fsec;
00016                 double fint;
00017                 double expeps;
00018                 int interf;
00019                 int isec;
00020                 int itre;
00021                 int iexp;
00022                 int iftop;
00023                 int ifw;
00024         } phokey_;
00025 
00026         extern struct
00027         {
00028                 int status[10];
00029                 int ifstop;
00030         } phosta_;
00031 
00032         extern struct
00033         {
00034                 double pi;
00035                 double twopi;
00036         } phpico_;
00037 
00038         extern struct
00039         {
00040                 int phlun;
00041         } pholun_;
00042 
00043         //debug mode on if ipoin <  1 and ipoinm > 1
00044         extern struct
00045         {
00046                 int ipoin;
00047                 int ipoinm;
00048         } phlupy_;
00049 
00050         /** Initialize kinematic corrections */
00051         void phcork_(int * modcor);
00052 
00053         /** Single branch processing */
00054         void photos_make_c_(int * id);
00055 
00056         /* PHOINI subroutines */
00057         int  iphqrk_(int *i);
00058         int  iphekl_(int *i);
00059 
00060         /* Printout of error messages */
00061         void phoerr_(int *imes,char *text,double *data);
00062 
00063 }
00064 
00065 #endif