File indexing completed on 2024-05-18 08:30:04
0001 #ifndef _JETSET74_H
0002 #define _JETSET74_H
0003 #include <cfortran/cfortran.h>
0004
0005 #ifdef __cplusplus
0006 extern "C" {
0007 #endif
0008 PROTOCCALLSFFUN2(INT,KLU,klu,INT,INT)
0009 #define KLU(A2,A3) CCALLSFFUN2(KLU,klu,INT,INT,A2,A3)
0010
0011 PROTOCCALLSFFUN2(FLOAT,PLU,plu,INT,INT)
0012 #define PLU(A2,A3) CCALLSFFUN2(PLU,plu,INT,INT,A2,A3)
0013
0014 PROTOCCALLSFFUN4(FLOAT,PYCTQ2,pyctq2,INT,INT,FLOAT,FLOAT)
0015 #define PYCTQ2(A2,A3,A4,A5) CCALLSFFUN4(PYCTQ2,pyctq2,INT,INT,FLOAT,FLOAT,A2,A3,A4,A5)
0016
0017 PROTOCCALLSFFUN1(DOUBLE,PYDILN,pydiln,DOUBLE)
0018 #define PYDILN(A2) CCALLSFFUN1(PYDILN,pydiln,DOUBLE,A2)
0019
0020 PROTOCCALLSFFUN1(INT,LUCHGE,luchge,INT)
0021 #define LUCHGE(A2) CCALLSFFUN1(LUCHGE,luchge,INT,A2)
0022
0023 PROTOCCALLSFFUN1(INT,LUCOMP,lucomp,INT)
0024 #define LUCOMP(A2) CCALLSFFUN1(LUCOMP,lucomp,INT,A2)
0025
0026 PROTOCCALLSFFUN1(FLOAT,PYGAMM,pygamm,FLOAT)
0027 #define PYGAMM(A2) CCALLSFFUN1(PYGAMM,pygamm,FLOAT,A2)
0028
0029 PROTOCCALLSFFUN3(FLOAT,PYHFTH,pyhfth,FLOAT,FLOAT,FLOAT)
0030 #define PYHFTH(A2,A3,A4) CCALLSFFUN3(PYHFTH,pyhfth,FLOAT,FLOAT,FLOAT,A2,A3,A4)
0031
0032 PROTOCCALLSFFUN3(FLOAT,PYSPEN,pyspen,FLOAT,FLOAT,INT)
0033 #define PYSPEN(A2,A3,A4) CCALLSFFUN3(PYSPEN,pyspen,FLOAT,FLOAT,INT,A2,A3,A4)
0034
0035 PROTOCCALLSFFUN2(DOUBLE,RKDOT,rkdot,DOUBLEV,DOUBLEV)
0036 #define RKDOT(A2,A3) CCALLSFFUN2(RKDOT,rkdot,DOUBLEV,DOUBLEV,A2,A3)
0037
0038 PROTOCCALLSFFUN1(DOUBLE,RKRAND,rkrand,INT)
0039 #define RKRAND(A2) CCALLSFFUN1(RKRAND,rkrand,INT,A2)
0040
0041 PROTOCCALLSFFUN6(COMPLEX,RKZF,rkzf,INT,DOUBLEV,DOUBLEV,DOUBLE,INT,DOUBLEV)
0042 #define RKZF(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(RKZF,rkzf,INT,DOUBLEV,DOUBLEV,DOUBLE,INT,DOUBLEV,A2,A3,A4,A5,A6,A7)
0043
0044 PROTOCCALLSFFUN3(COMPLEX,RKZPR,rkzpr,INT,DOUBLEV,DOUBLEV)
0045 #define RKZPR(A2,A3,A4) CCALLSFFUN3(RKZPR,rkzpr,INT,DOUBLEV,DOUBLEV,A2,A3,A4)
0046
0047 PROTOCCALLSFFUN4(COMPLEX,RKZSF,rkzsf,INT,DOUBLEV,INT,DOUBLEV)
0048 #define RKZSF(A2,A3,A4,A5) CCALLSFFUN4(RKZSF,rkzsf,INT,DOUBLEV,INT,DOUBLEV,A2,A3,A4,A5)
0049
0050 PROTOCCALLSFFUN1(FLOAT,RLU,rlu,INT)
0051 #define RLU(A2) CCALLSFFUN1(RLU,rlu,INT,A2)
0052
0053 PROTOCCALLSFFUN1(FLOAT,ULALEM,ulalem,FLOAT)
0054 #define ULALEM(A2) CCALLSFFUN1(ULALEM,ulalem,FLOAT,A2)
0055
0056 PROTOCCALLSFFUN1(FLOAT,ULALPS,ulalps,FLOAT)
0057 #define ULALPS(A2) CCALLSFFUN1(ULALPS,ulalps,FLOAT,A2)
0058
0059 PROTOCCALLSFFUN2(FLOAT,ULANGL,ulangl,FLOAT,FLOAT)
0060 #define ULANGL(A2,A3) CCALLSFFUN2(ULANGL,ulangl,FLOAT,FLOAT,A2,A3)
0061
0062 PROTOCCALLSFFUN1(FLOAT,ULMASS,ulmass,INT)
0063 #define ULMASS(A2) CCALLSFFUN1(ULMASS,ulmass,INT,A2)
0064
0065 PROTOCCALLSFSUB5(LU1ENT,lu1ent,INT,INT,FLOAT,FLOAT,FLOAT)
0066 #define LU1ENT(A1,A2,A3,A4,A5) CCALLSFSUB5(LU1ENT,lu1ent,INT,INT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
0067
0068 PROTOCCALLSFSUB4(LU2ENT,lu2ent,INT,INT,INT,FLOAT)
0069 #define LU2ENT(A1,A2,A3,A4) CCALLSFSUB4(LU2ENT,lu2ent,INT,INT,INT,FLOAT,A1,A2,A3,A4)
0070
0071 PROTOCCALLSFSUB7(LU3ENT,lu3ent,INT,INT,INT,INT,FLOAT,FLOAT,FLOAT)
0072 #define LU3ENT(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(LU3ENT,lu3ent,INT,INT,INT,INT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7)
0073
0074 PROTOCCALLSFSUB11(LU4ENT,lu4ent,INT,INT,INT,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
0075 #define LU4ENT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(LU4ENT,lu4ent,INT,INT,INT,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
0076
0077 PROTOCCALLSFSUB1(LUBOEI,luboei,INT)
0078 #define LUBOEI(A1) CCALLSFSUB1(LUBOEI,luboei,INT,A1)
0079
0080 PROTOCCALLSFSUB1(LUCELL,lucell,PINT)
0081 #define LUCELL(A1) CCALLSFSUB1(LUCELL,lucell,PINT,A1)
0082
0083 PROTOCCALLSFSUB1(LUCLUS,luclus,PINT)
0084 #define LUCLUS(A1) CCALLSFSUB1(LUCLUS,luclus,PINT,A1)
0085
0086 PROTOCCALLSFSUB1(LUDECY,ludecy,INT)
0087 #define LUDECY(A1) CCALLSFSUB1(LUDECY,ludecy,INT,A1)
0088
0089 PROTOCCALLSFSUB1(LUEDIT,luedit,INT)
0090 #define LUEDIT(A1) CCALLSFSUB1(LUEDIT,luedit,INT,A1)
0091
0092 PROTOCCALLSFSUB2(LUEEVT,lueevt,INT,FLOAT)
0093 #define LUEEVT(A1,A2) CCALLSFSUB2(LUEEVT,lueevt,INT,FLOAT,A1,A2)
0094
0095 PROTOCCALLSFSUB2(LUERRM,luerrm,INT,BYTE)
0096 #define LUERRM(A1,A2) CCALLSFSUB2(LUERRM,luerrm,INT,BYTE,A1,A2)
0097
0098 PROTOCCALLSFSUB0(LUEXEC,luexec)
0099 #define LUEXEC() CCALLSFSUB0(LUEXEC,luexec)
0100
0101 PROTOCCALLSFSUB4(LUFOWO,lufowo,PFLOAT,PFLOAT,PFLOAT,PFLOAT)
0102 #define LUFOWO(A1,A2,A3,A4) CCALLSFSUB4(LUFOWO,lufowo,PFLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4)
0103
0104 PROTOCCALLSFSUB1(LUGIVE,lugive,BYTE)
0105 #define LUGIVE(A1) CCALLSFSUB1(LUGIVE,lugive,BYTE,A1)
0106
0107 PROTOCCALLSFSUB1(LUHEPC,luhepc,INT)
0108 #define LUHEPC(A1) CCALLSFSUB1(LUHEPC,luhepc,INT,A1)
0109
0110 PROTOCCALLSFSUB1(LUINDF,luindf,INT)
0111 #define LUINDF(A1) CCALLSFSUB1(LUINDF,luindf,INT,A1)
0112
0113 PROTOCCALLSFSUB2(LUJMAS,lujmas,PFLOAT,PFLOAT)
0114 #define LUJMAS(A1,A2) CCALLSFSUB2(LUJMAS,lujmas,PFLOAT,PFLOAT,A1,A2)
0115
0116 PROTOCCALLSFSUB2(LUJOIN,lujoin,INT,INTV)
0117 #define LUJOIN(A1,A2) CCALLSFSUB2(LUJOIN,lujoin,INT,INTV,A1,A2)
0118
0119 PROTOCCALLSFSUB4(LUKFDI,lukfdi,INT,INT,PINT,PINT)
0120 #define LUKFDI(A1,A2,A3,A4) CCALLSFSUB4(LUKFDI,lukfdi,INT,INT,PINT,PINT,A1,A2,A3,A4)
0121
0122 PROTOCCALLSFSUB1(LULIST,lulist,INT)
0123 #define LULIST(A1) CCALLSFSUB1(LULIST,lulist,INT,A1)
0124
0125 PROTOCCALLSFSUB0(LULOGO,lulogo)
0126 #define LULOGO() CCALLSFSUB0(LULOGO,lulogo)
0127
0128 PROTOCCALLSFSUB2(LUNAME,luname,INT,PBYTE)
0129 #define LUNAME(A1,A2) CCALLSFSUB2(LUNAME,luname,INT,PBYTE,A1,A2)
0130
0131 PROTOCCALLSFSUB2(LUONIA,luonia,INT,FLOAT)
0132 #define LUONIA(A1,A2) CCALLSFSUB2(LUONIA,luonia,INT,FLOAT,A1,A2)
0133
0134 PROTOCCALLSFSUB1(LUPREP,luprep,INT)
0135 #define LUPREP(A1) CCALLSFSUB1(LUPREP,luprep,INT,A1)
0136
0137 PROTOCCALLSFSUB3(LUPTDI,luptdi,INT,PFLOAT,PFLOAT)
0138 #define LUPTDI(A1,A2,A3) CCALLSFSUB3(LUPTDI,luptdi,INT,PFLOAT,PFLOAT,A1,A2,A3)
0139
0140 PROTOCCALLSFSUB6(LURADK,luradk,FLOAT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT)
0141 #define LURADK(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(LURADK,luradk,FLOAT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
0142
0143 PROTOCCALLSFSUB7(LUDBRB,ludbrb,INT,INT,FLOAT,FLOAT,DOUBLE,DOUBLE,DOUBLE)
0144 #define LUDBRB(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(LUDBRB,ludbrb,INT,INT,FLOAT,FLOAT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7)
0145
0146 PROTOCCALLSFSUB5(LUROBO,lurobo,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
0147 #define LUROBO(A1,A2,A3,A4,A5) CCALLSFSUB5(LUROBO,lurobo,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
0148
0149 PROTOCCALLSFSUB3(LUSHOW,lushow,INT,INT,FLOAT)
0150 #define LUSHOW(A1,A2,A3) CCALLSFSUB3(LUSHOW,lushow,INT,INT,FLOAT,A1,A2,A3)
0151
0152 PROTOCCALLSFSUB2(LUSPHE,lusphe,PFLOAT,PFLOAT)
0153 #define LUSPHE(A1,A2) CCALLSFSUB2(LUSPHE,lusphe,PFLOAT,PFLOAT,A1,A2)
0154
0155 PROTOCCALLSFSUB1(LUSTRF,lustrf,INT)
0156 #define LUSTRF(A1) CCALLSFSUB1(LUSTRF,lustrf,INT,A1)
0157
0158 PROTOCCALLSFSUB1(LUTABU,lutabu,INT)
0159 #define LUTABU(A1) CCALLSFSUB1(LUTABU,lutabu,INT,A1)
0160
0161 PROTOCCALLSFSUB4(LUTAUD,lutaud,INT,INT,INT,PINT)
0162 #define LUTAUD(A1,A2,A3,A4) CCALLSFSUB4(LUTAUD,lutaud,INT,INT,INT,PINT,A1,A2,A3,A4)
0163
0164 PROTOCCALLSFSUB1(LUTEST,lutest,INT)
0165 #define LUTEST(A1) CCALLSFSUB1(LUTEST,lutest,INT,A1)
0166
0167 PROTOCCALLSFSUB2(LUTHRU,luthru,PFLOAT,PFLOAT)
0168 #define LUTHRU(A1,A2) CCALLSFSUB2(LUTHRU,luthru,PFLOAT,PFLOAT,A1,A2)
0169
0170 PROTOCCALLSFSUB2(LUUPDA,luupda,INT,INT)
0171 #define LUUPDA(A1,A2) CCALLSFSUB2(LUUPDA,luupda,INT,INT,A1,A2)
0172
0173 PROTOCCALLSFSUB6(LUX3JT,lux3jt,PINT,FLOAT,INT,FLOAT,PFLOAT,PFLOAT)
0174 #define LUX3JT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(LUX3JT,lux3jt,PINT,FLOAT,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
0175
0176 PROTOCCALLSFSUB10(LUX4JT,lux4jt,PINT,FLOAT,INT,FLOAT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT)
0177 #define LUX4JT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(LUX4JT,lux4jt,PINT,FLOAT,INT,FLOAT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
0178
0179 PROTOCCALLSFSUB7(LUXDIF,luxdif,INT,INT,INT,FLOAT,PFLOAT,PFLOAT,PFLOAT)
0180 #define LUXDIF(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(LUXDIF,luxdif,INT,INT,INT,FLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
0181
0182 PROTOCCALLSFSUB3(LUXJET,luxjet,FLOAT,PINT,PFLOAT)
0183 #define LUXJET(A1,A2,A3) CCALLSFSUB3(LUXJET,luxjet,FLOAT,PINT,PFLOAT,A1,A2,A3)
0184
0185 PROTOCCALLSFSUB4(LUXKFL,luxkfl,INT,FLOAT,FLOAT,PINT)
0186 #define LUXKFL(A1,A2,A3,A4) CCALLSFSUB4(LUXKFL,luxkfl,INT,FLOAT,FLOAT,PINT,A1,A2,A3,A4)
0187
0188 PROTOCCALLSFSUB3(LUXTOT,luxtot,INT,FLOAT,PFLOAT)
0189 #define LUXTOT(A1,A2,A3) CCALLSFSUB3(LUXTOT,luxtot,INT,FLOAT,PFLOAT,A1,A2,A3)
0190
0191 PROTOCCALLSFSUB4(LUZDIS,luzdis,INT,INT,FLOAT,PFLOAT)
0192 #define LUZDIS(A1,A2,A3,A4) CCALLSFSUB4(LUZDIS,luzdis,INT,INT,FLOAT,PFLOAT,A1,A2,A3,A4)
0193
0194 PROTOCCALLSFSUB2(PDFSET,pdfset,PSTRINGV,PDOUBLE)
0195 #define PDFSET(A1,A2) CCALLSFSUB2(PDFSET,pdfset,PSTRINGV,PDOUBLE,A1,A2)
0196
0197 PROTOCCALLSFSUB0(PYDIFF,pydiff)
0198 #define PYDIFF() CCALLSFSUB0(PYDIFF,pydiff)
0199
0200 PROTOCCALLSFSUB0(PYDOCU,pydocu)
0201 #define PYDOCU() CCALLSFSUB0(PYDOCU,pydocu)
0202
0203 PROTOCCALLSFSUB0(PYEVNT,pyevnt)
0204 #define PYEVNT() CCALLSFSUB0(PYEVNT,pyevnt)
0205
0206 PROTOCCALLSFSUB1(PYEVWT,pyevwt,PFLOAT)
0207 #define PYEVWT(A1) CCALLSFSUB1(PYEVWT,pyevwt,PFLOAT,A1)
0208
0209 PROTOCCALLSFSUB1(PYFRAM,pyfram,INT)
0210 #define PYFRAM(A1) CCALLSFSUB1(PYFRAM,pyfram,INT,A1)
0211
0212 PROTOCCALLSFSUB4(PYI3AU,pyi3au,FLOAT,FLOAT,PFLOAT,PFLOAT)
0213 #define PYI3AU(A1,A2,A3,A4) CCALLSFSUB4(PYI3AU,pyi3au,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4)
0214
0215 PROTOCCALLSFSUB4(PYINIT,pyinit,STRING,STRING,STRING,FLOAT)
0216 #define PYINIT(A1,A2,A3,A4) CCALLSFSUB4(PYINIT,pyinit,STRING,STRING,STRING,FLOAT,A1,A2,A3,A4)
0217
0218 PROTOCCALLSFSUB1(PYINKI,pyinki,INT)
0219 #define PYINKI(A1) CCALLSFSUB1(PYINKI,pyinki,INT,A1)
0220
0221 PROTOCCALLSFSUB0(PYINPR,pyinpr)
0222 #define PYINPR() CCALLSFSUB0(PYINPR,pyinpr)
0223
0224 PROTOCCALLSFSUB0(PYINRE,pyinre)
0225 #define PYINRE() CCALLSFSUB0(PYINRE,pyinre)
0226
0227 PROTOCCALLSFSUB1(PYKCUT,pykcut,PINT)
0228 #define PYKCUT(A1) CCALLSFSUB1(PYKCUT,pykcut,PINT,A1)
0229
0230 PROTOCCALLSFSUB1(PYKLIM,pyklim,INT)
0231 #define PYKLIM(A1) CCALLSFSUB1(PYKLIM,pyklim,INT,A1)
0232
0233 PROTOCCALLSFSUB3(PYKMAP,pykmap,INT,INT,FLOAT)
0234 #define PYKMAP(A1,A2,A3) CCALLSFSUB3(PYKMAP,pykmap,INT,INT,FLOAT,A1,A2,A3)
0235
0236 PROTOCCALLSFSUB0(PYMAXI,pymaxi)
0237 #define PYMAXI() CCALLSFSUB0(PYMAXI,pymaxi)
0238
0239 PROTOCCALLSFSUB1(PYMULT,pymult,INT)
0240 #define PYMULT(A1) CCALLSFSUB1(PYMULT,pymult,INT,A1)
0241
0242 PROTOCCALLSFSUB7(PYOFSH,pyofsh,INT,INT,INT,INT,FLOAT,PFLOAT,PFLOAT)
0243 #define PYOFSH(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(PYOFSH,pyofsh,INT,INT,INT,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
0244
0245 PROTOCCALLSFSUB1(PYPILE,pypile,INT)
0246 #define PYPILE(A1) CCALLSFSUB1(PYPILE,pypile,INT,A1)
0247
0248 PROTOCCALLSFSUB1(PYQQBH,pyqqbh,PFLOAT)
0249 #define PYQQBH(A1) CCALLSFSUB1(PYQQBH,pyqqbh,PFLOAT,A1)
0250
0251 PROTOCCALLSFSUB0(PYRAND,pyrand)
0252 #define PYRAND() CCALLSFSUB0(PYRAND,pyrand)
0253
0254 PROTOCCALLSFSUB2(PYREMN,pyremn,INT,INT)
0255 #define PYREMN(A1,A2) CCALLSFSUB2(PYREMN,pyremn,INT,INT,A1,A2)
0256
0257 PROTOCCALLSFSUB0(PYRESD,pyresd)
0258 #define PYRESD() CCALLSFSUB0(PYRESD,pyresd)
0259
0260 PROTOCCALLSFSUB2(PYSAVE,pysave,INT,PINT)
0261 #define PYSAVE(A1,A2) CCALLSFSUB2(PYSAVE,pysave,INT,PINT,A1,A2)
0262
0263 PROTOCCALLSFSUB0(PYSCAT,pyscat)
0264 #define PYSCAT() CCALLSFSUB0(PYSCAT,pyscat)
0265
0266 PROTOCCALLSFSUB2(PYSIGH,pysigh,PINT,PFLOAT)
0267 #define PYSIGH(A1,A2) CCALLSFSUB2(PYSIGH,pysigh,PINT,PFLOAT,A1,A2)
0268
0269 PROTOCCALLSFSUB4(PYSPLI,pyspli,INT,INT,PINT,PINT)
0270 #define PYSPLI(A1,A2,A3,A4) CCALLSFSUB4(PYSPLI,pyspli,INT,INT,PINT,PINT,A1,A2,A3,A4)
0271
0272 PROTOCCALLSFSUB2(PYSSPA,pysspa,INT,INT)
0273 #define PYSSPA(A1,A2) CCALLSFSUB2(PYSSPA,pysspa,INT,INT,A1,A2)
0274
0275 PROTOCCALLSFSUB3(PYSTAG,pystag,FLOAT,FLOAT,PFLOAT)
0276 #define PYSTAG(A1,A2,A3) CCALLSFSUB3(PYSTAG,pystag,FLOAT,FLOAT,PFLOAT,A1,A2,A3)
0277
0278 PROTOCCALLSFSUB1(PYSTAT,pystat,INT)
0279 #define PYSTAT(A1) CCALLSFSUB1(PYSTAT,pystat,INT,A1)
0280
0281 PROTOCCALLSFSUB3(PYSTEL,pystel,FLOAT,FLOAT,PFLOAT)
0282 #define PYSTEL(A1,A2,A3) CCALLSFSUB3(PYSTEL,pystel,FLOAT,FLOAT,PFLOAT,A1,A2,A3)
0283
0284 PROTOCCALLSFSUB4(PYSTFL,pystfl,INT,FLOAT,FLOAT,PFLOAT)
0285 #define PYSTFL(A1,A2,A3,A4) CCALLSFSUB4(PYSTFL,pystfl,INT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4)
0286
0287 PROTOCCALLSFSUB4(PYSTFU,pystfu,INT,FLOAT,FLOAT,PFLOAT)
0288 #define PYSTFU(A1,A2,A3,A4) CCALLSFSUB4(PYSTFU,pystfu,INT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4)
0289
0290 PROTOCCALLSFSUB3(PYSTGA,pystga,FLOAT,FLOAT,PFLOAT)
0291 #define PYSTGA(A1,A2,A3) CCALLSFSUB3(PYSTGA,pystga,FLOAT,FLOAT,PFLOAT,A1,A2,A3)
0292
0293 PROTOCCALLSFSUB6(PYSTGS,pystgs,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,PDOUBLE)
0294 #define PYSTGS(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(PYSTGS,pystgs,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,PDOUBLE,A1,A2,A3,A4,A5,A6)
0295
0296 PROTOCCALLSFSUB6(PYSTHG,pysthg,INT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT)
0297 #define PYSTHG(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(PYSTHG,pysthg,INT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
0298
0299 PROTOCCALLSFSUB3(PYSTPI,pystpi,FLOAT,FLOAT,PFLOAT)
0300 #define PYSTPI(A1,A2,A3) CCALLSFSUB3(PYSTPI,pystpi,FLOAT,FLOAT,PFLOAT,A1,A2,A3)
0301
0302 PROTOCCALLSFSUB3(PYSTPR,pystpr,FLOAT,FLOAT,PFLOAT)
0303 #define PYSTPR(A1,A2,A3) CCALLSFSUB3(PYSTPR,pystpr,FLOAT,FLOAT,PFLOAT,A1,A2,A3)
0304
0305 PROTOCCALLSFSUB1(PYTEST,pytest,INT)
0306 #define PYTEST(A1) CCALLSFSUB1(PYTEST,pytest,INT,A1)
0307
0308 PROTOCCALLSFSUB2(PYUPEV,pyupev,INT,PFLOAT)
0309 #define PYUPEV(A1,A2) CCALLSFSUB2(PYUPEV,pyupev,INT,PFLOAT,A1,A2)
0310
0311 PROTOCCALLSFSUB3(PYUPIN,pyupin,INT,STRING,FLOAT)
0312 #define PYUPIN(A1,A2,A3) CCALLSFSUB3(PYUPIN,pyupin,INT,STRING,FLOAT,A1,A2,A3)
0313
0314 PROTOCCALLSFSUB4(PYWAUX,pywaux,INT,FLOAT,FLOAT,PFLOAT)
0315 #define PYWAUX(A1,A2,A3,A4) CCALLSFSUB4(PYWAUX,pywaux,INT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4)
0316
0317 PROTOCCALLSFSUB4(PYWIDT,pywidt,INT,FLOAT,PFLOAT,PFLOAT)
0318 #define PYWIDT(A1,A2,A3,A4) CCALLSFSUB4(PYWIDT,pywidt,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4)
0319
0320 PROTOCCALLSFSUB0(PYXTOT,pyxtot)
0321 #define PYXTOT() CCALLSFSUB0(PYXTOT,pyxtot)
0322
0323 PROTOCCALLSFSUB8(RKBBV,rkbbv,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,INT,PFLOAT)
0324 #define RKBBV(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(RKBBV,rkbbv,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
0325
0326 PROTOCCALLSFSUB6(RKHLPK,rkhlpk,INT,PINT,PINT,PINT,PINT,PINT)
0327 #define RKHLPK(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(RKHLPK,rkhlpk,INT,PINT,PINT,PINT,PINT,PINT,A1,A2,A3,A4,A5,A6)
0328
0329 PROTOCCALLSFSUB2(RLUGET,rluget,INT,INT)
0330 #define RLUGET(A1,A2) CCALLSFSUB2(RLUGET,rluget,INT,INT,A1,A2)
0331
0332 PROTOCCALLSFSUB2(RLUSET,rluset,INT,INT)
0333 #define RLUSET(A1,A2) CCALLSFSUB2(RLUSET,rluset,INT,INT,A1,A2)
0334
0335 PROTOCCALLSFSUB11(STRUCTM,structm,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE)
0336 #define STRUCTM(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(STRUCTM,structm,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
0337 #ifdef __cplusplus
0338 }
0339 #endif
0340
0341 #endif
