File indexing completed on 2025-02-21 09:57:15
0001 #ifndef _LEPTO62_H
0002 #define _LEPTO62_H
0003 #include <cfortran/cfortran.h>
0004
0005 #ifdef __cplusplus
0006 extern "C" {
0007 #endif
0008 PROTOCCALLSFFUN2(FLOAT,DCROSS,dcross,FLOAT,FLOAT)
0009 #define DCROSS(A2,A3) CCALLSFFUN2(DCROSS,dcross,FLOAT,FLOAT,A2,A3)
0010
0011 PROTOCCALLSFFUN2(DOUBLE,DFUN,dfun,INT,DOUBLEV)
0012 #define DFUN(A2,A3) CCALLSFFUN2(DFUN,dfun,INT,DOUBLEV,A2,A3)
0013
0014 PROTOCCALLSFFUN1(FLOAT,DLOWER,dlower,FLOAT)
0015 #define DLOWER(A2) CCALLSFFUN1(DLOWER,dlower,FLOAT,A2)
0016
0017 PROTOCCALLSFFUN6(FLOAT,DQCD,dqcd,INT,INT,INT,FLOAT,FLOAT,FLOAT)
0018 #define DQCD(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(DQCD,dqcd,INT,INT,INT,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5,A6,A7)
0019
0020 PROTOCCALLSFFUN5(FLOAT,DQCDI,dqcdi,INT,INT,FLOAT,FLOAT,FLOAT)
0021 #define DQCDI(A2,A3,A4,A5,A6) CCALLSFFUN5(DQCDI,dqcdi,INT,INT,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5,A6)
0022
0023 PROTOCCALLSFFUN1(FLOAT,DSIGMA,dsigma,FLOAT)
0024 #define DSIGMA(A2) CCALLSFFUN1(DSIGMA,dsigma,FLOAT,A2)
0025
0026 PROTOCCALLSFFUN1(FLOAT,DUPPER,dupper,FLOAT)
0027 #define DUPPER(A2) CCALLSFFUN1(DUPPER,dupper,FLOAT,A2)
0028
0029 PROTOCCALLSFFUN1(FLOAT,FLGINT,flgint,FLOAT)
0030 #define FLGINT(A2) CCALLSFFUN1(FLGINT,flgint,FLOAT,A2)
0031
0032 PROTOCCALLSFFUN1(FLOAT,FLQINT,flqint,FLOAT)
0033 #define FLQINT(A2) CCALLSFFUN1(FLQINT,flqint,FLOAT,A2)
0034
0035 PROTOCCALLSFFUN1(FLOAT,FLTINT,fltint,FLOAT)
0036 #define FLTINT(A2) CCALLSFFUN1(FLTINT,fltint,FLOAT,A2)
0037
0038 PROTOCCALLSFFUN5(FLOAT,GADAPF,gadapf,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT)
0039 #define GADAPF(A2,A3,A4,A5,A6) CCALLSFFUN5(GADAPF,gadapf,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A2,A3,A4,A5,A6)
0040
0041 PROTOCCALLSFFUN1(INT,LKINEM,lkinem,INT)
0042 #define LKINEM(A2) CCALLSFFUN1(LKINEM,lkinem,INT,A2)
0043
0044 PROTOCCALLSFFUN2(FLOAT,LMPINT,lmpint,PFLOAT,INT)
0045 #define LMPINT(A2,A3) CCALLSFFUN2(LMPINT,lmpint,PFLOAT,INT,A2,A3)
0046
0047 PROTOCCALLSFFUN5(INT,LQMCUT,lqmcut,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
0048 #define LQMCUT(A2,A3,A4,A5,A6) CCALLSFFUN5(LQMCUT,lqmcut,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5,A6)
0049
0050 PROTOCCALLSFFUN1(DOUBLE,RIWFUN,riwfun,DOUBLEV)
0051 #define RIWFUN(A2) CCALLSFFUN1(RIWFUN,riwfun,DOUBLEV,A2)
0052
0053 PROTOCCALLSFSUB0(DVNOPT,dvnopt)
0054 #define DVNOPT() CCALLSFSUB0(DVNOPT,dvnopt)
0055
0056 PROTOCCALLSFSUB3(FLINTG,flintg,FLOAT,FLOAT,FLOAT)
0057 #define FLINTG(A1,A2,A3) CCALLSFSUB3(FLINTG,flintg,FLOAT,FLOAT,FLOAT,A1,A2,A3)
0058
0059 PROTOCCALLSFSUB3(FLIPOL,flipol,PFLOAT,PFLOAT,PFLOAT)
0060 #define FLIPOL(A1,A2,A3) CCALLSFSUB3(FLIPOL,flipol,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3)
0061
0062 PROTOCCALLSFSUB0(FLTABL,fltabl)
0063 #define FLTABL() CCALLSFSUB0(FLTABL,fltabl)
0064
0065 PROTOCCALLSFSUB5(GADAP,gadap,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT)
0066 #define GADAP(A1,A2,A3,A4,A5) CCALLSFSUB5(GADAP,gadap,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5)
0067
0068 PROTOCCALLSFSUB7(GADAP2,gadap2,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT)
0069 #define GADAP2(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GADAP2,gadap2,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
0070
0071 PROTOCCALLSFSUB2(LAZIMU,lazimu,FLOAT,FLOAT)
0072 #define LAZIMU(A1,A2) CCALLSFSUB2(LAZIMU,lazimu,FLOAT,FLOAT,A1,A2)
0073
0074 PROTOCCALLSFSUB0(LEPTO,lepto)
0075 #define LEPTO() CCALLSFSUB0(LEPTO,lepto)
0076
0077 PROTOCCALLSFSUB0(LEPTOX,leptox)
0078 #define LEPTOX() CCALLSFSUB0(LEPTOX,leptox)
0079
0080 PROTOCCALLSFSUB2(LFLAV,lflav,PINT,PINT)
0081 #define LFLAV(A1,A2) CCALLSFSUB2(LFLAV,lflav,PINT,PINT,A1,A2)
0082
0083 PROTOCCALLSFSUB2(LFRAME,lframe,INT,INT)
0084 #define LFRAME(A1,A2) CCALLSFSUB2(LFRAME,lframe,INT,INT,A1,A2)
0085
0086 PROTOCCALLSFSUB5(LINIT,linit,INT,INT,FLOAT,FLOAT,INT)
0087 #define LINIT(A1,A2,A3,A4,A5) CCALLSFSUB5(LINIT,linit,INT,INT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5)
0088
0089 PROTOCCALLSFSUB0(LMCMND,lmcmnd)
0090 #define LMCMND() CCALLSFSUB0(LMCMND,lmcmnd)
0091
0092 PROTOCCALLSFSUB0(LMEPS,lmeps)
0093 #define LMEPS() CCALLSFSUB0(LMEPS,lmeps)
0094
0095 PROTOCCALLSFSUB0(LMIDA2,lmida2)
0096 #define LMIDA2() CCALLSFSUB0(LMIDA2,lmida2)
0097
0098 PROTOCCALLSFSUB0(LMIDAT,lmidat)
0099 #define LMIDAT() CCALLSFSUB0(LMIDAT,lmidat)
0100
0101 PROTOCCALLSFSUB0(LMINEW,lminew)
0102 #define LMINEW() CCALLSFSUB0(LMINEW,lminew)
0103
0104 PROTOCCALLSFSUB1(LMINTO,lminto,FLOATV)
0105 #define LMINTO(A1) CCALLSFSUB1(LMINTO,lminto,FLOATV,A1)
0106
0107 PROTOCCALLSFSUB2(LMPRIN,lmprin,INT,FLOAT)
0108 #define LMPRIN(A1,A2) CCALLSFSUB2(LMPRIN,lmprin,INT,FLOAT,A1,A2)
0109
0110 PROTOCCALLSFSUB2(LMRAZZ,lmrazz,FLOAT,FLOATV)
0111 #define LMRAZZ(A1,A2) CCALLSFSUB2(LMRAZZ,lmrazz,FLOAT,FLOATV,A1,A2)
0112
0113 PROTOCCALLSFSUB0(LMSIMP,lmsimp)
0114 #define LMSIMP() CCALLSFSUB0(LMSIMP,lmsimp)
0115
0116 PROTOCCALLSFSUB3(LNSTRF,lnstrf,FLOAT,FLOAT,PFLOAT)
0117 #define LNSTRF(A1,A2,A3) CCALLSFSUB3(LNSTRF,lnstrf,FLOAT,FLOAT,PFLOAT,A1,A2,A3)
0118
0119 PROTOCCALLSFSUB3(LPRIKT,lprikt,FLOAT,PFLOAT,PFLOAT)
0120 #define LPRIKT(A1,A2,A3) CCALLSFSUB3(LPRIKT,lprikt,FLOAT,PFLOAT,PFLOAT,A1,A2,A3)
0121
0122 PROTOCCALLSFSUB1(LPRWTS,lprwts,INT)
0123 #define LPRWTS(A1) CCALLSFSUB1(LPRWTS,lprwts,INT,A1)
0124
0125 PROTOCCALLSFSUB2(LQCDPR,lqcdpr,PFLOAT,PFLOAT)
0126 #define LQCDPR(A1,A2) CCALLSFSUB2(LQCDPR,lqcdpr,PFLOAT,PFLOAT,A1,A2)
0127
0128 PROTOCCALLSFSUB2(LQEVAR,lqevar,INT,INT)
0129 #define LQEVAR(A1,A2) CCALLSFSUB2(LQEVAR,lqevar,INT,INT,A1,A2)
0130
0131 PROTOCCALLSFSUB0(LQEV,lqev)
0132 #define LQEV() CCALLSFSUB0(LQEV,lqev)
0133
0134 PROTOCCALLSFSUB0(LQGEV,lqgev)
0135 #define LQGEV() CCALLSFSUB0(LQGEV,lqgev)
0136
0137 PROTOCCALLSFSUB0(LQQBEV,lqqbev)
0138 #define LQQBEV() CCALLSFSUB0(LQQBEV,lqqbev)
0139
0140 PROTOCCALLSFSUB5(LREMH,lremh,INT,FLOAT,PINT,INT,PFLOAT)
0141 #define LREMH(A1,A2,A3,A4,A5) CCALLSFSUB5(LREMH,lremh,INT,FLOAT,PINT,INT,PFLOAT,A1,A2,A3,A4,A5)
0142
0143 PROTOCCALLSFSUB2(LSCALE,lscale,INT,PFLOAT)
0144 #define LSCALE(A1,A2) CCALLSFSUB2(LSCALE,lscale,INT,PFLOAT,A1,A2)
0145
0146 PROTOCCALLSFSUB1(LSHOWR,lshowr,INT)
0147 #define LSHOWR(A1) CCALLSFSUB1(LSHOWR,lshowr,INT,A1)
0148
0149 PROTOCCALLSFSUB5(LSIGMX,lsigmx,INT,FLOATV,PFLOAT,FLOATV,INT)
0150 #define LSIGMX(A1,A2,A3,A4,A5) CCALLSFSUB5(LSIGMX,lsigmx,INT,FLOATV,PFLOAT,FLOATV,INT,A1,A2,A3,A4,A5)
0151
0152 PROTOCCALLSFSUB1(LTIMEX,ltimex,PFLOAT)
0153 #define LTIMEX(A1) CCALLSFSUB1(LTIMEX,ltimex,PFLOAT,A1)
0154
0155 PROTOCCALLSFSUB1(LWBB,lwbb,PFLOAT)
0156 #define LWBB(A1) CCALLSFSUB1(LWBB,lwbb,PFLOAT,A1)
0157
0158 PROTOCCALLSFSUB1(LWEITS,lweits,INT)
0159 #define LWEITS(A1) CCALLSFSUB1(LWEITS,lweits,INT,A1)
0160
0161 PROTOCCALLSFSUB2(LXP,lxp,PFLOAT,PINT)
0162 #define LXP(A1,A2) CCALLSFSUB2(LXP,lxp,PFLOAT,PINT,A1,A2)
0163
0164 PROTOCCALLSFSUB0(LXSECT,lxsect)
0165 #define LXSECT() CCALLSFSUB0(LXSECT,lxsect)
0166
0167 PROTOCCALLSFSUB2(LYREMN,lyremn,INT,INT)
0168 #define LYREMN(A1,A2) CCALLSFSUB2(LYREMN,lyremn,INT,INT,A1,A2)
0169
0170 PROTOCCALLSFSUB4(LYSPLI,lyspli,INT,INT,PINT,PINT)
0171 #define LYSPLI(A1,A2,A3,A4) CCALLSFSUB4(LYSPLI,lyspli,INT,INT,PINT,PINT,A1,A2,A3,A4)
0172
0173 PROTOCCALLSFSUB2(LYSSPA,lysspa,INT,INT)
0174 #define LYSSPA(A1,A2) CCALLSFSUB2(LYSSPA,lysspa,INT,INT,A1,A2)
0175
0176 PROTOCCALLSFSUB4(LYSTFU,lystfu,INT,FLOAT,FLOAT,PFLOAT)
0177 #define LYSTFU(A1,A2,A3,A4) CCALLSFSUB4(LYSTFU,lystfu,INT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4)
0178
0179 PROTOCCALLSFSUB3(LZP,lzp,FLOAT,PFLOAT,PINT)
0180 #define LZP(A1,A2,A3) CCALLSFSUB3(LZP,lzp,FLOAT,PFLOAT,PINT,A1,A2,A3)
0181
0182 PROTOCCALLSFSUB0(RIWIBD,riwibd)
0183 #define RIWIBD() CCALLSFSUB0(RIWIBD,riwibd)
0184 #ifdef __cplusplus
0185 }
0186 #endif
0187
0188 #endif
