EIC code displayed by LXR |
|
|
|
|||
File indexing completed on 2024-05-18 08:29:55
0001 #ifndef _GEANT321_H 0002 #define _GEANT321_H 0003 #include <cfortran/cfortran.h> 0004 0005 #ifdef __cplusplus 0006 extern "C" { 0007 #endif 0008 0009 /*------------------------------------------------------------------ 0010 fortran filename : abbrch.f 0011 ------------------------------------------------------------------*/ 0012 0013 #define ABBRCH(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,A30,A31,A32,A33,A34,A35) CCALLSFSUB35(ABBRCH,abbrch,INT,INT,PINT,INT,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PINT,PINT,PDOUBLE,PINT,PINT,PINT,PINT,PDOUBLE,PDOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PINT,DOUBLE,DOUBLE,INT,INT,INT,INT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,A30,A31,A32,A33,A34,A35) 0014 0015 /*------------------------------------------------------------------ 0016 fortran filename : ainel.f 0017 ------------------------------------------------------------------*/ 0018 0019 PROTOCCALLSFFUN5(DOUBLE,AINEL,ainel,INT,INT,DOUBLE,DOUBLE,DOUBLE) 0020 #define AINEL(A2,A3,A4,A5,A6) CCALLSFFUN5(AINEL,ainel,INT,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5,A6) 0021 0022 /*------------------------------------------------------------------ 0023 fortran filename : akeka.f 0024 ------------------------------------------------------------------*/ 0025 0026 PROTOCCALLSFFUN3(DOUBLE,AKEKA,akeka,INT,DOUBLE,DOUBLE) 0027 #define AKEKA(A2,A3,A4) CCALLSFFUN3(AKEKA,akeka,INT,DOUBLE,DOUBLE,A2,A3,A4) 0028 0029 /*------------------------------------------------------------------ 0030 fortran filename : altra.f 0031 ------------------------------------------------------------------*/ 0032 0033 #define ALTRA(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) CCALLSFSUB13(ALTRA,altra,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) 0034 0035 /*------------------------------------------------------------------ 0036 fortran filename : altraf.f 0037 ------------------------------------------------------------------*/ 0038 0039 #define ALTRAF(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15) CCALLSFSUB15(ALTRAF,altraf,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15) 0040 0041 /*------------------------------------------------------------------ 0042 fortran filename : amga.f 0043 ------------------------------------------------------------------*/ 0044 0045 PROTOCCALLSFFUN1(DOUBLE,AMGA,amga,INT) 0046 #define AMGA(A2) CCALLSFFUN1(AMGA,amga,INT,A2) 0047 0048 /*------------------------------------------------------------------ 0049 fortran filename : angcdf.f 0050 ------------------------------------------------------------------*/ 0051 0052 #define ANGCDF(A1,A2,A3) CCALLSFSUB3(ANGCDF,angcdf,PFLOAT,INTV,INT,A1,A2,A3) 0053 0054 /*------------------------------------------------------------------ 0055 fortran filename : ankeka.f 0056 ------------------------------------------------------------------*/ 0057 0058 PROTOCCALLSFFUN4(DOUBLE,ANKEKA,ankeka,INT,DOUBLE,DOUBLE,DOUBLE) 0059 #define ANKEKA(A2,A3,A4,A5) CCALLSFFUN4(ANKEKA,ankeka,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5) 0060 0061 /*------------------------------------------------------------------ 0062 fortran filename : atomas.f 0063 ------------------------------------------------------------------*/ 0064 0065 PROTOCCALLSFFUN2(FLOAT,ATOMAS,atomas,FLOAT,FLOAT) 0066 #define ATOMAS(A2,A3) CCALLSFFUN2(ATOMAS,atomas,FLOAT,FLOAT,A2,A3) 0067 0068 /*------------------------------------------------------------------ 0069 fortran filename : azirn.f 0070 ------------------------------------------------------------------*/ 0071 0072 #define AZIRN(A1,A2) CCALLSFSUB2(AZIRN,azirn,PFLOAT,PFLOAT,A1,A2) 0073 0074 /*------------------------------------------------------------------ 0075 fortran filename : bamjev.f 0076 ------------------------------------------------------------------*/ 0077 0078 #define BAMJEV(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(BAMJEV,bamjev,PINT,INT,INT,INT,INT,DOUBLE,INT,A1,A2,A3,A4,A5,A6,A7) 0079 0080 /*------------------------------------------------------------------ 0081 fortran filename : bankr.f 0082 ------------------------------------------------------------------*/ 0083 0084 #define BANKR(A1,A2,A3) CCALLSFSUB3(BANKR,bankr,FLOATV,INTV,INT,A1,A2,A3) 0085 0086 /*------------------------------------------------------------------ 0087 fortran filename : barier.f 0088 ------------------------------------------------------------------*/ 0089 0090 #define BARIER(A1,A2,A3,A4,A5) CCALLSFSUB5(BARIER,barier,INT,INT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5) 0091 0092 /*------------------------------------------------------------------ 0093 fortran filename : beexi.f 0094 ------------------------------------------------------------------*/ 0095 0096 PROTOCCALLSFFUN3(DOUBLE,BEEXI,beexi,INT,DOUBLE,DOUBLE) 0097 #define BEEXI(A2,A3,A4) CCALLSFFUN3(BEEXI,beexi,INT,DOUBLE,DOUBLE,A2,A3,A4) 0098 0099 /*------------------------------------------------------------------ 0100 fortran filename : bekeka.f 0101 ------------------------------------------------------------------*/ 0102 0103 PROTOCCALLSFFUN4(DOUBLE,BEKEKA,bekeka,INT,DOUBLE,DOUBLE,DOUBLE) 0104 #define BEKEKA(A2,A3,A4,A5) CCALLSFFUN4(BEKEKA,bekeka,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5) 0105 0106 /*------------------------------------------------------------------ 0107 fortran filename : berttp.f 0108 ------------------------------------------------------------------*/ 0109 0110 #define BERTTP() CCALLSFSUB0(BERTTP,berttp) 0111 0112 /*------------------------------------------------------------------ 0113 fortran filename : beta.f 0114 ------------------------------------------------------------------*/ 0115 0116 PROTOCCALLSFFUN3(DOUBLE,BETA,beta,DOUBLE,DOUBLE,DOUBLE) 0117 #define BETA(A2,A3,A4) CCALLSFFUN3(BETA,beta,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4) 0118 0119 /*------------------------------------------------------------------ 0120 fortran filename : betarn.f 0121 ------------------------------------------------------------------*/ 0122 0123 PROTOCCALLSFFUN2(DOUBLE,BETARN,betarn,DOUBLE,DOUBLE) 0124 #define BETARN(A2,A3) CCALLSFFUN2(BETARN,betarn,DOUBLE,DOUBLE,A2,A3) 0125 0126 /*------------------------------------------------------------------ 0127 fortran filename : betrst.f 0128 ------------------------------------------------------------------*/ 0129 0130 PROTOCCALLSFFUN4(DOUBLE,BETRST,betrst,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE) 0131 #define BETRST(A2,A3,A4,A5) CCALLSFFUN4(BETRST,betrst,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A2,A3,A4,A5) 0132 0133 /*------------------------------------------------------------------ 0134 fortran filename : bimsel.f 0135 ------------------------------------------------------------------*/ 0136 0137 #define BIMSEL(A1,A2,A3,A4,A5) CCALLSFSUB5(BIMSEL,bimsel,INT,DOUBLE,DOUBLE,DOUBLE,LOGICAL,A1,A2,A3,A4,A5) 0138 0139 /*------------------------------------------------------------------ 0140 fortran filename : bkeka.f 0141 ------------------------------------------------------------------*/ 0142 0143 PROTOCCALLSFFUN3(DOUBLE,BKEKA,bkeka,INT,DOUBLE,DOUBLE) 0144 #define BKEKA(A2,A3,A4) CCALLSFFUN3(BKEKA,bkeka,INT,DOUBLE,DOUBLE,A2,A3,A4) 0145 0146 /*------------------------------------------------------------------ 0147 fortran filename : bklass.f 0148 ------------------------------------------------------------------*/ 0149 0150 #define BKLASS(A1,A2,A3,A4,A5) CCALLSFSUB5(BKLASS,bklass,INT,INT,INT,PINT,PINT,A1,A2,A3,A4,A5) 0151 0152 /*------------------------------------------------------------------ 0153 fortran filename : bnkeka.f 0154 ------------------------------------------------------------------*/ 0155 0156 PROTOCCALLSFFUN4(DOUBLE,BNKEKA,bnkeka,INT,DOUBLE,DOUBLE,DOUBLE) 0157 #define BNKEKA(A2,A3,A4,A5) CCALLSFFUN4(BNKEKA,bnkeka,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5) 0158 0159 /*------------------------------------------------------------------ 0160 fortran filename : cadig.f 0161 ------------------------------------------------------------------*/ 0162 0163 PROTOCCALLSFFUN1(FLOAT,CADIG,cadig,FLOAT) 0164 #define CADIG(A2) CCALLSFFUN1(CADIG,cadig,FLOAT,A2) 0165 0166 /*------------------------------------------------------------------ 0167 fortran filename : calumo.f 0168 ------------------------------------------------------------------*/ 0169 0170 #define CALUMO(A1,A2) CCALLSFSUB2(CALUMO,calumo,INT,INT,A1,A2) 0171 0172 /*------------------------------------------------------------------ 0173 fortran filename : calumv.f 0174 ------------------------------------------------------------------*/ 0175 0176 #define CALUMV(A1,A2) CCALLSFSUB2(CALUMV,calumv,INT,INT,A1,A2) 0177 0178 /*------------------------------------------------------------------ 0179 fortran filename : cangle.f 0180 ------------------------------------------------------------------*/ 0181 0182 #define CANGLE(A1,A2,A3,A4,A5) CCALLSFSUB5(CANGLE,cangle,FLOATV,INTV,FLOAT,PFLOAT,INT,A1,A2,A3,A4,A5) 0183 0184 /*------------------------------------------------------------------ 0185 fortran filename : captur.f 0186 ------------------------------------------------------------------*/ 0187 0188 #define CAPTUR(A1) CCALLSFSUB1(CAPTUR,captur,PINT,A1) 0189 0190 /*------------------------------------------------------------------ 0191 fortran filename : casal0.f 0192 ------------------------------------------------------------------*/ 0193 0194 #define CASAL0(A1,A2,A3) CCALLSFSUB3(CASAL0,casal0,INT,PINT,PINT,A1,A2,A3) 0195 0196 /*------------------------------------------------------------------ 0197 fortran filename : casaom.f 0198 ------------------------------------------------------------------*/ 0199 0200 #define CASAOM(A1,A2,A3) CCALLSFSUB3(CASAOM,casaom,INT,INT,INT,A1,A2,A3) 0201 0202 /*------------------------------------------------------------------ 0203 fortran filename : casasm.f 0204 ------------------------------------------------------------------*/ 0205 0206 #define CASASM(A1,A2,A3) CCALLSFSUB3(CASASM,casasm,INT,PINT,PINT,A1,A2,A3) 0207 0208 /*------------------------------------------------------------------ 0209 fortran filename : casasp.f 0210 ------------------------------------------------------------------*/ 0211 0212 #define CASASP(A1,A2,A3) CCALLSFSUB3(CASASP,casasp,INT,PINT,PINT,A1,A2,A3) 0213 0214 /*------------------------------------------------------------------ 0215 fortran filename : casax0.f 0216 ------------------------------------------------------------------*/ 0217 0218 #define CASAX0(A1,A2,A3) CCALLSFSUB3(CASAX0,casax0,INT,INT,INT,A1,A2,A3) 0219 0220 /*------------------------------------------------------------------ 0221 fortran filename : casaxm.f 0222 ------------------------------------------------------------------*/ 0223 0224 #define CASAXM(A1,A2,A3) CCALLSFSUB3(CASAXM,casaxm,INT,INT,INT,A1,A2,A3) 0225 0226 /*------------------------------------------------------------------ 0227 fortran filename : casfrg.f 0228 ------------------------------------------------------------------*/ 0229 0230 #define CASFRG(A1,A2,A3) CCALLSFSUB3(CASFRG,casfrg,PINT,INT,INT,A1,A2,A3) 0231 0232 /*------------------------------------------------------------------ 0233 fortran filename : cask0.f 0234 ------------------------------------------------------------------*/ 0235 0236 #define CASK0(A1,A2,A3) CCALLSFSUB3(CASK0,cask0,INT,PINT,PINT,A1,A2,A3) 0237 0238 /*------------------------------------------------------------------ 0239 fortran filename : cask0b.f 0240 ------------------------------------------------------------------*/ 0241 0242 #define CASK0B(A1,A2,A3) CCALLSFSUB3(CASK0B,cask0b,INT,PINT,PINT,A1,A2,A3) 0243 0244 /*------------------------------------------------------------------ 0245 fortran filename : caskm.f 0246 ------------------------------------------------------------------*/ 0247 0248 #define CASKM(A1,A2,A3) CCALLSFSUB3(CASKM,caskm,INT,PINT,PINT,A1,A2,A3) 0249 0250 /*------------------------------------------------------------------ 0251 fortran filename : caskp.f 0252 ------------------------------------------------------------------*/ 0253 0254 #define CASKP(A1,A2,A3) CCALLSFSUB3(CASKP,caskp,INT,PINT,PINT,A1,A2,A3) 0255 0256 /*------------------------------------------------------------------ 0257 fortran filename : casl0.f 0258 ------------------------------------------------------------------*/ 0259 0260 #define CASL0(A1,A2,A3) CCALLSFSUB3(CASL0,casl0,INT,PINT,PINT,A1,A2,A3) 0261 0262 /*------------------------------------------------------------------ 0263 fortran filename : casn.f 0264 ------------------------------------------------------------------*/ 0265 0266 #define CASN(A1,A2,A3) CCALLSFSUB3(CASN,casn,INT,PINT,PINT,A1,A2,A3) 0267 0268 /*------------------------------------------------------------------ 0269 fortran filename : casnb.f 0270 ------------------------------------------------------------------*/ 0271 0272 #define CASNB(A1,A2,A3) CCALLSFSUB3(CASNB,casnb,INT,PINT,PINT,A1,A2,A3) 0273 0274 /*------------------------------------------------------------------ 0275 fortran filename : casom.f 0276 ------------------------------------------------------------------*/ 0277 0278 #define CASOM(A1,A2,A3) CCALLSFSUB3(CASOM,casom,INT,PINT,PINT,A1,A2,A3) 0279 0280 /*------------------------------------------------------------------ 0281 fortran filename : casp.f 0282 ------------------------------------------------------------------*/ 0283 0284 #define CASP(A1,A2,A3) CCALLSFSUB3(CASP,casp,INT,PINT,PINT,A1,A2,A3) 0285 0286 /*------------------------------------------------------------------ 0287 fortran filename : caspb.f 0288 ------------------------------------------------------------------*/ 0289 0290 #define CASPB(A1,A2,A3) CCALLSFSUB3(CASPB,caspb,INT,PINT,PINT,A1,A2,A3) 0291 0292 /*------------------------------------------------------------------ 0293 fortran filename : caspim.f 0294 ------------------------------------------------------------------*/ 0295 0296 #define CASPIM(A1,A2,A3) CCALLSFSUB3(CASPIM,caspim,INT,PINT,PINT,A1,A2,A3) 0297 0298 /*------------------------------------------------------------------ 0299 fortran filename : caspip.f 0300 ------------------------------------------------------------------*/ 0301 0302 #define CASPIP(A1,A2,A3) CCALLSFSUB3(CASPIP,caspip,INT,PINT,PINT,A1,A2,A3) 0303 0304 /*------------------------------------------------------------------ 0305 fortran filename : cassm.f 0306 ------------------------------------------------------------------*/ 0307 0308 #define CASSM(A1,A2,A3) CCALLSFSUB3(CASSM,cassm,INT,PINT,PINT,A1,A2,A3) 0309 0310 /*------------------------------------------------------------------ 0311 fortran filename : cassp.f 0312 ------------------------------------------------------------------*/ 0313 0314 #define CASSP(A1,A2,A3) CCALLSFSUB3(CASSP,cassp,INT,PINT,PINT,A1,A2,A3) 0315 0316 /*------------------------------------------------------------------ 0317 fortran filename : casx0.f 0318 ------------------------------------------------------------------*/ 0319 0320 #define CASX0(A1,A2,A3) CCALLSFSUB3(CASX0,casx0,INT,PINT,PINT,A1,A2,A3) 0321 0322 /*------------------------------------------------------------------ 0323 fortran filename : casxm.f 0324 ------------------------------------------------------------------*/ 0325 0326 #define CASXM(A1,A2,A3) CCALLSFSUB3(CASXM,casxm,INT,PINT,PINT,A1,A2,A3) 0327 0328 /*------------------------------------------------------------------ 0329 fortran filename : cevap.f 0330 ------------------------------------------------------------------*/ 0331 0332 #define CEVAP(A1,A2,A3,A4,A5) CCALLSFSUB5(CEVAP,cevap,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5) 0333 0334 /*------------------------------------------------------------------ 0335 fortran filename : cevap1.f 0336 ------------------------------------------------------------------*/ 0337 0338 #define CEVAP1(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CEVAP1,cevap1,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 0339 0340 /*------------------------------------------------------------------ 0341 fortran filename : cgaffi.f 0342 ------------------------------------------------------------------*/ 0343 0344 #define CGAFFI(A1,A2) CCALLSFSUB2(CGAFFI,cgaffi,PFLOAT,PFLOAT,A1,A2) 0345 0346 /*------------------------------------------------------------------ 0347 fortran filename : cgbfit.f 0348 ------------------------------------------------------------------*/ 0349 0350 #define CGBFIT(A1,A2,A3) CCALLSFSUB3(CGBFIT,cgbfit,FLOATV,FLOATV,PINT,A1,A2,A3) 0351 0352 /*------------------------------------------------------------------ 0353 fortran filename : cgbint.f 0354 ------------------------------------------------------------------*/ 0355 0356 #define CGBINT(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBINT,cgbint,FLOATV,FLOATV,INT,PFLOAT,PINT,A1,A2,A3,A4,A5) 0357 0358 /*------------------------------------------------------------------ 0359 fortran filename : cgbmmt.f 0360 ------------------------------------------------------------------*/ 0361 0362 #define CGBMMT(A1,A2,A3) CCALLSFSUB3(CGBMMT,cgbmmt,FLOATV,FLOATV,PINT,A1,A2,A3) 0363 0364 /*------------------------------------------------------------------ 0365 fortran filename : cgbool.f 0366 ------------------------------------------------------------------*/ 0367 0368 #define CGBOOL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGBOOL,cgbool,INT,INT,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4,A5,A6) 0369 0370 /*------------------------------------------------------------------ 0371 fortran filename : cgbox.f 0372 ------------------------------------------------------------------*/ 0373 0374 #define CGBOX(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBOX,cgbox,PFLOAT,INT,INT,INT,PFLOAT,A1,A2,A3,A4,A5) 0375 0376 /*------------------------------------------------------------------ 0377 fortran filename : cgbrik.f 0378 ------------------------------------------------------------------*/ 0379 0380 #define CGBRIK(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBRIK,cgbrik,FLOAT,FLOAT,FLOAT,INT,PFLOAT,A1,A2,A3,A4,A5) 0381 0382 /*------------------------------------------------------------------ 0383 fortran filename : cgbsea.f 0384 ------------------------------------------------------------------*/ 0385 0386 #define CGBSEA(A1,A2,A3,A4) CCALLSFSUB4(CGBSEA,cgbsea,FLOATV,FLOATV,PINT,PINT,A1,A2,A3,A4) 0387 0388 /*------------------------------------------------------------------ 0389 fortran filename : cgbsec.f 0390 ------------------------------------------------------------------*/ 0391 0392 #define CGBSEC(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(CGBSEC,cgbsec,FLOATV,FLOATV,FLOATV,FLOATV,INT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7) 0393 0394 /*------------------------------------------------------------------ 0395 fortran filename : cgbsor.f 0396 ------------------------------------------------------------------*/ 0397 0398 #define CGBSOR(A1,A2) CCALLSFSUB2(CGBSOR,cgbsor,PINT,PFLOAT,A1,A2) 0399 0400 /*------------------------------------------------------------------ 0401 fortran filename : cgbsub.f 0402 ------------------------------------------------------------------*/ 0403 0404 #define CGBSUB(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGBSUB,cgbsub,INT,FLOATV,PFLOAT,INT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6) 0405 0406 /*------------------------------------------------------------------ 0407 fortran filename : cgbtef.f 0408 ------------------------------------------------------------------*/ 0409 0410 #define CGBTEF(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBTEF,cgbtef,INT,INT,FLOATV,FLOATV,PFLOAT,A1,A2,A3,A4,A5) 0411 0412 /*------------------------------------------------------------------ 0413 fortran filename : cgbtfp.f 0414 ------------------------------------------------------------------*/ 0415 0416 #define CGBTFP(A1,A2,A3) CCALLSFSUB3(CGBTFP,cgbtfp,FLOATV,FLOATV,PFLOAT,A1,A2,A3) 0417 0418 /*------------------------------------------------------------------ 0419 fortran filename : cgbttt.f 0420 ------------------------------------------------------------------*/ 0421 /* 0422 #define cgbttt_ELEMS_1 ZTRINGV_NUM(1) 0423 #define cgbttt_ELEMLEN_1 ZTRINGV_NUM(2) 0424 */ 0425 0426 #define CGBTTT(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBTTT,cgbttt,STRING,FLOAT,FLOAT,INT,PINT,A1,A2,A3,A4,A5) 0427 0428 /*------------------------------------------------------------------ 0429 fortran filename : cgcev.f 0430 ------------------------------------------------------------------*/ 0431 0432 #define CGCEV(A1,A2) CCALLSFSUB2(CGCEV,cgcev,INT,FLOATV,A1,A2) 0433 0434 /*------------------------------------------------------------------ 0435 fortran filename : cgcopy.f 0436 ------------------------------------------------------------------*/ 0437 0438 #define CGCOPY(A1,A2,A3) CCALLSFSUB3(CGCOPY,cgcopy,FLOATV,INT,PFLOAT,A1,A2,A3) 0439 0440 /*------------------------------------------------------------------ 0441 fortran filename : cgelli.f 0442 ------------------------------------------------------------------*/ 0443 0444 #define CGELLI(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(CGELLI,cgelli,FLOAT,FLOAT,FLOAT,INT,INT,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7) 0445 0446 /*------------------------------------------------------------------ 0447 fortran filename : cgfac2.f 0448 ------------------------------------------------------------------*/ 0449 0450 #define CGFAC2(A1,A2,A3,A4) CCALLSFSUB4(CGFAC2,cgfac2,PFLOAT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4) 0451 0452 /*------------------------------------------------------------------ 0453 fortran filename : cgfaco.f 0454 ------------------------------------------------------------------*/ 0455 0456 #define CGFACO(A1,A2,A3,A4,A5) CCALLSFSUB5(CGFACO,cgfaco,PFLOAT,PFLOAT,INT,INT,FLOAT,A1,A2,A3,A4,A5) 0457 0458 /*------------------------------------------------------------------ 0459 fortran filename : cgfare.f 0460 ------------------------------------------------------------------*/ 0461 0462 #define CGFARE(A1,A2,A3,A4) CCALLSFSUB4(CGFARE,cgfare,INT,FLOATV,PINT,INT,A1,A2,A3,A4) 0463 0464 /*------------------------------------------------------------------ 0465 fortran filename : cgfvis.f 0466 ------------------------------------------------------------------*/ 0467 0468 #define CGFVIS(A1,A2,A3,A4) CCALLSFSUB4(CGFVIS,cgfvis,INT,FLOATV,PINT,INT,A1,A2,A3,A4) 0469 0470 /*------------------------------------------------------------------ 0471 fortran filename : cghcre.f 0472 ------------------------------------------------------------------*/ 0473 0474 #define CGHCRE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGHCRE,cghcre,INT,INT,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4,A5,A6) 0475 0476 /*------------------------------------------------------------------ 0477 fortran filename : cghdfa.f 0478 ------------------------------------------------------------------*/ 0479 0480 #define CGHDFA(A1,A2,A3,A4,A5) CCALLSFSUB5(CGHDFA,cghdfa,INT,PFLOAT,INTV,INTV,PFLOAT,A1,A2,A3,A4,A5) 0481 0482 /*------------------------------------------------------------------ 0483 fortran filename : cghend.f 0484 ------------------------------------------------------------------*/ 0485 0486 #define CGHEND(A1,A2,A3) CCALLSFSUB3(CGHEND,cghend,PFLOAT,PINT,PFLOAT,A1,A2,A3) 0487 0488 /*------------------------------------------------------------------ 0489 fortran filename : cgheva.f 0490 ------------------------------------------------------------------*/ 0491 0492 #define CGHEVA(A1,A2) CCALLSFSUB2(CGHEVA,cgheva,FLOATV,PFLOAT,A1,A2) 0493 0494 /*------------------------------------------------------------------ 0495 fortran filename : cghins.f 0496 ------------------------------------------------------------------*/ 0497 0498 #define CGHINS(A1,A2,A3) CCALLSFSUB3(CGHINS,cghins,FLOATV,PFLOAT,INT,A1,A2,A3) 0499 0500 /*------------------------------------------------------------------ 0501 fortran filename : cghmov.f 0502 ------------------------------------------------------------------*/ 0503 0504 #define CGHMOV(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(CGHMOV,cghmov,PFLOAT,PFLOAT,INT,INT,PFLOAT,PINT,PINT,A1,A2,A3,A4,A5,A6,A7) 0505 0506 /*------------------------------------------------------------------ 0507 fortran filename : cghpla.f 0508 ------------------------------------------------------------------*/ 0509 0510 #define CGHPLA(A1,A2,A3) CCALLSFSUB3(CGHPLA,cghpla,INTV,PFLOAT,PFLOAT,A1,A2,A3) 0511 0512 /*------------------------------------------------------------------ 0513 fortran filename : cghren.f 0514 ------------------------------------------------------------------*/ 0515 0516 #define CGHREN(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(CGHREN,cghren,INT,INT,INT,INT,PFLOAT,PINT,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8) 0517 0518 /*------------------------------------------------------------------ 0519 fortran filename : cghshi.f 0520 ------------------------------------------------------------------*/ 0521 0522 #define CGHSHI(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGHSHI,cghshi,INT,PINT,PINT,INTV,PINT,PINT,A1,A2,A3,A4,A5,A6) 0523 0524 /*------------------------------------------------------------------ 0525 fortran filename : cghsiz.f 0526 ------------------------------------------------------------------*/ 0527 0528 #define CGHSIZ(A1,A2,A3,A4,A5) CCALLSFSUB5(CGHSIZ,cghsiz,FLOATV,INT,PINT,PINT,INT,A1,A2,A3,A4,A5) 0529 0530 /*------------------------------------------------------------------ 0531 fortran filename : cghtre.f 0532 ------------------------------------------------------------------*/ 0533 0534 #define CGHTRE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGHTRE,cghtre,INT,PFLOAT,PINT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 0535 0536 /*------------------------------------------------------------------ 0537 fortran filename : cginve.f 0538 ------------------------------------------------------------------*/ 0539 0540 #define CGINVE(A1) CCALLSFSUB1(CGINVE,cginve,PFLOAT,A1) 0541 0542 /*------------------------------------------------------------------ 0543 fortran filename : cgmnmx.f 0544 ------------------------------------------------------------------*/ 0545 0546 #define CGMNMX(A1,A2,A3) CCALLSFSUB3(CGMNMX,cgmnmx,FLOATV,PFLOAT,PFLOAT,A1,A2,A3) 0547 0548 /*------------------------------------------------------------------ 0549 fortran filename : cgpers.f 0550 ------------------------------------------------------------------*/ 0551 0552 #define CGPERS(A1) CCALLSFSUB1(CGPERS,cgpers,PFLOAT,A1) 0553 0554 /*------------------------------------------------------------------ 0555 fortran filename : cgrifl.f 0556 ------------------------------------------------------------------*/ 0557 0558 #define CGRIFL(A1,A2) CCALLSFSUB2(CGRIFL,cgrifl,PFLOAT,PFLOAT,A1,A2) 0559 0560 /*------------------------------------------------------------------ 0561 fortran filename : cgsaan.f 0562 ------------------------------------------------------------------*/ 0563 0564 #define CGSAAN(A1,A2,A3,A4,A5) CCALLSFSUB5(CGSAAN,cgsaan,FLOAT,FLOAT,INT,INT,PINT,A1,A2,A3,A4,A5) 0565 0566 /*------------------------------------------------------------------ 0567 fortran filename : cgscop.f 0568 ------------------------------------------------------------------*/ 0569 0570 #define CGSCOP(A1,A2,A3,A4) CCALLSFSUB4(CGSCOP,cgscop,INT,FLOATV,PFLOAT,PFLOAT,A1,A2,A3,A4) 0571 0572 /*------------------------------------------------------------------ 0573 fortran filename : cgshel.f 0574 ------------------------------------------------------------------*/ 0575 0576 #define CGSHEL(A1,A2,A3,A4) CCALLSFSUB4(CGSHEL,cgshel,FLOAT,FLOAT,PINT,PFLOAT,A1,A2,A3,A4) 0577 0578 /*------------------------------------------------------------------ 0579 fortran filename : cgshif.f 0580 ------------------------------------------------------------------*/ 0581 0582 #define CGSHIF(A1,A2,A3,A4) CCALLSFSUB4(CGSHIF,cgshif,FLOAT,FLOAT,FLOAT,FLOATV,A1,A2,A3,A4) 0583 0584 /*------------------------------------------------------------------ 0585 fortran filename : cgsize.f 0586 ------------------------------------------------------------------*/ 0587 0588 PROTOCCALLSFFUN4(FLOAT,CGSIZE,cgsize,INT,INT,INTV,INTV) 0589 #define CGSIZE(A2,A3,A4,A5) CCALLSFFUN4(CGSIZE,cgsize,INT,INT,INTV,INTV,A2,A3,A4,A5) 0590 0591 /*------------------------------------------------------------------ 0592 fortran filename : cgslic.f 0593 ------------------------------------------------------------------*/ 0594 0595 #define CGSLIC(A1,A2,A3,A4) CCALLSFSUB4(CGSLIC,cgslic,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4) 0596 0597 /*------------------------------------------------------------------ 0598 fortran filename : cgsnor.f 0599 ------------------------------------------------------------------*/ 0600 0601 #define CGSNOR(A1) CCALLSFSUB1(CGSNOR,cgsnor,PFLOAT,A1) 0602 0603 /*------------------------------------------------------------------ 0604 fortran filename : cgsphe.f 0605 ------------------------------------------------------------------*/ 0606 0607 #define CGSPHE(A1,A2,A3,A4,A5) CCALLSFSUB5(CGSPHE,cgsphe,FLOAT,INT,INT,INT,FLOATV,A1,A2,A3,A4,A5) 0608 0609 /*------------------------------------------------------------------ 0610 fortran filename : cgsub.f 0611 ------------------------------------------------------------------*/ 0612 0613 #define CGSUB(A1,A2,A3,A4) CCALLSFSUB4(CGSUB,cgsub,FLOATV,FLOATV,INT,FLOATV,A1,A2,A3,A4) 0614 0615 /*------------------------------------------------------------------ 0616 fortran filename : cgtset.f 0617 ------------------------------------------------------------------*/ 0618 0619 #define CGTSET(A1,A2,A3) CCALLSFSUB3(CGTSET,cgtset,INT,PFLOAT,PINT,A1,A2,A3) 0620 0621 /*------------------------------------------------------------------ 0622 fortran filename : cgtstr.f 0623 ------------------------------------------------------------------*/ 0624 0625 #define CGTSTR(A1,A2) CCALLSFSUB2(CGTSTR,cgtstr,FLOATV,PINT,A1,A2) 0626 0627 /*------------------------------------------------------------------ 0628 fortran filename : cgvedg.f 0629 ------------------------------------------------------------------*/ 0630 0631 #define CGVEDG(A1,A2,A3,A4) CCALLSFSUB4(CGVEDG,cgvedg,INT,FLOATV,FLOATV,PINT,A1,A2,A3,A4) 0632 0633 /*------------------------------------------------------------------ 0634 fortran filename : cgvhed.f 0635 ------------------------------------------------------------------*/ 0636 0637 #define CGVHED(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(CGVHED,cgvhed,PFLOAT,INTV,INTV,PFLOAT,PINT,PINT,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8) 0638 0639 /*------------------------------------------------------------------ 0640 fortran filename : cgvtef.f 0641 ------------------------------------------------------------------*/ 0642 0643 #define CGVTEF(A1,A2,A3) CCALLSFSUB3(CGVTEF,cgvtef,INTV,PFLOAT,PINT,A1,A2,A3) 0644 0645 /*------------------------------------------------------------------ 0646 fortran filename : cgvtin.f 0647 ------------------------------------------------------------------*/ 0648 0649 #define CGVTIN(A1,A2,A3) CCALLSFSUB3(CGVTIN,cgvtin,FLOAT,FLOAT,INT,A1,A2,A3) 0650 0651 /*------------------------------------------------------------------ 0652 fortran filename : cgwire.f 0653 ------------------------------------------------------------------*/ 0654 0655 #define CGWIRE(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(CGWIRE,cgwire,FLOATV,INT,INT,INT,PFLOAT,INT,INTV,A1,A2,A3,A4,A5,A6,A7) 0656 0657 /*------------------------------------------------------------------ 0658 fortran filename : cgwsor.f 0659 ------------------------------------------------------------------*/ 0660 0661 #define CGWSOR(A1,A2) CCALLSFSUB2(CGWSOR,cgwsor,PINT,PFLOAT,A1,A2) 0662 0663 /*------------------------------------------------------------------ 0664 fortran filename : cgzre.f 0665 ------------------------------------------------------------------*/ 0666 0667 #define CGZRE(A1,A2,A3) CCALLSFSUB3(CGZRE,cgzre,INT,PFLOAT,PINT,A1,A2,A3) 0668 0669 /*------------------------------------------------------------------ 0670 fortran filename : cgzrev.f 0671 ------------------------------------------------------------------*/ 0672 0673 #define CGZREV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGZREV,cgzrev,PFLOAT,FLOAT,FLOAT,INT,INT,PFLOAT,A1,A2,A3,A4,A5,A6) 0674 0675 /*------------------------------------------------------------------ 0676 fortran filename : chanwt.f 0677 ------------------------------------------------------------------*/ 0678 0679 #define CHANWT() CCALLSFSUB0(CHANWT,chanwt) 0680 0681 /*------------------------------------------------------------------ 0682 fortran filename : chkzeb.f 0683 ------------------------------------------------------------------*/ 0684 0685 #define CHKZEB(A1,A2) CCALLSFSUB2(CHKZEB,chkzeb,INT,INT,A1,A2) 0686 0687 /*------------------------------------------------------------------ 0688 fortran filename : cinema.f 0689 ------------------------------------------------------------------*/ 0690 0691 PROTOCCALLSFFUN1(FLOAT,CINEMA,cinema,FLOAT) 0692 #define CINEMA(A2) CCALLSFFUN1(CINEMA,cinema,FLOAT,A2) 0693 0694 /*------------------------------------------------------------------ 0695 fortran filename : clear.f 0696 ------------------------------------------------------------------*/ 0697 0698 #define CLEAR(A1,A2,A3) CCALLSFSUB3(CLEAR,clear,PINT,INT,INT,A1,A2,A3) 0699 0700 /*------------------------------------------------------------------ 0701 fortran filename : cmlabe.f 0702 ------------------------------------------------------------------*/ 0703 0704 #define CMLABE(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(CMLABE,cmlabe,FLOATV,INTV,FLOAT,INT,INT,PFLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8) 0705 0706 /*------------------------------------------------------------------ 0707 fortran filename : cmlabi.f 0708 ------------------------------------------------------------------*/ 0709 0710 #define CMLABI(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(CMLABI,cmlabi,FLOATV,INTV,FLOAT,INT,INT,PFLOAT,FLOAT,PINT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) 0711 0712 /*------------------------------------------------------------------ 0713 fortran filename : cohert.f 0714 ------------------------------------------------------------------*/ 0715 0716 #define COHERT(A1,A2,A3) CCALLSFSUB3(COHERT,cohert,INT,INT,FLOAT,A1,A2,A3) 0717 0718 /*------------------------------------------------------------------ 0719 fortran filename : colisn.f 0720 ------------------------------------------------------------------*/ 0721 0722 #define COLISN(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,A30,A31,A32,A33,A34,A35,A36,A37,A38,A39,A40,A41,A42,A43,A44,A45,A46,A47,A48) CCALLSFSUB48(COLISN,colisn,FLOATV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,PINT,PINT,INTV,INTV,PINT,PINT,FLOATV,PFLOAT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,INTV,PINT,PFLOAT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,A30,A31,A32,A33,A34,A35,A36,A37,A38,A39,A40,A41,A42,A43,A44,A45,A46,A47,A48) 0723 0724 /*------------------------------------------------------------------ 0725 fortran filename : compo.f 0726 ------------------------------------------------------------------*/ 0727 0728 #define COMPO() CCALLSFSUB0(COMPO,compo) 0729 0730 /*------------------------------------------------------------------ 0731 fortran filename : coranh.f 0732 ------------------------------------------------------------------*/ 0733 0734 #define CORANH(A1,A2) CCALLSFSUB2(CORANH,coranh,PINT,INT,A1,A2) 0735 0736 /*------------------------------------------------------------------ 0737 fortran filename : corevt.f 0738 ------------------------------------------------------------------*/ 0739 0740 #define COREVT(A1,A2,A3,A4,A5) CCALLSFSUB5(COREVT,corevt,DOUBLE,DOUBLE,INT,DOUBLE,DOUBLE,A1,A2,A3,A4,A5) 0741 0742 /*------------------------------------------------------------------ 0743 fortran filename : corrin.f 0744 ------------------------------------------------------------------*/ 0745 0746 #define CORRIN(A1,A2,A3,A4,A5) CCALLSFSUB5(CORRIN,corrin,DOUBLE,DOUBLE,INT,DOUBLE,DOUBLE,A1,A2,A3,A4,A5) 0747 0748 /*------------------------------------------------------------------ 0749 fortran filename : coscat.f 0750 ------------------------------------------------------------------*/ 0751 0752 #define COSCAT() CCALLSFSUB0(COSCAT,coscat) 0753 0754 /*------------------------------------------------------------------ 0755 fortran filename : cosleg.f 0756 ------------------------------------------------------------------*/ 0757 0758 PROTOCCALLSFFUN1(DOUBLE,COSLEG,cosleg,PDOUBLE) 0759 #define COSLEG(A2) CCALLSFFUN1(COSLEG,cosleg,PDOUBLE,A2) 0760 0761 /*------------------------------------------------------------------ 0762 fortran filename : cterp.f 0763 ------------------------------------------------------------------*/ 0764 0765 #define CTERP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CTERP,cterp,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 0766 0767 /*------------------------------------------------------------------ 0768 fortran filename : datar3.f 0769 ------------------------------------------------------------------*/ 0770 0771 #define DATAR3() CCALLSFSUB0(DATAR3,datar3) 0772 0773 /*------------------------------------------------------------------ 0774 fortran filename : decaux.f 0775 ------------------------------------------------------------------*/ 0776 0777 #define DECAUX(A1,A2) CCALLSFSUB2(DECAUX,decaux,INT,INT,A1,A2) 0778 0779 /*------------------------------------------------------------------ 0780 fortran filename : defs1.f 0781 ------------------------------------------------------------------*/ 0782 0783 #define DEFS1(A1,A2,A3) CCALLSFSUB3(DEFS1,defs1,INT,INT,INT,A1,A2,A3) 0784 0785 /*------------------------------------------------------------------ 0786 fortran filename : difevv.f 0787 ------------------------------------------------------------------*/ 0788 0789 #define DIFEVV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(DIFEVV,difevv,PINT,INT,INT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6) 0790 0791 /*------------------------------------------------------------------ 0792 fortran filename : dlpnuc.f 0793 ------------------------------------------------------------------*/ 0794 0795 #define DLPNUC(A1,A2) CCALLSFSUB2(DLPNUC,dlpnuc,PDOUBLE,INT,A1,A2) 0796 0797 /*------------------------------------------------------------------ 0798 fortran filename : dlpsor.f 0799 ------------------------------------------------------------------*/ 0800 0801 #define DLPSOR(A1,A2) CCALLSFSUB2(DLPSOR,dlpsor,PDOUBLE,INT,A1,A2) 0802 0803 /*------------------------------------------------------------------ 0804 fortran filename : dost.f 0805 ------------------------------------------------------------------*/ 0806 0807 PROTOCCALLSFFUN2(DOUBLE,DOST,dost,INT,DOUBLE) 0808 #define DOST(A2,A3) CCALLSFFUN2(DOST,dost,INT,DOUBLE,A2,A3) 0809 0810 /*------------------------------------------------------------------ 0811 fortran filename : dotes2.f 0812 ------------------------------------------------------------------*/ 0813 0814 #define DOTES2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(DOTES2,dotes2,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,INT,A1,A2,A3,A4,A5,A6) 0815 0816 /*------------------------------------------------------------------ 0817 fortran filename : dotnuc.f 0818 ------------------------------------------------------------------*/ 0819 0820 #define DOTNUC(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(DOTNUC,dotnuc,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,INT,A1,A2,A3,A4,A5,A6) 0821 0822 /*------------------------------------------------------------------ 0823 fortran filename : dpdnuc.f 0824 ------------------------------------------------------------------*/ 0825 0826 PROTOCCALLSFFUN3(DOUBLE,DPDNUC,dpdnuc,DOUBLE,DOUBLE,DOUBLE) 0827 #define DPDNUC(A2,A3,A4) CCALLSFFUN3(DPDNUC,dpdnuc,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4) 0828 0829 /*------------------------------------------------------------------ 0830 fortran filename : drelab.f 0831 ------------------------------------------------------------------*/ 0832 0833 #define DRELAB(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(DRELAB,drelab,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7) 0834 0835 /*------------------------------------------------------------------ 0836 fortran filename : eexi.f 0837 ------------------------------------------------------------------*/ 0838 0839 PROTOCCALLSFFUN3(DOUBLE,EEXI,eexi,INT,DOUBLE,DOUBLE) 0840 #define EEXI(A2,A3,A4) CCALLSFFUN3(EEXI,eexi,INT,DOUBLE,DOUBLE,A2,A3,A4) 0841 0842 /*------------------------------------------------------------------ 0843 fortran filename : eexlvl.f 0844 ------------------------------------------------------------------*/ 0845 0846 #define EEXLVL(A1,A2,A3,A4,A5) CCALLSFSUB5(EEXLVL,eexlvl,INT,INT,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5) 0847 0848 /*------------------------------------------------------------------ 0849 fortran filename : ekeka.f 0850 ------------------------------------------------------------------*/ 0851 0852 PROTOCCALLSFFUN4(DOUBLE,EKEKA,ekeka,INT,DOUBLE,DOUBLE,DOUBLE) 0853 #define EKEKA(A2,A3,A4,A5) CCALLSFFUN4(EKEKA,ekeka,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5) 0854 0855 /*------------------------------------------------------------------ 0856 fortran filename : energi.f 0857 ------------------------------------------------------------------*/ 0858 0859 #define ENERGI(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(ENERGI,energi,INT,INT,INT,INTV,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9) 0860 0861 /*------------------------------------------------------------------ 0862 fortran filename : enrg.f 0863 ------------------------------------------------------------------*/ 0864 0865 PROTOCCALLSFFUN2(DOUBLE,ENRG,enrg,DOUBLE,DOUBLE) 0866 #define ENRG(A2,A3) CCALLSFFUN2(ENRG,enrg,DOUBLE,DOUBLE,A2,A3) 0867 0868 /*------------------------------------------------------------------ 0869 fortran filename : evaplr.f 0870 ------------------------------------------------------------------*/ 0871 0872 #define EVAPLR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(EVAPLR,evaplr,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 0873 0874 /*------------------------------------------------------------------ 0875 fortran filename : evdeex.f 0876 ------------------------------------------------------------------*/ 0877 0878 #define EVDEEX(A1) CCALLSFSUB1(EVDEEX,evdeex,DOUBLE,A1) 0879 0880 /*------------------------------------------------------------------ 0881 fortran filename : eventv.f 0882 ------------------------------------------------------------------*/ 0883 0884 #define EVENTV(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(EVENTV,eventv,INT,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,A1,A2,A3,A4,A5,A6,A7,A8) 0885 0886 /*------------------------------------------------------------------ 0887 fortran filename : evevap.f 0888 ------------------------------------------------------------------*/ 0889 0890 #define EVEVAP(A1) CCALLSFSUB1(EVEVAP,evevap,DOUBLE,A1) 0891 0892 /*------------------------------------------------------------------ 0893 fortran filename : evvini.f 0894 ------------------------------------------------------------------*/ 0895 /* 0896 #define evvini_ELEMS_2 ZTRINGV_NUM(1) 0897 #define evvini_ELEMLEN_2 ZTRINGV_NUM(8) 0898 */ 0899 0900 #define EVVINI(A1,A2) CCALLSFSUB2(EVVINI,evvini,DOUBLEV,STRING,A1,A2) 0901 0902 /*------------------------------------------------------------------ 0903 fortran filename : exnu.f 0904 ------------------------------------------------------------------*/ 0905 0906 PROTOCCALLSFFUN1(FLOAT,EXNU,exnu,FLOAT) 0907 #define EXNU(A2) CCALLSFFUN1(EXNU,exnu,FLOAT,A2) 0908 0909 /*------------------------------------------------------------------ 0910 fortran filename : exprnf.f 0911 ------------------------------------------------------------------*/ 0912 0913 PROTOCCALLSFFUN1(FLOAT,EXPRNF,exprnf,FLOAT) 0914 #define EXPRNF(A2) CCALLSFFUN1(EXPRNF,exprnf,FLOAT,A2) 0915 0916 /*------------------------------------------------------------------ 0917 fortran filename : fctcos.f 0918 ------------------------------------------------------------------*/ 0919 0920 PROTOCCALLSFFUN1(FLOAT,FCTCOS,fctcos,FLOAT) 0921 #define FCTCOS(A2) CCALLSFFUN1(FCTCOS,fctcos,FLOAT,A2) 0922 0923 /*------------------------------------------------------------------ 0924 fortran filename : fdevap.f 0925 ------------------------------------------------------------------*/ 0926 0927 #define FDEVAP() CCALLSFSUB0(FDEVAP,fdevap) 0928 0929 /*------------------------------------------------------------------ 0930 fortran filename : fdnopt.f 0931 ------------------------------------------------------------------*/ 0932 0933 #define FDNOPT() CCALLSFSUB0(FDNOPT,fdnopt) 0934 0935 /*------------------------------------------------------------------ 0936 fortran filename : fdpree.f 0937 ------------------------------------------------------------------*/ 0938 0939 #define FDPREE() CCALLSFSUB0(FDPREE,fdpree) 0940 0941 /*------------------------------------------------------------------ 0942 fortran filename : fekfnc.f 0943 ------------------------------------------------------------------*/ 0944 0945 PROTOCCALLSFFUN2(DOUBLE,FEKFNC,fekfnc,DOUBLE,INT) 0946 #define FEKFNC(A2,A3) CCALLSFFUN2(FEKFNC,fekfnc,DOUBLE,INT,A2,A3) 0947 0948 /*------------------------------------------------------------------ 0949 fortran filename : ferevv.f 0950 ------------------------------------------------------------------*/ 0951 0952 #define FEREVV(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(FEREVV,ferevv,INT,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) 0953 0954 /*------------------------------------------------------------------ 0955 fortran filename : ferhav.f 0956 ------------------------------------------------------------------*/ 0957 0958 #define FERHAV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(FERHAV,ferhav,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6) 0959 0960 /*------------------------------------------------------------------ 0961 fortran filename : fermi.f 0962 ------------------------------------------------------------------*/ 0963 0964 PROTOCCALLSFFUN1(FLOAT,FERMI,fermi,FLOAT) 0965 #define FERMI(A2) CCALLSFFUN1(FERMI,fermi,FLOAT,A2) 0966 0967 /*------------------------------------------------------------------ 0968 fortran filename : fisfra.f 0969 ------------------------------------------------------------------*/ 0970 0971 #define FISFRA(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(FISFRA,fisfra,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7) 0972 0973 /*------------------------------------------------------------------ 0974 fortran filename : fisrnf.f 0975 ------------------------------------------------------------------*/ 0976 0977 PROTOCCALLSFFUN2(FLOAT,FISRNF,fisrnf,FLOAT,FLOAT) 0978 #define FISRNF(A2,A3) CCALLSFFUN2(FISRNF,fisrnf,FLOAT,FLOAT,A2,A3) 0979 0980 /*------------------------------------------------------------------ 0981 fortran filename : fissio.f 0982 ------------------------------------------------------------------*/ 0983 0984 PROTOCCALLSFFUN1(FLOAT,FISSIO,fissio,FLOAT) 0985 #define FISSIO(A2) CCALLSFFUN1(FISSIO,fissio,FLOAT,A2) 0986 0987 /*------------------------------------------------------------------ 0988 fortran filename : fkdeca.f 0989 ------------------------------------------------------------------*/ 0990 0991 #define FKDECA(A1,A2) CCALLSFSUB2(FKDECA,fkdeca,PINT,INT,A1,A2) 0992 0993 /*------------------------------------------------------------------ 0994 fortran filename : fkdres.f 0995 ------------------------------------------------------------------*/ 0996 0997 #define FKDRES(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(FKDRES,fkdres,INT,INT,DOUBLE,PDOUBLE,PDOUBLE,PLOGICAL,INT,A1,A2,A3,A4,A5,A6,A7) 0998 0999 /*------------------------------------------------------------------ 1000 fortran filename : fkener.f 1001 ------------------------------------------------------------------*/ 1002 1003 PROTOCCALLSFFUN2(DOUBLE,FKENER,fkener,DOUBLE,DOUBLE) 1004 #define FKENER(A2,A3) CCALLSFFUN2(FKENER,fkener,DOUBLE,DOUBLE,A2,A3) 1005 1006 /*------------------------------------------------------------------ 1007 fortran filename : fkerup.f 1008 ------------------------------------------------------------------*/ 1009 1010 #define FKERUP(A1) CCALLSFSUB1(FKERUP,fkerup,INT,A1) 1011 1012 /*------------------------------------------------------------------ 1013 fortran filename : fkflav.f 1014 ------------------------------------------------------------------*/ 1015 1016 #define FKFLAV(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15) CCALLSFSUB15(FKFLAV,fkflav,INT,INT,INT,DOUBLE,INTV,DOUBLEV,PINT,PINT,INT,DOUBLE,INT,INT,INT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15) 1017 1018 /*------------------------------------------------------------------ 1019 fortran filename : fkimpu.f 1020 ------------------------------------------------------------------*/ 1021 1022 #define FKIMPU(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(FKIMPU,fkimpu,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,INT,INT,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9) 1023 1024 /*------------------------------------------------------------------ 1025 fortran filename : fksigi.f 1026 ------------------------------------------------------------------*/ 1027 1028 #define FKSIGI(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(FKSIGI,fksigi,INT,DOUBLE,INT,PINT,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9) 1029 1030 /*------------------------------------------------------------------ 1031 fortran filename : fkvert.f 1032 ------------------------------------------------------------------*/ 1033 1034 #define FKVERT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(FKVERT,fkvert,INT,INT,INT,INT,DOUBLE,PINT,DOUBLEV,INTV,INTV,DOUBLE,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) 1035 1036 /*------------------------------------------------------------------ 1037 fortran filename : fkzero.f 1038 ------------------------------------------------------------------*/ 1039 1040 #define FKZERO() CCALLSFSUB0(FKZERO,fkzero) 1041 1042 /*------------------------------------------------------------------ 1043 fortran filename : fldist.f 1044 ------------------------------------------------------------------*/ 1045 1046 #define FLDIST() CCALLSFSUB0(FLDIST,fldist) 1047 1048 /*------------------------------------------------------------------ 1049 fortran filename : flinit.f 1050 ------------------------------------------------------------------*/ 1051 1052 #define FLINIT() CCALLSFSUB0(FLINIT,flinit) 1053 1054 /*------------------------------------------------------------------ 1055 fortran filename : flkdt1.f 1056 ------------------------------------------------------------------*/ 1057 1058 #define FLKDT1() CCALLSFSUB0(FLKDT1,flkdt1) 1059 1060 /*------------------------------------------------------------------ 1061 fortran filename : flkdt2.f 1062 ------------------------------------------------------------------*/ 1063 1064 #define FLKDT2() CCALLSFSUB0(FLKDT2,flkdt2) 1065 1066 /*------------------------------------------------------------------ 1067 fortran filename : flkdt3.f 1068 ------------------------------------------------------------------*/ 1069 1070 #define FLKDT3() CCALLSFSUB0(FLKDT3,flkdt3) 1071 1072 /*------------------------------------------------------------------ 1073 fortran filename : flkdt4.f 1074 ------------------------------------------------------------------*/ 1075 1076 #define FLKDT4() CCALLSFSUB0(FLKDT4,flkdt4) 1077 1078 /*------------------------------------------------------------------ 1079 fortran filename : flkdt5.f 1080 ------------------------------------------------------------------*/ 1081 1082 #define FLKDT5() CCALLSFSUB0(FLKDT5,flkdt5) 1083 1084 /*------------------------------------------------------------------ 1085 fortran filename : flkdt6.f 1086 ------------------------------------------------------------------*/ 1087 1088 #define FLKDT6() CCALLSFSUB0(FLKDT6,flkdt6) 1089 1090 /*------------------------------------------------------------------ 1091 fortran filename : flkdt7.f 1092 ------------------------------------------------------------------*/ 1093 1094 #define FLKDT7() CCALLSFSUB0(FLKDT7,flkdt7) 1095 1096 /*------------------------------------------------------------------ 1097 fortran filename : fltrnf.f 1098 ------------------------------------------------------------------*/ 1099 1100 PROTOCCALLSFFUN1(FLOAT,FLTRNF,fltrnf,INT) 1101 #define FLTRNF(A2) CCALLSFFUN1(FLTRNF,fltrnf,INT,A2) 1102 1103 /*------------------------------------------------------------------ 1104 fortran filename : flufin.f 1105 ------------------------------------------------------------------*/ 1106 1107 #define FLUFIN() CCALLSFSUB0(FLUFIN,flufin) 1108 1109 /*------------------------------------------------------------------ 1110 fortran filename : fpfrnc.f 1111 ------------------------------------------------------------------*/ 1112 1113 PROTOCCALLSFFUN2(DOUBLE,FPFRNC,fpfrnc,DOUBLE,INT) 1114 #define FPFRNC(A2,A3) CCALLSFFUN2(FPFRNC,fpfrnc,DOUBLE,INT,A2,A3) 1115 1116 /*------------------------------------------------------------------ 1117 fortran filename : fpower.f 1118 ------------------------------------------------------------------*/ 1119 1120 PROTOCCALLSFFUN3(DOUBLE,FPOWER,fpower,INT,INT,DOUBLE) 1121 #define FPOWER(A2,A3,A4) CCALLSFFUN3(FPOWER,fpower,INT,INT,DOUBLE,A2,A3,A4) 1122 1123 /*------------------------------------------------------------------ 1124 fortran filename : fprob.f 1125 ------------------------------------------------------------------*/ 1126 1127 PROTOCCALLSFFUN3(DOUBLE,FPROB,fprob,DOUBLE,DOUBLE,DOUBLE) 1128 #define FPROB(A2,A3,A4) CCALLSFFUN3(FPROB,fprob,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4) 1129 1130 /*------------------------------------------------------------------ 1131 fortran filename : fradnc.f 1132 ------------------------------------------------------------------*/ 1133 1134 PROTOCCALLSFFUN1(DOUBLE,FRADNC,fradnc,DOUBLE) 1135 #define FRADNC(A2) CCALLSFFUN1(FRADNC,fradnc,DOUBLE,A2) 1136 1137 /*------------------------------------------------------------------ 1138 fortran filename : frhinc.f 1139 ------------------------------------------------------------------*/ 1140 1141 PROTOCCALLSFFUN1(DOUBLE,FRHINC,frhinc,DOUBLE) 1142 #define FRHINC(A2) CCALLSFFUN1(FRHINC,frhinc,DOUBLE,A2) 1143 1144 /*------------------------------------------------------------------ 1145 fortran filename : frhonc.f 1146 ------------------------------------------------------------------*/ 1147 1148 PROTOCCALLSFFUN1(DOUBLE,FRHONC,frhonc,DOUBLE) 1149 #define FRHONC(A2) CCALLSFFUN1(FRHONC,frhonc,DOUBLE,A2) 1150 1151 /*------------------------------------------------------------------ 1152 fortran filename : gamrn.f 1153 ------------------------------------------------------------------*/ 1154 1155 PROTOCCALLSFFUN2(DOUBLE,GAMRN,gamrn,DOUBLE,DOUBLE) 1156 #define GAMRN(A2,A3) CCALLSFFUN2(GAMRN,gamrn,DOUBLE,DOUBLE,A2,A3) 1157 1158 /*------------------------------------------------------------------ 1159 fortran filename : ganni.f 1160 ------------------------------------------------------------------*/ 1161 1162 #define GANNI() CCALLSFSUB0(GANNI,ganni) 1163 1164 /*------------------------------------------------------------------ 1165 fortran filename : ganni2.f 1166 ------------------------------------------------------------------*/ 1167 1168 #define GANNI2() CCALLSFSUB0(GANNI2,ganni2) 1169 1170 /*------------------------------------------------------------------ 1171 fortran filename : gannii.f 1172 ------------------------------------------------------------------*/ 1173 1174 #define GANNII() CCALLSFSUB0(GANNII,gannii) 1175 1176 /*------------------------------------------------------------------ 1177 fortran filename : gannir.f 1178 ------------------------------------------------------------------*/ 1179 1180 #define GANNIR() CCALLSFSUB0(GANNIR,gannir) 1181 1182 /*------------------------------------------------------------------ 1183 fortran filename : garndm.f 1184 ------------------------------------------------------------------*/ 1185 1186 PROTOCCALLSFFUN1(FLOAT,GARNDM,garndm,FLOAT) 1187 #define GARNDM(A2) CCALLSFFUN1(GARNDM,garndm,FLOAT,A2) 1188 1189 /*------------------------------------------------------------------ 1190 fortran filename : gavrl2.f 1191 ------------------------------------------------------------------*/ 1192 1193 PROTOCCALLSFFUN3(FLOAT,GAVRL2,gavrl2,FLOAT,FLOAT,FLOAT) 1194 #define GAVRL2(A2,A3,A4) CCALLSFFUN3(GAVRL2,gavrl2,FLOAT,FLOAT,FLOAT,A2,A3,A4) 1195 1196 /*------------------------------------------------------------------ 1197 fortran filename : gavrl3.f 1198 ------------------------------------------------------------------*/ 1199 1200 PROTOCCALLSFFUN3(FLOAT,GAVRL3,gavrl3,FLOAT,FLOAT,FLOAT) 1201 #define GAVRL3(A2,A3,A4) CCALLSFFUN3(GAVRL3,gavrl3,FLOAT,FLOAT,FLOAT,A2,A3,A4) 1202 1203 /*------------------------------------------------------------------ 1204 fortran filename : gbflos.f 1205 ------------------------------------------------------------------*/ 1206 1207 PROTOCCALLSFFUN2(FLOAT,GBFLOS,gbflos,FLOAT,FLOAT) 1208 #define GBFLOS(A2,A3) CCALLSFFUN2(GBFLOS,gbflos,FLOAT,FLOAT,A2,A3) 1209 1210 /*------------------------------------------------------------------ 1211 fortran filename : gbfsig.f 1212 ------------------------------------------------------------------*/ 1213 1214 PROTOCCALLSFFUN2(FLOAT,GBFSIG,gbfsig,FLOAT,FLOAT) 1215 #define GBFSIG(A2,A3) CCALLSFFUN2(GBFSIG,gbfsig,FLOAT,FLOAT,A2,A3) 1216 1217 /*------------------------------------------------------------------ 1218 fortran filename : gbhsta.f 1219 ------------------------------------------------------------------*/ 1220 1221 #define GBHSTA() CCALLSFSUB0(GBHSTA,gbhsta) 1222 1223 /*------------------------------------------------------------------ 1224 fortran filename : gbirk.f 1225 ------------------------------------------------------------------*/ 1226 1227 #define GBIRK(A1) CCALLSFSUB1(GBIRK,gbirk,PFLOAT,A1) 1228 1229 /*------------------------------------------------------------------ 1230 fortran filename : gboset.f 1231 ------------------------------------------------------------------*/ 1232 1233 #define GBOSET(A1) CCALLSFSUB1(GBOSET,gboset,FLOATV,A1) 1234 1235 /*------------------------------------------------------------------ 1236 fortran filename : gbrela.f 1237 ------------------------------------------------------------------*/ 1238 1239 #define GBRELA() CCALLSFSUB0(GBRELA,gbrela) 1240 1241 /*------------------------------------------------------------------ 1242 fortran filename : gbrele.f 1243 ------------------------------------------------------------------*/ 1244 1245 PROTOCCALLSFFUN3(FLOAT,GBRELE,gbrele,FLOAT,FLOAT,FLOAT) 1246 #define GBRELE(A2,A3,A4) CCALLSFFUN3(GBRELE,gbrele,FLOAT,FLOAT,FLOAT,A2,A3,A4) 1247 1248 /*------------------------------------------------------------------ 1249 fortran filename : gbrelm.f 1250 ------------------------------------------------------------------*/ 1251 1252 PROTOCCALLSFFUN3(FLOAT,GBRELM,gbrelm,FLOAT,FLOAT,FLOAT) 1253 #define GBRELM(A2,A3,A4) CCALLSFFUN3(GBRELM,gbrelm,FLOAT,FLOAT,FLOAT,A2,A3,A4) 1254 1255 /*------------------------------------------------------------------ 1256 fortran filename : gbreme.f 1257 ------------------------------------------------------------------*/ 1258 1259 #define GBREME() CCALLSFSUB0(GBREME,gbreme) 1260 1261 /*------------------------------------------------------------------ 1262 fortran filename : gbremm.f 1263 ------------------------------------------------------------------*/ 1264 1265 #define GBREMM() CCALLSFSUB0(GBREMM,gbremm) 1266 1267 /*------------------------------------------------------------------ 1268 fortran filename : gbrsga.f 1269 ------------------------------------------------------------------*/ 1270 1271 #define GBRSGA() CCALLSFSUB0(GBRSGA,gbrsga) 1272 1273 /*------------------------------------------------------------------ 1274 fortran filename : gbrsge.f 1275 ------------------------------------------------------------------*/ 1276 1277 PROTOCCALLSFFUN3(FLOAT,GBRSGE,gbrsge,FLOAT,FLOAT,FLOAT) 1278 #define GBRSGE(A2,A3,A4) CCALLSFFUN3(GBRSGE,gbrsge,FLOAT,FLOAT,FLOAT,A2,A3,A4) 1279 1280 /*------------------------------------------------------------------ 1281 fortran filename : gbrsgm.f 1282 ------------------------------------------------------------------*/ 1283 1284 PROTOCCALLSFFUN3(FLOAT,GBRSGM,gbrsgm,FLOAT,FLOAT,FLOAT) 1285 #define GBRSGM(A2,A3,A4) CCALLSFFUN3(GBRSGM,gbrsgm,FLOAT,FLOAT,FLOAT,A2,A3,A4) 1286 1287 /*------------------------------------------------------------------ 1288 fortran filename : gbstat.f 1289 ------------------------------------------------------------------*/ 1290 1291 #define GBSTAT() CCALLSFSUB0(GBSTAT,gbstat) 1292 1293 /*------------------------------------------------------------------ 1294 fortran filename : gbteth.f 1295 ------------------------------------------------------------------*/ 1296 1297 PROTOCCALLSFFUN3(FLOAT,GBTETH,gbteth,FLOAT,FLOAT,FLOAT) 1298 #define GBTETH(A2,A3,A4) CCALLSFFUN3(GBTETH,gbteth,FLOAT,FLOAT,FLOAT,A2,A3,A4) 1299 1300 /*------------------------------------------------------------------ 1301 fortran filename : gcbrem.f 1302 ------------------------------------------------------------------*/ 1303 1304 PROTOCCALLSFFUN1(FLOAT,GCBREM,gcbrem,FLOAT) 1305 #define GCBREM(A2) CCALLSFFUN1(GCBREM,gcbrem,FLOAT,A2) 1306 1307 /*------------------------------------------------------------------ 1308 fortran filename : gcderr.f 1309 ------------------------------------------------------------------*/ 1310 1311 #define GCDERR(A1,A2,A3) CCALLSFSUB3(GCDERR,gcderr,PINT,FLOAT,FLOAT,A1,A2,A3) 1312 1313 /*------------------------------------------------------------------ 1314 fortran filename : gcdrif.f 1315 ------------------------------------------------------------------*/ 1316 1317 #define GCDRIF(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GCDRIF,gcdrif,FLOAT,FLOAT,FLOAT,FLOATV,FLOATV,PINT,A1,A2,A3,A4,A5,A6) 1318 1319 /*------------------------------------------------------------------ 1320 fortran filename : gcent.f 1321 ------------------------------------------------------------------*/ 1322 1323 #define GCENT(A1,A2) CCALLSFSUB2(GCENT,gcent,INT,PFLOAT,A1,A2) 1324 1325 /*------------------------------------------------------------------ 1326 fortran filename : gchnwk.f 1327 ------------------------------------------------------------------*/ 1328 1329 #define GCHNWK() CCALLSFSUB0(GCHNWK,gchnwk) 1330 1331 /*------------------------------------------------------------------ 1332 fortran filename : gckmat.f 1333 ------------------------------------------------------------------*/ 1334 /* 1335 #define gckmat_ELEMS_2 ZTRINGV_NUM(1) 1336 #define gckmat_ELEMLEN_2 ZTRINGV_NUM(20) 1337 */ 1338 1339 #define GCKMAT(A1,A2) CCALLSFSUB2(GCKMAT,gckmat,INT,STRING,A1,A2) 1340 1341 /*------------------------------------------------------------------ 1342 fortran filename : gckpar.f 1343 ------------------------------------------------------------------*/ 1344 1345 #define GCKPAR(A1,A2,A3) CCALLSFSUB3(GCKPAR,gckpar,INT,PINT,PFLOAT,A1,A2,A3) 1346 1347 /*------------------------------------------------------------------ 1348 fortran filename : gclose.f 1349 ------------------------------------------------------------------*/ 1350 1351 #define GCLOSE(A1,A2) CCALLSFSUB2(GCLOSE,gclose,INT,PINT,A1,A2) 1352 1353 /*------------------------------------------------------------------ 1354 fortran filename : gcmwpc.f 1355 ------------------------------------------------------------------*/ 1356 1357 #define GCMWPC(A1,A2,A3) CCALLSFSUB3(GCMWPC,gcmwpc,FLOATV,FLOATV,PINT,A1,A2,A3) 1358 1359 /*------------------------------------------------------------------ 1360 fortran filename : gcoeff.f 1361 ------------------------------------------------------------------*/ 1362 1363 #define GCOEFF() CCALLSFSUB0(GCOEFF,gcoeff) 1364 1365 /*------------------------------------------------------------------ 1366 fortran filename : gcomp.f 1367 ------------------------------------------------------------------*/ 1368 1369 #define GCOMP() CCALLSFSUB0(GCOMP,gcomp) 1370 1371 /*------------------------------------------------------------------ 1372 fortran filename : gcompi.f 1373 ------------------------------------------------------------------*/ 1374 1375 #define GCOMPI() CCALLSFSUB0(GCOMPI,gcompi) 1376 1377 /*------------------------------------------------------------------ 1378 fortran filename : gcoset.f 1379 ------------------------------------------------------------------*/ 1380 1381 #define GCOSET(A1,A2) CCALLSFSUB2(GCOSET,gcoset,FLOATV,INT,A1,A2) 1382 1383 /*------------------------------------------------------------------ 1384 fortran filename : gctset.f 1385 ------------------------------------------------------------------*/ 1386 1387 #define GCTSET(A1) CCALLSFSUB1(GCTSET,gctset,FLOATV,A1) 1388 1389 /*------------------------------------------------------------------ 1390 fortran filename : gcubs.f 1391 ------------------------------------------------------------------*/ 1392 1393 #define GCUBS(A1,A2,A3,A4,A5) CCALLSFSUB5(GCUBS,gcubs,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5) 1394 1395 /*------------------------------------------------------------------ 1396 fortran filename : gd16v.f 1397 ------------------------------------------------------------------*/ 1398 1399 #define GD16V(A1,A2) CCALLSFSUB2(GD16V,gd16v,INT,INTV,A1,A2) 1400 1401 /*------------------------------------------------------------------ 1402 fortran filename : gd3d3d.f 1403 ------------------------------------------------------------------*/ 1404 1405 #define GD3D3D(A1,A2,A3,A4) CCALLSFSUB4(GD3D3D,gd3d3d,PFLOAT,INT,PFLOAT,INT,A1,A2,A3,A4) 1406 1407 /*------------------------------------------------------------------ 1408 fortran filename : gdahit.f 1409 ------------------------------------------------------------------*/ 1410 1411 #define GDAHIT(A1,A2,A3,A4,A5) CCALLSFSUB5(GDAHIT,gdahit,FLOAT,FLOAT,FLOAT,INT,FLOAT,A1,A2,A3,A4,A5) 1412 1413 /*------------------------------------------------------------------ 1414 fortran filename : gdarc.f 1415 ------------------------------------------------------------------*/ 1416 1417 #define GDARC(A1,A2,A3,A4) CCALLSFSUB4(GDARC,gdarc,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4) 1418 1419 /*------------------------------------------------------------------ 1420 fortran filename : gdarr.f 1421 ------------------------------------------------------------------*/ 1422 /* 1423 #define gdarr_ELEMS_6 ZTRINGV_NUM(1) 1424 #define gdarr_ELEMLEN_6 ZTRINGV_NUM(255) 1425 */ 1426 1427 #define GDARR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GDARR,gdarr,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,STRING,A1,A2,A3,A4,A5,A6) 1428 1429 /*------------------------------------------------------------------ 1430 fortran filename : gdaxis.f 1431 ------------------------------------------------------------------*/ 1432 1433 #define GDAXIS(A1,A2,A3,A4) CCALLSFSUB4(GDAXIS,gdaxis,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4) 1434 1435 /*------------------------------------------------------------------ 1436 fortran filename : gdbomb.f 1437 ------------------------------------------------------------------*/ 1438 1439 #define GDBOMB(A1,A2) CCALLSFSUB2(GDBOMB,gdbomb,INT,INT,A1,A2) 1440 1441 /*------------------------------------------------------------------ 1442 fortran filename : gdcgcl.f 1443 ------------------------------------------------------------------*/ 1444 1445 #define GDCGCL(A1) CCALLSFSUB1(GDCGCL,gdcgcl,INT,A1) 1446 1447 /*------------------------------------------------------------------ 1448 fortran filename : gdcgem.f 1449 ------------------------------------------------------------------*/ 1450 1451 #define GDCGEM(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(GDCGEM,gdcgem,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PINT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) 1452 1453 /*------------------------------------------------------------------ 1454 fortran filename : gdcger.f 1455 ------------------------------------------------------------------*/ 1456 1457 #define GDCGER(A1) CCALLSFSUB1(GDCGER,gdcger,FLOAT,A1) 1458 1459 /*------------------------------------------------------------------ 1460 fortran filename : gdcghi.f 1461 ------------------------------------------------------------------*/ 1462 1463 #define GDCGHI(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GDCGHI,gdcghi,INT,INT,INT,INT,INT,INT,INT,A1,A2,A3,A4,A5,A6,A7) 1464 1465 /*------------------------------------------------------------------ 1466 fortran filename : gdcgob.f 1467 ------------------------------------------------------------------*/ 1468 1469 #define GDCGOB(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GDCGOB,gdcgob,INT,PINT,FLOATV,INT,INT,INT,INT,A1,A2,A3,A4,A5,A6,A7) 1470 1471 /*------------------------------------------------------------------ 1472 fortran filename : gdcgpr.f 1473 ------------------------------------------------------------------*/ 1474 1475 #define GDCGPR() CCALLSFSUB0(GDCGPR,gdcgpr) 1476 1477 /*------------------------------------------------------------------ 1478 fortran filename : gdcgrs.f 1479 ------------------------------------------------------------------*/ 1480 1481 #define GDCGRS() CCALLSFSUB0(GDCGRS,gdcgrs) 1482 1483 /*------------------------------------------------------------------ 1484 fortran filename : gdcgsl.f 1485 ------------------------------------------------------------------*/ 1486 1487 #define GDCGSL(A1,A2) CCALLSFSUB2(GDCGSL,gdcgsl,INT,INT,A1,A2) 1488 1489 /*------------------------------------------------------------------ 1490 fortran filename : gdcgvw.f 1491 ------------------------------------------------------------------*/ 1492 1493 #define GDCGVW(A1,A2) CCALLSFSUB2(GDCGVW,gdcgvw,FLOATV,PFLOAT,A1,A2) 1494 1495 /*------------------------------------------------------------------ 1496 fortran filename : gdcgwv.f 1497 ------------------------------------------------------------------*/ 1498 1499 #define GDCGWV(A1) CCALLSFSUB1(GDCGWV,gdcgwv,INT,A1) 1500 1501 /*------------------------------------------------------------------ 1502 fortran filename : gdchit.f 1503 ------------------------------------------------------------------*/ 1504 /* 1505 #define gdchit_ELEMS_1 ZTRINGV_NUM(1) 1506 #define gdchit_ELEMLEN_1 ZTRINGV_NUM(4) 1507 #define gdchit_ELEMS_2 ZTRINGV_NUM(1) 1508 #define gdchit_ELEMLEN_2 ZTRINGV_NUM(4) 1509 */ 1510 1511 #define GDCHIT(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GDCHIT,gdchit,STRING,STRING,INT,INT,FLOAT,INT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8) 1512 1513 /*------------------------------------------------------------------ 1514 fortran filename : gdcirc.f 1515 ------------------------------------------------------------------*/ 1516 1517 #define GDCIRC(A1,A2) CCALLSFSUB2(GDCIRC,gdcirc,FLOAT,FLOAT,A1,A2) 1518 1519 /*------------------------------------------------------------------ 1520 fortran filename : gdcirr.f 1521 ------------------------------------------------------------------*/ 1522 1523 #define GDCIRR(A1,A2) CCALLSFSUB2(GDCIRR,gdcirr,FLOAT,FLOAT,A1,A2) 1524 1525 /*------------------------------------------------------------------ 1526 fortran filename : gdciry.f 1527 ------------------------------------------------------------------*/ 1528 1529 #define GDCIRY(A1,A2) CCALLSFSUB2(GDCIRY,gdciry,FLOAT,FLOAT,A1,A2) 1530 1531 /*------------------------------------------------------------------ 1532 fortran filename : gdclos.f 1533 ------------------------------------------------------------------*/ 1534 1535 #define GDCLOS() CCALLSFSUB0(GDCLOS,gdclos) 1536 1537 /*------------------------------------------------------------------ 1538 fortran filename : gdcol.f 1539 ------------------------------------------------------------------*/ 1540 1541 #define GDCOL(A1) CCALLSFSUB1(GDCOL,gdcol,INT,A1) 1542 1543 /*------------------------------------------------------------------ 1544 fortran filename : gdcol1.f 1545 ------------------------------------------------------------------*/ 1546 1547 #define GDCOL1(A1) CCALLSFSUB1(GDCOL1,gdcol1,INT,A1) 1548 1549 /*------------------------------------------------------------------ 1550 fortran filename : gdcota.f 1551 ------------------------------------------------------------------*/ 1552 1553 #define GDCOTA() CCALLSFSUB0(GDCOTA,gdcota) 1554 1555 /*------------------------------------------------------------------ 1556 fortran filename : gdcurs.f 1557 ------------------------------------------------------------------*/ 1558 1559 #define GDCURS(A1,A2,A3) CCALLSFSUB3(GDCURS,gdcurs,FLOAT,FLOAT,PINT,A1,A2,A3) 1560 1561 /*------------------------------------------------------------------ 1562 fortran filename : gdcut.f 1563 ------------------------------------------------------------------*/ 1564 1565 #define GDCUT() CCALLSFSUB0(GDCUT,gdcut) 1566 1567 /*------------------------------------------------------------------ 1568 fortran filename : gdcxyz.f 1569 ------------------------------------------------------------------*/ 1570 1571 #define GDCXYZ() CCALLSFSUB0(GDCXYZ,gdcxyz) 1572 1573 /*------------------------------------------------------------------ 1574 fortran filename : gdebug.f 1575 ------------------------------------------------------------------*/ 1576 1577 #define GDEBUG() CCALLSFSUB0(GDEBUG,gdebug) 1578 1579 /*------------------------------------------------------------------ 1580 fortran filename : gdeca2.f 1581 ------------------------------------------------------------------*/ 1582 1583 #define GDECA2(A1,A2,A3,A4) CCALLSFSUB4(GDECA2,gdeca2,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4) 1584 1585 /*------------------------------------------------------------------ 1586 fortran filename : gdeca3.f 1587 ------------------------------------------------------------------*/ 1588 1589 #define GDECA3(A1,A2,A3,A4,A5) CCALLSFSUB5(GDECA3,gdeca3,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5) 1590 1591 /*------------------------------------------------------------------ 1592 fortran filename : gdecay.f 1593 ------------------------------------------------------------------*/ 1594 1595 #define GDECAY() CCALLSFSUB0(GDECAY,gdecay) 1596 1597 /*------------------------------------------------------------------ 1598 fortran filename : gdelet.f 1599 ------------------------------------------------------------------*/ 1600 1601 #define GDELET(A1) CCALLSFSUB1(GDELET,gdelet,INT,A1) 1602 1603 /*------------------------------------------------------------------ 1604 fortran filename : gdeltu.f 1605 ------------------------------------------------------------------*/ 1606 1607 #define GDELTU(A1,A2,A3) CCALLSFSUB3(GDELTU,gdeltu,FLOAT,FLOAT,FLOAT,A1,A2,A3) 1608 1609 /*------------------------------------------------------------------ 1610 fortran filename : gdexca.f 1611 ------------------------------------------------------------------*/ 1612 /* 1613 #define gdexca_ELEMS_1 ZTRINGV_NUM(1) 1614 #define gdexca_ELEMLEN_1 ZTRINGV_NUM(4) 1615 */ 1616 1617 #define GDEXCA(A1,A2) CCALLSFSUB2(GDEXCA,gdexca,STRING,INT,A1,A2) 1618 1619 /*------------------------------------------------------------------ 1620 fortran filename : gdfr3d.f 1621 ------------------------------------------------------------------*/ 1622 1623 #define GDFR3D(A1,A2,A3,A4) CCALLSFSUB4(GDFR3D,gdfr3d,PFLOAT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4) 1624 1625 /*------------------------------------------------------------------ 1626 fortran filename : gdfspc.f 1627 ------------------------------------------------------------------*/ 1628 /* 1629 #define gdfspc_ELEMS_1 ZTRINGV_NUM(1) 1630 #define gdfspc_ELEMLEN_1 ZTRINGV_NUM(4) 1631 */ 1632 1633 #define GDFSPC(A1,A2,A3) CCALLSFSUB3(GDFSPC,gdfspc,STRING,INT,INT,A1,A2,A3) 1634 1635 /*------------------------------------------------------------------ 1636 fortran filename : gdhead.f 1637 ------------------------------------------------------------------*/ 1638 /* 1639 #define gdhead_ELEMS_2 ZTRINGV_NUM(1) 1640 #define gdhead_ELEMLEN_2 ZTRINGV_NUM(255) 1641 */ 1642 1643 #define GDHEAD(A1,A2,A3) CCALLSFSUB3(GDHEAD,gdhead,INT,STRING,FLOAT,A1,A2,A3) 1644 1645 /*------------------------------------------------------------------ 1646 fortran filename : gdhits.f 1647 ------------------------------------------------------------------*/ 1648 /* 1649 #define gdhits_ELEMS_1 ZTRINGV_NUM(1) 1650 #define gdhits_ELEMLEN_1 ZTRINGV_NUM(4) 1651 #define gdhits_ELEMS_2 ZTRINGV_NUM(1) 1652 #define gdhits_ELEMLEN_2 ZTRINGV_NUM(4) 1653 */ 1654 1655 #define GDHITS(A1,A2,A3,A4,A5) CCALLSFSUB5(GDHITS,gdhits,STRING,STRING,INT,INT,FLOAT,A1,A2,A3,A4,A5) 1656 1657 /*------------------------------------------------------------------ 1658 fortran filename : gdinit.f 1659 ------------------------------------------------------------------*/ 1660 1661 #define GDINIT() CCALLSFSUB0(GDINIT,gdinit) 1662 1663 /*------------------------------------------------------------------ 1664 fortran filename : gdkine.f 1665 ------------------------------------------------------------------*/ 1666 1667 #define GDKINE() CCALLSFSUB0(GDKINE,gdkine) 1668 1669 /*------------------------------------------------------------------ 1670 fortran filename : gdlcyl.f 1671 ------------------------------------------------------------------*/ 1672 1673 #define GDLCYL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GDLCYL,gdlcyl,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6) 1674 1675 /*------------------------------------------------------------------ 1676 fortran filename : gdlens.f 1677 ------------------------------------------------------------------*/ 1678 /* 1679 #define gdlens_ELEMS_2 ZTRINGV_NUM(1) 1680 #define gdlens_ELEMLEN_2 ZTRINGV_NUM(4) 1681 */ 1682 1683 #define GDLENS(A1,A2) CCALLSFSUB2(GDLENS,gdlens,INT,STRING,A1,A2) 1684 1685 /*------------------------------------------------------------------ 1686 fortran filename : gdline.f 1687 ------------------------------------------------------------------*/ 1688 1689 #define GDLINE(A1,A2) CCALLSFSUB2(GDLINE,gdline,FLOATV,FLOATV,A1,A2) 1690 1691 /*------------------------------------------------------------------ 1692 fortran filename : gdlumi.f 1693 ------------------------------------------------------------------*/ 1694 1695 #define GDLUMI(A1,A2) CCALLSFSUB2(GDLUMI,gdlumi,PINT,FLOAT,A1,A2) 1696 1697 /*------------------------------------------------------------------ 1698 fortran filename : gdlw.f 1699 ------------------------------------------------------------------*/ 1700 1701 #define GDLW(A1) CCALLSFSUB1(GDLW,gdlw,INT,A1) 1702 1703 /*------------------------------------------------------------------ 1704 fortran filename : gdlw1.f 1705 ------------------------------------------------------------------*/ 1706 1707 #define GDLW1(A1) CCALLSFSUB1(GDLW1,gdlw1,INT,A1) 1708 1709 /*------------------------------------------------------------------ 1710 fortran filename : gdman.f 1711 ------------------------------------------------------------------*/ 1712 1713 #define GDMAN(A1,A2) CCALLSFSUB2(GDMAN,gdman,FLOAT,FLOAT,A1,A2) 1714 1715 /*------------------------------------------------------------------ 1716 fortran filename : gdnino.f 1717 ------------------------------------------------------------------*/ 1718 1719 #define GDNINO() CCALLSFSUB0(GDNINO,gdnino) 1720 1721 /*------------------------------------------------------------------ 1722 fortran filename : gdnson.f 1723 ------------------------------------------------------------------*/ 1724 /* 1725 #define gdnson_ELEMS_1 ZTRINGV_NUM(1) 1726 #define gdnson_ELEMLEN_1 ZTRINGV_NUM(4) 1727 */ 1728 1729 #define GDNSON(A1,A2,A3) CCALLSFSUB3(GDNSON,gdnson,STRING,PINT,PINT,A1,A2,A3) 1730 1731 /*------------------------------------------------------------------ 1732 fortran filename : gdopen.f 1733 ------------------------------------------------------------------*/ 1734 1735 #define GDOPEN(A1) CCALLSFSUB1(GDOPEN,gdopen,INT,A1) 1736 1737 /*------------------------------------------------------------------ 1738 fortran filename : gdopt.f 1739 ------------------------------------------------------------------*/ 1740 /* 1741 #define gdopt_ELEMS_1 ZTRINGV_NUM(1) 1742 #define gdopt_ELEMLEN_1 ZTRINGV_NUM(4) 1743 #define gdopt_ELEMS_2 ZTRINGV_NUM(1) 1744 #define gdopt_ELEMLEN_2 ZTRINGV_NUM(4) 1745 */ 1746 1747 #define GDOPT(A1,A2) CCALLSFSUB2(GDOPT,gdopt,STRING,STRING,A1,A2) 1748 1749 /*------------------------------------------------------------------ 1750 fortran filename : gdpart.f 1751 ------------------------------------------------------------------*/ 1752 1753 #define GDPART(A1,A2,A3) CCALLSFSUB3(GDPART,gdpart,INT,INT,FLOAT,A1,A2,A3) 1754 1755 /*------------------------------------------------------------------ 1756 fortran filename : gdpdk.f 1757 ------------------------------------------------------------------*/ 1758 1759 PROTOCCALLSFFUN3(DOUBLE,GDPDK,gdpdk,DOUBLE,DOUBLE,DOUBLE) 1760 #define GDPDK(A2,A3,A4) CCALLSFFUN3(GDPDK,gdpdk,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4) 1761 1762 /*------------------------------------------------------------------ 1763 fortran filename : gdplst.f 1764 ------------------------------------------------------------------*/ 1765 /* 1766 #define gdplst_ELEMS_2 ZTRINGV_NUM(1) 1767 #define gdplst_ELEMLEN_2 ZTRINGV_NUM(4) 1768 */ 1769 1770 #define GDPLST(A1,A2,A3,A4) CCALLSFSUB4(GDPLST,gdplst,INT,PSTRING,INT,INT,A1,A2,A3,A4) 1771 1772 /*------------------------------------------------------------------ 1773 fortran filename : gdprtr.f 1774 ------------------------------------------------------------------*/ 1775 /* 1776 #define gdprtr_ELEMS_1 ZTRINGV_NUM(1) 1777 #define gdprtr_ELEMLEN_1 ZTRINGV_NUM(4) 1778 */ 1779 1780 #define GDPRTR(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GDPRTR,gdprtr,STRING,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,INT,INT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) 1781 1782 /*------------------------------------------------------------------ 1783 fortran filename : gdrack.f 1784 ------------------------------------------------------------------*/ 1785 1786 #define GDRACK() CCALLSFSUB0(GDRACK,gdrack) 1787 1788 /*------------------------------------------------------------------ 1789 fortran filename : gdraw.f 1790 ------------------------------------------------------------------*/ 1791 /* 1792 #define gdraw_ELEMS_1 ZTRINGV_NUM(1) 1793 #define gdraw_ELEMLEN_1 ZTRINGV_NUM(4) 1794 */ 1795 1796 #define GDRAW(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GDRAW,gdraw,STRING,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8) 1797 1798 /*------------------------------------------------------------------ 1799 fortran filename : gdrawc.f 1800 ------------------------------------------------------------------*/ 1801 /* 1802 #define gdrawc_ELEMS_1 ZTRINGV_NUM(1) 1803 #define gdrawc_ELEMLEN_1 ZTRINGV_NUM(4) 1804 */ 1805 1806 #define GDRAWC(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GDRAWC,gdrawc,STRING,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7) 1807 1808 /*------------------------------------------------------------------ 1809 fortran filename : gdrawp.f 1810 ------------------------------------------------------------------*/ 1811 1812 #define GDRAWP(A1,A2,A3) CCALLSFSUB3(GDRAWP,gdrawp,FLOATV,FLOATV,INT,A1,A2,A3) 1813 1814 /*------------------------------------------------------------------ 1815 fortran filename : gdraws.f 1816 ------------------------------------------------------------------*/ 1817 1818 #define GDRAWS(A1,A2) CCALLSFSUB2(GDRAWS,gdraws,INT,PFLOAT,A1,A2) 1819 1820 /*------------------------------------------------------------------ 1821 fortran filename : gdrawt.f 1822 ------------------------------------------------------------------*/ 1823 /* 1824 #define gdrawt_ELEMS_3 ZTRINGV_NUM(1) 1825 #define gdrawt_ELEMLEN_3 ZTRINGV_NUM(255) 1826 */ 1827 1828 #define GDRAWT(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GDRAWT,gdrawt,FLOAT,FLOAT,STRING,FLOAT,FLOAT,INT,INT,A1,A2,A3,A4,A5,A6,A7) 1829 1830 /*------------------------------------------------------------------ 1831 fortran filename : gdrawv.f 1832 ------------------------------------------------------------------*/ 1833 1834 #define GDRAWV(A1,A2,A3) CCALLSFSUB3(GDRAWV,gdrawv,FLOATV,FLOATV,INT,A1,A2,A3) 1835 1836 /*------------------------------------------------------------------ 1837 fortran filename : gdrawx.f 1838 ------------------------------------------------------------------*/ 1839 /* 1840 #define gdrawx_ELEMS_1 ZTRINGV_NUM(1) 1841 #define gdrawx_ELEMLEN_1 ZTRINGV_NUM(4) 1842 */ 1843 1844 #define GDRAWX(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GDRAWX,gdrawx,STRING,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) 1845 1846 /*------------------------------------------------------------------ 1847 fortran filename : gdray.f 1848 ------------------------------------------------------------------*/ 1849 1850 #define GDRAY() CCALLSFSUB0(GDRAY,gdray) 1851 1852 /*------------------------------------------------------------------ 1853 fortran filename : gdrayt.f 1854 ------------------------------------------------------------------*/ 1855 /* 1856 #define gdrayt_ELEMS_1 ZTRINGV_NUM(1) 1857 #define gdrayt_ELEMLEN_1 ZTRINGV_NUM(4) 1858 */ 1859 1860 #define GDRAYT(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GDRAYT,gdrayt,STRING,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8) 1861 1862 /*------------------------------------------------------------------ 1863 fortran filename : gdrect.f 1864 ------------------------------------------------------------------*/ 1865 1866 #define GDRECT(A1,A2,A3,A4) CCALLSFSUB4(GDRECT,gdrect,FLOATV,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4) 1867 1868 /*------------------------------------------------------------------ 1869 fortran filename : gdrela.f 1870 ------------------------------------------------------------------*/ 1871 1872 #define GDRELA() CCALLSFSUB0(GDRELA,gdrela) 1873 1874 /*------------------------------------------------------------------ 1875 fortran filename : gdrele.f 1876 ------------------------------------------------------------------*/ 1877 1878 #define GDRELE(A1,A2,A3,A4) CCALLSFSUB4(GDRELE,gdrele,FLOAT,FLOAT,INT,PFLOAT,A1,A2,A3,A4) 1879 1880 /*------------------------------------------------------------------ 1881 fortran filename : gdreli.f 1882 ------------------------------------------------------------------*/ 1883 1884 #define GDRELI(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GDRELI,gdreli,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7) 1885 1886 /*------------------------------------------------------------------ 1887 fortran filename : gdrelm.f 1888 ------------------------------------------------------------------*/ 1889 1890 #define GDRELM(A1,A2,A3,A4,A5) CCALLSFSUB5(GDRELM,gdrelm,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5) 1891 1892 /*------------------------------------------------------------------ 1893 fortran filename : gdrelp.f 1894 ------------------------------------------------------------------*/ 1895 1896 #define GDRELP(A1,A2,A3,A4,A5) CCALLSFSUB5(GDRELP,gdrelp,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5) 1897 1898 /*------------------------------------------------------------------ 1899 fortran filename : gdrelx.f 1900 ------------------------------------------------------------------*/ 1901 1902 #define GDRELX(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GDRELX,gdrelx,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 1903 1904 /*------------------------------------------------------------------ 1905 fortran filename : gdrmat.f 1906 ------------------------------------------------------------------*/ 1907 /* 1908 #define gdrmat_ELEMS_3 ZTRINGV_NUM(ZTRINGV_ARGS(4)) 1909 #define gdrmat_ELEMLEN_3 ZTRINGV_NUM(4) 1910 */ 1911 1912 #define GDRMAT(A1,A2,A3,A4) CCALLSFSUB4(GDRMAT,gdrmat,INT,INT,STRINGV,INT,A1,A2,A3,A4) 1913 1914 /*------------------------------------------------------------------ 1915 fortran filename : gdrot.f 1916 ------------------------------------------------------------------*/ 1917 1918 #define GDROT(A1,A2,A3,A4,A5) CCALLSFSUB5(GDROT,gdrot,PFLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5) 1919 1920 /*------------------------------------------------------------------ 1921 fortran filename : gdrprt.f 1922 ------------------------------------------------------------------*/ 1923 1924 #define GDRPRT(A1,A2,A3,A4) CCALLSFSUB4(GDRPRT,gdrprt,INT,INT,FLOAT,INT,A1,A2,A3,A4) 1925 1926 /*------------------------------------------------------------------ 1927 fortran filename : gdrsga.f 1928 ------------------------------------------------------------------*/ 1929 1930 #define GDRSGA() CCALLSFSUB0(GDRSGA,gdrsga) 1931 1932 /*------------------------------------------------------------------ 1933 fortran filename : gdrvol.f 1934 ------------------------------------------------------------------*/ 1935 1936 #define GDRVOL(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(GDRVOL,gdrvol,INT,INTV,INTV,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) 1937 1938 /*------------------------------------------------------------------ 1939 fortran filename : gdrwsc.f 1940 ------------------------------------------------------------------*/ 1941 1942 #define GDRWSC(A1,A2) CCALLSFSUB2(GDRWSC,gdrwsc,INT,PFLOAT,A1,A2) 1943 1944 /*------------------------------------------------------------------ 1945 fortran filename : gdsarc.f 1946 ------------------------------------------------------------------*/ 1947 1948 #define GDSARC(A1,A2,A3,A4,A5) CCALLSFSUB5(GDSARC,gdsarc,FLOAT,FLOAT,FLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5) 1949 1950 /*------------------------------------------------------------------ 1951 fortran filename : gdscal.f 1952 ------------------------------------------------------------------*/ 1953 1954 #define GDSCAL(A1,A2) CCALLSFSUB2(GDSCAL,gdscal,FLOAT,FLOAT,A1,A2) 1955 1956 /*------------------------------------------------------------------ 1957 fortran filename : gdshad.f 1958 ------------------------------------------------------------------*/ 1959 1960 #define GDSHAD(A1,A2) CCALLSFSUB2(GDSHAD,gdshad,PINT,FLOAT,A1,A2) 1961 1962 /*------------------------------------------------------------------ 1963 fortran filename : gdshif.f 1964 ------------------------------------------------------------------*/ 1965 1966 #define GDSHIF(A1,A2) CCALLSFSUB2(GDSHIF,gdshif,INT,INT,A1,A2) 1967 1968 /*------------------------------------------------------------------ 1969 fortran filename : gdshow.f 1970 ------------------------------------------------------------------*/ 1971 1972 #define GDSHOW(A1) CCALLSFSUB1(GDSHOW,gdshow,INT,A1) 1973 1974 /*------------------------------------------------------------------ 1975 fortran filename : gdson.f 1976 ------------------------------------------------------------------*/ 1977 /* 1978 #define gdson_ELEMS_2 ZTRINGV_NUM(1) 1979 #define gdson_ELEMLEN_2 ZTRINGV_NUM(4) 1980 #define gdson_ELEMS_3 ZTRINGV_NUM(1) 1981 #define gdson_ELEMLEN_3 ZTRINGV_NUM(4) 1982 */ 1983 1984 #define GDSON(A1,A2,A3) CCALLSFSUB3(GDSON,gdson,INT,STRING,PSTRING,A1,A2,A3) 1985 1986 /*------------------------------------------------------------------ 1987 fortran filename : gdspec.f 1988 ------------------------------------------------------------------*/ 1989 /* 1990 #define gdspec_ELEMS_1 ZTRINGV_NUM(1) 1991 #define gdspec_ELEMLEN_1 ZTRINGV_NUM(4) 1992 */ 1993 1994 #define GDSPEC(A1) CCALLSFSUB1(GDSPEC,gdspec,STRING,A1) 1995 1996 /*------------------------------------------------------------------ 1997 fortran filename : gdssur.f 1998 ------------------------------------------------------------------*/ 1999 2000 #define GDSSUR(A1,A2,A3,A4) CCALLSFSUB4(GDSSUR,gdssur,FLOATV,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4) 2001 2002 /*------------------------------------------------------------------ 2003 fortran filename : gdstep.f 2004 ------------------------------------------------------------------*/ 2005 2006 #define GDSTEP() CCALLSFSUB0(GDSTEP,gdstep) 2007 2008 /*------------------------------------------------------------------ 2009 fortran filename : gdsurf.f 2010 ------------------------------------------------------------------*/ 2011 2012 #define GDSURF(A1) CCALLSFSUB1(GDSURF,gdsurf,INT,A1) 2013 2014 /*------------------------------------------------------------------ 2015 fortran filename : gdthrz.f 2016 ------------------------------------------------------------------*/ 2017 2018 #define GDTHRZ(A1) CCALLSFSUB1(GDTHRZ,gdthrz,PFLOAT,A1) 2019 2020 /*------------------------------------------------------------------ 2021 fortran filename : gdtom.f 2022 ------------------------------------------------------------------*/ 2023 2024 #define GDTOM(A1,A2,A3) CCALLSFSUB3(GDTOM,gdtom,FLOATV,PFLOAT,INT,A1,A2,A3) 2025 2026 /*------------------------------------------------------------------ 2027 fortran filename : gdtr0.f 2028 ------------------------------------------------------------------*/ 2029 2030 #define GDTR0(A1,A2,A3,A4) CCALLSFSUB4(GDTR0,gdtr0,INT,INT,INT,INT,A1,A2,A3,A4) 2031 2032 /*------------------------------------------------------------------ 2033 fortran filename : gdtr1.f 2034 ------------------------------------------------------------------*/ 2035 2036 #define GDTR1(A1,A2,A3,A4) CCALLSFSUB4(GDTR1,gdtr1,INT,INT,PINT,PINT,A1,A2,A3,A4) 2037 2038 /*------------------------------------------------------------------ 2039 fortran filename : gdtr10.f 2040 ------------------------------------------------------------------*/ 2041 2042 #define GDTR10(A1) CCALLSFSUB1(GDTR10,gdtr10,INT,A1) 2043 2044 /*------------------------------------------------------------------ 2045 fortran filename : gdtr11.f 2046 ------------------------------------------------------------------*/ 2047 2048 #define GDTR11(A1,A2,A3) CCALLSFSUB3(GDTR11,gdtr11,PINT,PINT,INT,A1,A2,A3) 2049 2050 /*------------------------------------------------------------------ 2051 fortran filename : gdtr12.f 2052 ------------------------------------------------------------------*/ 2053 2054 #define GDTR12(A1) CCALLSFSUB1(GDTR12,gdtr12,INT,A1) 2055 2056 /*------------------------------------------------------------------ 2057 fortran filename : gdtr2.f 2058 ------------------------------------------------------------------*/ 2059 2060 #define GDTR2(A1,A2,A3,A4) CCALLSFSUB4(GDTR2,gdtr2,INT,PINT,INT,PINT,A1,A2,A3,A4) 2061 2062 /*------------------------------------------------------------------ 2063 fortran filename : gdtr3.f 2064 ------------------------------------------------------------------*/ 2065 2066 #define GDTR3(A1) CCALLSFSUB1(GDTR3,gdtr3,INT,A1) 2067 2068 /*------------------------------------------------------------------ 2069 fortran filename : gdtr4.f 2070 ------------------------------------------------------------------*/ 2071 2072 #define GDTR4() CCALLSFSUB0(GDTR4,gdtr4) 2073 2074 /*------------------------------------------------------------------ 2075 fortran filename : gdtr5.f 2076 ------------------------------------------------------------------*/ 2077 2078 #define GDTR5(A1) CCALLSFSUB1(GDTR5,gdtr5,INT,A1) 2079 2080 /*------------------------------------------------------------------ 2081 fortran filename : gdtr6.f 2082 ------------------------------------------------------------------*/ 2083 2084 #define GDTR6(A1) CCALLSFSUB1(GDTR6,gdtr6,PINT,A1) 2085 2086 /*------------------------------------------------------------------ 2087 fortran filename : gdtr8.f 2088 ------------------------------------------------------------------*/ 2089 /* 2090 #define gdtr8_ELEMS_1 ZTRINGV_NUM(1) 2091 #define gdtr8_ELEMLEN_1 ZTRINGV_NUM(4) 2092 #define gdtr8_ELEMS_2 ZTRINGV_NUM(1) 2093 #define gdtr8_ELEMLEN_2 ZTRINGV_NUM(4) 2094 */ 2095 2096 #define GDTR8(A1,A2,A3) CCALLSFSUB3(GDTR8,gdtr8,STRING,STRING,PINT,A1,A2,A3) 2097 2098 /*------------------------------------------------------------------ 2099 fortran filename : gdtr99.f 2100 ------------------------------------------------------------------*/ 2101 2102 #define GDTR99(A1) CCALLSFSUB1(GDTR99,gdtr99,INT,A1) 2103 2104 /*------------------------------------------------------------------ 2105 fortran filename : gdtrak.f 2106 ------------------------------------------------------------------*/ 2107 /* 2108 #define gdtrak_ELEMS_1 ZTRINGV_NUM(1) 2109 #define gdtrak_ELEMLEN_1 ZTRINGV_NUM(255) 2110 */ 2111 2112 #define GDTRAK(A1) CCALLSFSUB1(GDTRAK,gdtrak,STRING,A1) 2113 2114 /*------------------------------------------------------------------ 2115 fortran filename : gdtree.f 2116 ------------------------------------------------------------------*/ 2117 /* 2118 #define gdtree_ELEMS_1 ZTRINGV_NUM(1) 2119 #define gdtree_ELEMLEN_1 ZTRINGV_NUM(4) 2120 */ 2121 2122 #define GDTREE(A1,A2,A3) CCALLSFSUB3(GDTREE,gdtree,PSTRING,INT,INT,A1,A2,A3) 2123 2124 /*------------------------------------------------------------------ 2125 fortran filename : gdwmn1.f 2126 ------------------------------------------------------------------*/ 2127 2128 #define GDWMN1(A1,A2) CCALLSFSUB2(GDWMN1,gdwmn1,FLOAT,FLOAT,A1,A2) 2129 2130 /*------------------------------------------------------------------ 2131 fortran filename : gdwmn2.f 2132 ------------------------------------------------------------------*/ 2133 2134 #define GDWMN2(A1,A2) CCALLSFSUB2(GDWMN2,gdwmn2,FLOAT,FLOAT,A1,A2) 2135 2136 /*------------------------------------------------------------------ 2137 fortran filename : gdwmn3.f 2138 ------------------------------------------------------------------*/ 2139 2140 #define GDWMN3(A1,A2) CCALLSFSUB2(GDWMN3,gdwmn3,FLOAT,FLOAT,A1,A2) 2141 2142 /*------------------------------------------------------------------ 2143 fortran filename : gdxyz.f 2144 ------------------------------------------------------------------*/ 2145 2146 #define GDXYZ(A1) CCALLSFSUB1(GDXYZ,gdxyz,INT,A1) 2147 2148 /*------------------------------------------------------------------ 2149 fortran filename : gdxzoo.f 2150 ------------------------------------------------------------------*/ 2151 2152 #define GDXZOO(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GDXZOO,gdxzoo,INT,FLOAT,FLOAT,PFLOAT,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7) 2153 2154 /*------------------------------------------------------------------ 2155 fortran filename : gdzoom.f 2156 ------------------------------------------------------------------*/ 2157 2158 #define GDZOOM(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GDZOOM,gdzoom,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6) 2159 2160 /*------------------------------------------------------------------ 2161 fortran filename : geamon.f 2162 ------------------------------------------------------------------*/ 2163 /* 2164 #define geamon_ELEMS_2 ZTRINGV_NUM(1) 2165 #define geamon_ELEMLEN_2 ZTRINGV_NUM(255) 2166 */ 2167 2168 #define GEAMON(A1,A2) CCALLSFSUB2(GEAMON,geamon,INT,STRING,A1,A2) 2169 2170 /*------------------------------------------------------------------ 2171 fortran filename : geditv.f 2172 ------------------------------------------------------------------*/ 2173 2174 #define GEDITV(A1) CCALLSFSUB1(GEDITV,geditv,INT,A1) 2175 2176 /*------------------------------------------------------------------ 2177 fortran filename : gefch2.f 2178 ------------------------------------------------------------------*/ 2179 2180 PROTOCCALLSFFUN3(FLOAT,GEFCH2,gefch2,FLOAT,FLOAT,FLOAT) 2181 #define GEFCH2(A2,A3,A4) CCALLSFFUN3(GEFCH2,gefch2,FLOAT,FLOAT,FLOAT,A2,A3,A4) 2182 2183 /*------------------------------------------------------------------ 2184 fortran filename : gekbin.f 2185 ------------------------------------------------------------------*/ 2186 2187 #define GEKBIN() CCALLSFSUB0(GEKBIN,gekbin) 2188 2189 /*------------------------------------------------------------------ 2190 fortran filename : gelset.f 2191 ------------------------------------------------------------------*/ 2192 2193 #define GELSET(A1) CCALLSFSUB1(GELSET,gelset,FLOATV,A1) 2194 2195 /*------------------------------------------------------------------ 2196 fortran filename : genset.f 2197 ------------------------------------------------------------------*/ 2198 2199 #define GENSET() CCALLSFSUB0(GENSET,genset) 2200 2201 /*------------------------------------------------------------------ 2202 fortran filename : genxpt.f 2203 ------------------------------------------------------------------*/ 2204 2205 #define GENXPT(A1,A2,A3) CCALLSFSUB3(GENXPT,genxpt,INT,INT,FLOAT,A1,A2,A3) 2206 2207 /*------------------------------------------------------------------ 2208 fortran filename : geta.f 2209 ------------------------------------------------------------------*/ 2210 2211 PROTOCCALLSFFUN7(DOUBLE,GETA,geta,DOUBLE,INT,INT,INT,INT,PDOUBLE,PDOUBLE) 2212 #define GETA(A2,A3,A4,A5,A6,A7,A8) CCALLSFFUN7(GETA,geta,DOUBLE,INT,INT,INT,INT,PDOUBLE,PDOUBLE,A2,A3,A4,A5,A6,A7,A8) 2213 2214 /*------------------------------------------------------------------ 2215 fortran filename : getene.f 2216 ------------------------------------------------------------------*/ 2217 2218 #define GETENE(A1,A2,A3,A4) CCALLSFSUB4(GETENE,getene,FLOAT,FLOATV,INTV,INT,A1,A2,A3,A4) 2219 2220 /*------------------------------------------------------------------ 2221 fortran filename : getnu.f 2222 ------------------------------------------------------------------*/ 2223 2224 #define GETNU(A1,A2,A3,A4,A5) CCALLSFSUB5(GETNU,getnu,FLOATV,INTV,FLOAT,INT,PFLOAT,A1,A2,A3,A4,A5) 2225 2226 /*------------------------------------------------------------------ 2227 fortran filename : getnum.f 2228 ------------------------------------------------------------------*/ 2229 2230 #define GETNUM(A1,A2) CCALLSFSUB2(GETNUM,getnum,INTV,PINT,A1,A2) 2231 2232 /*------------------------------------------------------------------ 2233 fortran filename : getpar.f 2234 ------------------------------------------------------------------*/ 2235 2236 #define GETPAR(A1,A2,A3) CCALLSFSUB3(GETPAR,getpar,INT,INT,PINT,A1,A2,A3) 2237 2238 /*------------------------------------------------------------------ 2239 fortran filename : getshp.f 2240 ------------------------------------------------------------------*/ 2241 2242 #define GETSHP(A1,A2) CCALLSFSUB2(GETSHP,getshp,INT,FLOATV,A1,A2) 2243 2244 /*------------------------------------------------------------------ 2245 fortran filename : getver.f 2246 ------------------------------------------------------------------*/ 2247 /* 2248 #define getver_ELEMS_1 ZTRINGV_NUM(1) 2249 #define getver_ELEMLEN_1 ZTRINGV_NUM(8) 2250 */ 2251 2252 #define GETVER(A1,A2) CCALLSFSUB2(GETVER,getver,PSTRING,PFLOAT,A1,A2) 2253 2254 /*------------------------------------------------------------------ 2255 fortran filename : gevkev.f 2256 ------------------------------------------------------------------*/ 2257 /* 2258 #define gevkev_ELEMS_3 ZTRINGV_NUM(1) 2259 #define gevkev_ELEMLEN_3 ZTRINGV_NUM(4) 2260 */ 2261 2262 #define GEVKEV(A1,A2,A3) CCALLSFSUB3(GEVKEV,gevkev,FLOAT,PFLOAT,PSTRING,A1,A2,A3) 2263 2264 /*------------------------------------------------------------------ 2265 fortran filename : gfang.f 2266 ------------------------------------------------------------------*/ 2267 2268 #define GFANG(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFANG,gfang,FLOATV,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PLOGICAL,A1,A2,A3,A4,A5,A6) 2269 2270 /*------------------------------------------------------------------ 2271 fortran filename : gfatt.f 2272 ------------------------------------------------------------------*/ 2273 /* 2274 #define gfatt_ELEMS_1 ZTRINGV_NUM(1) 2275 #define gfatt_ELEMLEN_1 ZTRINGV_NUM(4) 2276 #define gfatt_ELEMS_2 ZTRINGV_NUM(1) 2277 #define gfatt_ELEMLEN_2 ZTRINGV_NUM(4) 2278 */ 2279 2280 #define GFATT(A1,A2,A3) CCALLSFSUB3(GFATT,gfatt,STRING,STRING,PINT,A1,A2,A3) 2281 2282 /*------------------------------------------------------------------ 2283 fortran filename : gfclim.f 2284 ------------------------------------------------------------------*/ 2285 2286 #define GFCLIM(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFCLIM,gfclim,INT,INT,INT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4,A5,A6) 2287 2288 /*------------------------------------------------------------------ 2289 fortran filename : gfcoor.f 2290 ------------------------------------------------------------------*/ 2291 2292 #define GFCOOR(A1,A2,A3) CCALLSFSUB3(GFCOOR,gfcoor,FLOATV,INT,PFLOAT,A1,A2,A3) 2293 2294 /*------------------------------------------------------------------ 2295 fortran filename : gfcord.f 2296 ------------------------------------------------------------------*/ 2297 2298 #define GFCORD(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFCORD,gfcord,INT,FLOATV,FLOATV,PFLOAT,PINT,PINT,A1,A2,A3,A4,A5,A6) 2299 2300 /*------------------------------------------------------------------ 2301 fortran filename : gfcoul.f 2302 ------------------------------------------------------------------*/ 2303 2304 PROTOCCALLSFFUN1(FLOAT,GFCOUL,gfcoul,FLOAT) 2305 #define GFCOUL(A2) CCALLSFFUN1(GFCOUL,gfcoul,FLOAT,A2) 2306 2307 /*------------------------------------------------------------------ 2308 fortran filename : gfcvol.f 2309 ------------------------------------------------------------------*/ 2310 2311 #define GFCVOL() CCALLSFSUB0(GFCVOL,gfcvol) 2312 2313 /*------------------------------------------------------------------ 2314 fortran filename : gfdet.f 2315 ------------------------------------------------------------------*/ 2316 /* 2317 #define gfdet_ELEMS_1 ZTRINGV_NUM(1) 2318 #define gfdet_ELEMLEN_1 ZTRINGV_NUM(4) 2319 #define gfdet_ELEMS_2 ZTRINGV_NUM(1) 2320 #define gfdet_ELEMLEN_2 ZTRINGV_NUM(4) 2321 #define gfdet_ELEMS_4 ZTRINGV_NUM(1) 2322 #define gfdet_ELEMLEN_4 ZTRINGV_NUM(4) 2323 */ 2324 2325 #define GFDET(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GFDET,gfdet,STRING,STRING,PINT,STRINGV,PINT,INT,PINT,PINT,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) 2326 2327 /*------------------------------------------------------------------ 2328 fortran filename : gfdeta.f 2329 ------------------------------------------------------------------*/ 2330 /* 2331 #define gfdeta_ELEMS_1 ZTRINGV_NUM(1) 2332 #define gfdeta_ELEMLEN_1 ZTRINGV_NUM(4) 2333 #define gfdeta_ELEMS_2 ZTRINGV_NUM(1) 2334 #define gfdeta_ELEMLEN_2 ZTRINGV_NUM(4) 2335 */ 2336 2337 #define GFDETA(A1,A2,A3) CCALLSFSUB3(GFDETA,gfdeta,STRING,STRING,INT,A1,A2,A3) 2338 2339 /*------------------------------------------------------------------ 2340 fortran filename : gfdetd.f 2341 ------------------------------------------------------------------*/ 2342 /* 2343 #define gfdetd_ELEMS_1 ZTRINGV_NUM(1) 2344 #define gfdetd_ELEMLEN_1 ZTRINGV_NUM(4) 2345 #define gfdetd_ELEMS_2 ZTRINGV_NUM(1) 2346 #define gfdetd_ELEMLEN_2 ZTRINGV_NUM(4) 2347 #define gfdetd_ELEMS_4 ZTRINGV_NUM(1) 2348 #define gfdetd_ELEMLEN_4 ZTRINGV_NUM(4) 2349 */ 2350 2351 #define GFDETD(A1,A2,A3,A4,A5) CCALLSFSUB5(GFDETD,gfdetd,STRING,STRING,PINT,STRINGV,PINT,A1,A2,A3,A4,A5) 2352 2353 /*------------------------------------------------------------------ 2354 fortran filename : gfdeth.f 2355 ------------------------------------------------------------------*/ 2356 /* 2357 #define gfdeth_ELEMS_1 ZTRINGV_NUM(1) 2358 #define gfdeth_ELEMLEN_1 ZTRINGV_NUM(4) 2359 #define gfdeth_ELEMS_2 ZTRINGV_NUM(1) 2360 #define gfdeth_ELEMLEN_2 ZTRINGV_NUM(4) 2361 #define gfdeth_ELEMS_4 ZTRINGV_NUM(1) 2362 #define gfdeth_ELEMLEN_4 ZTRINGV_NUM(4) 2363 */ 2364 2365 #define GFDETH(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GFDETH,gfdeth,STRING,STRING,PINT,STRINGV,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7) 2366 2367 /*------------------------------------------------------------------ 2368 fortran filename : gfdetu.f 2369 ------------------------------------------------------------------*/ 2370 /* 2371 #define gfdetu_ELEMS_1 ZTRINGV_NUM(1) 2372 #define gfdetu_ELEMLEN_1 ZTRINGV_NUM(4) 2373 #define gfdetu_ELEMS_2 ZTRINGV_NUM(1) 2374 #define gfdetu_ELEMLEN_2 ZTRINGV_NUM(4) 2375 */ 2376 2377 #define GFDETU(A1,A2,A3,A4,A5) CCALLSFSUB5(GFDETU,gfdetu,STRING,STRING,INT,PINT,FLOATV,A1,A2,A3,A4,A5) 2378 2379 /*------------------------------------------------------------------ 2380 fortran filename : gfdigi.f 2381 ------------------------------------------------------------------*/ 2382 /* 2383 #define gfdigi_ELEMS_1 ZTRINGV_NUM(1) 2384 #define gfdigi_ELEMLEN_1 ZTRINGV_NUM(4) 2385 #define gfdigi_ELEMS_2 ZTRINGV_NUM(1) 2386 #define gfdigi_ELEMLEN_2 ZTRINGV_NUM(4) 2387 */ 2388 2389 #define GFDIGI(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12) CCALLSFSUB12(GFDIGI,gfdigi,STRING,STRING,INT,INT,INT,INT,INTV,PINT,PINT,PINT,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12) 2390 2391 /*------------------------------------------------------------------ 2392 fortran filename : gffgo.f 2393 ------------------------------------------------------------------*/ 2394 2395 #define GFFGO() CCALLSFSUB0(GFFGO,gffgo) 2396 2397 /*------------------------------------------------------------------ 2398 fortran filename : gfhead.f 2399 ------------------------------------------------------------------*/ 2400 2401 #define GFHEAD(A1,A2,A3,A4) CCALLSFSUB4(GFHEAD,gfhead,PINT,PINT,PINT,PFLOAT,A1,A2,A3,A4) 2402 2403 /*------------------------------------------------------------------ 2404 fortran filename : gfhits.f 2405 ------------------------------------------------------------------*/ 2406 /* 2407 #define gfhits_ELEMS_1 ZTRINGV_NUM(1) 2408 #define gfhits_ELEMLEN_1 ZTRINGV_NUM(4) 2409 #define gfhits_ELEMS_2 ZTRINGV_NUM(1) 2410 #define gfhits_ELEMLEN_2 ZTRINGV_NUM(4) 2411 */ 2412 2413 #define GFHITS(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(GFHITS,gfhits,STRING,STRING,INT,INT,INT,INT,INTV,PINT,PINT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) 2414 2415 /*------------------------------------------------------------------ 2416 fortran filename : gfhsta.f 2417 ------------------------------------------------------------------*/ 2418 2419 #define GFHSTA() CCALLSFSUB0(GFHSTA,gfhsta) 2420 2421 /*------------------------------------------------------------------ 2422 fortran filename : gfin.f 2423 ------------------------------------------------------------------*/ 2424 /* 2425 #define gfin_ELEMS_2 ZTRINGV_NUM(#{58{4\D8#) 2426 #define gfin_ELEMLEN_2 ZTRINGV_NUM(4) 2427 #define gfin_ELEMS_5 ZTRINGV_NUM(1) 2428 #define gfin_ELEMLEN_5 ZTRINGV_NUM(255) 2429 */ 2430 2431 #define GFIN(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFIN,gfin,INT,STRINGV,INT,INT,STRING,PINT,A1,A2,A3,A4,A5,A6) 2432 2433 /*------------------------------------------------------------------ 2434 fortran filename : gfind.f 2435 ------------------------------------------------------------------*/ 2436 /* 2437 #define gfind_ELEMS_1 ZTRINGV_NUM(1) 2438 #define gfind_ELEMLEN_1 ZTRINGV_NUM(4) 2439 #define gfind_ELEMS_2 ZTRINGV_NUM(1) 2440 #define gfind_ELEMLEN_2 ZTRINGV_NUM(4) 2441 */ 2442 2443 #define GFIND(A1,A2,A3) CCALLSFSUB3(GFIND,gfind,STRING,STRING,PINT,A1,A2,A3) 2444 2445 /*------------------------------------------------------------------ 2446 fortran filename : gfinds.f 2447 ------------------------------------------------------------------*/ 2448 2449 #define GFINDS() CCALLSFSUB0(GFINDS,gfinds) 2450 2451 /*------------------------------------------------------------------ 2452 fortran filename : gfipar.f 2453 ------------------------------------------------------------------*/ 2454 2455 #define GFIPAR(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GFIPAR,gfipar,INT,INT,INT,PINT,PINT,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6,A7) 2456 2457 /*------------------------------------------------------------------ 2458 fortran filename : gfkine.f 2459 ------------------------------------------------------------------*/ 2460 2461 #define GFKINE(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GFKINE,gfkine,INT,PFLOAT,PFLOAT,PINT,PINT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7) 2462 2463 /*------------------------------------------------------------------ 2464 fortran filename : gflcar.f 2465 ------------------------------------------------------------------*/ 2466 2467 #define GFLCAR(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GFLCAR,gflcar,INT,INT,INT,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7) 2468 2469 /*------------------------------------------------------------------ 2470 fortran filename : gflphi.f 2471 ------------------------------------------------------------------*/ 2472 2473 #define GFLPHI(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GFLPHI,gflphi,INT,INT,FLOATV,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7) 2474 2475 /*------------------------------------------------------------------ 2476 fortran filename : gflrad.f 2477 ------------------------------------------------------------------*/ 2478 2479 #define GFLRAD(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GFLRAD,gflrad,INT,INT,INT,FLOATV,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8) 2480 2481 /*------------------------------------------------------------------ 2482 fortran filename : gflthe.f 2483 ------------------------------------------------------------------*/ 2484 2485 #define GFLTHE(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GFLTHE,gflthe,INT,INT,FLOATV,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7) 2486 2487 /*------------------------------------------------------------------ 2488 fortran filename : gfluct.f 2489 ------------------------------------------------------------------*/ 2490 2491 #define GFLUCT(A1,A2) CCALLSFSUB2(GFLUCT,gfluct,FLOAT,PFLOAT,A1,A2) 2492 2493 /*------------------------------------------------------------------ 2494 fortran filename : gfmate.f 2495 ------------------------------------------------------------------*/ 2496 2497 #define GFMATE(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(GFMATE,gfmate,INT,BYTE,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,FLOATV,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9) 2498 2499 /*------------------------------------------------------------------ 2500 fortran filename : gfmdis.f 2501 ------------------------------------------------------------------*/ 2502 2503 #define GFMDIS() CCALLSFSUB0(GFMDIS,gfmdis) 2504 2505 /*------------------------------------------------------------------ 2506 fortran filename : gfmfin.f 2507 ------------------------------------------------------------------*/ 2508 2509 #define GFMFIN() CCALLSFSUB0(GFMFIN,gfmfin) 2510 2511 /*------------------------------------------------------------------ 2512 fortran filename : gfmoth.f 2513 ------------------------------------------------------------------*/ 2514 /* 2515 #define gfmoth_ELEMS_1 ZTRINGV_NUM(1) 2516 #define gfmoth_ELEMLEN_1 ZTRINGV_NUM(4) 2517 #define gfmoth_ELEMS_2 ZTRINGV_NUM(1) 2518 #define gfmoth_ELEMLEN_2 ZTRINGV_NUM(4) 2519 */ 2520 2521 #define GFMOTH(A1,A2,A3) CCALLSFSUB3(GFMOTH,gfmoth,STRING,PSTRING,PINT,A1,A2,A3) 2522 2523 /*------------------------------------------------------------------ 2524 fortran filename : gfndig.f 2525 ------------------------------------------------------------------*/ 2526 /* 2527 #define gfndig_ELEMS_1 ZTRINGV_NUM(1) 2528 #define gfndig_ELEMLEN_1 ZTRINGV_NUM(4) 2529 #define gfndig_ELEMS_2 ZTRINGV_NUM(1) 2530 #define gfndig_ELEMLEN_2 ZTRINGV_NUM(4) 2531 */ 2532 2533 #define GFNDIG(A1,A2,A3) CCALLSFSUB3(GFNDIG,gfndig,STRING,STRING,PINT,A1,A2,A3) 2534 2535 /*------------------------------------------------------------------ 2536 fortran filename : gfnhit.f 2537 ------------------------------------------------------------------*/ 2538 /* 2539 #define gfnhit_ELEMS_1 ZTRINGV_NUM(1) 2540 #define gfnhit_ELEMLEN_1 ZTRINGV_NUM(4) 2541 #define gfnhit_ELEMS_2 ZTRINGV_NUM(1) 2542 #define gfnhit_ELEMLEN_2 ZTRINGV_NUM(4) 2543 */ 2544 2545 #define GFNHIT(A1,A2,A3) CCALLSFSUB3(GFNHIT,gfnhit,STRING,STRING,PINT,A1,A2,A3) 2546 2547 /*------------------------------------------------------------------ 2548 fortran filename : gfnrdt.f 2549 ------------------------------------------------------------------*/ 2550 2551 #define GFNRDT(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GFNRDT,gfnrdt,FLOAT,FLOATV,INT,PINT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7) 2552 2553 /*------------------------------------------------------------------ 2554 fortran filename : gfout.f 2555 ------------------------------------------------------------------*/ 2556 /* 2557 #define gfout_ELEMS_2 ZTRINGV_NUM(#{5@{4\E0#) 2558 #define gfout_ELEMLEN_2 ZTRINGV_NUM(4) 2559 #define gfout_ELEMS_5 ZTRINGV_NUM(1) 2560 #define gfout_ELEMLEN_5 ZTRINGV_NUM(255) 2561 */ 2562 2563 #define GFOUT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFOUT,gfout,INT,STRINGV,INT,INT,STRING,PINT,A1,A2,A3,A4,A5,A6) 2564 2565 /*------------------------------------------------------------------ 2566 fortran filename : gfpara.f 2567 ------------------------------------------------------------------*/ 2568 /* 2569 #define gfpara_ELEMS_1 ZTRINGV_NUM(1) 2570 #define gfpara_ELEMLEN_1 ZTRINGV_NUM(4) 2571 */ 2572 2573 #define GFPARA(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GFPARA,gfpara,STRING,INT,INT,PINT,PINT,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6,A7) 2574 2575 /*------------------------------------------------------------------ 2576 fortran filename : gfpart.f 2577 ------------------------------------------------------------------*/ 2578 /* 2579 #define gfpart_ELEMS_2 ZTRINGV_NUM(1) 2580 #define gfpart_ELEMLEN_2 ZTRINGV_NUM(20) 2581 */ 2582 2583 #define GFPART(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GFPART,gfpart,INT,STRING,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8) 2584 2585 /*------------------------------------------------------------------ 2586 fortran filename : gfpath.f 2587 ------------------------------------------------------------------*/ 2588 2589 #define GFPATH(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFPATH,gfpath,INT,INT,INTV,PINT,PINT,PINT,A1,A2,A3,A4,A5,A6) 2590 2591 /*------------------------------------------------------------------ 2592 fortran filename : gfrdt.f 2593 ------------------------------------------------------------------*/ 2594 2595 #define GFRDT(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GFRDT,gfrdt,FLOAT,FLOATV,INT,PINT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7) 2596 2597 /*------------------------------------------------------------------ 2598 fortran filename : gfrung.f 2599 ------------------------------------------------------------------*/ 2600 2601 #define GFRUNG(A1,A2,A3,A4) CCALLSFSUB4(GFRUNG,gfrung,PINT,PINT,PINT,PFLOAT,A1,A2,A3,A4) 2602 2603 /*------------------------------------------------------------------ 2604 fortran filename : gfsdpr.f 2605 ------------------------------------------------------------------*/ 2606 2607 #define GFSDPR(A1,A2,A3) CCALLSFSUB3(GFSDPR,gfsdpr,FLOAT,INT,PFLOAT,A1,A2,A3) 2608 2609 /*------------------------------------------------------------------ 2610 fortran filename : gfshdc.f 2611 ------------------------------------------------------------------*/ 2612 2613 #define GFSHDC(A1,A2) CCALLSFSUB2(GFSHDC,gfshdc,INT,FLOAT,A1,A2) 2614 2615 /*------------------------------------------------------------------ 2616 fortran filename : gfshls.f 2617 ------------------------------------------------------------------*/ 2618 2619 #define GFSHLS(A1,A2,A3) CCALLSFSUB3(GFSHLS,gfshls,FLOAT,PFLOAT,PINT,A1,A2,A3) 2620 2621 /*------------------------------------------------------------------ 2622 fortran filename : gfstat.f 2623 ------------------------------------------------------------------*/ 2624 2625 #define GFSTAT(A1) CCALLSFSUB1(GFSTAT,gfstat,INT,A1) 2626 2627 /*------------------------------------------------------------------ 2628 fortran filename : gftmat.f 2629 ------------------------------------------------------------------*/ 2630 /* 2631 #define gftmat_ELEMS_3 ZTRINGV_NUM(1) 2632 #define gftmat_ELEMLEN_3 ZTRINGV_NUM(4) 2633 */ 2634 2635 #define GFTMAT(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GFTMAT,gftmat,INT,INT,STRING,INT,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8) 2636 2637 /*------------------------------------------------------------------ 2638 fortran filename : gftmed.f 2639 ------------------------------------------------------------------*/ 2640 /* 2641 #define gftmed_ELEMS_2 ZTRINGV_NUM(1) 2642 #define gftmed_ELEMLEN_2 ZTRINGV_NUM(20) 2643 */ 2644 2645 #define GFTMED(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) CCALLSFSUB13(GFTMED,gftmed,INT,STRING,PINT,PINT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) 2646 2647 /*------------------------------------------------------------------ 2648 fortran filename : gftrac.f 2649 ------------------------------------------------------------------*/ 2650 2651 #define GFTRAC() CCALLSFSUB0(GFTRAC,gftrac) 2652 2653 /*------------------------------------------------------------------ 2654 fortran filename : gfupar.f 2655 ------------------------------------------------------------------*/ 2656 2657 #define GFUPAR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFUPAR,gfupar,INT,INT,PINT,PINT,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6) 2658 2659 /*------------------------------------------------------------------ 2660 fortran filename : gfvert.f 2661 ------------------------------------------------------------------*/ 2662 2663 #define GFVERT(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GFVERT,gfvert,INT,PFLOAT,PINT,PINT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7) 2664 2665 /*------------------------------------------------------------------ 2666 fortran filename : gfvolu.f 2667 ------------------------------------------------------------------*/ 2668 /* 2669 #define gfvolu_ELEMS_2 ZTRINGV_NUM(1) 2670 #define gfvolu_ELEMLEN_2 ZTRINGV_NUM(4) 2671 #define gfvolu_ELEMS_3 ZTRINGV_NUM(1) 2672 #define gfvolu_ELEMLEN_3 ZTRINGV_NUM(4) 2673 */ 2674 2675 #define GFVOLU(A1,A2,A3) CCALLSFSUB3(GFVOLU,gfvolu,INT,STRING,PSTRING,A1,A2,A3) 2676 2677 /*------------------------------------------------------------------ 2678 fortran filename : ggcave.f 2679 ------------------------------------------------------------------*/ 2680 2681 #define GGCAVE() CCALLSFSUB0(GGCAVE,ggcave) 2682 2683 /*------------------------------------------------------------------ 2684 fortran filename : ggckov.f 2685 ------------------------------------------------------------------*/ 2686 2687 #define GGCKOV() CCALLSFSUB0(GGCKOV,ggckov) 2688 2689 /*------------------------------------------------------------------ 2690 fortran filename : ggclos.f 2691 ------------------------------------------------------------------*/ 2692 2693 #define GGCLOS() CCALLSFSUB0(GGCLOS,ggclos) 2694 2695 /*------------------------------------------------------------------ 2696 fortran filename : ggdetv.f 2697 ------------------------------------------------------------------*/ 2698 2699 #define GGDETV(A1,A2) CCALLSFSUB2(GGDETV,ggdetv,INT,INT,A1,A2) 2700 2701 /*------------------------------------------------------------------ 2702 fortran filename : ggdpar.f 2703 ------------------------------------------------------------------*/ 2704 2705 #define GGDPAR(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GGDPAR,ggdpar,INT,INT,INT,INTV,INT,PINT,PFLOAT,A1,A2,A3,A4,A5,A6,A7) 2706 2707 /*------------------------------------------------------------------ 2708 fortran filename : ggdspe.f 2709 ------------------------------------------------------------------*/ 2710 2711 #define GGDSPE(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GGDSPE,ggdspe,INT,INT,FLOATV,PINT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7) 2712 2713 /*------------------------------------------------------------------ 2714 fortran filename : ggdvlp.f 2715 ------------------------------------------------------------------*/ 2716 2717 #define GGDVLP() CCALLSFSUB0(GGDVLP,ggdvlp) 2718 2719 /*------------------------------------------------------------------ 2720 fortran filename : gget.f 2721 ------------------------------------------------------------------*/ 2722 /* 2723 #define gget_ELEMS_2 ZTRINGV_NUM(1) 2724 #define gget_ELEMLEN_2 ZTRINGV_NUM(4) 2725 */ 2726 2727 #define GGET(A1,A2,A3,A4,A5) CCALLSFSUB5(GGET,gget,INT,STRINGV,INT,PINT,PINT,A1,A2,A3,A4,A5) 2728 2729 /*------------------------------------------------------------------ 2730 fortran filename : ggnlev.f 2731 ------------------------------------------------------------------*/ 2732 2733 #define GGNLEV() CCALLSFSUB0(GGNLEV,ggnlev) 2734 2735 /*------------------------------------------------------------------ 2736 fortran filename : ggord.f 2737 ------------------------------------------------------------------*/ 2738 2739 #define GGORD(A1) CCALLSFSUB1(GGORD,ggord,INT,A1) 2740 2741 /*------------------------------------------------------------------ 2742 fortran filename : ggordq.f 2743 ------------------------------------------------------------------*/ 2744 2745 #define GGORDQ(A1) CCALLSFSUB1(GGORDQ,ggordq,INT,A1) 2746 2747 /*------------------------------------------------------------------ 2748 fortran filename : ggperp.f 2749 ------------------------------------------------------------------*/ 2750 2751 #define GGPERP(A1,A2,A3) CCALLSFSUB3(GGPERP,ggperp,FLOATV,FLOATV,PINT,A1,A2,A3) 2752 2753 /*------------------------------------------------------------------ 2754 fortran filename : ggppar.f 2755 ------------------------------------------------------------------*/ 2756 2757 #define GGPPAR(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GGPPAR,ggppar,INT,INT,INT,INTV,INT,PINT,PFLOAT,A1,A2,A3,A4,A5,A6,A7) 2758 2759 /*------------------------------------------------------------------ 2760 fortran filename : ggvchk.f 2761 ------------------------------------------------------------------*/ 2762 2763 #define GGVCHK(A1,A2,A3,A4) CCALLSFSUB4(GGVCHK,ggvchk,INT,INT,PINT,PINT,A1,A2,A3,A4) 2764 2765 /*------------------------------------------------------------------ 2766 fortran filename : ghclos.f 2767 ------------------------------------------------------------------*/ 2768 2769 #define GHCLOS() CCALLSFSUB0(GHCLOS,ghclos) 2770 2771 /*------------------------------------------------------------------ 2772 fortran filename : gheini.f 2773 ------------------------------------------------------------------*/ 2774 2775 #define GHEINI() CCALLSFSUB0(GHEINI,gheini) 2776 2777 /*------------------------------------------------------------------ 2778 fortran filename : gheish.f 2779 ------------------------------------------------------------------*/ 2780 2781 #define GHEISH() CCALLSFSUB0(GHEISH,gheish) 2782 2783 /*------------------------------------------------------------------ 2784 fortran filename : ghelix.f 2785 ------------------------------------------------------------------*/ 2786 2787 #define GHELIX(A1,A2,A3,A4) CCALLSFSUB4(GHELIX,ghelix,FLOAT,FLOAT,FLOATV,PFLOAT,A1,A2,A3,A4) 2788 2789 /*------------------------------------------------------------------ 2790 fortran filename : ghelx3.f 2791 ------------------------------------------------------------------*/ 2792 2793 #define GHELX3(A1,A2,A3,A4) CCALLSFSUB4(GHELX3,ghelx3,FLOAT,FLOAT,FLOATV,PFLOAT,A1,A2,A3,A4) 2794 2795 /*------------------------------------------------------------------ 2796 fortran filename : ghepec.f 2797 ------------------------------------------------------------------*/ 2798 2799 #define GHEPEC(A1) CCALLSFSUB1(GHEPEC,ghepec,INT,A1) 2800 2801 /*------------------------------------------------------------------ 2802 fortran filename : ghesig.f 2803 ------------------------------------------------------------------*/ 2804 2805 PROTOCCALLSFFUN10(FLOAT,GHESIG,ghesig,FLOAT,FLOAT,FLOAT,FLOATV,FLOATV,FLOATV,INT,FLOAT,FLOAT,INT) 2806 #define GHESIG(A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFFUN10(GHESIG,ghesig,FLOAT,FLOAT,FLOAT,FLOATV,FLOATV,FLOATV,INT,FLOAT,FLOAT,INT,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) 2807 2808 /*------------------------------------------------------------------ 2809 fortran filename : ghetun.f 2810 ------------------------------------------------------------------*/ 2811 2812 #define GHETUN(A1) CCALLSFSUB1(GHETUN,ghetun,PINT,A1) 2813 2814 /*------------------------------------------------------------------ 2815 fortran filename : ghmix.f 2816 ------------------------------------------------------------------*/ 2817 2818 #define GHMIX(A1,A2,A3,A4) CCALLSFSUB4(GHMIX,ghmix,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4) 2819 2820 /*------------------------------------------------------------------ 2821 fortran filename : ghsig.f 2822 ------------------------------------------------------------------*/ 2823 2824 PROTOCCALLSFFUN3(FLOAT,GHSIG,ghsig,FLOAT,INT,FLOAT) 2825 #define GHSIG(A2,A3,A4) CCALLSFFUN3(GHSIG,ghsig,FLOAT,INT,FLOAT,A2,A3,A4) 2826 2827 /*------------------------------------------------------------------ 2828 fortran filename : ghsigm.f 2829 ------------------------------------------------------------------*/ 2830 2831 PROTOCCALLSFFUN3(FLOAT,GHSIGM,ghsigm,FLOAT,INT,FLOAT) 2832 #define GHSIGM(A2,A3,A4) CCALLSFFUN3(GHSIGM,ghsigm,FLOAT,INT,FLOAT,A2,A3,A4) 2833 2834 /*------------------------------------------------------------------ 2835 fortran filename : ghstop.f 2836 ------------------------------------------------------------------*/ 2837 2838 #define GHSTOP() CCALLSFSUB0(GHSTOP,ghstop) 2839 2840 /*------------------------------------------------------------------ 2841 fortran filename : gicyl.f 2842 ------------------------------------------------------------------*/ 2843 2844 #define GICYL(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GICYL,gicyl,FLOAT,FLOATV,FLOATV,FLOAT,FLOAT,INT,PFLOAT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) 2845 2846 /*------------------------------------------------------------------ 2847 fortran filename : gidrop.f 2848 ------------------------------------------------------------------*/ 2849 2850 #define GIDROP() CCALLSFSUB0(GIDROP,gidrop) 2851 2852 /*------------------------------------------------------------------ 2853 fortran filename : ginctu.f 2854 ------------------------------------------------------------------*/ 2855 2856 #define GINCTU(A1,A2,A3) CCALLSFSUB3(GINCTU,ginctu,FLOATV,FLOATV,PINT,A1,A2,A3) 2857 2858 /*------------------------------------------------------------------ 2859 fortran filename : gingtr.f 2860 ------------------------------------------------------------------*/ 2861 2862 #define GINGTR(A1,A2,A3) CCALLSFSUB3(GINGTR,gingtr,FLOATV,FLOATV,PINT,A1,A2,A3) 2863 2864 /*------------------------------------------------------------------ 2865 fortran filename : ginit.f 2866 ------------------------------------------------------------------*/ 2867 2868 #define GINIT() CCALLSFSUB0(GINIT,ginit) 2869 2870 /*------------------------------------------------------------------ 2871 fortran filename : ginme.f 2872 ------------------------------------------------------------------*/ 2873 2874 #define GINME(A1,A2,A3,A4) CCALLSFSUB4(GINME,ginme,FLOATV,FLOAT,FLOATV,PINT,A1,A2,A3,A4) 2875 2876 /*------------------------------------------------------------------ 2877 fortran filename : ginpar.f 2878 ------------------------------------------------------------------*/ 2879 2880 #define GINPAR(A1,A2,A3) CCALLSFSUB3(GINPAR,ginpar,FLOATV,FLOATV,PINT,A1,A2,A3) 2881 2882 /*------------------------------------------------------------------ 2883 fortran filename : ginpco.f 2884 ------------------------------------------------------------------*/ 2885 2886 #define GINPCO(A1,A2,A3) CCALLSFSUB3(GINPCO,ginpco,FLOATV,FLOATV,PINT,A1,A2,A3) 2887 2888 /*------------------------------------------------------------------ 2889 fortran filename : ginpgo.f 2890 ------------------------------------------------------------------*/ 2891 2892 #define GINPGO(A1,A2,A3) CCALLSFSUB3(GINPGO,ginpgo,FLOATV,FLOATV,PINT,A1,A2,A3) 2893 2894 /*------------------------------------------------------------------ 2895 fortran filename : ginrot.f 2896 ------------------------------------------------------------------*/ 2897 2898 #define GINROT(A1,A2,A3) CCALLSFSUB3(GINROT,ginrot,FLOATV,FLOATV,PFLOAT,A1,A2,A3) 2899 2900 /*------------------------------------------------------------------ 2901 fortran filename : gintco.f 2902 ------------------------------------------------------------------*/ 2903 2904 #define GINTCO(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GINTCO,gintco,FLOATV,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 2905 2906 /*------------------------------------------------------------------ 2907 fortran filename : gintri.f 2908 ------------------------------------------------------------------*/ 2909 2910 #define GINTRI() CCALLSFSUB0(GINTRI,gintri) 2911 2912 /*------------------------------------------------------------------ 2913 fortran filename : gintrp.f 2914 ------------------------------------------------------------------*/ 2915 2916 #define GINTRP(A1,A2,A3) CCALLSFSUB3(GINTRP,gintrp,FLOATV,FLOATV,PINT,A1,A2,A3) 2917 2918 /*------------------------------------------------------------------ 2919 fortran filename : ginvol.f 2920 ------------------------------------------------------------------*/ 2921 2922 #define GINVOL(A1,A2) CCALLSFSUB2(GINVOL,ginvol,FLOATV,PINT,A1,A2) 2923 2924 /*------------------------------------------------------------------ 2925 fortran filename : giplan.f 2926 ------------------------------------------------------------------*/ 2927 2928 #define GIPLAN(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GIPLAN,giplan,FLOAT,FLOATV,FLOATV,FLOAT,FLOAT,INT,PFLOAT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) 2929 2930 /*------------------------------------------------------------------ 2931 fortran filename : gitran.f 2932 ------------------------------------------------------------------*/ 2933 2934 #define GITRAN(A1,A2,A3,A4) CCALLSFSUB4(GITRAN,gitran,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4) 2935 2936 /*------------------------------------------------------------------ 2937 fortran filename : gjwrit.f 2938 ------------------------------------------------------------------*/ 2939 2940 #define GJWRIT() CCALLSFSUB0(GJWRIT,gjwrit) 2941 2942 /*------------------------------------------------------------------ 2943 fortran filename : gkhits.f 2944 ------------------------------------------------------------------*/ 2945 /* 2946 #define gkhits_ELEMS_1 ZTRINGV_NUM(1) 2947 #define gkhits_ELEMLEN_1 ZTRINGV_NUM(4) 2948 #define gkhits_ELEMS_2 ZTRINGV_NUM(1) 2949 #define gkhits_ELEMLEN_2 ZTRINGV_NUM(4) 2950 */ 2951 2952 #define GKHITS(A1,A2,A3) CCALLSFSUB3(GKHITS,gkhits,STRING,STRING,FLOAT,A1,A2,A3) 2953 2954 /*------------------------------------------------------------------ 2955 fortran filename : gkokri.f 2956 ------------------------------------------------------------------*/ 2957 2958 PROTOCCALLSFFUN3(FLOAT,GKOKRI,gkokri,FLOAT,FLOAT,FLOAT) 2959 #define GKOKRI(A2,A3,A4) CCALLSFFUN3(GKOKRI,gkokri,FLOAT,FLOAT,FLOAT,A2,A3,A4) 2960 2961 /*------------------------------------------------------------------ 2962 fortran filename : gkxyz.f 2963 ------------------------------------------------------------------*/ 2964 2965 #define GKXYZ(A1) CCALLSFSUB1(GKXYZ,gkxyz,FLOAT,A1) 2966 2967 /*------------------------------------------------------------------ 2968 fortran filename : glande.f 2969 ------------------------------------------------------------------*/ 2970 2971 PROTOCCALLSFFUN1(FLOAT,GLANDE,glande,FLOAT) 2972 #define GLANDE(A2) CCALLSFFUN1(GLANDE,glande,FLOAT,A2) 2973 2974 /*------------------------------------------------------------------ 2975 fortran filename : glandg.f 2976 ------------------------------------------------------------------*/ 2977 2978 #define GLANDG(A1) CCALLSFSUB1(GLANDG,glandg,PFLOAT,A1) 2979 2980 /*------------------------------------------------------------------ 2981 fortran filename : glando.f 2982 ------------------------------------------------------------------*/ 2983 2984 #define GLANDO(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GLANDO,glando,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) 2985 2986 /*------------------------------------------------------------------ 2987 fortran filename : glandr.f 2988 ------------------------------------------------------------------*/ 2989 2990 PROTOCCALLSFFUN1(FLOAT,GLANDR,glandr,FLOAT) 2991 #define GLANDR(A2) CCALLSFFUN1(GLANDR,glandr,FLOAT,A2) 2992 2993 /*------------------------------------------------------------------ 2994 fortran filename : glands.f 2995 ------------------------------------------------------------------*/ 2996 2997 PROTOCCALLSFFUN1(FLOAT,GLANDS,glands,FLOAT) 2998 #define GLANDS(A2) CCALLSFFUN1(GLANDS,glands,FLOAT,A2) 2999 3000 /*------------------------------------------------------------------ 3001 fortran filename : glandz.f 3002 ------------------------------------------------------------------*/ 3003 3004 #define GLANDZ(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GLANDZ,glandz,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8) 3005 3006 /*------------------------------------------------------------------ 3007 fortran filename : glast.f 3008 ------------------------------------------------------------------*/ 3009 3010 #define GLAST() CCALLSFSUB0(GLAST,glast) 3011 3012 /*------------------------------------------------------------------ 3013 fortran filename : glight.f 3014 ------------------------------------------------------------------*/ 3015 3016 #define GLIGHT(A1,A2,A3,A4) CCALLSFSUB4(GLIGHT,glight,FLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4) 3017 3018 /*------------------------------------------------------------------ 3019 fortran filename : glisur.f 3020 ------------------------------------------------------------------*/ 3021 3022 #define GLISUR(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GLISUR,glisur,FLOATV,FLOATV,INT,INT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4,A5,A6,A7) 3023 3024 /*------------------------------------------------------------------ 3025 fortran filename : glmoth.f 3026 ------------------------------------------------------------------*/ 3027 /* 3028 #define glmoth_ELEMS_1 ZTRINGV_NUM(1) 3029 #define glmoth_ELEMLEN_1 ZTRINGV_NUM(255) 3030 */ 3031 3032 #define GLMOTH(A1,A2,A3,A4,A5) CCALLSFSUB5(GLMOTH,glmoth,STRING,INT,PINT,PINT,PINT,A1,A2,A3,A4,A5) 3033 3034 /*------------------------------------------------------------------ 3035 fortran filename : glook.f 3036 ------------------------------------------------------------------*/ 3037 /* 3038 #define glook_ELEMS_1 ZTRINGV_NUM(1) 3039 #define glook_ELEMLEN_1 ZTRINGV_NUM(255) 3040 */ 3041 3042 #define GLOOK(A1,A2,A3,A4) CCALLSFSUB4(GLOOK,glook,STRING,INTV,INT,PINT,A1,A2,A3,A4) 3043 3044 /*------------------------------------------------------------------ 3045 fortran filename : gloren.f 3046 ------------------------------------------------------------------*/ 3047 3048 #define GLOREN(A1,A2,A3) CCALLSFSUB3(GLOREN,gloren,FLOATV,FLOATV,PFLOAT,A1,A2,A3) 3049 3050 /*------------------------------------------------------------------ 3051 fortran filename : glsklt.f 3052 ------------------------------------------------------------------*/ 3053 3054 #define GLSKLT() CCALLSFSUB0(GLSKLT,glsklt) 3055 3056 /*------------------------------------------------------------------ 3057 fortran filename : gltrac.f 3058 ------------------------------------------------------------------*/ 3059 3060 #define GLTRAC() CCALLSFSUB0(GLTRAC,gltrac) 3061 3062 /*------------------------------------------------------------------ 3063 fortran filename : gludky.f 3064 ------------------------------------------------------------------*/ 3065 3066 #define GLUDKY() CCALLSFSUB0(GLUDKY,gludky) 3067 3068 /*------------------------------------------------------------------ 3069 fortran filename : glund.f 3070 ------------------------------------------------------------------*/ 3071 3072 #define GLUND() CCALLSFSUB0(GLUND,glund) 3073 3074 /*------------------------------------------------------------------ 3075 fortran filename : glundi.f 3076 ------------------------------------------------------------------*/ 3077 3078 #define GLUNDI() CCALLSFSUB0(GLUNDI,glundi) 3079 3080 /*------------------------------------------------------------------ 3081 fortran filename : glvolu.f 3082 ------------------------------------------------------------------*/ 3083 3084 #define GLVOLU(A1,A2,A3,A4) CCALLSFSUB4(GLVOLU,glvolu,INT,INTV,INTV,PINT,A1,A2,A3,A4) 3085 3086 /*------------------------------------------------------------------ 3087 fortran filename : gm3pol.f 3088 ------------------------------------------------------------------*/ 3089 3090 #define GM3POL(A1,A2) CCALLSFSUB2(GM3POL,gm3pol,FLOAT,INT,A1,A2) 3091 3092 /*------------------------------------------------------------------ 3093 fortran filename : gmail.f 3094 ------------------------------------------------------------------*/ 3095 3096 #define GMAIL(A1,A2) CCALLSFSUB2(GMAIL,gmail,INT,INT,A1,A2) 3097 3098 /*------------------------------------------------------------------ 3099 fortran filename : gmate.f 3100 ------------------------------------------------------------------*/ 3101 3102 #define GMATE() CCALLSFSUB0(GMATE,gmate) 3103 3104 /*------------------------------------------------------------------ 3105 fortran filename : gmclos.f 3106 ------------------------------------------------------------------*/ 3107 3108 #define GMCLOS() CCALLSFSUB0(GMCLOS,gmclos) 3109 3110 /*------------------------------------------------------------------ 3111 fortran filename : gmcoul.f 3112 ------------------------------------------------------------------*/ 3113 3114 #define GMCOUL(A1,A2) CCALLSFSUB2(GMCOUL,gmcoul,FLOAT,PFLOAT,A1,A2) 3115 3116 /*------------------------------------------------------------------ 3117 fortran filename : gmedia.f 3118 ------------------------------------------------------------------*/ 3119 3120 #define GMEDIA(A1,A2) CCALLSFSUB2(GMEDIA,gmedia,FLOATV,PINT,A1,A2) 3121 3122 /*------------------------------------------------------------------ 3123 fortran filename : gmedin.f 3124 ------------------------------------------------------------------*/ 3125 3126 #define GMEDIN() CCALLSFSUB0(GMEDIN,gmedin) 3127 3128 /*------------------------------------------------------------------ 3129 fortran filename : gmediv.f 3130 ------------------------------------------------------------------*/ 3131 3132 #define GMEDIV(A1,A2,A3,A4) CCALLSFSUB4(GMEDIV,gmediv,INT,PINT,PFLOAT,INT,A1,A2,A3,A4) 3133 3134 /*------------------------------------------------------------------ 3135 fortran filename : gmepos.f 3136 ------------------------------------------------------------------*/ 3137 3138 #define GMEPOS(A1,A2,A3,A4) CCALLSFSUB4(GMEPOS,gmepos,INT,INT,PFLOAT,INT,A1,A2,A3,A4) 3139 3140 /*------------------------------------------------------------------ 3141 fortran filename : gmgaus.f 3142 ------------------------------------------------------------------*/ 3143 3144 #define GMGAUS(A1,A2) CCALLSFSUB2(GMGAUS,gmgaus,FLOAT,PFLOAT,A1,A2) 3145 3146 /*------------------------------------------------------------------ 3147 fortran filename : gmicap.f 3148 ------------------------------------------------------------------*/ 3149 3150 #define GMICAP() CCALLSFSUB0(GMICAP,gmicap) 3151 3152 /*------------------------------------------------------------------ 3153 fortran filename : gmol4.f 3154 ------------------------------------------------------------------*/ 3155 3156 #define GMOL4(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GMOL4,gmol4,PFLOAT,FLOAT,PFLOAT,PFLOAT,FLOAT,PINT,A1,A2,A3,A4,A5,A6) 3157 3158 /*------------------------------------------------------------------ 3159 fortran filename : gmoli.f 3160 ------------------------------------------------------------------*/ 3161 3162 #define GMOLI(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GMOLI,gmoli,FLOATV,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7) 3163 3164 /*------------------------------------------------------------------ 3165 fortran filename : gmolie.f 3166 ------------------------------------------------------------------*/ 3167 3168 #define GMOLIE(A1,A2,A3) CCALLSFSUB3(GMOLIE,gmolie,FLOAT,FLOAT,PFLOAT,A1,A2,A3) 3169 3170 /*------------------------------------------------------------------ 3171 fortran filename : gmolio.f 3172 ------------------------------------------------------------------*/ 3173 3174 #define GMOLIO(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GMOLIO,gmolio,FLOATV,FLOATV,FLOATV,INT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8) 3175 3176 /*------------------------------------------------------------------ 3177 fortran filename : gmopen.f 3178 ------------------------------------------------------------------*/ 3179 3180 #define GMOPEN(A1,A2,A3) CCALLSFSUB3(GMOPEN,gmopen,FLOAT,FLOAT,INT,A1,A2,A3) 3181 3182 /*------------------------------------------------------------------ 3183 fortran filename : gmorin.f 3184 ------------------------------------------------------------------*/ 3185 3186 #define GMORIN() CCALLSFSUB0(GMORIN,gmorin) 3187 3188 /*------------------------------------------------------------------ 3189 fortran filename : gmplxs.f 3190 ------------------------------------------------------------------*/ 3191 3192 #define GMPLXS(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,A30,A31,A32,A33,A34,A35,A36,A37,A38,A39,A40,A41,A42,A43,A44,A45,A46,A47,A48,A49,A50) CCALLSFSUB50(GMPLXS,gmplxs,FLOATV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,PINT,PINT,INTV,INTV,PINT,PINT,FLOATV,PFLOAT,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,PINT,PINT,INTV,PINT,PFLOAT,INT,INT,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,A30,A31,A32,A33,A34,A35,A36,A37,A38,A39,A40,A41,A42,A43,A44,A45,A46,A47,A48,A49,A50) 3193 3194 /*------------------------------------------------------------------ 3195 fortran filename : gmtod.f 3196 ------------------------------------------------------------------*/ 3197 3198 #define GMTOD(A1,A2,A3) CCALLSFSUB3(GMTOD,gmtod,FLOATV,PFLOAT,INT,A1,A2,A3) 3199 3200 /*------------------------------------------------------------------ 3201 fortran filename : gmulof.f 3202 ------------------------------------------------------------------*/ 3203 3204 #define GMULOF() CCALLSFSUB0(GMULOF,gmulof) 3205 3206 /*------------------------------------------------------------------ 3207 fortran filename : gmults.f 3208 ------------------------------------------------------------------*/ 3209 3210 #define GMULTS() CCALLSFSUB0(GMULTS,gmults) 3211 3212 /*------------------------------------------------------------------ 3213 fortran filename : gmunu.f 3214 ------------------------------------------------------------------*/ 3215 3216 #define GMUNU() CCALLSFSUB0(GMUNU,gmunu) 3217 3218 /*------------------------------------------------------------------ 3219 fortran filename : gmunui.f 3220 ------------------------------------------------------------------*/ 3221 3222 #define GMUNUI() CCALLSFSUB0(GMUNUI,gmunui) 3223 3224 /*------------------------------------------------------------------ 3225 fortran filename : gmusig.f 3226 ------------------------------------------------------------------*/ 3227 3228 PROTOCCALLSFFUN3(FLOAT,GMUSIG,gmusig,FLOAT,FLOAT,FLOAT) 3229 #define GMUSIG(A2,A3,A4) CCALLSFFUN3(GMUSIG,gmusig,FLOAT,FLOAT,FLOAT,A2,A3,A4) 3230 3231 /*------------------------------------------------------------------ 3232 fortran filename : gmxsec.f 3233 ------------------------------------------------------------------*/ 3234 3235 #define GMXSEC(A1,A2) CCALLSFSUB2(GMXSEC,gmxsec,INT,PFLOAT,A1,A2) 3236 3237 /*------------------------------------------------------------------ 3238 fortran filename : gnbox.f 3239 ------------------------------------------------------------------*/ 3240 3241 #define GNBOX(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNBOX,gnbox,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3242 3243 /*------------------------------------------------------------------ 3244 fortran filename : gnckov.f 3245 ------------------------------------------------------------------*/ 3246 3247 #define GNCKOV() CCALLSFSUB0(GNCKOV,gnckov) 3248 3249 /*------------------------------------------------------------------ 3250 fortran filename : gncone.f 3251 ------------------------------------------------------------------*/ 3252 3253 #define GNCONE(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GNCONE,gncone,FLOATV,FLOATV,INT,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7) 3254 3255 /*------------------------------------------------------------------ 3256 fortran filename : gnctub.f 3257 ------------------------------------------------------------------*/ 3258 3259 #define GNCTUB(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNCTUB,gnctub,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3260 3261 /*------------------------------------------------------------------ 3262 fortran filename : gneltu.f 3263 ------------------------------------------------------------------*/ 3264 3265 #define GNELTU(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNELTU,gneltu,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3266 3267 /*------------------------------------------------------------------ 3268 fortran filename : gnext.f 3269 ------------------------------------------------------------------*/ 3270 3271 #define GNEXT(A1,A2,A3) CCALLSFSUB3(GNEXT,gnext,FLOATV,PFLOAT,PFLOAT,A1,A2,A3) 3272 3273 /*------------------------------------------------------------------ 3274 fortran filename : gnhype.f 3275 ------------------------------------------------------------------*/ 3276 3277 #define GNHYPE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNHYPE,gnhype,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3278 3279 /*------------------------------------------------------------------ 3280 fortran filename : gnobox.f 3281 ------------------------------------------------------------------*/ 3282 3283 #define GNOBOX(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOBOX,gnobox,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3284 3285 /*------------------------------------------------------------------ 3286 fortran filename : gnocon.f 3287 ------------------------------------------------------------------*/ 3288 3289 #define GNOCON(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GNOCON,gnocon,FLOATV,FLOATV,INT,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7) 3290 3291 /*------------------------------------------------------------------ 3292 fortran filename : gnoctu.f 3293 ------------------------------------------------------------------*/ 3294 3295 #define GNOCTU(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOCTU,gnoctu,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3296 3297 /*------------------------------------------------------------------ 3298 fortran filename : gnoelt.f 3299 ------------------------------------------------------------------*/ 3300 3301 #define GNOELT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOELT,gnoelt,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3302 3303 /*------------------------------------------------------------------ 3304 fortran filename : gnohyp.f 3305 ------------------------------------------------------------------*/ 3306 3307 #define GNOHYP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOHYP,gnohyp,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3308 3309 /*------------------------------------------------------------------ 3310 fortran filename : gnopar.f 3311 ------------------------------------------------------------------*/ 3312 3313 #define GNOPAR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOPAR,gnopar,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3314 3315 /*------------------------------------------------------------------ 3316 fortran filename : gnopco.f 3317 ------------------------------------------------------------------*/ 3318 3319 #define GNOPCO(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOPCO,gnopco,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3320 3321 /*------------------------------------------------------------------ 3322 fortran filename : gnopg1.f 3323 ------------------------------------------------------------------*/ 3324 3325 #define GNOPG1(A1,A2,A3) CCALLSFSUB3(GNOPG1,gnopg1,FLOATV,FLOATV,PFLOAT,A1,A2,A3) 3326 3327 /*------------------------------------------------------------------ 3328 fortran filename : gnopgo.f 3329 ------------------------------------------------------------------*/ 3330 3331 #define GNOPGO(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOPGO,gnopgo,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3332 3333 /*------------------------------------------------------------------ 3334 fortran filename : gnosph.f 3335 ------------------------------------------------------------------*/ 3336 3337 #define GNOSPH(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOSPH,gnosph,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3338 3339 /*------------------------------------------------------------------ 3340 fortran filename : gnotr1.f 3341 ------------------------------------------------------------------*/ 3342 3343 #define GNOTR1(A1) CCALLSFSUB1(GNOTR1,gnotr1,FLOATV,A1) 3344 3345 /*------------------------------------------------------------------ 3346 fortran filename : gnotr2.f 3347 ------------------------------------------------------------------*/ 3348 3349 #define GNOTR2(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GNOTR2,gnotr2,FLOATV,FLOATV,FLOATV,INT,INT,INT,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8) 3350 3351 /*------------------------------------------------------------------ 3352 fortran filename : gnotr9.f 3353 ------------------------------------------------------------------*/ 3354 3355 #define GNOTR9(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GNOTR9,gnotr9,FLOATV,FLOATV,FLOATV,INT,INT,INT,INT,A1,A2,A3,A4,A5,A6,A7) 3356 3357 /*------------------------------------------------------------------ 3358 fortran filename : gnotra.f 3359 ------------------------------------------------------------------*/ 3360 3361 #define GNOTRA(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GNOTRA,gnotra,FLOATV,FLOATV,INT,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7) 3362 3363 /*------------------------------------------------------------------ 3364 fortran filename : gnotrp.f 3365 ------------------------------------------------------------------*/ 3366 3367 #define GNOTRP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOTRP,gnotrp,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3368 3369 /*------------------------------------------------------------------ 3370 fortran filename : gnotub.f 3371 ------------------------------------------------------------------*/ 3372 3373 #define GNOTUB(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GNOTUB,gnotub,FLOATV,FLOATV,INT,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7) 3374 3375 /*------------------------------------------------------------------ 3376 fortran filename : gnpara.f 3377 ------------------------------------------------------------------*/ 3378 3379 #define GNPARA(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNPARA,gnpara,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3380 3381 /*------------------------------------------------------------------ 3382 fortran filename : gnpcon.f 3383 ------------------------------------------------------------------*/ 3384 3385 #define GNPCON(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNPCON,gnpcon,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3386 3387 /*------------------------------------------------------------------ 3388 fortran filename : gnpgo1.f 3389 ------------------------------------------------------------------*/ 3390 3391 #define GNPGO1(A1,A2,A3) CCALLSFSUB3(GNPGO1,gnpgo1,FLOATV,FLOATV,PFLOAT,A1,A2,A3) 3392 3393 /*------------------------------------------------------------------ 3394 fortran filename : gnpgon.f 3395 ------------------------------------------------------------------*/ 3396 3397 #define GNPGON(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNPGON,gnpgon,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3398 3399 /*------------------------------------------------------------------ 3400 fortran filename : gnslwd.f 3401 ------------------------------------------------------------------*/ 3402 3403 #define GNSLWD(A1,A2,A3,A4) CCALLSFSUB4(GNSLWD,gnslwd,PINT,INT,INT,FLOAT,A1,A2,A3,A4) 3404 3405 /*------------------------------------------------------------------ 3406 fortran filename : gnsphr.f 3407 ------------------------------------------------------------------*/ 3408 3409 #define GNSPHR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNSPHR,gnsphr,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3410 3411 /*------------------------------------------------------------------ 3412 fortran filename : gntrap.f 3413 ------------------------------------------------------------------*/ 3414 3415 #define GNTRAP(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GNTRAP,gntrap,FLOATV,FLOATV,INT,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7) 3416 3417 /*------------------------------------------------------------------ 3418 fortran filename : gntrp.f 3419 ------------------------------------------------------------------*/ 3420 3421 #define GNTRP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNTRP,gntrp,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3422 3423 /*------------------------------------------------------------------ 3424 fortran filename : gntube.f 3425 ------------------------------------------------------------------*/ 3426 3427 #define GNTUBE(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GNTUBE,gntube,FLOATV,FLOATV,INT,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7) 3428 3429 /*------------------------------------------------------------------ 3430 fortran filename : gopen.f 3431 ------------------------------------------------------------------*/ 3432 /* 3433 #define gopen_ELEMS_2 ZTRINGV_NUM(1) 3434 #define gopen_ELEMLEN_2 ZTRINGV_NUM(255) 3435 */ 3436 3437 #define GOPEN(A1,A2,A3,A4) CCALLSFSUB4(GOPEN,gopen,INT,STRING,INT,PINT,A1,A2,A3,A4) 3438 3439 /*------------------------------------------------------------------ 3440 fortran filename : goptim.f 3441 ------------------------------------------------------------------*/ 3442 3443 #define GOPTIM(A1) CCALLSFSUB1(GOPTIM,goptim,INT,A1) 3444 3445 /*------------------------------------------------------------------ 3446 fortran filename : goscin.f 3447 ------------------------------------------------------------------*/ 3448 3449 PROTOCCALLSFFUN2(FLOAT,GOSCIN,goscin,FLOAT,FLOAT) 3450 #define GOSCIN(A2,A3) CCALLSFFUN2(GOSCIN,goscin,FLOAT,FLOAT,A2,A3) 3451 3452 /*------------------------------------------------------------------ 3453 fortran filename : gpairg.f 3454 ------------------------------------------------------------------*/ 3455 /*------------------------------------------------------------------ 3456 fortran filename : gpairm.f 3457 ------------------------------------------------------------------*/ 3458 3459 #define GPAIRM() CCALLSFSUB0(GPAIRM,gpairm) 3460 3461 /*------------------------------------------------------------------ 3462 fortran filename : gpart.f 3463 ------------------------------------------------------------------*/ 3464 3465 #define GPART() CCALLSFSUB0(GPART,gpart) 3466 3467 /*------------------------------------------------------------------ 3468 fortran filename : gpaset.f 3469 ------------------------------------------------------------------*/ 3470 3471 #define GPASET(A1) CCALLSFSUB1(GPASET,gpaset,FLOATV,A1) 3472 3473 /*------------------------------------------------------------------ 3474 fortran filename : gpaw.f 3475 ------------------------------------------------------------------*/ 3476 3477 #define GPAW(A1,A2) CCALLSFSUB2(GPAW,gpaw,INT,INT,A1,A2) 3478 3479 /*------------------------------------------------------------------ 3480 fortran filename : gpawpp.f 3481 ------------------------------------------------------------------*/ 3482 3483 #define GPAWPP(A1,A2) CCALLSFSUB2(GPAWPP,gpawpp,INT,INT,A1,A2) 3484 3485 /*------------------------------------------------------------------ 3486 fortran filename : gpcset.f 3487 ------------------------------------------------------------------*/ 3488 3489 #define GPCSET(A1) CCALLSFSUB1(GPCSET,gpcset,FLOATV,A1) 3490 3491 /*------------------------------------------------------------------ 3492 fortran filename : gpcxyz.f 3493 ------------------------------------------------------------------*/ 3494 3495 #define GPCXYZ() CCALLSFSUB0(GPCXYZ,gpcxyz) 3496 3497 /*------------------------------------------------------------------ 3498 fortran filename : gpdigi.f 3499 ------------------------------------------------------------------*/ 3500 /* 3501 #define gpdigi_ELEMS_1 ZTRINGV_NUM(1) 3502 #define gpdigi_ELEMLEN_1 ZTRINGV_NUM(4) 3503 #define gpdigi_ELEMS_2 ZTRINGV_NUM(1) 3504 #define gpdigi_ELEMLEN_2 ZTRINGV_NUM(4) 3505 */ 3506 3507 #define GPDIGI(A1,A2) CCALLSFSUB2(GPDIGI,gpdigi,STRING,STRING,A1,A2) 3508 3509 /*------------------------------------------------------------------ 3510 fortran filename : gpdk.f 3511 ------------------------------------------------------------------*/ 3512 3513 PROTOCCALLSFFUN3(FLOAT,GPDK,gpdk,FLOAT,FLOAT,FLOAT) 3514 #define GPDK(A2,A3,A4) CCALLSFFUN3(GPDK,gpdk,FLOAT,FLOAT,FLOAT,A2,A3,A4) 3515 3516 /*------------------------------------------------------------------ 3517 fortran filename : gpdrif.f 3518 ------------------------------------------------------------------*/ 3519 3520 #define GPDRIF(A1,A2,A3) CCALLSFSUB3(GPDRIF,gpdrif,FLOATV,FLOATV,PINT,A1,A2,A3) 3521 3522 /*------------------------------------------------------------------ 3523 fortran filename : gpfis.f 3524 ------------------------------------------------------------------*/ 3525 3526 #define GPFIS() CCALLSFSUB0(GPFIS,gpfis) 3527 3528 /*------------------------------------------------------------------ 3529 fortran filename : gpfisi.f 3530 ------------------------------------------------------------------*/ 3531 3532 #define GPFISI() CCALLSFSUB0(GPFISI,gpfisi) 3533 3534 /*------------------------------------------------------------------ 3535 fortran filename : gpghei.f 3536 ------------------------------------------------------------------*/ 3537 3538 #define GPGHEI() CCALLSFSUB0(GPGHEI,gpghei) 3539 3540 /*------------------------------------------------------------------ 3541 fortran filename : gpgkin.f 3542 ------------------------------------------------------------------*/ 3543 3544 #define GPGKIN() CCALLSFSUB0(GPGKIN,gpgkin) 3545 3546 /*------------------------------------------------------------------ 3547 fortran filename : gpgset.f 3548 ------------------------------------------------------------------*/ 3549 3550 #define GPGSET(A1) CCALLSFSUB1(GPGSET,gpgset,FLOATV,A1) 3551 3552 /*------------------------------------------------------------------ 3553 fortran filename : gphak.f 3554 ------------------------------------------------------------------*/ 3555 3556 PROTOCCALLSFFUN1(FLOAT,GPHAK,gphak,FLOAT) 3557 #define GPHAK(A2) CCALLSFFUN1(GPHAK,gphak,FLOAT,A2) 3558 3559 /*------------------------------------------------------------------ 3560 fortran filename : gphal2.f 3561 ------------------------------------------------------------------*/ 3562 3563 PROTOCCALLSFFUN1(FLOAT,GPHAL2,gphal2,FLOAT) 3564 #define GPHAL2(A2) CCALLSFFUN1(GPHAL2,gphal2,FLOAT,A2) 3565 3566 /*------------------------------------------------------------------ 3567 fortran filename : gphal3.f 3568 ------------------------------------------------------------------*/ 3569 3570 PROTOCCALLSFFUN1(FLOAT,GPHAL3,gphal3,FLOAT) 3571 #define GPHAL3(A2) CCALLSFFUN1(GPHAL3,gphal3,FLOAT,A2) 3572 3573 /*------------------------------------------------------------------ 3574 fortran filename : gphead.f 3575 ------------------------------------------------------------------*/ 3576 3577 #define GPHEAD() CCALLSFSUB0(GPHEAD,gphead) 3578 3579 /*------------------------------------------------------------------ 3580 fortran filename : gphini.f 3581 ------------------------------------------------------------------*/ 3582 3583 #define GPHINI() CCALLSFSUB0(GPHINI,gphini) 3584 3585 /*------------------------------------------------------------------ 3586 fortran filename : gphits.f 3587 ------------------------------------------------------------------*/ 3588 /* 3589 #define gphits_ELEMS_1 ZTRINGV_NUM(1) 3590 #define gphits_ELEMLEN_1 ZTRINGV_NUM(4) 3591 #define gphits_ELEMS_2 ZTRINGV_NUM(1) 3592 #define gphits_ELEMLEN_2 ZTRINGV_NUM(4) 3593 */ 3594 3595 #define GPHITS(A1,A2) CCALLSFSUB2(GPHITS,gphits,STRING,STRING,A1,A2) 3596 3597 /*------------------------------------------------------------------ 3598 fortran filename : gphmfi.f 3599 ------------------------------------------------------------------*/ 3600 3601 #define GPHMFI() CCALLSFSUB0(GPHMFI,gphmfi) 3602 3603 /*------------------------------------------------------------------ 3604 fortran filename : gphot.f 3605 ------------------------------------------------------------------*/ 3606 3607 #define GPHOT() CCALLSFSUB0(GPHOT,gphot) 3608 3609 /*------------------------------------------------------------------ 3610 fortran filename : gphoti.f 3611 ------------------------------------------------------------------*/ 3612 3613 #define GPHOTI() CCALLSFSUB0(GPHOTI,gphoti) 3614 3615 /*------------------------------------------------------------------ 3616 fortran filename : gphrin.f 3617 ------------------------------------------------------------------*/ 3618 3619 #define GPHRIN() CCALLSFSUB0(GPHRIN,gphrin) 3620 3621 /*------------------------------------------------------------------ 3622 fortran filename : gphsg1.f 3623 ------------------------------------------------------------------*/ 3624 3625 PROTOCCALLSFFUN1(FLOAT,GPHSG1,gphsg1,FLOAT) 3626 #define GPHSG1(A2) CCALLSFFUN1(GPHSG1,gphsg1,FLOAT,A2) 3627 3628 /*------------------------------------------------------------------ 3629 fortran filename : gphsg2.f 3630 ------------------------------------------------------------------*/ 3631 3632 PROTOCCALLSFFUN1(FLOAT,GPHSG2,gphsg2,FLOAT) 3633 #define GPHSG2(A2) CCALLSFFUN1(GPHSG2,gphsg2,FLOAT,A2) 3634 3635 /*------------------------------------------------------------------ 3636 fortran filename : gphsgp.f 3637 ------------------------------------------------------------------*/ 3638 3639 PROTOCCALLSFFUN2(FLOAT,GPHSGP,gphsgp,INT,FLOAT) 3640 #define GPHSGP(A2,A3) CCALLSFFUN2(GPHSGP,gphsgp,INT,FLOAT,A2,A3) 3641 3642 /*------------------------------------------------------------------ 3643 fortran filename : gphsig.f 3644 ------------------------------------------------------------------*/ 3645 3646 PROTOCCALLSFFUN2(FLOAT,GPHSIG,gphsig,FLOAT,FLOAT) 3647 #define GPHSIG(A2,A3) CCALLSFFUN2(GPHSIG,gphsig,FLOAT,FLOAT,A2,A3) 3648 3649 /*------------------------------------------------------------------ 3650 fortran filename : gphxin.f 3651 ------------------------------------------------------------------*/ 3652 3653 #define GPHXIN() CCALLSFSUB0(GPHXIN,gphxin) 3654 3655 /*------------------------------------------------------------------ 3656 fortran filename : gphxsi.f 3657 ------------------------------------------------------------------*/ 3658 3659 #define GPHXSI() CCALLSFSUB0(GPHXSI,gphxsi) 3660 3661 /*------------------------------------------------------------------ 3662 fortran filename : gphysi.f 3663 ------------------------------------------------------------------*/ 3664 3665 #define GPHYSI() CCALLSFSUB0(GPHYSI,gphysi) 3666 3667 /*------------------------------------------------------------------ 3668 fortran filename : gpions.f 3669 ------------------------------------------------------------------*/ 3670 3671 #define GPIONS() CCALLSFSUB0(GPIONS,gpions) 3672 3673 /*------------------------------------------------------------------ 3674 fortran filename : gpjxyz.f 3675 ------------------------------------------------------------------*/ 3676 3677 #define GPJXYZ(A1) CCALLSFSUB1(GPJXYZ,gpjxyz,INT,A1) 3678 3679 /*------------------------------------------------------------------ 3680 fortran filename : gpkine.f 3681 ------------------------------------------------------------------*/ 3682 3683 #define GPKINE(A1) CCALLSFSUB1(GPKINE,gpkine,INT,A1) 3684 3685 /*------------------------------------------------------------------ 3686 fortran filename : gpkinx.f 3687 ------------------------------------------------------------------*/ 3688 3689 #define GPKINX(A1) CCALLSFSUB1(GPKINX,gpkinx,INT,A1) 3690 3691 /*------------------------------------------------------------------ 3692 fortran filename : gplmat.f 3693 ------------------------------------------------------------------*/ 3694 /* 3695 #define gplmat_ELEMS_3 ZTRINGV_NUM(1) 3696 #define gplmat_ELEMLEN_3 ZTRINGV_NUM(255) 3697 */ 3698 3699 #define GPLMAT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GPLMAT,gplmat,INT,INT,STRING,INT,FLOATV,INT,A1,A2,A3,A4,A5,A6) 3700 3701 /*------------------------------------------------------------------ 3702 fortran filename : gpmate.f 3703 ------------------------------------------------------------------*/ 3704 3705 #define GPMATE(A1) CCALLSFSUB1(GPMATE,gpmate,INT,A1) 3706 3707 /*------------------------------------------------------------------ 3708 fortran filename : gpmatx.f 3709 ------------------------------------------------------------------*/ 3710 3711 #define GPMATX(A1) CCALLSFSUB1(GPMATX,gpmatx,INT,A1) 3712 3713 /*------------------------------------------------------------------ 3714 fortran filename : gpmwpc.f 3715 ------------------------------------------------------------------*/ 3716 3717 #define GPMWPC(A1,A2,A3) CCALLSFSUB3(GPMWPC,gpmwpc,FLOATV,FLOATV,PINT,A1,A2,A3) 3718 3719 /*------------------------------------------------------------------ 3720 fortran filename : gpoiss.f 3721 ------------------------------------------------------------------*/ 3722 3723 #define GPOISS(A1,A2,A3) CCALLSFSUB3(GPOISS,gpoiss,FLOATV,PINT,INT,A1,A2,A3) 3724 3725 /*------------------------------------------------------------------ 3726 fortran filename : gposi.f 3727 ------------------------------------------------------------------*/ 3728 /* 3729 #define gposi_ELEMS_3 ZTRINGV_NUM(1) 3730 #define gposi_ELEMLEN_3 ZTRINGV_NUM(10) 3731 */ 3732 3733 #define GPOSI(A1,A2,A3,A4) CCALLSFSUB4(GPOSI,gposi,FLOATV,FLOATV,STRING,INT,A1,A2,A3,A4) 3734 3735 /*------------------------------------------------------------------ 3736 fortran filename : gppart.f 3737 ------------------------------------------------------------------*/ 3738 3739 #define GPPART(A1) CCALLSFSUB1(GPPART,gppart,INT,A1) 3740 3741 /*------------------------------------------------------------------ 3742 fortran filename : gpparx.f 3743 ------------------------------------------------------------------*/ 3744 3745 #define GPPARX(A1) CCALLSFSUB1(GPPARX,gpparx,INT,A1) 3746 3747 /*------------------------------------------------------------------ 3748 fortran filename : gprela.f 3749 ------------------------------------------------------------------*/ 3750 3751 #define GPRELA() CCALLSFSUB0(GPRELA,gprela) 3752 3753 /*------------------------------------------------------------------ 3754 fortran filename : gprelm.f 3755 ------------------------------------------------------------------*/ 3756 3757 PROTOCCALLSFFUN3(FLOAT,GPRELM,gprelm,FLOAT,FLOAT,FLOAT) 3758 #define GPRELM(A2,A3,A4) CCALLSFFUN3(GPRELM,gprelm,FLOAT,FLOAT,FLOAT,A2,A3,A4) 3759 3760 /*------------------------------------------------------------------ 3761 fortran filename : gprint.f 3762 ------------------------------------------------------------------*/ 3763 /* 3764 #define gprint_ELEMS_1 ZTRINGV_NUM(1) 3765 #define gprint_ELEMLEN_1 ZTRINGV_NUM(255) 3766 */ 3767 3768 #define GPRINT(A1,A2) CCALLSFSUB2(GPRINT,gprint,STRING,INT,A1,A2) 3769 3770 /*------------------------------------------------------------------ 3771 fortran filename : gprmat.f 3772 ------------------------------------------------------------------*/ 3773 /* 3774 #define gprmat_ELEMS_3 ZTRINGV_NUM(1) 3775 #define gprmat_ELEMLEN_3 ZTRINGV_NUM(255) 3776 */ 3777 3778 #define GPRMAT(A1,A2,A3,A4,A5) CCALLSFSUB5(GPRMAT,gprmat,INT,INT,STRING,INT,FLOATV,A1,A2,A3,A4,A5) 3779 3780 /*------------------------------------------------------------------ 3781 fortran filename : gprobi.f 3782 ------------------------------------------------------------------*/ 3783 3784 #define GPROBI() CCALLSFSUB0(GPROBI,gprobi) 3785 3786 /*------------------------------------------------------------------ 3787 fortran filename : gprotm.f 3788 ------------------------------------------------------------------*/ 3789 3790 #define GPROTM(A1) CCALLSFSUB1(GPROTM,gprotm,INT,A1) 3791 3792 /*------------------------------------------------------------------ 3793 fortran filename : gprotx.f 3794 ------------------------------------------------------------------*/ 3795 3796 #define GPROTX(A1) CCALLSFSUB1(GPROTX,gprotx,INT,A1) 3797 3798 /*------------------------------------------------------------------ 3799 fortran filename : gprsga.f 3800 ------------------------------------------------------------------*/ 3801 3802 #define GPRSGA() CCALLSFSUB0(GPRSGA,gprsga) 3803 3804 /*------------------------------------------------------------------ 3805 fortran filename : gprsgg.f 3806 ------------------------------------------------------------------*/ 3807 3808 PROTOCCALLSFFUN2(FLOAT,GPRSGG,gprsgg,FLOAT,FLOAT) 3809 #define GPRSGG(A2,A3) CCALLSFFUN2(GPRSGG,gprsgg,FLOAT,FLOAT,A2,A3) 3810 3811 /*------------------------------------------------------------------ 3812 fortran filename : gprsgm.f 3813 ------------------------------------------------------------------*/ 3814 3815 PROTOCCALLSFFUN3(FLOAT,GPRSGM,gprsgm,FLOAT,FLOAT,FLOAT) 3816 #define GPRSGM(A2,A3,A4) CCALLSFFUN3(GPRSGM,gprsgm,FLOAT,FLOAT,FLOAT,A2,A3,A4) 3817 3818 /*------------------------------------------------------------------ 3819 fortran filename : gprung.f 3820 ------------------------------------------------------------------*/ 3821 3822 #define GPRUNG() CCALLSFSUB0(GPRUNG,gprung) 3823 3824 /*------------------------------------------------------------------ 3825 fortran filename : gpscin.f 3826 ------------------------------------------------------------------*/ 3827 3828 PROTOCCALLSFFUN4(DOUBLE,GPSCIN,gpscin,DOUBLE,DOUBLE,DOUBLE,FLOATV) 3829 #define GPSCIN(A2,A3,A4,A5) CCALLSFFUN4(GPSCIN,gpscin,DOUBLE,DOUBLE,DOUBLE,FLOATV,A2,A3,A4,A5) 3830 3831 /*------------------------------------------------------------------ 3832 fortran filename : gpsets.f 3833 ------------------------------------------------------------------*/ 3834 /* 3835 #define gpsets_ELEMS_1 ZTRINGV_NUM(1) 3836 #define gpsets_ELEMLEN_1 ZTRINGV_NUM(4) 3837 #define gpsets_ELEMS_2 ZTRINGV_NUM(1) 3838 #define gpsets_ELEMLEN_2 ZTRINGV_NUM(4) 3839 */ 3840 3841 #define GPSETS(A1,A2) CCALLSFSUB2(GPSETS,gpsets,STRING,STRING,A1,A2) 3842 3843 /*------------------------------------------------------------------ 3844 fortran filename : gpstat.f 3845 ------------------------------------------------------------------*/ 3846 3847 #define GPSTAT() CCALLSFSUB0(GPSTAT,gpstat) 3848 3849 /*------------------------------------------------------------------ 3850 fortran filename : gptmed.f 3851 ------------------------------------------------------------------*/ 3852 3853 #define GPTMED(A1) CCALLSFSUB1(GPTMED,gptmed,INT,A1) 3854 3855 /*------------------------------------------------------------------ 3856 fortran filename : gptmex.f 3857 ------------------------------------------------------------------*/ 3858 3859 #define GPTMEX(A1) CCALLSFSUB1(GPTMEX,gptmex,INT,A1) 3860 3861 /*------------------------------------------------------------------ 3862 fortran filename : gptset.f 3863 ------------------------------------------------------------------*/ 3864 3865 #define GPTSET(A1,A2) CCALLSFSUB2(GPTSET,gptset,INT,INT,A1,A2) 3866 3867 /*------------------------------------------------------------------ 3868 fortran filename : gpvert.f 3869 ------------------------------------------------------------------*/ 3870 3871 #define GPVERT(A1) CCALLSFSUB1(GPVERT,gpvert,INT,A1) 3872 3873 /*------------------------------------------------------------------ 3874 fortran filename : gpvolu.f 3875 ------------------------------------------------------------------*/ 3876 3877 #define GPVOLU(A1) CCALLSFSUB1(GPVOLU,gpvolu,INT,A1) 3878 3879 /*------------------------------------------------------------------ 3880 fortran filename : gpvolx.f 3881 ------------------------------------------------------------------*/ 3882 3883 #define GPVOLX(A1) CCALLSFSUB1(GPVOLX,gpvolx,INT,A1) 3884 3885 /*------------------------------------------------------------------ 3886 fortran filename : grangi.f 3887 ------------------------------------------------------------------*/ 3888 3889 #define GRANGI() CCALLSFSUB0(GRANGI,grangi) 3890 3891 /*------------------------------------------------------------------ 3892 fortran filename : granor.f 3893 ------------------------------------------------------------------*/ 3894 3895 #define GRANOR(A1,A2) CCALLSFSUB2(GRANOR,granor,PFLOAT,PFLOAT,A1,A2) 3896 3897 /*------------------------------------------------------------------ 3898 fortran filename : grayl.f 3899 ------------------------------------------------------------------*/ 3900 3901 #define GRAYL() CCALLSFSUB0(GRAYL,grayl) 3902 3903 /*------------------------------------------------------------------ 3904 fortran filename : grayli.f 3905 ------------------------------------------------------------------*/ 3906 3907 #define GRAYLI() CCALLSFSUB0(GRAYLI,grayli) 3908 3909 /*------------------------------------------------------------------ 3910 fortran filename : grend.f 3911 ------------------------------------------------------------------*/ 3912 3913 #define GREND(A1) CCALLSFSUB1(GREND,grend,INT,A1) 3914 3915 /*------------------------------------------------------------------ 3916 fortran filename : greswk.f 3917 ------------------------------------------------------------------*/ 3918 3919 #define GRESWK() CCALLSFSUB0(GRESWK,greswk) 3920 3921 /*------------------------------------------------------------------ 3922 fortran filename : greucl.f 3923 ------------------------------------------------------------------*/ 3924 /* 3925 #define greucl_ELEMS_2 ZTRINGV_NUM(1) 3926 #define greucl_ELEMLEN_2 ZTRINGV_NUM(255) 3927 */ 3928 3929 #define GREUCL(A1,A2) CCALLSFSUB2(GREUCL,greucl,INT,STRING,A1,A2) 3930 3931 /*------------------------------------------------------------------ 3932 fortran filename : grfile.f 3933 ------------------------------------------------------------------*/ 3934 /* 3935 #define grfile_ELEMS_2 ZTRINGV_NUM(1) 3936 #define grfile_ELEMLEN_2 ZTRINGV_NUM(255) 3937 #define grfile_ELEMS_3 ZTRINGV_NUM(1) 3938 #define grfile_ELEMLEN_3 ZTRINGV_NUM(255) 3939 */ 3940 3941 #define GRFILE(A1,A2,A3) CCALLSFSUB3(GRFILE,grfile,INT,STRING,STRING,A1,A2,A3) 3942 3943 /*------------------------------------------------------------------ 3944 fortran filename : grget.f 3945 ------------------------------------------------------------------*/ 3946 /* 3947 #define grget_ELEMS_1 ZTRINGV_NUM(1) 3948 #define grget_ELEMLEN_1 ZTRINGV_NUM(4) 3949 */ 3950 3951 #define GRGET(A1,A2,A3,A4,A5) CCALLSFSUB5(GRGET,grget,STRINGV,INT,INT,INT,INT,A1,A2,A3,A4,A5) 3952 3953 /*------------------------------------------------------------------ 3954 fortran filename : grhits.f 3955 ------------------------------------------------------------------*/ 3956 /* 3957 #define grhits_ELEMS_1 ZTRINGV_NUM(1) 3958 #define grhits_ELEMLEN_1 ZTRINGV_NUM(255) 3959 #define grhits_ELEMS_2 ZTRINGV_NUM(1) 3960 #define grhits_ELEMLEN_2 ZTRINGV_NUM(255) 3961 */ 3962 3963 #define GRHITS(A1,A2,A3,A4) CCALLSFSUB4(GRHITS,grhits,STRING,STRING,INT,INTV,A1,A2,A3,A4) 3964 3965 /*------------------------------------------------------------------ 3966 fortran filename : grin.f 3967 ------------------------------------------------------------------*/ 3968 /* 3969 #define grin_ELEMS_1 ZTRINGV_NUM(1) 3970 #define grin_ELEMLEN_1 ZTRINGV_NUM(255) 3971 #define grin_ELEMS_3 ZTRINGV_NUM(1) 3972 #define grin_ELEMLEN_3 ZTRINGV_NUM(255) 3973 */ 3974 3975 #define GRIN(A1,A2,A3) CCALLSFSUB3(GRIN,grin,STRING,INT,STRING,A1,A2,A3) 3976 3977 /*------------------------------------------------------------------ 3978 fortran filename : grkuta.f 3979 ------------------------------------------------------------------*/ 3980 3981 #define GRKUTA(A1,A2,A3,A4) CCALLSFSUB4(GRKUTA,grkuta,FLOAT,FLOAT,FLOATV,PFLOAT,A1,A2,A3,A4) 3982 3983 /*------------------------------------------------------------------ 3984 fortran filename : grleas.f 3985 ------------------------------------------------------------------*/ 3986 3987 #define GRLEAS(A1) CCALLSFSUB1(GRLEAS,grleas,INT,A1) 3988 3989 /*------------------------------------------------------------------ 3990 fortran filename : grmdir.f 3991 ------------------------------------------------------------------*/ 3992 /* 3993 #define grmdir_ELEMS_1 ZTRINGV_NUM(1) 3994 #define grmdir_ELEMLEN_1 ZTRINGV_NUM(255) 3995 #define grmdir_ELEMS_2 ZTRINGV_NUM(1) 3996 #define grmdir_ELEMLEN_2 ZTRINGV_NUM(255) 3997 */ 3998 3999 #define GRMDIR(A1,A2) CCALLSFSUB2(GRMDIR,grmdir,STRING,STRING,A1,A2) 4000 4001 /*------------------------------------------------------------------ 4002 fortran filename : grmtd.f 4003 ------------------------------------------------------------------*/ 4004 4005 #define GRMTD(A1,A2,A3) CCALLSFSUB3(GRMTD,grmtd,FLOATV,INT,PFLOAT,A1,A2,A3) 4006 4007 /*------------------------------------------------------------------ 4008 fortran filename : grmul.f 4009 ------------------------------------------------------------------*/ 4010 4011 #define GRMUL(A1,A2,A3) CCALLSFSUB3(GRMUL,grmul,FLOATV,INT,PFLOAT,A1,A2,A3) 4012 4013 /*------------------------------------------------------------------ 4014 fortran filename : grndm.f 4015 ------------------------------------------------------------------*/ 4016 4017 #define GRNDM(A1,A2) CCALLSFSUB2(GRNDM,grndm,PFLOAT,INT,A1,A2) 4018 4019 /*------------------------------------------------------------------ 4020 fortran filename : grndmq.f 4021 ------------------------------------------------------------------*/ 4022 /* 4023 #define grndmq_ELEMS_4 ZTRINGV_NUM(1) 4024 #define grndmq_ELEMLEN_4 ZTRINGV_NUM(255) 4025 */ 4026 4027 #define GRNDMQ(A1,A2,A3,A4) CCALLSFSUB4(GRNDMQ,grndmq,PINT,PINT,INT,STRING,A1,A2,A3,A4) 4028 4029 /*------------------------------------------------------------------ 4030 fortran filename : grndst.f 4031 ------------------------------------------------------------------*/ 4032 4033 #define GRNDST(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(GRNDST,grndst,FLOATV,INTV,INT,INT,FLOAT,PFLOAT,FLOAT,PFLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) 4034 4035 /*------------------------------------------------------------------ 4036 fortran filename : grot.f 4037 ------------------------------------------------------------------*/ 4038 4039 #define GROT(A1,A2,A3) CCALLSFSUB3(GROT,grot,FLOATV,FLOATV,PFLOAT,A1,A2,A3) 4040 4041 /*------------------------------------------------------------------ 4042 fortran filename : grout.f 4043 ------------------------------------------------------------------*/ 4044 /* 4045 #define grout_ELEMS_1 ZTRINGV_NUM(1) 4046 #define grout_ELEMLEN_1 ZTRINGV_NUM(255) 4047 #define grout_ELEMS_3 ZTRINGV_NUM(1) 4048 #define grout_ELEMLEN_3 ZTRINGV_NUM(255) 4049 */ 4050 4051 #define GROUT(A1,A2,A3) CCALLSFSUB3(GROUT,grout,STRING,INT,STRING,A1,A2,A3) 4052 4053 /*------------------------------------------------------------------ 4054 fortran filename : grpar.f 4055 ------------------------------------------------------------------*/ 4056 4057 #define GRPAR(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GRPAR,grpar,FLOAT,INT,FLOATV,INT,FLOAT,FLOAT,INT,FLOATV,PINT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) 4058 4059 /*------------------------------------------------------------------ 4060 fortran filename : grsave.f 4061 ------------------------------------------------------------------*/ 4062 /* 4063 #define grsave_ELEMS_1 ZTRINGV_NUM(1) 4064 #define grsave_ELEMLEN_1 ZTRINGV_NUM(4) 4065 */ 4066 4067 #define GRSAVE(A1,A2,A3,A4,A5) CCALLSFSUB5(GRSAVE,grsave,STRINGV,INT,INT,INT,INT,A1,A2,A3,A4,A5) 4068 4069 /*------------------------------------------------------------------ 4070 fortran filename : grun.f 4071 ------------------------------------------------------------------*/ 4072 4073 #define GRUN() CCALLSFSUB0(GRUN,grun) 4074 4075 /*------------------------------------------------------------------ 4076 fortran filename : gsagtr.f 4077 ------------------------------------------------------------------*/ 4078 4079 #define GSAGTR(A1,A2,A3,A4) CCALLSFSUB4(GSAGTR,gsagtr,FLOATV,FLOATV,PFLOAT,INT,A1,A2,A3,A4) 4080 4081 /*------------------------------------------------------------------ 4082 fortran filename : gsahit.f 4083 ------------------------------------------------------------------*/ 4084 4085 #define GSAHIT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSAHIT,gsahit,INT,INT,INT,INTV,FLOATV,PINT,A1,A2,A3,A4,A5,A6) 4086 4087 /*------------------------------------------------------------------ 4088 fortran filename : gsaphi.f 4089 ------------------------------------------------------------------*/ 4090 4091 #define GSAPHI(A1,A2,A3,A4) CCALLSFSUB4(GSAPHI,gsaphi,FLOATV,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4) 4092 4093 /*------------------------------------------------------------------ 4094 fortran filename : gsatt.f 4095 ------------------------------------------------------------------*/ 4096 /* 4097 #define gsatt_ELEMS_1 ZTRINGV_NUM(1) 4098 #define gsatt_ELEMLEN_1 ZTRINGV_NUM(4) 4099 #define gsatt_ELEMS_2 ZTRINGV_NUM(1) 4100 #define gsatt_ELEMLEN_2 ZTRINGV_NUM(4) 4101 */ 4102 4103 #define GSATT(A1,A2,A3) CCALLSFSUB3(GSATT,gsatt,STRING,STRING,INT,A1,A2,A3) 4104 4105 /*------------------------------------------------------------------ 4106 fortran filename : gsave.f 4107 ------------------------------------------------------------------*/ 4108 /* 4109 #define gsave_ELEMS_2 ZTRINGV_NUM(1) 4110 #define gsave_ELEMLEN_2 ZTRINGV_NUM(4) 4111 */ 4112 4113 #define GSAVE(A1,A2,A3,A4,A5) CCALLSFSUB5(GSAVE,gsave,INT,STRINGV,INT,INT,PINT,A1,A2,A3,A4,A5) 4114 4115 /*------------------------------------------------------------------ 4116 fortran filename : gscani.f 4117 ------------------------------------------------------------------*/ 4118 4119 #define GSCANI() CCALLSFSUB0(GSCANI,gscani) 4120 4121 /*------------------------------------------------------------------ 4122 fortran filename : gscank.f 4123 ------------------------------------------------------------------*/ 4124 4125 #define GSCANK() CCALLSFSUB0(GSCANK,gscank) 4126 4127 /*------------------------------------------------------------------ 4128 fortran filename : gscano.f 4129 ------------------------------------------------------------------*/ 4130 4131 #define GSCANO() CCALLSFSUB0(GSCANO,gscano) 4132 4133 /*------------------------------------------------------------------ 4134 fortran filename : gscanu.f 4135 ------------------------------------------------------------------*/ 4136 4137 #define GSCANU() CCALLSFSUB0(GSCANU,gscanu) 4138 4139 /*------------------------------------------------------------------ 4140 fortran filename : gschit.f 4141 ------------------------------------------------------------------*/ 4142 4143 #define GSCHIT(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GSCHIT,gschit,INT,INT,INT,INTV,FLOATV,INT,PINT,A1,A2,A3,A4,A5,A6,A7) 4144 4145 /*------------------------------------------------------------------ 4146 fortran filename : gschk.f 4147 ------------------------------------------------------------------*/ 4148 /* 4149 #define gschk_ELEMS_1 ZTRINGV_NUM(1) 4150 #define gschk_ELEMLEN_1 ZTRINGV_NUM(4) 4151 #define gschk_ELEMS_2 ZTRINGV_NUM(1) 4152 #define gschk_ELEMLEN_2 ZTRINGV_NUM(4) 4153 */ 4154 4155 #define GSCHK(A1,A2,A3,A4) CCALLSFSUB4(GSCHK,gschk,STRING,STRING,INT,PINT,A1,A2,A3,A4) 4156 4157 /*------------------------------------------------------------------ 4158 fortran filename : gsckov.f 4159 ------------------------------------------------------------------*/ 4160 4161 #define GSCKOV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSCKOV,gsckov,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6) 4162 4163 /*------------------------------------------------------------------ 4164 fortran filename : gscvol.f 4165 ------------------------------------------------------------------*/ 4166 4167 #define GSCVOL() CCALLSFSUB0(GSCVOL,gscvol) 4168 4169 /*------------------------------------------------------------------ 4170 fortran filename : gsdet.f 4171 ------------------------------------------------------------------*/ 4172 /* 4173 #define gsdet_ELEMS_1 ZTRINGV_NUM(1) 4174 #define gsdet_ELEMLEN_1 ZTRINGV_NUM(4) 4175 #define gsdet_ELEMS_2 ZTRINGV_NUM(1) 4176 #define gsdet_ELEMLEN_2 ZTRINGV_NUM(4) 4177 #define gsdet_ELEMS_4 ZTRINGV_NUM(1) 4178 #define gsdet_ELEMLEN_4 ZTRINGV_NUM(4) 4179 */ 4180 4181 #define GSDET(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GSDET,gsdet,STRING,STRING,INT,STRING,INTV,INT,INT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) 4182 4183 /*------------------------------------------------------------------ 4184 fortran filename : gsdeta.f 4185 ------------------------------------------------------------------*/ 4186 /* 4187 #define gsdeta_ELEMS_1 ZTRINGV_NUM(1) 4188 #define gsdeta_ELEMLEN_1 ZTRINGV_NUM(4) 4189 #define gsdeta_ELEMS_2 ZTRINGV_NUM(1) 4190 #define gsdeta_ELEMLEN_2 ZTRINGV_NUM(4) 4191 #define gsdeta_ELEMS_3 ZTRINGV_NUM(1) 4192 #define gsdeta_ELEMLEN_3 ZTRINGV_NUM(4) 4193 */ 4194 4195 #define GSDETA(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSDETA,gsdeta,STRING,STRING,STRING,INT,INT,PINT,A1,A2,A3,A4,A5,A6) 4196 4197 /*------------------------------------------------------------------ 4198 fortran filename : gsdetd.f 4199 ------------------------------------------------------------------*/ 4200 /* 4201 #define gsdetd_ELEMS_1 ZTRINGV_NUM(1) 4202 #define gsdetd_ELEMLEN_1 ZTRINGV_NUM(4) 4203 #define gsdetd_ELEMS_2 ZTRINGV_NUM(1) 4204 #define gsdetd_ELEMLEN_2 ZTRINGV_NUM(4) 4205 #define gsdetd_ELEMS_4 ZTRINGV_NUM(1) 4206 #define gsdetd_ELEMLEN_4 ZTRINGV_NUM(4) 4207 */ 4208 4209 #define GSDETD(A1,A2,A3,A4,A5) CCALLSFSUB5(GSDETD,gsdetd,STRING,STRING,INT,STRINGV,INTV,A1,A2,A3,A4,A5) 4210 4211 /*------------------------------------------------------------------ 4212 fortran filename : gsdeth.f 4213 ------------------------------------------------------------------*/ 4214 /* 4215 #define gsdeth_ELEMS_1 ZTRINGV_NUM(1) 4216 #define gsdeth_ELEMLEN_1 ZTRINGV_NUM(4) 4217 #define gsdeth_ELEMS_2 ZTRINGV_NUM(1) 4218 #define gsdeth_ELEMLEN_2 ZTRINGV_NUM(4) 4219 #define gsdeth_ELEMS_4 ZTRINGV_NUM(1) 4220 #define gsdeth_ELEMLEN_4 ZTRINGV_NUM(4) 4221 */ 4222 4223 #define GSDETH(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GSDETH,gsdeth,STRING,STRING,INT,STRINGV,INTV,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6,A7) 4224 4225 /*------------------------------------------------------------------ 4226 fortran filename : gsdetu.f 4227 ------------------------------------------------------------------*/ 4228 /* 4229 #define gsdetu_ELEMS_1 ZTRINGV_NUM(1) 4230 #define gsdetu_ELEMLEN_1 ZTRINGV_NUM(4) 4231 #define gsdetu_ELEMS_2 ZTRINGV_NUM(1) 4232 #define gsdetu_ELEMLEN_2 ZTRINGV_NUM(4) 4233 */ 4234 4235 #define GSDETU(A1,A2,A3,A4) CCALLSFSUB4(GSDETU,gsdetu,STRING,STRING,INT,FLOATV,A1,A2,A3,A4) 4236 4237 /*------------------------------------------------------------------ 4238 fortran filename : gsdetv.f 4239 ------------------------------------------------------------------*/ 4240 /* 4241 #define gsdetv_ELEMS_1 ZTRINGV_NUM(1) 4242 #define gsdetv_ELEMLEN_1 ZTRINGV_NUM(4) 4243 #define gsdetv_ELEMS_2 ZTRINGV_NUM(1) 4244 #define gsdetv_ELEMLEN_2 ZTRINGV_NUM(4) 4245 */ 4246 4247 #define GSDETV(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GSDETV,gsdetv,STRING,STRING,INT,INT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6,A7) 4248 4249 /*------------------------------------------------------------------ 4250 fortran filename : gsdigi.f 4251 ------------------------------------------------------------------*/ 4252 4253 #define GSDIGI(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GSDIGI,gsdigi,INT,INT,INTV,INT,INTV,INTV,PINT,A1,A2,A3,A4,A5,A6,A7) 4254 4255 /*------------------------------------------------------------------ 4256 fortran filename : gsdk.f 4257 ------------------------------------------------------------------*/ 4258 4259 #define GSDK(A1,A2,A3) CCALLSFSUB3(GSDK,gsdk,INT,FLOATV,INTV,A1,A2,A3) 4260 4261 /*------------------------------------------------------------------ 4262 fortran filename : gsdvn.f 4263 ------------------------------------------------------------------*/ 4264 /* 4265 #define gsdvn_ELEMS_1 ZTRINGV_NUM(1) 4266 #define gsdvn_ELEMLEN_1 ZTRINGV_NUM(4) 4267 #define gsdvn_ELEMS_2 ZTRINGV_NUM(1) 4268 #define gsdvn_ELEMLEN_2 ZTRINGV_NUM(4) 4269 */ 4270 4271 #define GSDVN(A1,A2,A3,A4) CCALLSFSUB4(GSDVN,gsdvn,STRING,STRING,INT,INT,A1,A2,A3,A4) 4272 4273 /*------------------------------------------------------------------ 4274 fortran filename : gsdvn2.f 4275 ------------------------------------------------------------------*/ 4276 /* 4277 #define gsdvn2_ELEMS_1 ZTRINGV_NUM(1) 4278 #define gsdvn2_ELEMLEN_1 ZTRINGV_NUM(4) 4279 #define gsdvn2_ELEMS_2 ZTRINGV_NUM(1) 4280 #define gsdvn2_ELEMLEN_2 ZTRINGV_NUM(4) 4281 */ 4282 4283 #define GSDVN2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSDVN2,gsdvn2,STRING,STRING,INT,INT,FLOAT,INT,A1,A2,A3,A4,A5,A6) 4284 4285 /*------------------------------------------------------------------ 4286 fortran filename : gsdvs.f 4287 ------------------------------------------------------------------*/ 4288 /* 4289 #define gsdvs_ELEMS_1 ZTRINGV_NUM(1) 4290 #define gsdvs_ELEMLEN_1 ZTRINGV_NUM(4) 4291 #define gsdvs_ELEMS_2 ZTRINGV_NUM(1) 4292 #define gsdvs_ELEMLEN_2 ZTRINGV_NUM(4) 4293 */ 4294 4295 #define GSDVS(A1,A2,A3,A4,A5) CCALLSFSUB5(GSDVS,gsdvs,STRING,STRING,FLOAT,INT,INT,A1,A2,A3,A4,A5) 4296 4297 /*------------------------------------------------------------------ 4298 fortran filename : gsdvs2.f 4299 ------------------------------------------------------------------*/ 4300 /* 4301 #define gsdvs2_ELEMS_1 ZTRINGV_NUM(1) 4302 #define gsdvs2_ELEMLEN_1 ZTRINGV_NUM(4) 4303 #define gsdvs2_ELEMS_2 ZTRINGV_NUM(1) 4304 #define gsdvs2_ELEMLEN_2 ZTRINGV_NUM(4) 4305 */ 4306 4307 #define GSDVS2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSDVS2,gsdvs2,STRING,STRING,FLOAT,INT,FLOAT,INT,A1,A2,A3,A4,A5,A6) 4308 4309 /*------------------------------------------------------------------ 4310 fortran filename : gsdvt.f 4311 ------------------------------------------------------------------*/ 4312 /* 4313 #define gsdvt_ELEMS_1 ZTRINGV_NUM(1) 4314 #define gsdvt_ELEMLEN_1 ZTRINGV_NUM(4) 4315 #define gsdvt_ELEMS_2 ZTRINGV_NUM(1) 4316 #define gsdvt_ELEMLEN_2 ZTRINGV_NUM(4) 4317 */ 4318 4319 #define GSDVT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSDVT,gsdvt,STRING,STRING,FLOAT,INT,INT,INT,A1,A2,A3,A4,A5,A6) 4320 4321 /*------------------------------------------------------------------ 4322 fortran filename : gsdvt2.f 4323 ------------------------------------------------------------------*/ 4324 /* 4325 #define gsdvt2_ELEMS_1 ZTRINGV_NUM(1) 4326 #define gsdvt2_ELEMLEN_1 ZTRINGV_NUM(4) 4327 #define gsdvt2_ELEMS_2 ZTRINGV_NUM(1) 4328 #define gsdvt2_ELEMLEN_2 ZTRINGV_NUM(4) 4329 */ 4330 4331 #define GSDVT2(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GSDVT2,gsdvt2,STRING,STRING,FLOAT,INT,PFLOAT,INT,INT,A1,A2,A3,A4,A5,A6,A7) 4332 4333 /*------------------------------------------------------------------ 4334 fortran filename : gsdvx.f 4335 ------------------------------------------------------------------*/ 4336 /* 4337 #define gsdvx_ELEMS_1 ZTRINGV_NUM(1) 4338 #define gsdvx_ELEMLEN_1 ZTRINGV_NUM(4) 4339 #define gsdvx_ELEMS_2 ZTRINGV_NUM(1) 4340 #define gsdvx_ELEMLEN_2 ZTRINGV_NUM(4) 4341 */ 4342 4343 #define GSDVX(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GSDVX,gsdvx,STRING,STRING,INT,INT,FLOAT,FLOAT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8) 4344 4345 /*------------------------------------------------------------------ 4346 fortran filename : gshead.f 4347 ------------------------------------------------------------------*/ 4348 4349 #define GSHEAD(A1,A2,A3) CCALLSFSUB3(GSHEAD,gshead,INT,FLOATV,PINT,A1,A2,A3) 4350 4351 /*------------------------------------------------------------------ 4352 fortran filename : gshlin.f 4353 ------------------------------------------------------------------*/ 4354 4355 #define GSHLIN() CCALLSFSUB0(GSHLIN,gshlin) 4356 4357 /*------------------------------------------------------------------ 4358 fortran filename : gsipar.f 4359 ------------------------------------------------------------------*/ 4360 4361 #define GSIPAR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSIPAR,gsipar,INT,INT,INT,INT,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6) 4362 4363 /*------------------------------------------------------------------ 4364 fortran filename : gskine.f 4365 ------------------------------------------------------------------*/ 4366 4367 #define GSKINE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSKINE,gskine,FLOATV,INT,INT,FLOATV,INT,PINT,A1,A2,A3,A4,A5,A6) 4368 4369 /*------------------------------------------------------------------ 4370 fortran filename : gsking.f 4371 ------------------------------------------------------------------*/ 4372 4373 #define GSKING(A1) CCALLSFSUB1(GSKING,gsking,INT,A1) 4374 4375 /*------------------------------------------------------------------ 4376 fortran filename : gskinu.f 4377 ------------------------------------------------------------------*/ 4378 4379 #define GSKINU(A1,A2,A3,A4) CCALLSFSUB4(GSKINU,gskinu,INT,INT,FLOATV,PINT,A1,A2,A3,A4) 4380 4381 /*------------------------------------------------------------------ 4382 fortran filename : gskpho.f 4383 ------------------------------------------------------------------*/ 4384 4385 #define GSKPHO(A1) CCALLSFSUB1(GSKPHO,gskpho,INT,A1) 4386 4387 /*------------------------------------------------------------------ 4388 fortran filename : gsmate.f 4389 ------------------------------------------------------------------*/ 4390 /* 4391 #define gsmate_ELEMS_2 ZTRINGV_NUM(1) 4392 #define gsmate_ELEMLEN_2 ZTRINGV_NUM(255) 4393 */ 4394 4395 #define GSMATE(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(GSMATE,gsmate,INT,STRING,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOATV,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9) 4396 4397 /*------------------------------------------------------------------ 4398 fortran filename : gsmixt.f 4399 ------------------------------------------------------------------*/ 4400 /* 4401 #define gsmixt_ELEMS_2 ZTRINGV_NUM(1) 4402 #define gsmixt_ELEMLEN_2 ZTRINGV_NUM(255) 4403 */ 4404 4405 #define GSMIXT(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GSMIXT,gsmixt,INT,STRING,FLOATV,FLOATV,FLOAT,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7) 4406 4407 /*------------------------------------------------------------------ 4408 fortran filename : gsnear.f 4409 ------------------------------------------------------------------*/ 4410 /* 4411 #define gsnear_ELEMS_1 ZTRINGV_NUM(1) 4412 #define gsnear_ELEMLEN_1 ZTRINGV_NUM(4) 4413 */ 4414 4415 #define GSNEAR(A1,A2,A3,A4) CCALLSFSUB4(GSNEAR,gsnear,STRING,INT,INT,INTV,A1,A2,A3,A4) 4416 4417 /*------------------------------------------------------------------ 4418 fortran filename : gsnext.f 4419 ------------------------------------------------------------------*/ 4420 /* 4421 #define gsnext_ELEMS_1 ZTRINGV_NUM(1) 4422 #define gsnext_ELEMLEN_1 ZTRINGV_NUM(4) 4423 */ 4424 4425 #define GSNEXT(A1,A2,A3,A4) CCALLSFSUB4(GSNEXT,gsnext,STRING,INT,INT,INTV,A1,A2,A3,A4) 4426 4427 /*------------------------------------------------------------------ 4428 fortran filename : gsngtr.f 4429 ------------------------------------------------------------------*/ 4430 4431 #define GSNGTR(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GSNGTR,gsngtr,FLOATV,FLOATV,INT,FLOAT,PFLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7) 4432 4433 /*------------------------------------------------------------------ 4434 fortran filename : gsord.f 4435 ------------------------------------------------------------------*/ 4436 /* 4437 #define gsord_ELEMS_1 ZTRINGV_NUM(1) 4438 #define gsord_ELEMLEN_1 ZTRINGV_NUM(4) 4439 */ 4440 4441 #define GSORD(A1,A2) CCALLSFSUB2(GSORD,gsord,STRING,INT,A1,A2) 4442 4443 /*------------------------------------------------------------------ 4444 fortran filename : gspart.f 4445 ------------------------------------------------------------------*/ 4446 /* 4447 #define gspart_ELEMS_2 ZTRINGV_NUM(1) 4448 #define gspart_ELEMLEN_2 ZTRINGV_NUM(255) 4449 */ 4450 4451 #define GSPART(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GSPART,gspart,INT,STRING,INT,FLOAT,FLOAT,FLOAT,FLOATV,INT,A1,A2,A3,A4,A5,A6,A7,A8) 4452 4453 /*------------------------------------------------------------------ 4454 fortran filename : gspe3d.f 4455 ------------------------------------------------------------------*/ 4456 /* 4457 #define gspe3d_ELEMS_1 ZTRINGV_NUM(1) 4458 #define gspe3d_ELEMLEN_1 ZTRINGV_NUM(4) 4459 */ 4460 4461 #define GSPE3D(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GSPE3D,gspe3d,STRING,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7) 4462 4463 /*------------------------------------------------------------------ 4464 fortran filename : gspos.f 4465 ------------------------------------------------------------------*/ 4466 /* 4467 #define gspos_ELEMS_1 ZTRINGV_NUM(1) 4468 #define gspos_ELEMLEN_1 ZTRINGV_NUM(4) 4469 #define gspos_ELEMS_3 ZTRINGV_NUM(1) 4470 #define gspos_ELEMLEN_3 ZTRINGV_NUM(4) 4471 #define gspos_ELEMS_8 ZTRINGV_NUM(1) 4472 #define gspos_ELEMLEN_8 ZTRINGV_NUM(4) 4473 */ 4474 4475 #define GSPOS(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GSPOS,gspos,STRING,INT,STRING,FLOAT,FLOAT,FLOAT,INT,STRING,A1,A2,A3,A4,A5,A6,A7,A8) 4476 4477 /*------------------------------------------------------------------ 4478 fortran filename : gsposp.f 4479 ------------------------------------------------------------------*/ 4480 /* 4481 #define gsposp_ELEMS_1 ZTRINGV_NUM(1) 4482 #define gsposp_ELEMLEN_1 ZTRINGV_NUM(4) 4483 #define gsposp_ELEMS_3 ZTRINGV_NUM(1) 4484 #define gsposp_ELEMLEN_3 ZTRINGV_NUM(4) 4485 #define gsposp_ELEMS_8 ZTRINGV_NUM(1) 4486 #define gsposp_ELEMLEN_8 ZTRINGV_NUM(4) 4487 */ 4488 4489 #define GSPOSP(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GSPOSP,gsposp,STRING,INT,STRING,FLOAT,FLOAT,FLOAT,INT,STRING,FLOATV,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) 4490 4491 /*------------------------------------------------------------------ 4492 fortran filename : gspset.f 4493 ------------------------------------------------------------------*/ 4494 4495 #define GSPSET(A1) CCALLSFSUB1(GSPSET,gspset,FLOATV,A1) 4496 4497 /*------------------------------------------------------------------ 4498 fortran filename : gsrotm.f 4499 ------------------------------------------------------------------*/ 4500 4501 #define GSROTM(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GSROTM,gsrotm,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7) 4502 4503 /*------------------------------------------------------------------ 4504 fortran filename : gsrung.f 4505 ------------------------------------------------------------------*/ 4506 4507 #define GSRUNG(A1,A2,A3) CCALLSFSUB3(GSRUNG,gsrung,INT,FLOATV,PINT,A1,A2,A3) 4508 4509 /*------------------------------------------------------------------ 4510 fortran filename : gsscan.f 4511 ------------------------------------------------------------------*/ 4512 4513 #define GSSCAN(A1,A2) CCALLSFSUB2(GSSCAN,gsscan,INT,INT,A1,A2) 4514 4515 /*------------------------------------------------------------------ 4516 fortran filename : gsstak.f 4517 ------------------------------------------------------------------*/ 4518 4519 #define GSSTAK(A1) CCALLSFSUB1(GSSTAK,gsstak,INT,A1) 4520 4521 /*------------------------------------------------------------------ 4522 fortran filename : gstcor.f 4523 ------------------------------------------------------------------*/ 4524 4525 #define GSTCOR(A1,A2,A3,A4,A5) CCALLSFSUB5(GSTCOR,gstcor,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5) 4526 4527 /*------------------------------------------------------------------ 4528 fortran filename : gstdn.f 4529 ------------------------------------------------------------------*/ 4530 4531 PROTOCCALLSFFUN1(FLOAT,GSTDN,gstdn,FLOAT) 4532 #define GSTDN(A2) CCALLSFFUN1(GSTDN,gstdn,FLOAT,A2) 4533 4534 /*------------------------------------------------------------------ 4535 fortran filename : gstini.f 4536 ------------------------------------------------------------------*/ 4537 4538 #define GSTINI() CCALLSFSUB0(GSTINI,gstini) 4539 4540 /*------------------------------------------------------------------ 4541 fortran filename : gstint.f 4542 ------------------------------------------------------------------*/ 4543 4544 PROTOCCALLSFFUN4(FLOAT,GSTINT,gstint,FLOAT,FLOATV,FLOATV,INT) 4545 #define GSTINT(A2,A3,A4,A5) CCALLSFFUN4(GSTINT,gstint,FLOAT,FLOATV,FLOATV,INT,A2,A3,A4,A5) 4546 4547 /*------------------------------------------------------------------ 4548 fortran filename : gstmat.f 4549 ------------------------------------------------------------------*/ 4550 /* 4551 #define gstmat_ELEMS_1 ZTRINGV_NUM(1) 4552 #define gstmat_ELEMLEN_1 ZTRINGV_NUM(24) 4553 */ 4554 4555 #define GSTMAT(A1) CCALLSFSUB1(GSTMAT,gstmat,STRING,A1) 4556 4557 /*------------------------------------------------------------------ 4558 fortran filename : gstmed.f 4559 ------------------------------------------------------------------*/ 4560 /* 4561 #define gstmed_ELEMS_2 ZTRINGV_NUM(1) 4562 #define gstmed_ELEMLEN_2 ZTRINGV_NUM(255) 4563 */ 4564 4565 #define GSTMED(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) CCALLSFSUB13(GSTMED,gstmed,INT,STRING,INT,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOATV,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) 4566 4567 /*------------------------------------------------------------------ 4568 fortran filename : gstord.f 4569 ------------------------------------------------------------------*/ 4570 4571 #define GSTORD() CCALLSFSUB0(GSTORD,gstord) 4572 4573 /*------------------------------------------------------------------ 4574 fortran filename : gstpar.f 4575 ------------------------------------------------------------------*/ 4576 /* 4577 #define gstpar_ELEMS_2 ZTRINGV_NUM(1) 4578 #define gstpar_ELEMLEN_2 ZTRINGV_NUM(255) 4579 */ 4580 4581 #define GSTPAR(A1,A2,A3) CCALLSFSUB3(GSTPAR,gstpar,INT,STRING,FLOAT,A1,A2,A3) 4582 4583 /*------------------------------------------------------------------ 4584 fortran filename : gstrac.f 4585 ------------------------------------------------------------------*/ 4586 4587 #define GSTRAC() CCALLSFSUB0(GSTRAC,gstrac) 4588 4589 /*------------------------------------------------------------------ 4590 fortran filename : gstren.f 4591 ------------------------------------------------------------------*/ 4592 4593 PROTOCCALLSFFUN3(FLOAT,GSTREN,gstren,FLOAT,FLOAT,FLOAT) 4594 #define GSTREN(A2,A3,A4) CCALLSFFUN3(GSTREN,gstren,FLOAT,FLOAT,FLOAT,A2,A3,A4) 4595 4596 /*------------------------------------------------------------------ 4597 fortran filename : gstset.f 4598 ------------------------------------------------------------------*/ 4599 /* 4600 #define gstset_ELEMS_1 ZTRINGV_NUM(1) 4601 #define gstset_ELEMLEN_1 ZTRINGV_NUM(24) 4602 #define gstset_ELEMS_2 ZTRINGV_NUM(1) 4603 #define gstset_ELEMLEN_2 ZTRINGV_NUM(4) 4604 #define gstset_ELEMS_3 ZTRINGV_NUM(1) 4605 #define gstset_ELEMLEN_3 ZTRINGV_NUM(24) 4606 #define gstset_ELEMS_4 ZTRINGV_NUM(1) 4607 #define gstset_ELEMLEN_4 ZTRINGV_NUM(24) 4608 #define gstset_ELEMS_5 ZTRINGV_NUM(1) 4609 #define gstset_ELEMLEN_5 ZTRINGV_NUM(24) 4610 #define gstset_ELEMS_6 ZTRINGV_NUM(1) 4611 #define gstset_ELEMLEN_6 ZTRINGV_NUM(24) 4612 */ 4613 4614 #define GSTSET(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSTSET,gstset,STRING,STRING,STRING,STRING,STRING,STRING,A1,A2,A3,A4,A5,A6) 4615 4616 /*------------------------------------------------------------------ 4617 fortran filename : gsttab.f 4618 ------------------------------------------------------------------*/ 4619 4620 #define GSTTAB(A1,A2,A3,A4) CCALLSFSUB4(GSTTAB,gsttab,FLOAT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4) 4621 4622 /*------------------------------------------------------------------ 4623 fortran filename : gstxin.f 4624 ------------------------------------------------------------------*/ 4625 4626 #define GSTXIN() CCALLSFSUB0(GSTXIN,gstxin) 4627 4628 /*------------------------------------------------------------------ 4629 fortran filename : gsunea.f 4630 ------------------------------------------------------------------*/ 4631 /* 4632 #define gsunea_ELEMS_1 ZTRINGV_NUM(1) 4633 #define gsunea_ELEMLEN_1 ZTRINGV_NUM(4) 4634 */ 4635 4636 #define GSUNEA(A1,A2) CCALLSFSUB2(GSUNEA,gsunea,STRING,INT,A1,A2) 4637 4638 /*------------------------------------------------------------------ 4639 fortran filename : gsvert.f 4640 ------------------------------------------------------------------*/ 4641 4642 #define GSVERT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSVERT,gsvert,FLOATV,INT,INT,FLOATV,INT,PINT,A1,A2,A3,A4,A5,A6) 4643 4644 /*------------------------------------------------------------------ 4645 fortran filename : gsveru.f 4646 ------------------------------------------------------------------*/ 4647 4648 #define GSVERU(A1,A2,A3,A4) CCALLSFSUB4(GSVERU,gsveru,INT,INT,FLOATV,PINT,A1,A2,A3,A4) 4649 4650 /*------------------------------------------------------------------ 4651 fortran filename : gsvolu.f 4652 ------------------------------------------------------------------*/ 4653 /* 4654 #define gsvolu_ELEMS_1 ZTRINGV_NUM(1) 4655 #define gsvolu_ELEMLEN_1 ZTRINGV_NUM(4) 4656 #define gsvolu_ELEMS_2 ZTRINGV_NUM(1) 4657 #define gsvolu_ELEMLEN_2 ZTRINGV_NUM(4) 4658 */ 4659 4660 #define GSVOLU(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSVOLU,gsvolu,STRING,STRING,INT,FLOATV,INT,PINT,A1,A2,A3,A4,A5,A6) 4661 4662 /*------------------------------------------------------------------ 4663 fortran filename : gsxyz.f 4664 ------------------------------------------------------------------*/ 4665 4666 #define GSXYZ() CCALLSFSUB0(GSXYZ,gsxyz) 4667 4668 /*------------------------------------------------------------------ 4669 fortran filename : gsync.f 4670 ------------------------------------------------------------------*/ 4671 4672 #define GSYNC() CCALLSFSUB0(GSYNC,gsync) 4673 4674 /*------------------------------------------------------------------ 4675 fortran filename : gsynge.f 4676 ------------------------------------------------------------------*/ 4677 4678 #define GSYNGE(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GSYNGE,gsynge,FLOAT,FLOAT,FLOAT,FLOAT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7) 4679 4680 /*------------------------------------------------------------------ 4681 fortran filename : gtau.f 4682 ------------------------------------------------------------------*/ 4683 4684 #define GTAU() CCALLSFSUB0(GTAU,gtau) 4685 4686 /*------------------------------------------------------------------ 4687 fortran filename : gtckov.f 4688 ------------------------------------------------------------------*/ 4689 4690 #define GTCKOV() CCALLSFSUB0(GTCKOV,gtckov) 4691 4692 /*------------------------------------------------------------------ 4693 fortran filename : gtelec.f 4694 ------------------------------------------------------------------*/ 4695 4696 #define GTELEC() CCALLSFSUB0(GTELEC,gtelec) 4697 4698 /*------------------------------------------------------------------ 4699 fortran filename : gtgama.f 4700 ------------------------------------------------------------------*/ 4701 4702 #define GTGAMA() CCALLSFSUB0(GTGAMA,gtgama) 4703 4704 /*------------------------------------------------------------------ 4705 fortran filename : gthadr.f 4706 ------------------------------------------------------------------*/ 4707 4708 #define GTHADR() CCALLSFSUB0(GTHADR,gthadr) 4709 4710 /*------------------------------------------------------------------ 4711 fortran filename : gthion.f 4712 ------------------------------------------------------------------*/ 4713 4714 #define GTHION() CCALLSFSUB0(GTHION,gthion) 4715 4716 /*------------------------------------------------------------------ 4717 fortran filename : gtiso.f 4718 ------------------------------------------------------------------*/ 4719 4720 #define GTISO(A1,A2,A3) CCALLSFSUB3(GTISO,gtiso,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3) 4721 4722 /*------------------------------------------------------------------ 4723 fortran filename : gtmed.f 4724 ------------------------------------------------------------------*/ 4725 4726 #define GTMED(A1,A2) CCALLSFSUB2(GTMED,gtmed,INT,PINT,A1,A2) 4727 4728 /*------------------------------------------------------------------ 4729 fortran filename : gtmedi.f 4730 ------------------------------------------------------------------*/ 4731 4732 #define GTMEDI(A1,A2) CCALLSFSUB2(GTMEDI,gtmedi,FLOATV,PINT,A1,A2) 4733 4734 /*------------------------------------------------------------------ 4735 fortran filename : gtmuon.f 4736 ------------------------------------------------------------------*/ 4737 4738 #define GTMUON() CCALLSFSUB0(GTMUON,gtmuon) 4739 4740 /*------------------------------------------------------------------ 4741 fortran filename : gtneut.f 4742 ------------------------------------------------------------------*/ 4743 4744 #define GTNEUT() CCALLSFSUB0(GTNEUT,gtneut) 4745 4746 /*------------------------------------------------------------------ 4747 fortran filename : gtnext.f 4748 ------------------------------------------------------------------*/ 4749 4750 #define GTNEXT() CCALLSFSUB0(GTNEXT,gtnext) 4751 4752 /*------------------------------------------------------------------ 4753 fortran filename : gtnino.f 4754 ------------------------------------------------------------------*/ 4755 4756 #define GTNINO() CCALLSFSUB0(GTNINO,gtnino) 4757 4758 /*------------------------------------------------------------------ 4759 fortran filename : gtrack.f 4760 ------------------------------------------------------------------*/ 4761 4762 #define GTRACK() CCALLSFSUB0(GTRACK,gtrack) 4763 4764 /*------------------------------------------------------------------ 4765 fortran filename : gtrain.f 4766 ------------------------------------------------------------------*/ 4767 4768 #define GTRAIN(A1,A2) CCALLSFSUB2(GTRAIN,gtrain,FLOATV,PFLOAT,A1,A2) 4769 4770 /*------------------------------------------------------------------ 4771 fortran filename : gtrase.f 4772 ------------------------------------------------------------------*/ 4773 4774 #define GTRASE(A1) CCALLSFSUB1(GTRASE,gtrase,FLOATV,A1) 4775 4776 /*------------------------------------------------------------------ 4777 fortran filename : gtrdse.f 4778 ------------------------------------------------------------------*/ 4779 4780 #define GTRDSE(A1,A2) CCALLSFSUB2(GTRDSE,gtrdse,FLOATV,INT,A1,A2) 4781 4782 /*------------------------------------------------------------------ 4783 fortran filename : gtreve.f 4784 ------------------------------------------------------------------*/ 4785 4786 #define GTREVE() CCALLSFSUB0(GTREVE,gtreve) 4787 4788 /*------------------------------------------------------------------ 4789 fortran filename : gtrig.f 4790 ------------------------------------------------------------------*/ 4791 4792 #define GTRIG() CCALLSFSUB0(GTRIG,gtrig) 4793 4794 /*------------------------------------------------------------------ 4795 fortran filename : gtrigc.f 4796 ------------------------------------------------------------------*/ 4797 4798 #define GTRIGC() CCALLSFSUB0(GTRIGC,gtrigc) 4799 4800 /*------------------------------------------------------------------ 4801 fortran filename : gtrigi.f 4802 ------------------------------------------------------------------*/ 4803 4804 #define GTRIGI() CCALLSFSUB0(GTRIGI,gtrigi) 4805 4806 /*------------------------------------------------------------------ 4807 fortran filename : gtrmul.f 4808 ------------------------------------------------------------------*/ 4809 4810 #define GTRMUL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GTRMUL,gtrmul,FLOATV,FLOATV,FLOATV,INT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 4811 4812 /*------------------------------------------------------------------ 4813 fortran filename : gtrnsf.f 4814 ------------------------------------------------------------------*/ 4815 4816 #define GTRNSF(A1,A2,A3,A4) CCALLSFSUB4(GTRNSF,gtrnsf,FLOATV,FLOATV,FLOATV,PFLOAT,A1,A2,A3,A4) 4817 4818 /*------------------------------------------------------------------ 4819 fortran filename : gtrset.f 4820 ------------------------------------------------------------------*/ 4821 4822 #define GTRSET(A1) CCALLSFSUB1(GTRSET,gtrset,FLOATV,A1) 4823 4824 /*------------------------------------------------------------------ 4825 fortran filename : gtuset.f 4826 ------------------------------------------------------------------*/ 4827 4828 #define GTUSET(A1,A2) CCALLSFSUB2(GTUSET,gtuset,FLOATV,INT,A1,A2) 4829 4830 /*------------------------------------------------------------------ 4831 fortran filename : gtxset.f 4832 ------------------------------------------------------------------*/ 4833 /* 4834 #define gtxset_ELEMS_1 ZTRINGV_NUM(1) 4835 #define gtxset_ELEMLEN_1 ZTRINGV_NUM(24) 4836 #define gtxset_ELEMS_2 ZTRINGV_NUM(1) 4837 #define gtxset_ELEMLEN_2 ZTRINGV_NUM(4) 4838 #define gtxset_ELEMS_6 ZTRINGV_NUM(1) 4839 #define gtxset_ELEMLEN_6 ZTRINGV_NUM(24) 4840 #define gtxset_ELEMS_7 ZTRINGV_NUM(1) 4841 #define gtxset_ELEMLEN_7 ZTRINGV_NUM(24) 4842 #define gtxset_ELEMS_8 ZTRINGV_NUM(1) 4843 #define gtxset_ELEMLEN_8 ZTRINGV_NUM(24) 4844 #define gtxset_ELEMS_9 ZTRINGV_NUM(1) 4845 #define gtxset_ELEMLEN_9 ZTRINGV_NUM(24) 4846 */ 4847 4848 #define GTXSET(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(GTXSET,gtxset,STRING,STRING,INT,INT,INT,STRING,STRING,STRING,STRING,A1,A2,A3,A4,A5,A6,A7,A8,A9) 4849 4850 /*------------------------------------------------------------------ 4851 fortran filename : gudcay.f 4852 ------------------------------------------------------------------*/ 4853 4854 #define GUDCAY() CCALLSFSUB0(GUDCAY,gudcay) 4855 4856 /*------------------------------------------------------------------ 4857 fortran filename : gudigi.f 4858 ------------------------------------------------------------------*/ 4859 4860 #define GUDIGI() CCALLSFSUB0(GUDIGI,gudigi) 4861 4862 /*------------------------------------------------------------------ 4863 fortran filename : gudtim.f 4864 ------------------------------------------------------------------*/ 4865 4866 PROTOCCALLSFFUN4(FLOAT,GUDTIM,gudtim,FLOAT,FLOAT,INT,FLOAT) 4867 #define GUDTIM(A2,A3,A4,A5) CCALLSFFUN4(GUDTIM,gudtim,FLOAT,FLOAT,INT,FLOAT,A2,A3,A4,A5) 4868 4869 /*------------------------------------------------------------------ 4870 fortran filename : gufld.f 4871 ------------------------------------------------------------------*/ 4872 4873 #define GUFLD(A1,A2) CCALLSFSUB2(GUFLD,gufld,FLOATV,PFLOAT,A1,A2) 4874 4875 /*------------------------------------------------------------------ 4876 fortran filename : guhadr.f 4877 ------------------------------------------------------------------*/ 4878 4879 #define GUHADR() CCALLSFSUB0(GUHADR,guhadr) 4880 4881 /*------------------------------------------------------------------ 4882 fortran filename : guiget.f 4883 ------------------------------------------------------------------*/ 4884 4885 #define GUIGET(A1,A2,A3) CCALLSFSUB3(GUIGET,guiget,INT,INT,INT,A1,A2,A3) 4886 4887 /*------------------------------------------------------------------ 4888 fortran filename : guinme.f 4889 ------------------------------------------------------------------*/ 4890 4891 #define GUINME(A1,A2,A3,A4) CCALLSFSUB4(GUINME,guinme,FLOATV,FLOAT,FLOATV,PINT,A1,A2,A3,A4) 4892 4893 /*------------------------------------------------------------------ 4894 fortran filename : guinti.f 4895 ------------------------------------------------------------------*/ 4896 4897 #define GUINTI() CCALLSFSUB0(GUINTI,guinti) 4898 4899 /*------------------------------------------------------------------ 4900 fortran filename : gukine.f 4901 ------------------------------------------------------------------*/ 4902 4903 #define GUKINE() CCALLSFSUB0(GUKINE,gukine) 4904 4905 /*------------------------------------------------------------------ 4906 fortran filename : gunear.f 4907 ------------------------------------------------------------------*/ 4908 4909 #define GUNEAR(A1,A2,A3,A4) CCALLSFSUB4(GUNEAR,gunear,INT,INT,FLOATV,INT,A1,A2,A3,A4) 4910 4911 /*------------------------------------------------------------------ 4912 fortran filename : gunliv.f 4913 ------------------------------------------------------------------*/ 4914 4915 #define GUNLIV(A1,A2,A3) CCALLSFSUB3(GUNLIV,gunliv,INT,INT,INT,A1,A2,A3) 4916 4917 /*------------------------------------------------------------------ 4918 fortran filename : guout.f 4919 ------------------------------------------------------------------*/ 4920 4921 #define GUOUT() CCALLSFSUB0(GUOUT,guout) 4922 4923 /*------------------------------------------------------------------ 4924 fortran filename : gupara.f 4925 ------------------------------------------------------------------*/ 4926 4927 #define GUPARA() CCALLSFSUB0(GUPARA,gupara) 4928 4929 /*------------------------------------------------------------------ 4930 fortran filename : guphad.f 4931 ------------------------------------------------------------------*/ 4932 4933 #define GUPHAD() CCALLSFSUB0(GUPHAD,guphad) 4934 4935 /*------------------------------------------------------------------ 4936 fortran filename : guplsh.f 4937 ------------------------------------------------------------------*/ 4938 4939 PROTOCCALLSFFUN2(FLOAT,GUPLSH,guplsh,INT,INT) 4940 #define GUPLSH(A2,A3) CCALLSFFUN2(GUPLSH,guplsh,INT,INT,A2,A3) 4941 4942 /*------------------------------------------------------------------ 4943 fortran filename : guskip.f 4944 ------------------------------------------------------------------*/ 4945 4946 #define GUSKIP(A1) CCALLSFSUB1(GUSKIP,guskip,PINT,A1) 4947 4948 /*------------------------------------------------------------------ 4949 fortran filename : gustep.f 4950 ------------------------------------------------------------------*/ 4951 4952 #define GUSTEP() CCALLSFSUB0(GUSTEP,gustep) 4953 4954 /*------------------------------------------------------------------ 4955 fortran filename : guswim.f 4956 ------------------------------------------------------------------*/ 4957 4958 #define GUSWIM(A1,A2,A3,A4) CCALLSFSUB4(GUSWIM,guswim,FLOAT,FLOAT,FLOATV,FLOATV,A1,A2,A3,A4) 4959 4960 /*------------------------------------------------------------------ 4961 fortran filename : gutrak.f 4962 ------------------------------------------------------------------*/ 4963 4964 #define GUTRAK() CCALLSFSUB0(GUTRAK,gutrak) 4965 4966 /*------------------------------------------------------------------ 4967 fortran filename : gutrev.f 4968 ------------------------------------------------------------------*/ 4969 4970 #define GUTREV() CCALLSFSUB0(GUTREV,gutrev) 4971 4972 /*------------------------------------------------------------------ 4973 fortran filename : guview.f 4974 ------------------------------------------------------------------*/ 4975 /* 4976 #define guview_ELEMS_3 ZTRINGV_NUM(1) 4977 #define guview_ELEMLEN_3 ZTRINGV_NUM(255) 4978 */ 4979 4980 #define GUVIEW(A1,A2,A3,A4) CCALLSFSUB4(GUVIEW,guview,INT,INT,STRING,INT,A1,A2,A3,A4) 4981 4982 /*------------------------------------------------------------------ 4983 fortran filename : gvaviv.f 4984 ------------------------------------------------------------------*/ 4985 4986 PROTOCCALLSFFUN3(FLOAT,GVAVIV,gvaviv,FLOAT,FLOAT,FLOAT) 4987 #define GVAVIV(A2,A3,A4) CCALLSFFUN3(GVAVIV,gvaviv,FLOAT,FLOAT,FLOAT,A2,A3,A4) 4988 4989 /*------------------------------------------------------------------ 4990 fortran filename : gvdcar.f 4991 ------------------------------------------------------------------*/ 4992 4993 #define GVDCAR(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GVDCAR,gvdcar,INT,INT,INT,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7) 4994 4995 /*------------------------------------------------------------------ 4996 fortran filename : gvdlim.f 4997 ------------------------------------------------------------------*/ 4998 4999 #define GVDLIM(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GVDLIM,gvdlim,INT,INT,INT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4,A5,A6) 5000 5001 /*------------------------------------------------------------------ 5002 fortran filename : gvdphi.f 5003 ------------------------------------------------------------------*/ 5004 5005 #define GVDPHI(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GVDPHI,gvdphi,INT,INT,FLOATV,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7) 5006 5007 /*------------------------------------------------------------------ 5008 fortran filename : gvdrad.f 5009 ------------------------------------------------------------------*/ 5010 5011 #define GVDRAD(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GVDRAD,gvdrad,INT,INT,INT,FLOATV,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8) 5012 5013 /*------------------------------------------------------------------ 5014 fortran filename : gvdthe.f 5015 ------------------------------------------------------------------*/ 5016 5017 #define GVDTHE(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GVDTHE,gvdthe,INT,INT,FLOATV,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7) 5018 5019 /*------------------------------------------------------------------ 5020 fortran filename : gvgrad.f 5021 ------------------------------------------------------------------*/ 5022 5023 #define GVGRAD(A1,A2,A3,A4) CCALLSFSUB4(GVGRAD,gvgrad,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4) 5024 5025 /*------------------------------------------------------------------ 5026 fortran filename : gviewf.f 5027 ------------------------------------------------------------------*/ 5028 5029 #define GVIEWF(A1,A2,A3) CCALLSFSUB3(GVIEWF,gviewf,FLOATV,FLOATV,INT,A1,A2,A3) 5030 5031 /*------------------------------------------------------------------ 5032 fortran filename : gvlong.f 5033 ------------------------------------------------------------------*/ 5034 5035 #define GVLONG(A1,A2,A3,A4,A5) CCALLSFSUB5(GVLONG,gvlong,FLOATV,FLOATV,INT,PFLOAT,PINT,A1,A2,A3,A4,A5) 5036 5037 /*------------------------------------------------------------------ 5038 fortran filename : gvpsqr.f 5039 ------------------------------------------------------------------*/ 5040 5041 #define GVPSQR(A1,A2,A3) CCALLSFSUB3(GVPSQR,gvpsqr,FLOATV,PFLOAT,PINT,A1,A2,A3) 5042 5043 /*------------------------------------------------------------------ 5044 fortran filename : gvrot.f 5045 ------------------------------------------------------------------*/ 5046 5047 #define GVROT(A1,A2) CCALLSFSUB2(GVROT,gvrot,FLOATV,PFLOAT,A1,A2) 5048 5049 /*------------------------------------------------------------------ 5050 fortran filename : gvsafe.f 5051 ------------------------------------------------------------------*/ 5052 5053 PROTOCCALLSFFUN4(FLOAT,GVSAFE,gvsafe,FLOATV,FLOAT,FLOATV,INT) 5054 #define GVSAFE(A2,A3,A4,A5) CCALLSFFUN4(GVSAFE,gvsafe,FLOATV,FLOAT,FLOATV,INT,A2,A3,A4,A5) 5055 5056 /*------------------------------------------------------------------ 5057 fortran filename : gvsign.f 5058 ------------------------------------------------------------------*/ 5059 5060 PROTOCCALLSFFUN4(INT,GVSIGN,gvsign,FLOATV,FLOAT,FLOATV,INT) 5061 #define GVSIGN(A2,A3,A4,A5) CCALLSFFUN4(GVSIGN,gvsign,FLOATV,FLOAT,FLOATV,INT,A2,A3,A4,A5) 5062 5063 /*------------------------------------------------------------------ 5064 fortran filename : gweucl.f 5065 ------------------------------------------------------------------*/ 5066 /* 5067 #define gweucl_ELEMS_2 ZTRINGV_NUM(1) 5068 #define gweucl_ELEMLEN_2 ZTRINGV_NUM(255) 5069 #define gweucl_ELEMS_3 ZTRINGV_NUM(1) 5070 #define gweucl_ELEMLEN_3 ZTRINGV_NUM(4) 5071 */ 5072 5073 #define GWEUCL(A1,A2,A3,A4,A5) CCALLSFSUB5(GWEUCL,gweucl,INT,STRING,STRING,INT,INT,A1,A2,A3,A4,A5) 5074 5075 /*------------------------------------------------------------------ 5076 fortran filename : gwork.f 5077 ------------------------------------------------------------------*/ 5078 5079 #define GWORK(A1) CCALLSFSUB1(GWORK,gwork,PINT,A1) 5080 5081 /*------------------------------------------------------------------ 5082 fortran filename : gwrtre.f 5083 ------------------------------------------------------------------*/ 5084 /* 5085 #define gwrtre_ELEMS_1 ZTRINGV_NUM(1) 5086 #define gwrtre_ELEMLEN_1 ZTRINGV_NUM(4) 5087 */ 5088 5089 #define GWRTRE(A1,A2) CCALLSFSUB2(GWRTRE,gwrtre,STRING,INT,A1,A2) 5090 5091 /*------------------------------------------------------------------ 5092 fortran filename : gxclos.f 5093 ------------------------------------------------------------------*/ 5094 5095 #define GXCLOS(A1) CCALLSFSUB1(GXCLOS,gxclos,INT,A1) 5096 5097 /*------------------------------------------------------------------ 5098 fortran filename : gxcont.f 5099 ------------------------------------------------------------------*/ 5100 5101 #define GXCONT() CCALLSFSUB0(GXCONT,gxcont) 5102 5103 /*------------------------------------------------------------------ 5104 fortran filename : gxcs.f 5105 ------------------------------------------------------------------*/ 5106 5107 #define GXCS() CCALLSFSUB0(GXCS,gxcs) 5108 5109 /*------------------------------------------------------------------ 5110 fortran filename : gxdraw.f 5111 ------------------------------------------------------------------*/ 5112 5113 #define GXDRAW() CCALLSFSUB0(GXDRAW,gxdraw) 5114 5115 /*------------------------------------------------------------------ 5116 fortran filename : gxdz.f 5117 ------------------------------------------------------------------*/ 5118 5119 #define GXDZ() CCALLSFSUB0(GXDZ,gxdz) 5120 5121 /*------------------------------------------------------------------ 5122 fortran filename : gxfca.f 5123 ------------------------------------------------------------------*/ 5124 /* 5125 #define gxfca_ELEMS_1 ZTRINGV_NUM(1) 5126 #define gxfca_ELEMLEN_1 ZTRINGV_NUM(255) 5127 */ 5128 5129 #define GXFCA(A1,A2,A3,A4) CCALLSFSUB4(GXFCA,gxfca,PSTRING,PINT,PINT,INT,A1,A2,A3,A4) 5130 5131 /*------------------------------------------------------------------ 5132 fortran filename : gxfort.f 5133 ------------------------------------------------------------------*/ 5134 5135 #define GXFORT() CCALLSFSUB0(GXFORT,gxfort) 5136 5137 /*------------------------------------------------------------------ 5138 fortran filename : gxfz.f 5139 ------------------------------------------------------------------*/ 5140 5141 #define GXFZ() CCALLSFSUB0(GXFZ,gxfz) 5142 5143 /*------------------------------------------------------------------ 5144 fortran filename : gxgcon.f 5145 ------------------------------------------------------------------*/ 5146 5147 #define GXGCON() CCALLSFSUB0(GXGCON,gxgcon) 5148 5149 /*------------------------------------------------------------------ 5150 fortran filename : gxgeom.f 5151 ------------------------------------------------------------------*/ 5152 5153 #define GXGEOM() CCALLSFSUB0(GXGEOM,gxgeom) 5154 5155 /*------------------------------------------------------------------ 5156 fortran filename : gxgint.f 5157 ------------------------------------------------------------------*/ 5158 5159 PROTOCCALLSFFUN4(FLOAT,GXGINT,gxgint,FLOAT,FLOAT,FLOAT,FLOAT) 5160 #define GXGINT(A2,A3,A4,A5) CCALLSFFUN4(GXGINT,gxgint,FLOAT,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5) 5161 5162 /*------------------------------------------------------------------ 5163 fortran filename : gxlist.f 5164 ------------------------------------------------------------------*/ 5165 5166 #define GXLIST() CCALLSFSUB0(GXLIST,gxlist) 5167 5168 /*------------------------------------------------------------------ 5169 fortran filename : gxlunf.f 5170 ------------------------------------------------------------------*/ 5171 5172 #define GXLUNF(A1,A2,A3) CCALLSFSUB3(GXLUNF,gxlunf,INT,INT,PINT,A1,A2,A3) 5173 5174 /*------------------------------------------------------------------ 5175 fortran filename : gxobj.f 5176 ------------------------------------------------------------------*/ 5177 /* 5178 #define gxobj_ELEMS_1 ZTRINGV_NUM(1) 5179 #define gxobj_ELEMLEN_1 ZTRINGV_NUM(255) 5180 #define gxobj_ELEMS_2 ZTRINGV_NUM(1) 5181 #define gxobj_ELEMLEN_2 ZTRINGV_NUM(255) 5182 #define gxobj_ELEMS_3 ZTRINGV_NUM(1) 5183 #define gxobj_ELEMLEN_3 ZTRINGV_NUM(255) 5184 #define gxobj_ELEMS_4 ZTRINGV_NUM(1) 5185 #define gxobj_ELEMLEN_4 ZTRINGV_NUM(255) 5186 #define gxobj_ELEMS_5 ZTRINGV_NUM(1) 5187 #define gxobj_ELEMLEN_5 ZTRINGV_NUM(255) 5188 #define gxobj_ELEMS_6 ZTRINGV_NUM(1) 5189 #define gxobj_ELEMLEN_6 ZTRINGV_NUM(255) 5190 #define gxobj_ELEMS_7 ZTRINGV_NUM(1) 5191 #define gxobj_ELEMLEN_7 ZTRINGV_NUM(255) 5192 */ 5193 5194 #define GXOBJ(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GXOBJ,gxobj,STRING,STRING,STRING,PSTRING,PSTRING,STRING,PSTRING,A1,A2,A3,A4,A5,A6,A7) 5195 5196 /*------------------------------------------------------------------ 5197 fortran filename : gxphys.f 5198 ------------------------------------------------------------------*/ 5199 5200 #define GXPHYS() CCALLSFSUB0(GXPHYS,gxphys) 5201 5202 /*------------------------------------------------------------------ 5203 fortran filename : gxpick.f 5204 ------------------------------------------------------------------*/ 5205 5206 #define GXPICK() CCALLSFSUB0(GXPICK,gxpick) 5207 5208 /*------------------------------------------------------------------ 5209 fortran filename : gxrz.f 5210 ------------------------------------------------------------------*/ 5211 5212 #define GXRZ() CCALLSFSUB0(GXRZ,gxrz) 5213 5214 /*------------------------------------------------------------------ 5215 fortran filename : gxscah.f 5216 ------------------------------------------------------------------*/ 5217 /* 5218 #define gxscah_ELEMS_2 ZTRINGV_NUM(1) 5219 #define gxscah_ELEMLEN_2 ZTRINGV_NUM(255) 5220 #define gxscah_ELEMS_3 ZTRINGV_NUM(1) 5221 #define gxscah_ELEMLEN_3 ZTRINGV_NUM(255) 5222 */ 5223 5224 #define GXSCAH(A1,A2,A3) CCALLSFSUB3(GXSCAH,gxscah,INT,STRING,STRING,A1,A2,A3) 5225 5226 /*------------------------------------------------------------------ 5227 fortran filename : gxscal.f 5228 ------------------------------------------------------------------*/ 5229 /* 5230 #define gxscal_ELEMS_2 ZTRINGV_NUM(1) 5231 #define gxscal_ELEMLEN_2 ZTRINGV_NUM(255) 5232 #define gxscal_ELEMS_3 ZTRINGV_NUM(1) 5233 #define gxscal_ELEMLEN_3 ZTRINGV_NUM(255) 5234 */ 5235 5236 #define GXSCAL(A1,A2,A3) CCALLSFSUB3(GXSCAL,gxscal,PINT,STRING,STRING,A1,A2,A3) 5237 5238 /*------------------------------------------------------------------ 5239 fortran filename : gxscan.f 5240 ------------------------------------------------------------------*/ 5241 5242 #define GXSCAN() CCALLSFSUB0(GXSCAN,gxscan) 5243 5244 /*------------------------------------------------------------------ 5245 fortran filename : gxsi.f 5246 ------------------------------------------------------------------*/ 5247 5248 PROTOCCALLSFFUN1(FLOAT,GXSI,gxsi,FLOAT) 5249 #define GXSI(A2) CCALLSFFUN1(GXSI,gxsi,FLOAT,A2) 5250 5251 /*------------------------------------------------------------------ 5252 fortran filename : gzebra.f 5253 ------------------------------------------------------------------*/ 5254 5255 #define GZEBRA(A1) CCALLSFSUB1(GZEBRA,gzebra,INT,A1) 5256 5257 /*------------------------------------------------------------------ 5258 fortran filename : gzinit.f 5259 ------------------------------------------------------------------*/ 5260 5261 #define GZINIT() CCALLSFSUB0(GZINIT,gzinit) 5262 5263 /*------------------------------------------------------------------ 5264 fortran filename : hadden.f 5265 ------------------------------------------------------------------*/ 5266 5267 #define HADDEN() CCALLSFSUB0(HADDEN,hadden) 5268 5269 /*------------------------------------------------------------------ 5270 fortran filename : hadevv.f 5271 ------------------------------------------------------------------*/ 5272 5273 #define HADEVV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(HADEVV,hadevv,PINT,INT,INT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6) 5274 5275 /*------------------------------------------------------------------ 5276 fortran filename : hadrin.f 5277 ------------------------------------------------------------------*/ 5278 5279 #define HADRIN(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(HADRIN,hadrin,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,A1,A2,A3,A4,A5,A6,A7) 5280 5281 /*------------------------------------------------------------------ 5282 fortran filename : hadriv.f 5283 ------------------------------------------------------------------*/ 5284 5285 #define HADRIV(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(HADRIV,hadriv,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,A1,A2,A3,A4,A5,A6,A7) 5286 5287 /*------------------------------------------------------------------ 5288 fortran filename : hevhin.f 5289 ------------------------------------------------------------------*/ 5290 5291 #define HEVHIN(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(HEVHIN,hevhin,PINT,INT,INT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6) 5292 5293 /*------------------------------------------------------------------ 5294 fortran filename : higclu.f 5295 ------------------------------------------------------------------*/ 5296 5297 #define HIGCLU(A1,A2,A3) CCALLSFSUB3(HIGCLU,higclu,INT,INT,FLOAT,A1,A2,A3) 5298 5299 /*------------------------------------------------------------------ 5300 fortran filename : highab.f 5301 ------------------------------------------------------------------*/ 5302 5303 #define HIGHAB(A1) CCALLSFSUB1(HIGHAB,highab,PFLOAT,A1) 5304 5305 /*------------------------------------------------------------------ 5306 fortran filename : higsel.f 5307 ------------------------------------------------------------------*/ 5308 5309 #define HIGSEL(A1) CCALLSFSUB1(HIGSEL,higsel,PINT,A1) 5310 5311 /*------------------------------------------------------------------ 5312 fortran filename : higxpt.f 5313 ------------------------------------------------------------------*/ 5314 5315 #define HIGXPT(A1,A2,A3) CCALLSFSUB3(HIGXPT,higxpt,INT,INT,FLOAT,A1,A2,A3) 5316 5317 /*------------------------------------------------------------------ 5318 fortran filename : hinhev.f 5319 ------------------------------------------------------------------*/ 5320 5321 #define HINHEV(A1,A2,A3,A4) CCALLSFSUB4(HINHEV,hinhev,INT,DOUBLE,DOUBLE,INT,A1,A2,A3,A4) 5322 5323 /*------------------------------------------------------------------ 5324 fortran filename : hklass.f 5325 ------------------------------------------------------------------*/ 5326 5327 #define HKLASS(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24) CCALLSFSUB24(HKLASS,hklass,PINT,INT,INT,INT,INTV,INTV,INT,INT,INT,INT,INTV,PINT,PINT,PINT,PINT,PINT,PINT,DOUBLE,DOUBLE,INT,INT,INT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24) 5328 5329 /*------------------------------------------------------------------ 5330 fortran filename : hypero.f 5331 ------------------------------------------------------------------*/ 5332 5333 #define HYPERO(A1,A2,A3,A4) CCALLSFSUB4(HYPERO,hypero,PINT,PINT,PDOUBLE,PDOUBLE,A1,A2,A3,A4) 5334 5335 /*------------------------------------------------------------------ 5336 fortran filename : iefun.f 5337 ------------------------------------------------------------------*/ 5338 5339 PROTOCCALLSFFUN2(INT,IEFUN,iefun,DOUBLE,INT) 5340 #define IEFUN(A2,A3) CCALLSFFUN2(IEFUN,iefun,DOUBLE,INT,A2,A3) 5341 5342 /*------------------------------------------------------------------ 5343 fortran filename : incini.f 5344 ------------------------------------------------------------------*/ 5345 5346 #define INCINI() CCALLSFSUB0(INCINI,incini) 5347 5348 /*------------------------------------------------------------------ 5349 fortran filename : index2.f 5350 ------------------------------------------------------------------*/ 5351 5352 #define INDEX2(A1,A2,A3) CCALLSFSUB3(INDEX2,index2,INT,INT,INT,A1,A2,A3) 5353 5354 /*------------------------------------------------------------------ 5355 fortran filename : interp.f 5356 ------------------------------------------------------------------*/ 5357 5358 #define INTERP(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(INTERP,interp,FLOAT,PFLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7) 5359 5360 /*------------------------------------------------------------------ 5361 fortran filename : intsch.f 5362 ------------------------------------------------------------------*/ 5363 5364 #define INTSCH(A1,A2,A3,A4) CCALLSFSUB4(INTSCH,intsch,INTV,INT,PINT,INT,A1,A2,A3,A4) 5365 5366 /*------------------------------------------------------------------ 5367 fortran filename : isotpe.f 5368 ------------------------------------------------------------------*/ 5369 5370 #define ISOTPE(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12) CCALLSFSUB12(ISOTPE,isotpe,FLOATV,INTV,INTV,FLOATV,INTV,PINT,PINT,FLOAT,FLOAT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12) 5371 5372 /*------------------------------------------------------------------ 5373 fortran filename : kinpar.f 5374 ------------------------------------------------------------------*/ 5375 5376 #define KINPAR(A1,A2,A3) CCALLSFSUB3(KINPAR,kinpar,DOUBLEV,DOUBLEV,DOUBLE,A1,A2,A3) 5377 5378 /*------------------------------------------------------------------ 5379 fortran filename : kmabs.f 5380 ------------------------------------------------------------------*/ 5381 5382 #define KMABS(A1) CCALLSFSUB1(KMABS,kmabs,PINT,A1) 5383 5384 /*------------------------------------------------------------------ 5385 fortran filename : kpois.f 5386 ------------------------------------------------------------------*/ 5387 5388 PROTOCCALLSFFUN1(INT,KPOIS,kpois,DOUBLE) 5389 #define KPOIS(A2) CCALLSFFUN1(KPOIS,kpois,DOUBLE,A2) 5390 5391 /*------------------------------------------------------------------ 5392 fortran filename : labnf.f 5393 ------------------------------------------------------------------*/ 5394 5395 #define LABNF(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(LABNF,labnf,FLOATV,INTV,FLOATV,FLOAT,INT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7) 5396 5397 /*------------------------------------------------------------------ 5398 fortran filename : limdat.f 5399 ------------------------------------------------------------------*/ 5400 5401 #define LIMDAT() CCALLSFSUB0(LIMDAT,limdat) 5402 5403 /*------------------------------------------------------------------ 5404 fortran filename : lortra.f 5405 ------------------------------------------------------------------*/ 5406 5407 #define LORTRA(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(LORTRA,lortra,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6) 5408 5409 /*------------------------------------------------------------------ 5410 fortran filename : lr2bod.f 5411 ------------------------------------------------------------------*/ 5412 5413 #define LR2BOD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) CCALLSFSUB13(LR2BOD,lr2bod,FLOATV,INTV,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,FLOAT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) 5414 5415 /*------------------------------------------------------------------ 5416 fortran filename : lrnorm.f 5417 ------------------------------------------------------------------*/ 5418 5419 #define LRNORM(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(LRNORM,lrnorm,FLOATV,INTV,PINT,PINT,PINT,FLOAT,INT,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9) 5420 5421 /*------------------------------------------------------------------ 5422 fortran filename : minv.f 5423 ------------------------------------------------------------------*/ 5424 5425 #define MINV(A1,A2,A3,A4,A5) CCALLSFSUB5(MINV,minv,PFLOAT,INT,PFLOAT,PINT,PINT,A1,A2,A3,A4,A5) 5426 5427 /*------------------------------------------------------------------ 5428 fortran filename : moxsec.f 5429 ------------------------------------------------------------------*/ 5430 5431 #define MOXSEC() CCALLSFSUB0(MOXSEC,moxsec) 5432 5433 /*------------------------------------------------------------------ 5434 fortran filename : n2nn3n.f 5435 ------------------------------------------------------------------*/ 5436 5437 #define N2NN3N(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(N2NN3N,n2nn3n,FLOATV,INTV,FLOAT,INT,INT,FLOATV,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8) 5438 5439 /*------------------------------------------------------------------ 5440 fortran filename : nbanh.f 5441 ------------------------------------------------------------------*/ 5442 5443 #define NBANH(A1) CCALLSFSUB1(NBANH,nbanh,PINT,A1) 5444 5445 /*------------------------------------------------------------------ 5446 fortran filename : nclvin.f 5447 ------------------------------------------------------------------*/ 5448 5449 #define NCLVIN() CCALLSFSUB0(NCLVIN,nclvin) 5450 5451 /*------------------------------------------------------------------ 5452 fortran filename : nclvst.f 5453 ------------------------------------------------------------------*/ 5454 5455 #define NCLVST(A1,A2) CCALLSFSUB2(NCLVST,nclvst,INT,INT,A1,A2) 5456 5457 /*------------------------------------------------------------------ 5458 fortran filename : nfac.f 5459 ------------------------------------------------------------------*/ 5460 5461 PROTOCCALLSFFUN1(INT,NFAC,nfac,INT) 5462 #define NFAC(A2) CCALLSFFUN1(NFAC,nfac,INT,A2) 5463 5464 /*------------------------------------------------------------------ 5465 fortran filename : nghevy.f 5466 ------------------------------------------------------------------*/ 5467 5468 #define NGHEVY(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(NGHEVY,nghevy,FLOATV,INTV,INT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6) 5469 5470 /*------------------------------------------------------------------ 5471 fortran filename : nizl.f 5472 ------------------------------------------------------------------*/ 5473 5474 #define NIZL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(NIZL,nizl,INT,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6) 5475 5476 /*------------------------------------------------------------------ 5477 fortran filename : nizlnw.f 5478 ------------------------------------------------------------------*/ 5479 5480 #define NIZLNW(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(NIZLNW,nizlnw,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7) 5481 5482 /*------------------------------------------------------------------ 5483 fortran filename : nn2bod.f 5484 ------------------------------------------------------------------*/ 5485 5486 #define NN2BOD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(NN2BOD,nn2bod,FLOATV,INTV,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) 5487 5488 /*------------------------------------------------------------------ 5489 fortran filename : normal.f 5490 ------------------------------------------------------------------*/ 5491 5492 #define NORMAL(A1) CCALLSFSUB1(NORMAL,normal,PFLOAT,A1) 5493 5494 /*------------------------------------------------------------------ 5495 fortran filename : nsigta.f 5496 ------------------------------------------------------------------*/ 5497 5498 #define NSIGTA(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(NSIGTA,nsigta,FLOAT,INT,PFLOAT,FLOATV,INTV,INTV,A1,A2,A3,A4,A5,A6) 5499 5500 /*------------------------------------------------------------------ 5501 fortran filename : nucevv.f 5502 ------------------------------------------------------------------*/ 5503 5504 #define NUCEVV(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(NUCEVV,nucevv,PINT,INT,DOUBLE,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7) 5505 5506 /*------------------------------------------------------------------ 5507 fortran filename : nucnuc.f 5508 ------------------------------------------------------------------*/ 5509 5510 #define NUCNUC(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12) CCALLSFSUB12(NUCNUC,nucnuc,INT,INT,DOUBLE,PDOUBLE,PLOGICAL,PLOGICAL,PINT,PINT,PINT,PINT,PLOGICAL,PLOGICAL,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12) 5511 5512 /*------------------------------------------------------------------ 5513 fortran filename : nucrec.f 5514 ------------------------------------------------------------------*/ 5515 5516 #define NUCREC(A1,A2) CCALLSFSUB2(NUCREC,nucrec,PINT,INT,A1,A2) 5517 5518 /*------------------------------------------------------------------ 5519 fortran filename : nucrel.f 5520 ------------------------------------------------------------------*/ 5521 5522 #define NUCREL(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(NUCREL,nucrel,INT,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8) 5523 5524 /*------------------------------------------------------------------ 5525 fortran filename : nucriv.f 5526 ------------------------------------------------------------------*/ 5527 5528 #define NUCRIV(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(NUCRIV,nucriv,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8) 5529 5530 /*------------------------------------------------------------------ 5531 fortran filename : nudisv.f 5532 ------------------------------------------------------------------*/ 5533 5534 PROTOCCALLSFFUN6(INT,NUDISV,nudisv,DOUBLE,INT,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE) 5535 #define NUDISV(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(NUDISV,nudisv,DOUBLE,INT,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A2,A3,A4,A5,A6,A7) 5536 5537 /*------------------------------------------------------------------ 5538 fortran filename : nuprel.f 5539 ------------------------------------------------------------------*/ 5540 5541 #define NUPREL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(NUPREL,nuprel,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6) 5542 5543 /*------------------------------------------------------------------ 5544 fortran filename : nwisel.f 5545 ------------------------------------------------------------------*/ 5546 5547 #define NWISEL(A1,A2) CCALLSFSUB2(NWISEL,nwisel,INT,LOGICAL,A1,A2) 5548 5549 /*------------------------------------------------------------------ 5550 fortran filename : parjet.f 5551 ------------------------------------------------------------------*/ 5552 5553 #define PARJET(A1,A2) CCALLSFSUB2(PARJET,parjet,PINT,INT,A1,A2) 5554 5555 /*------------------------------------------------------------------ 5556 fortran filename : partxs.f 5557 ------------------------------------------------------------------*/ 5558 5559 #define PARTXS(A1,A2,A3,A4,A5) CCALLSFSUB5(PARTXS,partxs,FLOATV,INTV,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5) 5560 5561 /*------------------------------------------------------------------ 5562 fortran filename : pbanh.f 5563 ------------------------------------------------------------------*/ 5564 5565 #define PBANH(A1) CCALLSFSUB1(PBANH,pbanh,PINT,A1) 5566 5567 /*------------------------------------------------------------------ 5568 fortran filename : pcsdat.f 5569 ------------------------------------------------------------------*/ 5570 5571 #define PCSDAT(A1,A2,A3) CCALLSFSUB3(PCSDAT,pcsdat,INT,INT,LOGICAL,A1,A2,A3) 5572 5573 /*------------------------------------------------------------------ 5574 fortran filename : peanut.f 5575 ------------------------------------------------------------------*/ 5576 5577 #define PEANUT(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(PEANUT,peanut,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7) 5578 5579 /*------------------------------------------------------------------ 5580 fortran filename : pfnclv.f 5581 ------------------------------------------------------------------*/ 5582 5583 PROTOCCALLSFFUN2(DOUBLE,PFNCLV,pfnclv,INT,LOGICAL) 5584 #define PFNCLV(A2,A3) CCALLSFFUN2(PFNCLV,pfnclv,INT,LOGICAL,A2,A3) 5585 5586 /*------------------------------------------------------------------ 5587 fortran filename : phasp.f 5588 ------------------------------------------------------------------*/ 5589 5590 #define PHASP() CCALLSFSUB0(PHASP,phasp) 5591 5592 /*------------------------------------------------------------------ 5593 fortran filename : phdset.f 5594 ------------------------------------------------------------------*/ 5595 5596 #define PHDSET(A1) CCALLSFSUB1(PHDSET,phdset,INT,A1) 5597 5598 /*------------------------------------------------------------------ 5599 fortran filename : phdwll.f 5600 ------------------------------------------------------------------*/ 5601 5602 #define PHDWLL(A1,A2,A3) CCALLSFSUB3(PHDWLL,phdwll,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3) 5603 5604 /*------------------------------------------------------------------ 5605 fortran filename : photon.f 5606 ------------------------------------------------------------------*/ 5607 5608 #define PHOTON(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19) CCALLSFSUB19(PHOTON,photon,FLOATV,INTV,PINT,PINT,INTV,INTV,PINT,PINT,FLOATV,PINT,PINT,PINT,INTV,INTV,FLOAT,PINT,INT,INT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19) 5609 5610 /*------------------------------------------------------------------ 5611 fortran filename : phpnuc.f 5612 ------------------------------------------------------------------*/ 5613 5614 #define PHPNUC() CCALLSFSUB0(PHPNUC,phpnuc) 5615 5616 /*------------------------------------------------------------------ 5617 fortran filename : pimabs.f 5618 ------------------------------------------------------------------*/ 5619 5620 #define PIMABS(A1) CCALLSFSUB1(PIMABS,pimabs,PINT,A1) 5621 5622 /*------------------------------------------------------------------ 5623 fortran filename : pioabs.f 5624 ------------------------------------------------------------------*/ 5625 5626 #define PIOABS(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12) CCALLSFSUB12(PIOABS,pioabs,INT,INT,DOUBLE,PDOUBLE,PLOGICAL,PLOGICAL,PINT,PINT,INT,INT,PLOGICAL,PLOGICAL,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12) 5627 5628 /*------------------------------------------------------------------ 5629 fortran filename : pmltpc.f 5630 ------------------------------------------------------------------*/ 5631 5632 PROTOCCALLSFFUN6(FLOAT,PMLTPC,pmltpc,INT,INT,INT,INT,FLOAT,FLOAT) 5633 #define PMLTPC(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(PMLTPC,pmltpc,INT,INT,INT,INT,FLOAT,FLOAT,A2,A3,A4,A5,A6,A7) 5634 5635 /*------------------------------------------------------------------ 5636 fortran filename : pmprab.f 5637 ------------------------------------------------------------------*/ 5638 5639 #define PMPRAB(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(PMPRAB,pmprab,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7) 5640 5641 /*------------------------------------------------------------------ 5642 fortran filename : poisso.f 5643 ------------------------------------------------------------------*/ 5644 5645 #define POISSO(A1,A2) CCALLSFSUB2(POISSO,poisso,FLOAT,PINT,A1,A2) 5646 5647 /*------------------------------------------------------------------ 5648 fortran filename : poli.f 5649 ------------------------------------------------------------------*/ 5650 5651 #define POLI(A1,A2) CCALLSFSUB2(POLI,poli,PDOUBLE,PDOUBLE,A1,A2) 5652 5653 /*------------------------------------------------------------------ 5654 fortran filename : prepre.f 5655 ------------------------------------------------------------------*/ 5656 /*------------------------------------------------------------------ 5657 fortran filename : qnrg.f 5658 ------------------------------------------------------------------*/ 5659 5660 PROTOCCALLSFFUN4(DOUBLE,QNRG,qnrg,DOUBLE,DOUBLE,DOUBLE,DOUBLE) 5661 #define QNRG(A2,A3,A4,A5) CCALLSFFUN4(QNRG,qnrg,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5) 5662 5663 /*------------------------------------------------------------------ 5664 fortran filename : raco.f 5665 ------------------------------------------------------------------*/ 5666 5667 #define RACO(A1,A2,A3) CCALLSFSUB3(RACO,raco,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3) 5668 5669 /*------------------------------------------------------------------ 5670 fortran filename : rakekv.f 5671 ------------------------------------------------------------------*/ 5672 5673 #define RAKEKV(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(RAKEKV,rakekv,INT,PDOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) 5674 5675 /*------------------------------------------------------------------ 5676 fortran filename : randc.f 5677 ------------------------------------------------------------------*/ 5678 5679 PROTOCCALLSFFUN1(DOUBLE,RANDC,randc,INT) 5680 #define RANDC(A2) CCALLSFFUN1(RANDC,randc,INT,A2) 5681 5682 /*------------------------------------------------------------------ 5683 fortran filename : ranres.f 5684 ------------------------------------------------------------------*/ 5685 5686 PROTOCCALLSFFUN1(FLOAT,RANRES,ranres,FLOAT) 5687 #define RANRES(A2) CCALLSFFUN1(RANRES,ranres,FLOAT,A2) 5688 5689 /*------------------------------------------------------------------ 5690 fortran filename : rbkekv.f 5691 ------------------------------------------------------------------*/ 5692 5693 #define RBKEKV(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(RBKEKV,rbkekv,INT,PDOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,PDOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) 5694 5695 /*------------------------------------------------------------------ 5696 fortran filename : rchanv.f 5697 ------------------------------------------------------------------*/ 5698 5699 #define RCHANV() CCALLSFSUB0(RCHANV,rchanv) 5700 5701 /*------------------------------------------------------------------ 5702 fortran filename : rnmaxf.f 5703 ------------------------------------------------------------------*/ 5704 5705 PROTOCCALLSFFUN1(FLOAT,RNMAXF,rnmaxf,FLOAT) 5706 #define RNMAXF(A2) CCALLSFFUN1(RNMAXF,rnmaxf,FLOAT,A2) 5707 5708 /*------------------------------------------------------------------ 5709 fortran filename : rotat.f 5710 ------------------------------------------------------------------*/ 5711 5712 #define ROTAT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(ROTAT,rotat,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) 5713 5714 /*------------------------------------------------------------------ 5715 fortran filename : rotes2.f 5716 ------------------------------------------------------------------*/ 5717 5718 #define ROTES2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(ROTES2,rotes2,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,INT,A1,A2,A3,A4,A5,A6) 5719 5720 /*------------------------------------------------------------------ 5721 fortran filename : rstsel.f 5722 ------------------------------------------------------------------*/ 5723 5724 #define RSTSEL(A1) CCALLSFSUB1(RSTSEL,rstsel,INT,A1) 5725 5726 /*------------------------------------------------------------------ 5727 fortran filename : rtmi.f 5728 ------------------------------------------------------------------*/ 5729 5730 #define RTMI(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(RTMI,rtmi,PFLOAT,PFLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,PINT,A1,A2,A3,A4,A5,A6,A7,A8) 5731 5732 /*------------------------------------------------------------------ 5733 fortran filename : samcst.f 5734 ------------------------------------------------------------------*/ 5735 5736 #define SAMCST(A1,A2,A3) CCALLSFSUB3(SAMCST,samcst,INT,DOUBLE,PDOUBLE,A1,A2,A3) 5737 5738 /*------------------------------------------------------------------ 5739 fortran filename : sbcomp.f 5740 ------------------------------------------------------------------*/ 5741 5742 #define SBCOMP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(SBCOMP,sbcomp,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6) 5743 5744 /*------------------------------------------------------------------ 5745 fortran filename : secegy.f 5746 ------------------------------------------------------------------*/ 5747 5748 #define SECEGY(A1,A2,A3,A4) CCALLSFSUB4(SECEGY,secegy,PFLOAT,FLOATV,PFLOAT,INTV,A1,A2,A3,A4) 5749 5750 /*------------------------------------------------------------------ 5751 fortran filename : secl11.f 5752 ------------------------------------------------------------------*/ 5753 5754 #define SECL11(A1,A2,A3,A4,A5) CCALLSFSUB5(SECL11,secl11,FLOATV,INTV,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5) 5755 5756 /*------------------------------------------------------------------ 5757 fortran filename : seclf1.f 5758 ------------------------------------------------------------------*/ 5759 5760 #define SECLF1(A1,A2,A3,A4,A5) CCALLSFSUB5(SECLF1,seclf1,FLOATV,INTV,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5) 5761 5762 /*------------------------------------------------------------------ 5763 fortran filename : seclf5.f 5764 ------------------------------------------------------------------*/ 5765 5766 #define SECLF5(A1,A2,A3,A4,A5) CCALLSFSUB5(SECLF5,seclf5,FLOATV,INTV,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5) 5767 5768 /*------------------------------------------------------------------ 5769 fortran filename : seclf7.f 5770 ------------------------------------------------------------------*/ 5771 5772 #define SECLF7(A1,A2,A3,A4,A5) CCALLSFSUB5(SECLF7,seclf7,FLOATV,INTV,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5) 5773 5774 /*------------------------------------------------------------------ 5775 fortran filename : seclf9.f 5776 ------------------------------------------------------------------*/ 5777 5778 #define SECLF9(A1,A2,A3,A4,A5) CCALLSFSUB5(SECLF9,seclf9,FLOATV,INTV,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5) 5779 5780 /*------------------------------------------------------------------ 5781 fortran filename : selfab.f 5782 ------------------------------------------------------------------*/ 5783 5784 #define SELFAB(A1) CCALLSFSUB1(SELFAB,selfab,PFLOAT,A1) 5785 5786 /*------------------------------------------------------------------ 5787 fortran filename : setcur.f 5788 ------------------------------------------------------------------*/ 5789 5790 #define SETCUR(A1) CCALLSFSUB1(SETCUR,setcur,INT,A1) 5791 5792 /*------------------------------------------------------------------ 5793 fortran filename : settrk.f 5794 ------------------------------------------------------------------*/ 5795 5796 #define SETTRK(A1) CCALLSFSUB1(SETTRK,settrk,INT,A1) 5797 5798 /*------------------------------------------------------------------ 5799 fortran filename : sfecfe.f 5800 ------------------------------------------------------------------*/ 5801 5802 #define SFECFE(A1,A2) CCALLSFSUB2(SFECFE,sfecfe,DOUBLE,DOUBLE,A1,A2) 5803 5804 /*------------------------------------------------------------------ 5805 fortran filename : sflraf.f 5806 ------------------------------------------------------------------*/ 5807 5808 PROTOCCALLSFFUN1(FLOAT,SFLRAF,sflraf,FLOAT) 5809 #define SFLRAF(A2) CCALLSFFUN1(SFLRAF,sflraf,FLOAT,A2) 5810 5811 /*------------------------------------------------------------------ 5812 fortran filename : shptot.f 5813 ------------------------------------------------------------------*/ 5814 5815 PROTOCCALLSFFUN2(DOUBLE,SHPTOT,shptot,INT,DOUBLE) 5816 #define SHPTOT(A2,A3) CCALLSFFUN2(SHPTOT,shptot,INT,DOUBLE,A2,A3) 5817 5818 /*------------------------------------------------------------------ 5819 fortran filename : sigel.f 5820 ------------------------------------------------------------------*/ 5821 5822 #define SIGEL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(SIGEL,sigel,INT,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6) 5823 5824 /*------------------------------------------------------------------ 5825 fortran filename : sigfer.f 5826 ------------------------------------------------------------------*/ 5827 5828 #define SIGFER(A1,A2,A3,A4) CCALLSFSUB4(SIGFER,sigfer,INT,DOUBLE,DOUBLE,LOGICAL,A1,A2,A3,A4) 5829 5830 /*------------------------------------------------------------------ 5831 fortran filename : sigmor.f 5832 ------------------------------------------------------------------*/ 5833 5834 PROTOCCALLSFFUN2(FLOAT,SIGMOR,sigmor,FLOAT,INT) 5835 #define SIGMOR(A2,A3) CCALLSFFUN2(SIGMOR,sigmor,FLOAT,INT,A2,A3) 5836 5837 /*------------------------------------------------------------------ 5838 fortran filename : sihael.f 5839 ------------------------------------------------------------------*/ 5840 5841 #define SIHAEL(A1,A2,A3,A4,A5) CCALLSFSUB5(SIHAEL,sihael,INT,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,A1,A2,A3,A4,A5) 5842 5843 /*------------------------------------------------------------------ 5844 fortran filename : sitsao.f 5845 ------------------------------------------------------------------*/ 5846 5847 PROTOCCALLSFFUN3(DOUBLE,SITSAO,sitsao,DOUBLE,INT,DOUBLE) 5848 #define SITSAO(A2,A3,A4) CCALLSFFUN3(SITSAO,sitsao,DOUBLE,INT,DOUBLE,A2,A3,A4) 5849 5850 /*------------------------------------------------------------------ 5851 fortran filename : stalin.f 5852 ------------------------------------------------------------------*/ 5853 5854 #define STALIN() CCALLSFSUB0(STALIN,stalin) 5855 5856 /*------------------------------------------------------------------ 5857 fortran filename : steep.f 5858 ------------------------------------------------------------------*/ 5859 5860 #define STEEP(A1) CCALLSFSUB1(STEEP,steep,PFLOAT,A1) 5861 5862 /*------------------------------------------------------------------ 5863 fortran filename : steeq.f 5864 ------------------------------------------------------------------*/ 5865 5866 #define STEEQ(A1,A2) CCALLSFSUB2(STEEQ,steeq,PFLOAT,INT,A1,A2) 5867 5868 /*------------------------------------------------------------------ 5869 fortran filename : steer.f 5870 ------------------------------------------------------------------*/ 5871 5872 #define STEER(A1) CCALLSFSUB1(STEER,steer,PFLOAT,A1) 5873 5874 /*------------------------------------------------------------------ 5875 fortran filename : stees.f 5876 ------------------------------------------------------------------*/ 5877 5878 #define STEES(A1,A2) CCALLSFSUB2(STEES,stees,PFLOAT,FLOAT,A1,A2) 5879 5880 /*------------------------------------------------------------------ 5881 fortran filename : stopar.f 5882 ------------------------------------------------------------------*/ 5883 5884 #define STOPAR(A1,A2) CCALLSFSUB2(STOPAR,stopar,INT,PINT,A1,A2) 5885 5886 /*------------------------------------------------------------------ 5887 fortran filename : stpair.f 5888 ------------------------------------------------------------------*/ 5889 5890 #define STPAIR() CCALLSFSUB0(STPAIR,stpair) 5891 5892 /*------------------------------------------------------------------ 5893 fortran filename : sverl2.f 5894 ------------------------------------------------------------------*/ 5895 5896 #define SVERL2(A1,A2) CCALLSFSUB2(SVERL2,sverl2,INT,PFLOAT,A1,A2) 5897 5898 /*------------------------------------------------------------------ 5899 fortran filename : svgam7.f 5900 ------------------------------------------------------------------*/ 5901 5902 #define SVGAM7(A1,A2) CCALLSFSUB2(SVGAM7,svgam7,FLOAT,PFLOAT,A1,A2) 5903 5904 /*------------------------------------------------------------------ 5905 fortran filename : tbsplt.f 5906 ------------------------------------------------------------------*/ 5907 5908 #define TBSPLT(A1,A2,A3,A4) CCALLSFSUB4(TBSPLT,tbsplt,FLOATV,FLOAT,INT,PFLOAT,A1,A2,A3,A4) 5909 5910 /*------------------------------------------------------------------ 5911 fortran filename : tchoic.f 5912 ------------------------------------------------------------------*/ 5913 5914 #define TCHOIC(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(TCHOIC,tchoic,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,INT,INT,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) 5915 5916 /*------------------------------------------------------------------ 5917 fortran filename : tdelay.f 5918 ------------------------------------------------------------------*/ 5919 5920 #define TDELAY(A1) CCALLSFSUB1(TDELAY,tdelay,PFLOAT,A1) 5921 5922 /*------------------------------------------------------------------ 5923 fortran filename : threpd.f 5924 ------------------------------------------------------------------*/ 5925 5926 #define THREPD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19) CCALLSFSUB19(THREPD,threpd,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19) 5927 5928 /*------------------------------------------------------------------ 5929 fortran filename : thrmsc.f 5930 ------------------------------------------------------------------*/ 5931 5932 #define THRMSC(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14) CCALLSFSUB14(THRMSC,thrmsc,FLOATV,INTV,INTV,INTV,PFLOAT,PFLOAT,PFLOAT,PFLOAT,FLOAT,PFLOAT,FLOATV,INT,PINT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14) 5933 5934 /*------------------------------------------------------------------ 5935 fortran filename : thrsel.f 5936 ------------------------------------------------------------------*/ 5937 5938 #define THRSEL(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19) CCALLSFSUB19(THRSEL,thrsel,INT,INT,INT,FLOAT,PFLOAT,PFLOAT,FLOAT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,PFLOAT,FLOATV,INT,INTV,INTV,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19) 5939 5940 /*------------------------------------------------------------------ 5941 fortran filename : trafo.f 5942 ------------------------------------------------------------------*/ 5943 5944 #define TRAFO(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15) CCALLSFSUB15(TRAFO,trafo,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15) 5945 5946 /*------------------------------------------------------------------ 5947 fortran filename : trahad.f 5948 ------------------------------------------------------------------*/ 5949 5950 #define TRAHAD(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(TRAHAD,trahad,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6) 5951 5952 /*------------------------------------------------------------------ 5953 fortran filename : trans.f 5954 ------------------------------------------------------------------*/ 5955 5956 #define TRANS(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(TRANS,trans,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9) 5957 5958 /*------------------------------------------------------------------ 5959 fortran filename : trebod.f 5960 ------------------------------------------------------------------*/ 5961 5962 #define TREBOD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14) CCALLSFSUB14(TREBOD,trebod,FLOATV,INTV,INT,INT,PINT,FLOAT,FLOAT,PFLOAT,FLOAT,FLOAT,PFLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14) 5963 5964 /*------------------------------------------------------------------ 5965 fortran filename : ttrans.f 5966 ------------------------------------------------------------------*/ 5967 5968 #define TTRANS(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(TTRANS,ttrans,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) 5969 5970 /*------------------------------------------------------------------ 5971 fortran filename : twob.f 5972 ------------------------------------------------------------------*/ 5973 5974 #define TWOB(A1,A2,A3) CCALLSFSUB3(TWOB,twob,INT,INT,FLOAT,A1,A2,A3) 5975 5976 /*------------------------------------------------------------------ 5977 fortran filename : twobod.f 5978 ------------------------------------------------------------------*/ 5979 5980 #define TWOBOD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(TWOBOD,twobod,FLOATV,INTV,PINT,INT,FLOAT,PFLOAT,FLOAT,PFLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) 5981 5982 /*------------------------------------------------------------------ 5983 fortran filename : twoclu.f 5984 ------------------------------------------------------------------*/ 5985 5986 #define TWOCLU(A1,A2,A3) CCALLSFSUB3(TWOCLU,twoclu,INT,INT,FLOAT,A1,A2,A3) 5987 5988 /*------------------------------------------------------------------ 5989 fortran filename : twopad.f 5990 ------------------------------------------------------------------*/ 5991 5992 #define TWOPAD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) CCALLSFSUB13(TWOPAD,twopad,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) 5993 5994 /*------------------------------------------------------------------ 5995 fortran filename : twopar.f 5996 ------------------------------------------------------------------*/ 5997 5998 #define TWOPAR(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18) CCALLSFSUB18(TWOPAR,twopar,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLE,PDOUBLE,DOUBLE,PDOUBLE,INT,INT,DOUBLE,DOUBLE,DOUBLE,INT,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18) 5999 6000 /*------------------------------------------------------------------ 6001 fortran filename : umofin.f 6002 ------------------------------------------------------------------*/ 6003 6004 #define UMOFIN(A1,A2,A3,A4) CCALLSFSUB4(UMOFIN,umofin,INT,PDOUBLE,PDOUBLE,PLOGICAL,A1,A2,A3,A4) 6005 6006 /*------------------------------------------------------------------ 6007 fortran filename : vecsub.f 6008 ------------------------------------------------------------------*/ 6009 6010 #define ADD(A1,A2,A3) CCALLSFSUB3(ADD,add,INT,INT,INT,A1,A2,A3) 6011 6012 6013 #define ADD3(A1,A2,A3) CCALLSFSUB3(ADD3,add3,INT,INT,INT,A1,A2,A3) 6014 6015 6016 #define SUB3(A1,A2,A3) CCALLSFSUB3(SUB3,sub3,INT,INT,INT,A1,A2,A3) 6017 6018 6019 #define CROSS3(A1,A2,A3) CCALLSFSUB3(CROSS3,cross3,INT,INT,INT,A1,A2,A3) 6020 6021 6022 #define SUB(A1,A2,A3) CCALLSFSUB3(SUB,sub,INT,INT,INT,A1,A2,A3) 6023 6024 6025 #define LOR(A1,A2,A3) CCALLSFSUB3(LOR,lor,INT,INT,INT,A1,A2,A3) 6026 6027 6028 #define LENGTX(A1,A2) CCALLSFSUB2(LENGTX,lengtx,INT,PFLOAT,A1,A2) 6029 6030 6031 #define ANG(A1,A2,A3,A4) CCALLSFSUB4(ANG,ang,INT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4) 6032 6033 6034 #define DEFS(A1,A2,A3) CCALLSFSUB3(DEFS,defs,INT,INT,INT,A1,A2,A3) 6035 6036 6037 #define TRAC(A1,A2,A3) CCALLSFSUB3(TRAC,trac,INT,INT,INT,A1,A2,A3) 6038 6039 /*------------------------------------------------------------------ 6040 fortran filename : verein.f 6041 ------------------------------------------------------------------*/ 6042 6043 #define VEREIN(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,A30,A31,A32,A33,A34) CCALLSFSUB34(VEREIN,verein,PINT,PINT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,INT,INT,INT,PINT,INT,INTV,INTV,PINT,PINT,PINT,PINT,PINT,PINT,DOUBLE,DOUBLE,DOUBLE,INT,INT,INT,INT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,A30,A31,A32,A33,A34) 6044 6045 /*------------------------------------------------------------------ 6046 fortran filename : xinneu.f 6047 ------------------------------------------------------------------*/ 6048 6049 PROTOCCALLSFFUN3(DOUBLE,XINNEU,xinneu,DOUBLE,DOUBLE,DOUBLE) 6050 #define XINNEU(A2,A3,A4) CCALLSFFUN3(XINNEU,xinneu,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4) 6051 6052 /*------------------------------------------------------------------ 6053 fortran filename : xinpro.f 6054 ------------------------------------------------------------------*/ 6055 6056 PROTOCCALLSFFUN3(DOUBLE,XINPRO,xinpro,DOUBLE,DOUBLE,DOUBLE) 6057 #define XINPRO(A2,A3,A4) CCALLSFFUN3(XINPRO,xinpro,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4) 6058 6059 /*------------------------------------------------------------------ 6060 fortran filename : xlamb.f 6061 ------------------------------------------------------------------*/ 6062 6063 PROTOCCALLSFFUN3(DOUBLE,XLAMB,xlamb,DOUBLE,DOUBLE,DOUBLE) 6064 #define XLAMB(A2,A3,A4) CCALLSFFUN3(XLAMB,xlamb,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4) 6065 6066 /*------------------------------------------------------------------ 6067 fortran filename : xsecn1.f 6068 ------------------------------------------------------------------*/ 6069 6070 #define XSECN1(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(XSECN1,xsecn1,INTV,INTV,PINT,PINT,PINT,PINT,FLOATV,INTV,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9) 6071 6072 /*------------------------------------------------------------------ 6073 fortran filename : xsecn2.f 6074 ------------------------------------------------------------------*/ 6075 6076 #define XSECN2(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25) CCALLSFSUB25(XSECN2,xsecn2,INTV,INTV,INTV,PINT,PINT,PFLOAT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PFLOAT,PFLOAT,PINT,PFLOAT,FLOATV,INTV,INT,PINT,INTV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25) 6077 6078 /*------------------------------------------------------------------ 6079 fortran filename : xsecn3.f 6080 ------------------------------------------------------------------*/ 6081 6082 #define XSECN3(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) CCALLSFSUB13(XSECN3,xsecn3,INTV,INTV,FLOATV,INTV,PINT,PINT,PINT,PINT,PFLOAT,INTV,FLOATV,INT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) 6083 6084 /*------------------------------------------------------------------ 6085 fortran filename : xsecn5.f 6086 ------------------------------------------------------------------*/ 6087 6088 #define XSECN5(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(XSECN5,xsecn5,INTV,PINT,PINT,PINT,PINT,PFLOAT,INTV,FLOATV,INTV,INT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) 6089 6090 /*------------------------------------------------------------------ 6091 fortran filename : xsecnu.f 6092 ------------------------------------------------------------------*/ 6093 6094 #define XSECNU(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(XSECNU,xsecnu,FLOATV,INT,FLOAT,PFLOAT,INT,INT,A1,A2,A3,A4,A5,A6) 6095 6096 /*------------------------------------------------------------------ 6097 fortran filename : xseneu.f 6098 ------------------------------------------------------------------*/ 6099 6100 PROTOCCALLSFFUN3(DOUBLE,XSENEU,xseneu,DOUBLE,DOUBLE,DOUBLE) 6101 #define XSENEU(A2,A3,A4) CCALLSFFUN3(XSENEU,xseneu,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4) 6102 6103 /*------------------------------------------------------------------ 6104 fortran filename : xsepro.f 6105 ------------------------------------------------------------------*/ 6106 6107 PROTOCCALLSFFUN3(DOUBLE,XSEPRO,xsepro,DOUBLE,DOUBLE,DOUBLE) 6108 #define XSEPRO(A2,A3,A4) CCALLSFFUN3(XSEPRO,xsepro,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4) 6109 6110 6111 #ifdef __cplusplus 6112 } /* extern "C" */ 6113 #endif 6114 6115 #endif /* #ifndef _GEANT321_H */
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.5 LXR engine. The LXR team |
|