00001
00002
00003
00004
00005
00006
00008
00009
00010 #ifndef _FORTRAN_DEF_H_
00011 #define _FORTRAN_DEF_H_
00012
00013
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