fortran_def.h Source File

00001 
00002 //
00003 // Fortran definitions needed for the interface to ALPHA
00004 //
00005 // Author : G. Bagliesi
00006 //
00008 
00009 
00010 #ifndef _FORTRAN_DEF_H_
00011 #define _FORTRAN_DEF_H_
00012 
00013 // CFORTRAN
00014 #include <cfortran.h>
00015 
00016 PROTOCCALLSFSUB1(QELEP_ALPHA,qelep_alpha,PFLOAT)
00017 #define QELEP_ALPHA(A1)  CCALLSFSUB1(QELEP_ALPHA,qelep_alpha,PFLOAT,A1)
00018 
00019 PROTOCCALLSFSUB5(BANK_ALPHA,bank_alpha,STRING,PINT,PINT,PINT,PINT)
00020 #define BANK_ALPHA(A1,A2,A3,A4,A5)  CCALLSFSUB5(BANK_ALPHA,bank_alpha,STRING,PINT,PINT,PINT,PINT,A1,A2,A3,A4,A5) 
00021 
00022 PROTOCCALLSFSUB5(BANK_ROW,bank_row,PSTRING,PINT,PINT,PINT,PINT)
00023 #define BANK_ROW(A1,A2,A3,A4,A5)  CCALLSFSUB5(BANK_ROW,bank_row,PSTRING,PINT,PINT,PINT,PINT,A1,A2,A3,A4,A5) 
00024 
00025 PROTOCCALLSFSUB1(ALPHA_PARAM,alpha_param,PINT)
00026 #define ALPHA_PARAM(A1)  CCALLSFSUB1(ALPHA_PARAM,alpha_param,PINT,A1)
00027 
00028 PROTOCCALLSFSUB2(GETKEFOTY,getkefoty,PINT,PINT)
00029 #define GETKEFOTY(A1,A2)  CCALLSFSUB2(GETKEFOTY,getkefoty,PINT,PINT,A1,A2)
00030 
00031 PROTOCCALLSFSUB2(GETKEFOLT,getkefolt,PINT,PINT)
00032 #define GETKEFOLT(A1,A2)  CCALLSFSUB2(GETKEFOLT,getkefolt,PINT,PINT,A1,A2)
00033         
00034 PROTOCCALLSFSUB1(CHECK_BOS,check_bos,PINT)
00035 #define CHECK_BOS(A1)  CCALLSFSUB1(CHECK_BOS,check_bos,PINT,A1)
00036 
00037 PROTOCCALLSFSUB2(ABRUEV,abruev,PINT,PINT)
00038 #define ABRUEV(A1,A2)  CCALLSFSUB2(ABRUEV,abruev,PINT,PINT,A1,A2)
00039 
00040 PROTOCCALLSFSUB2(QMEVNT,qmevnt,PINT,PINT)
00041 #define QMEVNT(A1,A2)  CCALLSFSUB2(QMEVNT,qmevnt,PINT,PINT,A1,A2)
00042 
00043 PROTOCCALLSFSUB1(QMRDSB,qmrdsb,PINT)
00044 #define QMRDSB(A1)  CCALLSFSUB1(QMRDSB,qmrdsb,PINT,A1)
00045 
00046 PROTOCCALLSFSUB3(ABRSEL,abrsel,PSTRING,PSTRING,PINT)
00047 #define ABRSEL(A1,A2,A3)  CCALLSFSUB3(ABRSEL,abrsel,PSTRING,PSTRING,PINT,A1,A2,A3)
00048 
00049 PROTOCCALLSFSUB3(ABRSEL_GB,abrsel_gb,PSTRING,PSTRING,PINT)
00050 #define ABRSEL_GB(A1,A2,A3)  CCALLSFSUB3(ABRSEL_GB,abrsel_gb,PSTRING,PSTRING,PINT,A1,A2,A3)
00051 
00052 PROTOCCALLSFSUB0(QMREAD,qmread)
00053 #define QMREAD()  CCALLSFSUB0(QMREAD,qmread)
00054 
00055 PROTOCCALLSFSUB2(CALPHA,calpha,PSTRING,PSTRING)
00056 #define CALPHA(A1,A2)  CCALLSFSUB2(CALPHA,calpha,PSTRING,PSTRING,A1,A2)
00057 
00058 PROTOCCALLSFSUB3(AUNPCK,aunpck,PSTRING,PSTRING,PINT)
00059 #define AUNPCK(A1,A2,A3)  CCALLSFSUB3(AUNPCK,aunpck,PSTRING,PSTRING,PINT,A1,A2,A3)
00060 
00061 PROTOCCALLSFSUB3(READ_EVENT2,read_event2,PINT,PINT,PINT)
00062 #define READ_EVENT2(A1,A2,A3)  CCALLSFSUB3(READ_EVENT2,read_event2,PINT,PINT,PINT,A1,A2,A3)
00063 
00064 PROTOCCALLSFSUB2(SET_RUNEV,set_runev,PINT,PINT)
00065 #define SET_RUNEV(A1,A2)  CCALLSFSUB2(SET_RUNEV,set_runev,PINT,PINT,A1,A2)
00066 
00067 PROTOCCALLSFSUB1(CLEAN_BOS,clean_bos,STRING)
00068 #define CLEAN_BOS(A1)  CCALLSFSUB1(CLEAN_BOS,clean_bos,STRING,A1)
00069 
00070 PROTOCCALLSFSUB0(CLOSE_RUN,close_run)
00071 #define CLOSE_RUN()  CCALLSFSUB0(CLOSE_RUN,close_run)
00072 
00073 PROTOCCALLSFSUB1(TIMED,timed,PINT)
00074 #define TIMED(A1)  CCALLSFSUB1(TIMED,timed,PINT,A1)
00075 
00076 PROTOCCALLSFFUN1(INT,NAMIND,namind,PSTRING)
00077 #define NAMIND(A1)  CCALLSFFUN1(NAMIND,namind,PSTRING,A1)
00078 
00079 PROTOCCALLSFSUB14(F_QIPBTAG,f_qipbtag,PINT,PINT,PINT,FLOATV,FLOATV,FLOATV,FLOATV,INTV,FLOATV,INTV,INTV,FLOATV,FLOATV,PFLOAT)
00080 #define F_QIPBTAG(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14)  CCALLSFSUB14(F_QIPBTAG,f_qipbtag,PINT,PINT,PINT,FLOATV,FLOATV,FLOATV,FLOATV,INTV,FLOATV,INTV,INTV,FLOATV,FLOATV,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14)
00081 
00082 #define NMAX 10
00083 #define NMFRF 50
00084 #define NMVFRF 150
00085 typedef struct {
00086   int   nvx, nhx, neu;
00087   int   lvapc, lpsum, lmcalc, lvfix;
00088   float vxin[3*NMAX];
00089   float vvxin[6*NMAX];
00090   int   ixhx[NMAX];
00091   float hxin[NMFRF], vhxin[NMVFRF]; 
00092      
00093   int   ixnu[NMAX];
00094   float tnui[NMFRF], vtnui[NMVFRF];
00095   int   npidc;
00096   float ampc[NMAX];
00097       
00098   float vxout[3], vvxou[6];
00099   float hxou[5*NMAX], vhxou[15*NMAX];
00100   float tnuo[5*NMAX], vtnuo[15*NMAX];
00101   float psum[5], vpsum[10], vpsvx[9];
00102   float amass, dmass;
00103   float vmvx[3], vmps[3];
00104   float chisq;
00105 } FCB_DEF;
00106 #define FCB COMMON_BLOCK(FCB,fcb)
00107 extern COMMON_BLOCK_DEF(FCB_DEF,FCB);
00108 
00109 PROTOCCALLSFFUN0(INT,W_YFMVTR,w_yfmvtr)
00110 #define W_YFMVTR()  CCALLSFFUN0(W_YFMVTR,w_yfmvtr)
00111 
00112 
00113 typedef struct {
00114   int   lmassc;
00115   int   use[NMAX];
00116   float conmas;
00117   int   nvx, nhx, neu;
00118   int   lvapc, lpsum, lmcalc, lvfix;
00119   float vxin[3*NMAX];
00120   float vvxin[6*NMAX];
00121   int   ixhx[NMAX];
00122   float hxin[NMFRF], vhxin[NMVFRF]; 
00123      
00124   int   ixnu[NMAX];
00125   float tnui[NMFRF], vtnui[NMVFRF];
00126   int   npidc;
00127   float ampc[NMAX];
00128       
00129   float vxout[3], vvxou[6];
00130   float hxou[5*NMAX], vhxou[15*NMAX];
00131   float tnuo[5*NMAX], vtnuo[15*NMAX];
00132   float psum[5], vpsum[10], vpsvx[9];
00133   float amass, dmass;
00134   float vmvx[3], vmps[3];
00135   float chisq;
00136 } VFMCB_DEF;
00137 #define VFMCB COMMON_BLOCK(VFMCB,vfmcb)
00138 extern COMMON_BLOCK_DEF(VFMCB_DEF,VFMCB);
00139 
00140 PROTOCCALLSFFUN0(INT,W_YFMVTC,w_yfmvtc)
00141 #define W_YFMVTC()  CCALLSFFUN0(W_YFMVTC,w_yfmvtc)
00142 
00143 PROTOCCALLSFSUB9(W_YTPAR, w_ytpar, PFLOAT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PINT)
00144 #define W_YTPAR(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(W_YTPAR,w_ytpar,PINT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9)
00145         
00146 PROTOCCALLSFSUB19(F_ABCFIT,f_abcfit,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,INT,FLOATV,FLOATV,FLOATV,INTV,INT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,PINT,PINT)
00147 #define F_ABCFIT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19)  CCALLSFSUB19(F_ABCFIT,f_abcfit,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,INT,FLOATV,FLOATV,FLOATV,INTV,INT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19)
00148         
00149 #endif
00150