EIC code displayed by LXR |
|
|
|
|||
File indexing completed on 2024-05-18 08:29:53
0001 #ifndef _GEANT315_H 0002 #define _GEANT315_H 0003 #include <cfortran/cfortran.h> 0004 0005 #ifdef __cplusplus 0006 extern "C" { 0007 #endif 0008 /*------------------------------------------------------------------ 0009 fortran filename : /cern/new/src/cfs/geant315/abbrch.f 0010 ------------------------------------------------------------------*/ 0011 0012 #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) 0013 0014 /*------------------------------------------------------------------ 0015 fortran filename : /cern/new/src/cfs/geant315/ainel.f 0016 ------------------------------------------------------------------*/ 0017 0018 PROTOCCALLSFFUN5(DOUBLE,AINEL,ainel,INT,INT,DOUBLE,DOUBLE,DOUBLE) 0019 #define AINEL(A2,A3,A4,A5,A6) CCALLSFFUN5(AINEL,ainel,INT,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5,A6) 0020 0021 /*------------------------------------------------------------------ 0022 fortran filename : /cern/new/src/cfs/geant315/akeka.f 0023 ------------------------------------------------------------------*/ 0024 0025 PROTOCCALLSFFUN3(DOUBLE,AKEKA,akeka,INT,DOUBLE,DOUBLE) 0026 #define AKEKA(A2,A3,A4) CCALLSFFUN3(AKEKA,akeka,INT,DOUBLE,DOUBLE,A2,A3,A4) 0027 0028 /*------------------------------------------------------------------ 0029 fortran filename : /cern/new/src/cfs/geant315/altra.f 0030 ------------------------------------------------------------------*/ 0031 0032 #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) 0033 0034 /*------------------------------------------------------------------ 0035 fortran filename : /cern/new/src/cfs/geant315/altraf.f 0036 ------------------------------------------------------------------*/ 0037 0038 #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) 0039 0040 /*------------------------------------------------------------------ 0041 fortran filename : /cern/new/src/cfs/geant315/amga.f 0042 ------------------------------------------------------------------*/ 0043 0044 PROTOCCALLSFFUN1(DOUBLE,AMGA,amga,INT) 0045 #define AMGA(A2) CCALLSFFUN1(AMGA,amga,INT,A2) 0046 0047 /*------------------------------------------------------------------ 0048 fortran filename : /cern/new/src/cfs/geant315/ankeka.f 0049 ------------------------------------------------------------------*/ 0050 0051 PROTOCCALLSFFUN4(DOUBLE,ANKEKA,ankeka,INT,DOUBLE,DOUBLE,DOUBLE) 0052 #define ANKEKA(A2,A3,A4,A5) CCALLSFFUN4(ANKEKA,ankeka,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5) 0053 0054 /*------------------------------------------------------------------ 0055 fortran filename : /cern/new/src/cfs/geant315/atomas.f 0056 ------------------------------------------------------------------*/ 0057 0058 PROTOCCALLSFFUN2(FLOAT,ATOMAS,atomas,FLOAT,FLOAT) 0059 #define ATOMAS(A2,A3) CCALLSFFUN2(ATOMAS,atomas,FLOAT,FLOAT,A2,A3) 0060 0061 /*------------------------------------------------------------------ 0062 fortran filename : /cern/new/src/cfs/geant315/bamjet.f 0063 ------------------------------------------------------------------*/ 0064 0065 #define BAMJET(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(BAMJET,bamjet,PINT,INT,INT,INT,INT,DOUBLE,INT,A1,A2,A3,A4,A5,A6,A7) 0066 0067 /*------------------------------------------------------------------ 0068 fortran filename : /cern/new/src/cfs/geant315/bamjev.f 0069 ------------------------------------------------------------------*/ 0070 0071 #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) 0072 0073 /*------------------------------------------------------------------ 0074 fortran filename : /cern/new/src/cfs/geant315/bekeka.f 0075 ------------------------------------------------------------------*/ 0076 0077 PROTOCCALLSFFUN4(DOUBLE,BEKEKA,bekeka,INT,DOUBLE,DOUBLE,DOUBLE) 0078 #define BEKEKA(A2,A3,A4,A5) CCALLSFFUN4(BEKEKA,bekeka,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5) 0079 0080 /*------------------------------------------------------------------ 0081 fortran filename : /cern/new/src/cfs/geant315/berttp.f 0082 ------------------------------------------------------------------*/ 0083 0084 #define BERTTP() CCALLSFSUB0(BERTTP,berttp) 0085 0086 /*------------------------------------------------------------------ 0087 fortran filename : /cern/new/src/cfs/geant315/beta.f 0088 ------------------------------------------------------------------*/ 0089 0090 PROTOCCALLSFFUN3(DOUBLE,BETA,beta,DOUBLE,DOUBLE,DOUBLE) 0091 #define BETA(A2,A3,A4) CCALLSFFUN3(BETA,beta,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4) 0092 0093 /*------------------------------------------------------------------ 0094 fortran filename : /cern/new/src/cfs/geant315/betarn.f 0095 ------------------------------------------------------------------*/ 0096 0097 PROTOCCALLSFFUN2(DOUBLE,BETARN,betarn,DOUBLE,DOUBLE) 0098 #define BETARN(A2,A3) CCALLSFFUN2(BETARN,betarn,DOUBLE,DOUBLE,A2,A3) 0099 0100 /*------------------------------------------------------------------ 0101 fortran filename : /cern/new/src/cfs/geant315/betrst.f 0102 ------------------------------------------------------------------*/ 0103 0104 PROTOCCALLSFFUN4(DOUBLE,BETRST,betrst,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE) 0105 #define BETRST(A2,A3,A4,A5) CCALLSFFUN4(BETRST,betrst,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A2,A3,A4,A5) 0106 0107 /*------------------------------------------------------------------ 0108 fortran filename : /cern/new/src/cfs/geant315/bkeka.f 0109 ------------------------------------------------------------------*/ 0110 0111 PROTOCCALLSFFUN3(DOUBLE,BKEKA,bkeka,INT,DOUBLE,DOUBLE) 0112 #define BKEKA(A2,A3,A4) CCALLSFFUN3(BKEKA,bkeka,INT,DOUBLE,DOUBLE,A2,A3,A4) 0113 0114 /*------------------------------------------------------------------ 0115 fortran filename : /cern/new/src/cfs/geant315/bklass.f 0116 ------------------------------------------------------------------*/ 0117 0118 #define BKLASS(A1,A2,A3,A4,A5) CCALLSFSUB5(BKLASS,bklass,INT,INT,INT,PINT,PINT,A1,A2,A3,A4,A5) 0119 0120 /*------------------------------------------------------------------ 0121 fortran filename : /cern/new/src/cfs/geant315/bnkeka.f 0122 ------------------------------------------------------------------*/ 0123 0124 PROTOCCALLSFFUN4(DOUBLE,BNKEKA,bnkeka,INT,DOUBLE,DOUBLE,DOUBLE) 0125 #define BNKEKA(A2,A3,A4,A5) CCALLSFFUN4(BNKEKA,bnkeka,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5) 0126 0127 /*------------------------------------------------------------------ 0128 fortran filename : /cern/new/src/cfs/geant315/calumo.f 0129 ------------------------------------------------------------------*/ 0130 0131 #define CALUMO(A1,A2) CCALLSFSUB2(CALUMO,calumo,INT,INT,A1,A2) 0132 0133 /*------------------------------------------------------------------ 0134 fortran filename : /cern/new/src/cfs/geant315/calumv.f 0135 ------------------------------------------------------------------*/ 0136 0137 #define CALUMV(A1,A2) CCALLSFSUB2(CALUMV,calumv,INT,INT,A1,A2) 0138 0139 /*------------------------------------------------------------------ 0140 fortran filename : /cern/new/src/cfs/geant315/captur.f 0141 ------------------------------------------------------------------*/ 0142 0143 #define CAPTUR(A1) CCALLSFSUB1(CAPTUR,captur,PINT,A1) 0144 0145 /*------------------------------------------------------------------ 0146 fortran filename : /cern/new/src/cfs/geant315/casal0.f 0147 ------------------------------------------------------------------*/ 0148 0149 #define CASAL0(A1,A2,A3) CCALLSFSUB3(CASAL0,casal0,INT,PINT,PINT,A1,A2,A3) 0150 0151 /*------------------------------------------------------------------ 0152 fortran filename : /cern/new/src/cfs/geant315/casaom.f 0153 ------------------------------------------------------------------*/ 0154 0155 #define CASAOM(A1,A2,A3) CCALLSFSUB3(CASAOM,casaom,INT,INT,INT,A1,A2,A3) 0156 0157 /*------------------------------------------------------------------ 0158 fortran filename : /cern/new/src/cfs/geant315/casasm.f 0159 ------------------------------------------------------------------*/ 0160 0161 #define CASASM(A1,A2,A3) CCALLSFSUB3(CASASM,casasm,INT,PINT,PINT,A1,A2,A3) 0162 0163 /*------------------------------------------------------------------ 0164 fortran filename : /cern/new/src/cfs/geant315/casasp.f 0165 ------------------------------------------------------------------*/ 0166 0167 #define CASASP(A1,A2,A3) CCALLSFSUB3(CASASP,casasp,INT,PINT,PINT,A1,A2,A3) 0168 0169 /*------------------------------------------------------------------ 0170 fortran filename : /cern/new/src/cfs/geant315/casax0.f 0171 ------------------------------------------------------------------*/ 0172 0173 #define CASAX0(A1,A2,A3) CCALLSFSUB3(CASAX0,casax0,INT,INT,INT,A1,A2,A3) 0174 0175 /*------------------------------------------------------------------ 0176 fortran filename : /cern/new/src/cfs/geant315/casaxm.f 0177 ------------------------------------------------------------------*/ 0178 0179 #define CASAXM(A1,A2,A3) CCALLSFSUB3(CASAXM,casaxm,INT,INT,INT,A1,A2,A3) 0180 0181 /*------------------------------------------------------------------ 0182 fortran filename : /cern/new/src/cfs/geant315/casfrg.f 0183 ------------------------------------------------------------------*/ 0184 0185 #define CASFRG(A1,A2,A3) CCALLSFSUB3(CASFRG,casfrg,PINT,INT,INT,A1,A2,A3) 0186 0187 /*------------------------------------------------------------------ 0188 fortran filename : /cern/new/src/cfs/geant315/cask0.f 0189 ------------------------------------------------------------------*/ 0190 0191 #define CASK0(A1,A2,A3) CCALLSFSUB3(CASK0,cask0,INT,PINT,PINT,A1,A2,A3) 0192 0193 /*------------------------------------------------------------------ 0194 fortran filename : /cern/new/src/cfs/geant315/cask0b.f 0195 ------------------------------------------------------------------*/ 0196 0197 #define CASK0B(A1,A2,A3) CCALLSFSUB3(CASK0B,cask0b,INT,PINT,PINT,A1,A2,A3) 0198 0199 /*------------------------------------------------------------------ 0200 fortran filename : /cern/new/src/cfs/geant315/caskm.f 0201 ------------------------------------------------------------------*/ 0202 0203 #define CASKM(A1,A2,A3) CCALLSFSUB3(CASKM,caskm,INT,PINT,PINT,A1,A2,A3) 0204 0205 /*------------------------------------------------------------------ 0206 fortran filename : /cern/new/src/cfs/geant315/caskp.f 0207 ------------------------------------------------------------------*/ 0208 0209 #define CASKP(A1,A2,A3) CCALLSFSUB3(CASKP,caskp,INT,PINT,PINT,A1,A2,A3) 0210 0211 /*------------------------------------------------------------------ 0212 fortran filename : /cern/new/src/cfs/geant315/casl0.f 0213 ------------------------------------------------------------------*/ 0214 0215 #define CASL0(A1,A2,A3) CCALLSFSUB3(CASL0,casl0,INT,PINT,PINT,A1,A2,A3) 0216 0217 /*------------------------------------------------------------------ 0218 fortran filename : /cern/new/src/cfs/geant315/casn.f 0219 ------------------------------------------------------------------*/ 0220 0221 #define CASN(A1,A2,A3) CCALLSFSUB3(CASN,casn,INT,PINT,PINT,A1,A2,A3) 0222 0223 /*------------------------------------------------------------------ 0224 fortran filename : /cern/new/src/cfs/geant315/casnb.f 0225 ------------------------------------------------------------------*/ 0226 0227 #define CASNB(A1,A2,A3) CCALLSFSUB3(CASNB,casnb,INT,PINT,PINT,A1,A2,A3) 0228 0229 /*------------------------------------------------------------------ 0230 fortran filename : /cern/new/src/cfs/geant315/casom.f 0231 ------------------------------------------------------------------*/ 0232 0233 #define CASOM(A1,A2,A3) CCALLSFSUB3(CASOM,casom,INT,PINT,PINT,A1,A2,A3) 0234 0235 /*------------------------------------------------------------------ 0236 fortran filename : /cern/new/src/cfs/geant315/casp.f 0237 ------------------------------------------------------------------*/ 0238 0239 #define CASP(A1,A2,A3) CCALLSFSUB3(CASP,casp,INT,PINT,PINT,A1,A2,A3) 0240 0241 /*------------------------------------------------------------------ 0242 fortran filename : /cern/new/src/cfs/geant315/caspb.f 0243 ------------------------------------------------------------------*/ 0244 0245 #define CASPB(A1,A2,A3) CCALLSFSUB3(CASPB,caspb,INT,PINT,PINT,A1,A2,A3) 0246 0247 /*------------------------------------------------------------------ 0248 fortran filename : /cern/new/src/cfs/geant315/caspim.f 0249 ------------------------------------------------------------------*/ 0250 0251 #define CASPIM(A1,A2,A3) CCALLSFSUB3(CASPIM,caspim,INT,PINT,PINT,A1,A2,A3) 0252 0253 /*------------------------------------------------------------------ 0254 fortran filename : /cern/new/src/cfs/geant315/caspip.f 0255 ------------------------------------------------------------------*/ 0256 0257 #define CASPIP(A1,A2,A3) CCALLSFSUB3(CASPIP,caspip,INT,PINT,PINT,A1,A2,A3) 0258 0259 /*------------------------------------------------------------------ 0260 fortran filename : /cern/new/src/cfs/geant315/cassm.f 0261 ------------------------------------------------------------------*/ 0262 0263 #define CASSM(A1,A2,A3) CCALLSFSUB3(CASSM,cassm,INT,PINT,PINT,A1,A2,A3) 0264 0265 /*------------------------------------------------------------------ 0266 fortran filename : /cern/new/src/cfs/geant315/cassp.f 0267 ------------------------------------------------------------------*/ 0268 0269 #define CASSP(A1,A2,A3) CCALLSFSUB3(CASSP,cassp,INT,PINT,PINT,A1,A2,A3) 0270 0271 /*------------------------------------------------------------------ 0272 fortran filename : /cern/new/src/cfs/geant315/casx0.f 0273 ------------------------------------------------------------------*/ 0274 0275 #define CASX0(A1,A2,A3) CCALLSFSUB3(CASX0,casx0,INT,PINT,PINT,A1,A2,A3) 0276 0277 /*------------------------------------------------------------------ 0278 fortran filename : /cern/new/src/cfs/geant315/casxm.f 0279 ------------------------------------------------------------------*/ 0280 0281 #define CASXM(A1,A2,A3) CCALLSFSUB3(CASXM,casxm,INT,PINT,PINT,A1,A2,A3) 0282 0283 /*------------------------------------------------------------------ 0284 fortran filename : /cern/new/src/cfs/geant315/cgaffi.f 0285 ------------------------------------------------------------------*/ 0286 0287 #define CGAFFI(A1,A2) CCALLSFSUB2(CGAFFI,cgaffi,PFLOAT,PFLOAT,A1,A2) 0288 0289 /*------------------------------------------------------------------ 0290 fortran filename : /cern/new/src/cfs/geant315/cgbfit.f 0291 ------------------------------------------------------------------*/ 0292 0293 #define CGBFIT(A1,A2,A3) CCALLSFSUB3(CGBFIT,cgbfit,FLOATV,FLOATV,PINT,A1,A2,A3) 0294 0295 /*------------------------------------------------------------------ 0296 fortran filename : /cern/new/src/cfs/geant315/cgbint.f 0297 ------------------------------------------------------------------*/ 0298 0299 #define CGBINT(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBINT,cgbint,FLOATV,FLOATV,INT,PFLOAT,PINT,A1,A2,A3,A4,A5) 0300 0301 /*------------------------------------------------------------------ 0302 fortran filename : /cern/new/src/cfs/geant315/cgbmmt.f 0303 ------------------------------------------------------------------*/ 0304 0305 #define CGBMMT(A1,A2,A3) CCALLSFSUB3(CGBMMT,cgbmmt,FLOATV,FLOATV,PINT,A1,A2,A3) 0306 0307 /*------------------------------------------------------------------ 0308 fortran filename : /cern/new/src/cfs/geant315/cgbool.f 0309 ------------------------------------------------------------------*/ 0310 0311 #define CGBOOL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGBOOL,cgbool,INT,INT,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4,A5,A6) 0312 0313 /*------------------------------------------------------------------ 0314 fortran filename : /cern/new/src/cfs/geant315/cgbox.f 0315 ------------------------------------------------------------------*/ 0316 0317 #define CGBOX(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBOX,cgbox,PFLOAT,INT,INT,INT,PFLOAT,A1,A2,A3,A4,A5) 0318 0319 /*------------------------------------------------------------------ 0320 fortran filename : /cern/new/src/cfs/geant315/cgbrik.f 0321 ------------------------------------------------------------------*/ 0322 0323 #define CGBRIK(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBRIK,cgbrik,FLOAT,FLOAT,FLOAT,INT,PFLOAT,A1,A2,A3,A4,A5) 0324 0325 /*------------------------------------------------------------------ 0326 fortran filename : /cern/new/src/cfs/geant315/cgbsea.f 0327 ------------------------------------------------------------------*/ 0328 0329 #define CGBSEA(A1,A2,A3,A4) CCALLSFSUB4(CGBSEA,cgbsea,FLOATV,FLOATV,PINT,PINT,A1,A2,A3,A4) 0330 0331 /*------------------------------------------------------------------ 0332 fortran filename : /cern/new/src/cfs/geant315/cgbsec.f 0333 ------------------------------------------------------------------*/ 0334 0335 #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) 0336 0337 /*------------------------------------------------------------------ 0338 fortran filename : /cern/new/src/cfs/geant315/cgbsor.f 0339 ------------------------------------------------------------------*/ 0340 0341 #define CGBSOR(A1,A2) CCALLSFSUB2(CGBSOR,cgbsor,PINT,PFLOAT,A1,A2) 0342 0343 /*------------------------------------------------------------------ 0344 fortran filename : /cern/new/src/cfs/geant315/cgbsub.f 0345 ------------------------------------------------------------------*/ 0346 0347 #define CGBSUB(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGBSUB,cgbsub,INT,FLOATV,PFLOAT,INT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6) 0348 0349 /*------------------------------------------------------------------ 0350 fortran filename : /cern/new/src/cfs/geant315/cgbtef.f 0351 ------------------------------------------------------------------*/ 0352 0353 #define CGBTEF(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBTEF,cgbtef,INT,INT,FLOATV,FLOATV,PFLOAT,A1,A2,A3,A4,A5) 0354 0355 /*------------------------------------------------------------------ 0356 fortran filename : /cern/new/src/cfs/geant315/cgbtfp.f 0357 ------------------------------------------------------------------*/ 0358 0359 #define CGBTFP(A1,A2,A3) CCALLSFSUB3(CGBTFP,cgbtfp,FLOATV,FLOATV,PFLOAT,A1,A2,A3) 0360 0361 /*------------------------------------------------------------------ 0362 fortran filename : /cern/new/src/cfs/geant315/cgbttt.f 0363 ------------------------------------------------------------------*/ 0364 /* 0365 #define cgbttt_ELEMS_1 ZTRINGV_NUM(1) 0366 #define cgbttt_ELEMLEN_1 ZTRINGV_NUM(2) 0367 */ 0368 0369 #define CGBTTT(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBTTT,cgbttt,STRING,FLOAT,FLOAT,INT,PINT,A1,A2,A3,A4,A5) 0370 0371 /*------------------------------------------------------------------ 0372 fortran filename : /cern/new/src/cfs/geant315/cgcev.f 0373 ------------------------------------------------------------------*/ 0374 0375 #define CGCEV(A1,A2) CCALLSFSUB2(CGCEV,cgcev,INT,FLOATV,A1,A2) 0376 0377 /*------------------------------------------------------------------ 0378 fortran filename : /cern/new/src/cfs/geant315/cgcopy.f 0379 ------------------------------------------------------------------*/ 0380 0381 #define CGCOPY(A1,A2,A3) CCALLSFSUB3(CGCOPY,cgcopy,FLOATV,INT,PFLOAT,A1,A2,A3) 0382 0383 /*------------------------------------------------------------------ 0384 fortran filename : /cern/new/src/cfs/geant315/cgelli.f 0385 ------------------------------------------------------------------*/ 0386 0387 #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) 0388 0389 /*------------------------------------------------------------------ 0390 fortran filename : /cern/new/src/cfs/geant315/cgfac2.f 0391 ------------------------------------------------------------------*/ 0392 0393 #define CGFAC2(A1,A2,A3,A4) CCALLSFSUB4(CGFAC2,cgfac2,PFLOAT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4) 0394 0395 /*------------------------------------------------------------------ 0396 fortran filename : /cern/new/src/cfs/geant315/cgfaco.f 0397 ------------------------------------------------------------------*/ 0398 0399 #define CGFACO(A1,A2,A3,A4,A5) CCALLSFSUB5(CGFACO,cgfaco,PFLOAT,PFLOAT,INT,INT,FLOAT,A1,A2,A3,A4,A5) 0400 0401 /*------------------------------------------------------------------ 0402 fortran filename : /cern/new/src/cfs/geant315/cgfare.f 0403 ------------------------------------------------------------------*/ 0404 0405 #define CGFARE(A1,A2,A3,A4) CCALLSFSUB4(CGFARE,cgfare,INT,FLOATV,PINT,INT,A1,A2,A3,A4) 0406 0407 /*------------------------------------------------------------------ 0408 fortran filename : /cern/new/src/cfs/geant315/cgfvis.f 0409 ------------------------------------------------------------------*/ 0410 0411 #define CGFVIS(A1,A2,A3,A4) CCALLSFSUB4(CGFVIS,cgfvis,INT,FLOATV,PINT,INT,A1,A2,A3,A4) 0412 0413 /*------------------------------------------------------------------ 0414 fortran filename : /cern/new/src/cfs/geant315/cghcre.f 0415 ------------------------------------------------------------------*/ 0416 0417 #define CGHCRE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGHCRE,cghcre,INT,INT,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4,A5,A6) 0418 0419 /*------------------------------------------------------------------ 0420 fortran filename : /cern/new/src/cfs/geant315/cghdfa.f 0421 ------------------------------------------------------------------*/ 0422 0423 #define CGHDFA(A1,A2,A3,A4,A5) CCALLSFSUB5(CGHDFA,cghdfa,INT,PFLOAT,INTV,INTV,PFLOAT,A1,A2,A3,A4,A5) 0424 0425 /*------------------------------------------------------------------ 0426 fortran filename : /cern/new/src/cfs/geant315/cghend.f 0427 ------------------------------------------------------------------*/ 0428 0429 #define CGHEND(A1,A2,A3) CCALLSFSUB3(CGHEND,cghend,PFLOAT,PINT,PFLOAT,A1,A2,A3) 0430 0431 /*------------------------------------------------------------------ 0432 fortran filename : /cern/new/src/cfs/geant315/cgheva.f 0433 ------------------------------------------------------------------*/ 0434 0435 #define CGHEVA(A1,A2) CCALLSFSUB2(CGHEVA,cgheva,FLOATV,PFLOAT,A1,A2) 0436 0437 /*------------------------------------------------------------------ 0438 fortran filename : /cern/new/src/cfs/geant315/cghins.f 0439 ------------------------------------------------------------------*/ 0440 0441 #define CGHINS(A1,A2,A3) CCALLSFSUB3(CGHINS,cghins,FLOATV,PFLOAT,INT,A1,A2,A3) 0442 0443 /*------------------------------------------------------------------ 0444 fortran filename : /cern/new/src/cfs/geant315/cghmov.f 0445 ------------------------------------------------------------------*/ 0446 0447 #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) 0448 0449 /*------------------------------------------------------------------ 0450 fortran filename : /cern/new/src/cfs/geant315/cghpla.f 0451 ------------------------------------------------------------------*/ 0452 0453 #define CGHPLA(A1,A2,A3) CCALLSFSUB3(CGHPLA,cghpla,INTV,PFLOAT,PFLOAT,A1,A2,A3) 0454 0455 /*------------------------------------------------------------------ 0456 fortran filename : /cern/new/src/cfs/geant315/cghren.f 0457 ------------------------------------------------------------------*/ 0458 0459 #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) 0460 0461 /*------------------------------------------------------------------ 0462 fortran filename : /cern/new/src/cfs/geant315/cghshi.f 0463 ------------------------------------------------------------------*/ 0464 0465 #define CGHSHI(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGHSHI,cghshi,INT,PINT,PINT,INTV,PINT,PINT,A1,A2,A3,A4,A5,A6) 0466 0467 /*------------------------------------------------------------------ 0468 fortran filename : /cern/new/src/cfs/geant315/cghsiz.f 0469 ------------------------------------------------------------------*/ 0470 0471 #define CGHSIZ(A1,A2,A3,A4,A5) CCALLSFSUB5(CGHSIZ,cghsiz,FLOATV,INT,PINT,PINT,INT,A1,A2,A3,A4,A5) 0472 0473 /*------------------------------------------------------------------ 0474 fortran filename : /cern/new/src/cfs/geant315/cghtre.f 0475 ------------------------------------------------------------------*/ 0476 0477 #define CGHTRE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGHTRE,cghtre,INT,PFLOAT,PINT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 0478 0479 /*------------------------------------------------------------------ 0480 fortran filename : /cern/new/src/cfs/geant315/cginve.f 0481 ------------------------------------------------------------------*/ 0482 0483 #define CGINVE(A1) CCALLSFSUB1(CGINVE,cginve,PFLOAT,A1) 0484 0485 /*------------------------------------------------------------------ 0486 fortran filename : /cern/new/src/cfs/geant315/cgmnmx.f 0487 ------------------------------------------------------------------*/ 0488 0489 #define CGMNMX(A1,A2,A3) CCALLSFSUB3(CGMNMX,cgmnmx,FLOATV,PFLOAT,PFLOAT,A1,A2,A3) 0490 0491 /*------------------------------------------------------------------ 0492 fortran filename : /cern/new/src/cfs/geant315/cgrifl.f 0493 ------------------------------------------------------------------*/ 0494 0495 #define CGRIFL(A1,A2) CCALLSFSUB2(CGRIFL,cgrifl,PFLOAT,PFLOAT,A1,A2) 0496 0497 /*------------------------------------------------------------------ 0498 fortran filename : /cern/new/src/cfs/geant315/cgsaan.f 0499 ------------------------------------------------------------------*/ 0500 0501 #define CGSAAN(A1,A2,A3,A4,A5) CCALLSFSUB5(CGSAAN,cgsaan,FLOAT,FLOAT,INT,INT,PINT,A1,A2,A3,A4,A5) 0502 0503 /*------------------------------------------------------------------ 0504 fortran filename : /cern/new/src/cfs/geant315/cgscop.f 0505 ------------------------------------------------------------------*/ 0506 0507 #define CGSCOP(A1,A2,A3,A4) CCALLSFSUB4(CGSCOP,cgscop,INT,FLOATV,PFLOAT,PFLOAT,A1,A2,A3,A4) 0508 0509 /*------------------------------------------------------------------ 0510 fortran filename : /cern/new/src/cfs/geant315/cgshel.f 0511 ------------------------------------------------------------------*/ 0512 0513 #define CGSHEL(A1,A2,A3,A4) CCALLSFSUB4(CGSHEL,cgshel,FLOAT,FLOAT,PINT,PFLOAT,A1,A2,A3,A4) 0514 0515 /*------------------------------------------------------------------ 0516 fortran filename : /cern/new/src/cfs/geant315/cgshif.f 0517 ------------------------------------------------------------------*/ 0518 0519 #define CGSHIF(A1,A2,A3,A4) CCALLSFSUB4(CGSHIF,cgshif,FLOAT,FLOAT,FLOAT,FLOATV,A1,A2,A3,A4) 0520 0521 /*------------------------------------------------------------------ 0522 fortran filename : /cern/new/src/cfs/geant315/cgsize.f 0523 ------------------------------------------------------------------*/ 0524 0525 PROTOCCALLSFFUN4(FLOAT,CGSIZE,cgsize,INT,INT,INTV,INTV) 0526 #define CGSIZE(A2,A3,A4,A5) CCALLSFFUN4(CGSIZE,cgsize,INT,INT,INTV,INTV,A2,A3,A4,A5) 0527 0528 /*------------------------------------------------------------------ 0529 fortran filename : /cern/new/src/cfs/geant315/cgslic.f 0530 ------------------------------------------------------------------*/ 0531 0532 #define CGSLIC(A1,A2,A3,A4) CCALLSFSUB4(CGSLIC,cgslic,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4) 0533 0534 /*------------------------------------------------------------------ 0535 fortran filename : /cern/new/src/cfs/geant315/cgsnor.f 0536 ------------------------------------------------------------------*/ 0537 0538 #define CGSNOR(A1) CCALLSFSUB1(CGSNOR,cgsnor,PFLOAT,A1) 0539 0540 /*------------------------------------------------------------------ 0541 fortran filename : /cern/new/src/cfs/geant315/cgsphe.f 0542 ------------------------------------------------------------------*/ 0543 0544 #define CGSPHE(A1,A2,A3,A4,A5) CCALLSFSUB5(CGSPHE,cgsphe,FLOAT,INT,INT,INT,FLOATV,A1,A2,A3,A4,A5) 0545 0546 /*------------------------------------------------------------------ 0547 fortran filename : /cern/new/src/cfs/geant315/cgsub.f 0548 ------------------------------------------------------------------*/ 0549 0550 #define CGSUB(A1,A2,A3,A4) CCALLSFSUB4(CGSUB,cgsub,FLOATV,FLOATV,INT,FLOATV,A1,A2,A3,A4) 0551 0552 /*------------------------------------------------------------------ 0553 fortran filename : /cern/new/src/cfs/geant315/cgtset.f 0554 ------------------------------------------------------------------*/ 0555 0556 #define CGTSET(A1,A2,A3) CCALLSFSUB3(CGTSET,cgtset,INT,PFLOAT,PINT,A1,A2,A3) 0557 0558 /*------------------------------------------------------------------ 0559 fortran filename : /cern/new/src/cfs/geant315/cgtstr.f 0560 ------------------------------------------------------------------*/ 0561 0562 #define CGTSTR(A1,A2) CCALLSFSUB2(CGTSTR,cgtstr,FLOATV,PINT,A1,A2) 0563 0564 /*------------------------------------------------------------------ 0565 fortran filename : /cern/new/src/cfs/geant315/cgvedg.f 0566 ------------------------------------------------------------------*/ 0567 0568 #define CGVEDG(A1,A2,A3,A4) CCALLSFSUB4(CGVEDG,cgvedg,INT,FLOATV,FLOATV,PINT,A1,A2,A3,A4) 0569 0570 /*------------------------------------------------------------------ 0571 fortran filename : /cern/new/src/cfs/geant315/cgvhed.f 0572 ------------------------------------------------------------------*/ 0573 0574 #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) 0575 0576 /*------------------------------------------------------------------ 0577 fortran filename : /cern/new/src/cfs/geant315/cgvtef.f 0578 ------------------------------------------------------------------*/ 0579 0580 #define CGVTEF(A1,A2,A3) CCALLSFSUB3(CGVTEF,cgvtef,INTV,PFLOAT,PINT,A1,A2,A3) 0581 0582 /*------------------------------------------------------------------ 0583 fortran filename : /cern/new/src/cfs/geant315/cgvtin.f 0584 ------------------------------------------------------------------*/ 0585 0586 #define CGVTIN(A1,A2,A3) CCALLSFSUB3(CGVTIN,cgvtin,FLOAT,FLOAT,INT,A1,A2,A3) 0587 0588 /*------------------------------------------------------------------ 0589 fortran filename : /cern/new/src/cfs/geant315/cgwire.f 0590 ------------------------------------------------------------------*/ 0591 0592 #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) 0593 0594 /*------------------------------------------------------------------ 0595 fortran filename : /cern/new/src/cfs/geant315/cgwsor.f 0596 ------------------------------------------------------------------*/ 0597 0598 #define CGWSOR(A1,A2) CCALLSFSUB2(CGWSOR,cgwsor,PINT,PFLOAT,A1,A2) 0599 0600 /*------------------------------------------------------------------ 0601 fortran filename : /cern/new/src/cfs/geant315/cgzre.f 0602 ------------------------------------------------------------------*/ 0603 0604 #define CGZRE(A1,A2,A3) CCALLSFSUB3(CGZRE,cgzre,INT,PFLOAT,PINT,A1,A2,A3) 0605 0606 /*------------------------------------------------------------------ 0607 fortran filename : /cern/new/src/cfs/geant315/cgzrev.f 0608 ------------------------------------------------------------------*/ 0609 0610 #define CGZREV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGZREV,cgzrev,PFLOAT,FLOAT,FLOAT,INT,INT,PFLOAT,A1,A2,A3,A4,A5,A6) 0611 0612 /*------------------------------------------------------------------ 0613 fortran filename : /cern/new/src/cfs/geant315/chanwt.f 0614 ------------------------------------------------------------------*/ 0615 0616 #define CHANWT() CCALLSFSUB0(CHANWT,chanwt) 0617 0618 /*------------------------------------------------------------------ 0619 fortran filename : /cern/new/src/cfs/geant315/cinema.f 0620 ------------------------------------------------------------------*/ 0621 0622 PROTOCCALLSFFUN1(FLOAT,CINEMA,cinema,FLOAT) 0623 #define CINEMA(A2) CCALLSFFUN1(CINEMA,cinema,FLOAT,A2) 0624 0625 /*------------------------------------------------------------------ 0626 fortran filename : /cern/new/src/cfs/geant315/compo.f 0627 ------------------------------------------------------------------*/ 0628 0629 #define COMPO() CCALLSFSUB0(COMPO,compo) 0630 0631 /*------------------------------------------------------------------ 0632 fortran filename : /cern/new/src/cfs/geant315/coranh.f 0633 ------------------------------------------------------------------*/ 0634 0635 #define CORANH(A1,A2) CCALLSFSUB2(CORANH,coranh,PINT,INT,A1,A2) 0636 0637 /*------------------------------------------------------------------ 0638 fortran filename : /cern/new/src/cfs/geant315/corevt.f 0639 ------------------------------------------------------------------*/ 0640 0641 #define COREVT(A1,A2,A3,A4,A5) CCALLSFSUB5(COREVT,corevt,DOUBLE,DOUBLE,INT,DOUBLE,DOUBLE,A1,A2,A3,A4,A5) 0642 0643 /*------------------------------------------------------------------ 0644 fortran filename : /cern/new/src/cfs/geant315/corrin.f 0645 ------------------------------------------------------------------*/ 0646 0647 #define CORRIN(A1,A2,A3,A4,A5) CCALLSFSUB5(CORRIN,corrin,DOUBLE,DOUBLE,INT,DOUBLE,DOUBLE,A1,A2,A3,A4,A5) 0648 0649 /*------------------------------------------------------------------ 0650 fortran filename : /cern/new/src/cfs/geant315/coscat.f 0651 ------------------------------------------------------------------*/ 0652 0653 #define COSCAT() CCALLSFSUB0(COSCAT,coscat) 0654 0655 /*------------------------------------------------------------------ 0656 fortran filename : /cern/new/src/cfs/geant315/datar3.f 0657 ------------------------------------------------------------------*/ 0658 0659 #define DATAR3() CCALLSFSUB0(DATAR3,datar3) 0660 0661 /*------------------------------------------------------------------ 0662 fortran filename : /cern/new/src/cfs/geant315/datesh.f 0663 ------------------------------------------------------------------*/ 0664 0665 #define DATESH() CCALLSFSUB0(DATESH,datesh) 0666 0667 /*------------------------------------------------------------------ 0668 fortran filename : /cern/new/src/cfs/geant315/decaux.f 0669 ------------------------------------------------------------------*/ 0670 0671 #define DECAUX(A1,A2) CCALLSFSUB2(DECAUX,decaux,INT,INT,A1,A2) 0672 0673 /*------------------------------------------------------------------ 0674 fortran filename : /cern/new/src/cfs/geant315/defs1.f 0675 ------------------------------------------------------------------*/ 0676 0677 #define DEFS1(A1,A2,A3) CCALLSFSUB3(DEFS1,defs1,INT,INT,INT,A1,A2,A3) 0678 0679 /*------------------------------------------------------------------ 0680 fortran filename : /cern/new/src/cfs/geant315/difevv.f 0681 ------------------------------------------------------------------*/ 0682 0683 #define DIFEVV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(DIFEVV,difevv,PINT,INT,INT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6) 0684 0685 /*------------------------------------------------------------------ 0686 fortran filename : /cern/new/src/cfs/geant315/dlpnuc.f 0687 ------------------------------------------------------------------*/ 0688 0689 #define DLPNUC(A1,A2) CCALLSFSUB2(DLPNUC,dlpnuc,PDOUBLE,INT,A1,A2) 0690 0691 /*------------------------------------------------------------------ 0692 fortran filename : /cern/new/src/cfs/geant315/dlpsor.f 0693 ------------------------------------------------------------------*/ 0694 0695 #define DLPSOR(A1,A2) CCALLSFSUB2(DLPSOR,dlpsor,PDOUBLE,INT,A1,A2) 0696 0697 /*------------------------------------------------------------------ 0698 fortran filename : /cern/new/src/cfs/geant315/dost.f 0699 ------------------------------------------------------------------*/ 0700 0701 PROTOCCALLSFFUN2(DOUBLE,DOST,dost,INT,DOUBLE) 0702 #define DOST(A2,A3) CCALLSFFUN2(DOST,dost,INT,DOUBLE,A2,A3) 0703 0704 /*------------------------------------------------------------------ 0705 fortran filename : /cern/new/src/cfs/geant315/dotes2.f 0706 ------------------------------------------------------------------*/ 0707 0708 #define DOTES2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(DOTES2,dotes2,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,INT,A1,A2,A3,A4,A5,A6) 0709 0710 /*------------------------------------------------------------------ 0711 fortran filename : /cern/new/src/cfs/geant315/dotnuc.f 0712 ------------------------------------------------------------------*/ 0713 0714 #define DOTNUC(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(DOTNUC,dotnuc,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,INT,A1,A2,A3,A4,A5,A6) 0715 0716 /*------------------------------------------------------------------ 0717 fortran filename : /cern/new/src/cfs/geant315/dpdnuc.f 0718 ------------------------------------------------------------------*/ 0719 0720 PROTOCCALLSFFUN3(DOUBLE,DPDNUC,dpdnuc,DOUBLE,DOUBLE,DOUBLE) 0721 #define DPDNUC(A2,A3,A4) CCALLSFFUN3(DPDNUC,dpdnuc,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4) 0722 0723 /*------------------------------------------------------------------ 0724 fortran filename : /cern/new/src/cfs/geant315/drelab.f 0725 ------------------------------------------------------------------*/ 0726 0727 #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) 0728 0729 /*------------------------------------------------------------------ 0730 fortran filename : /cern/new/src/cfs/geant315/dresf.f 0731 ------------------------------------------------------------------*/ 0732 0733 #define DRESF(A1,A2,A3,A4,A5) CCALLSFSUB5(DRESF,dresf,INT,INT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5) 0734 0735 /*------------------------------------------------------------------ 0736 fortran filename : /cern/new/src/cfs/geant315/eexi.f 0737 ------------------------------------------------------------------*/ 0738 0739 PROTOCCALLSFFUN3(DOUBLE,EEXI,eexi,INT,DOUBLE,DOUBLE) 0740 #define EEXI(A2,A3,A4) CCALLSFFUN3(EEXI,eexi,INT,DOUBLE,DOUBLE,A2,A3,A4) 0741 0742 /*------------------------------------------------------------------ 0743 fortran filename : /cern/new/src/cfs/geant315/ekeka.f 0744 ------------------------------------------------------------------*/ 0745 0746 PROTOCCALLSFFUN4(DOUBLE,EKEKA,ekeka,INT,DOUBLE,DOUBLE,DOUBLE) 0747 #define EKEKA(A2,A3,A4,A5) CCALLSFFUN4(EKEKA,ekeka,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5) 0748 0749 /*------------------------------------------------------------------ 0750 fortran filename : /cern/new/src/cfs/geant315/energi.f 0751 ------------------------------------------------------------------*/ 0752 0753 #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) 0754 0755 /*------------------------------------------------------------------ 0756 fortran filename : /cern/new/src/cfs/geant315/enrg.f 0757 ------------------------------------------------------------------*/ 0758 0759 PROTOCCALLSFFUN2(DOUBLE,ENRG,enrg,DOUBLE,DOUBLE) 0760 #define ENRG(A2,A3) CCALLSFFUN2(ENRG,enrg,DOUBLE,DOUBLE,A2,A3) 0761 0762 /*------------------------------------------------------------------ 0763 fortran filename : /cern/new/src/cfs/geant315/evdeex.f 0764 ------------------------------------------------------------------*/ 0765 0766 #define EVDEEX(A1) CCALLSFSUB1(EVDEEX,evdeex,DOUBLE,A1) 0767 0768 /*------------------------------------------------------------------ 0769 fortran filename : /cern/new/src/cfs/geant315/eventv.f 0770 ------------------------------------------------------------------*/ 0771 0772 #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) 0773 0774 /*------------------------------------------------------------------ 0775 fortran filename : /cern/new/src/cfs/geant315/evevap.f 0776 ------------------------------------------------------------------*/ 0777 0778 #define EVEVAP(A1) CCALLSFSUB1(EVEVAP,evevap,DOUBLE,A1) 0779 0780 /*------------------------------------------------------------------ 0781 fortran filename : /cern/new/src/cfs/geant315/evvini.f 0782 ------------------------------------------------------------------*/ 0783 /* 0784 #define evvini_ELEMS_2 ZTRINGV_NUM(1) 0785 #define evvini_ELEMLEN_2 ZTRINGV_NUM(8) 0786 */ 0787 0788 #define EVVINI(A1,A2) CCALLSFSUB2(EVVINI,evvini,DOUBLEV,STRING,A1,A2) 0789 0790 /*------------------------------------------------------------------ 0791 fortran filename : /cern/new/src/cfs/geant315/exnu.f 0792 ------------------------------------------------------------------*/ 0793 0794 PROTOCCALLSFFUN1(FLOAT,EXNU,exnu,FLOAT) 0795 #define EXNU(A2) CCALLSFFUN1(EXNU,exnu,FLOAT,A2) 0796 0797 /*------------------------------------------------------------------ 0798 fortran filename : /cern/new/src/cfs/geant315/fcount.f 0799 ------------------------------------------------------------------*/ 0800 0801 #define FCOUNT() CCALLSFSUB0(FCOUNT,fcount) 0802 0803 /*------------------------------------------------------------------ 0804 fortran filename : /cern/new/src/cfs/geant315/fctcos.f 0805 ------------------------------------------------------------------*/ 0806 0807 PROTOCCALLSFFUN1(FLOAT,FCTCOS,fctcos,FLOAT) 0808 #define FCTCOS(A2) CCALLSFFUN1(FCTCOS,fctcos,FLOAT,A2) 0809 0810 /*------------------------------------------------------------------ 0811 fortran filename : /cern/new/src/cfs/geant315/fdevap.f 0812 ------------------------------------------------------------------*/ 0813 0814 #define FDEVAP() CCALLSFSUB0(FDEVAP,fdevap) 0815 0816 /*------------------------------------------------------------------ 0817 fortran filename : /cern/new/src/cfs/geant315/fdnopt.f 0818 ------------------------------------------------------------------*/ 0819 0820 #define FDNOPT() CCALLSFSUB0(FDNOPT,fdnopt) 0821 0822 /*------------------------------------------------------------------ 0823 fortran filename : /cern/new/src/cfs/geant315/ferevv.f 0824 ------------------------------------------------------------------*/ 0825 0826 #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) 0827 0828 /*------------------------------------------------------------------ 0829 fortran filename : /cern/new/src/cfs/geant315/ferhad.f 0830 ------------------------------------------------------------------*/ 0831 0832 #define FERHAD(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(FERHAD,ferhad,DOUBLE,DOUBLE,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9) 0833 0834 /*------------------------------------------------------------------ 0835 fortran filename : /cern/new/src/cfs/geant315/ferhav.f 0836 ------------------------------------------------------------------*/ 0837 0838 #define FERHAV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(FERHAV,ferhav,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6) 0839 0840 /*------------------------------------------------------------------ 0841 fortran filename : /cern/new/src/cfs/geant315/fermi.f 0842 ------------------------------------------------------------------*/ 0843 0844 PROTOCCALLSFFUN1(FLOAT,FERMI,fermi,FLOAT) 0845 #define FERMI(A2) CCALLSFFUN1(FERMI,fermi,FLOAT,A2) 0846 0847 /*------------------------------------------------------------------ 0848 fortran filename : /cern/new/src/cfs/geant315/fissio.f 0849 ------------------------------------------------------------------*/ 0850 0851 PROTOCCALLSFFUN1(FLOAT,FISSIO,fissio,FLOAT) 0852 #define FISSIO(A2) CCALLSFFUN1(FISSIO,fissio,FLOAT,A2) 0853 0854 /*------------------------------------------------------------------ 0855 fortran filename : /cern/new/src/cfs/geant315/fkdeca.f 0856 ------------------------------------------------------------------*/ 0857 0858 #define FKDECA(A1,A2) CCALLSFSUB2(FKDECA,fkdeca,PINT,INT,A1,A2) 0859 0860 /*------------------------------------------------------------------ 0861 fortran filename : /cern/new/src/cfs/geant315/fkdres.f 0862 ------------------------------------------------------------------*/ 0863 0864 #define FKDRES(A1,A2,A3,A4,A5) CCALLSFSUB5(FKDRES,fkdres,INT,INT,DOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5) 0865 0866 /*------------------------------------------------------------------ 0867 fortran filename : /cern/new/src/cfs/geant315/fkener.f 0868 ------------------------------------------------------------------*/ 0869 0870 PROTOCCALLSFFUN2(DOUBLE,FKENER,fkener,DOUBLE,DOUBLE) 0871 #define FKENER(A2,A3) CCALLSFFUN2(FKENER,fkener,DOUBLE,DOUBLE,A2,A3) 0872 0873 /*------------------------------------------------------------------ 0874 fortran filename : /cern/new/src/cfs/geant315/fkerro.f 0875 ------------------------------------------------------------------*/ 0876 0877 #define FKERRO() CCALLSFSUB0(FKERRO,fkerro) 0878 0879 /*------------------------------------------------------------------ 0880 fortran filename : /cern/new/src/cfs/geant315/fkerup.f 0881 ------------------------------------------------------------------*/ 0882 0883 #define FKERUP() CCALLSFSUB0(FKERUP,fkerup) 0884 0885 /*------------------------------------------------------------------ 0886 fortran filename : /cern/new/src/cfs/geant315/fkflav.f 0887 ------------------------------------------------------------------*/ 0888 0889 #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) 0890 0891 /*------------------------------------------------------------------ 0892 fortran filename : /cern/new/src/cfs/geant315/fkimpu.f 0893 ------------------------------------------------------------------*/ 0894 0895 #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) 0896 0897 /*------------------------------------------------------------------ 0898 fortran filename : /cern/new/src/cfs/geant315/fkpoli.f 0899 ------------------------------------------------------------------*/ 0900 0901 #define FKPOLI(A1,A2) CCALLSFSUB2(FKPOLI,fkpoli,PDOUBLE,PDOUBLE,A1,A2) 0902 0903 /*------------------------------------------------------------------ 0904 fortran filename : /cern/new/src/cfs/geant315/fksigi.f 0905 ------------------------------------------------------------------*/ 0906 0907 #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) 0908 0909 /*------------------------------------------------------------------ 0910 fortran filename : /cern/new/src/cfs/geant315/fkvert.f 0911 ------------------------------------------------------------------*/ 0912 0913 #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) 0914 0915 /*------------------------------------------------------------------ 0916 fortran filename : /cern/new/src/cfs/geant315/fkzero.f 0917 ------------------------------------------------------------------*/ 0918 0919 #define FKZERO() CCALLSFSUB0(FKZERO,fkzero) 0920 0921 /*------------------------------------------------------------------ 0922 fortran filename : /cern/new/src/cfs/geant315/fldist.f 0923 ------------------------------------------------------------------*/ 0924 0925 #define FLDIST() CCALLSFSUB0(FLDIST,fldist) 0926 0927 /*------------------------------------------------------------------ 0928 fortran filename : /cern/new/src/cfs/geant315/flinit.f 0929 ------------------------------------------------------------------*/ 0930 0931 #define FLINIT() CCALLSFSUB0(FLINIT,flinit) 0932 0933 /*------------------------------------------------------------------ 0934 fortran filename : /cern/new/src/cfs/geant315/flkdt1.f 0935 ------------------------------------------------------------------*/ 0936 0937 #define FLKDT1() CCALLSFSUB0(FLKDT1,flkdt1) 0938 0939 /*------------------------------------------------------------------ 0940 fortran filename : /cern/new/src/cfs/geant315/flkdt2.f 0941 ------------------------------------------------------------------*/ 0942 0943 #define FLKDT2() CCALLSFSUB0(FLKDT2,flkdt2) 0944 0945 /*------------------------------------------------------------------ 0946 fortran filename : /cern/new/src/cfs/geant315/flkdt3.f 0947 ------------------------------------------------------------------*/ 0948 0949 #define FLKDT3() CCALLSFSUB0(FLKDT3,flkdt3) 0950 0951 /*------------------------------------------------------------------ 0952 fortran filename : /cern/new/src/cfs/geant315/flkdt4.f 0953 ------------------------------------------------------------------*/ 0954 0955 #define FLKDT4() CCALLSFSUB0(FLKDT4,flkdt4) 0956 0957 /*------------------------------------------------------------------ 0958 fortran filename : /cern/new/src/cfs/geant315/flkdt5.f 0959 ------------------------------------------------------------------*/ 0960 0961 #define FLKDT5() CCALLSFSUB0(FLKDT5,flkdt5) 0962 0963 /*------------------------------------------------------------------ 0964 fortran filename : /cern/new/src/cfs/geant315/flkdt6.f 0965 ------------------------------------------------------------------*/ 0966 0967 #define FLKDT6() CCALLSFSUB0(FLKDT6,flkdt6) 0968 0969 /*------------------------------------------------------------------ 0970 fortran filename : /cern/new/src/cfs/geant315/flkdt7.f 0971 ------------------------------------------------------------------*/ 0972 0973 #define FLKDT7() CCALLSFSUB0(FLKDT7,flkdt7) 0974 0975 /*------------------------------------------------------------------ 0976 fortran filename : /cern/new/src/cfs/geant315/flufin.f 0977 ------------------------------------------------------------------*/ 0978 0979 #define FLUFIN() CCALLSFSUB0(FLUFIN,flufin) 0980 0981 /*------------------------------------------------------------------ 0982 fortran filename : /cern/new/src/cfs/geant315/frmic.f 0983 ------------------------------------------------------------------*/ 0984 0985 #define FRMIC(A1) CCALLSFSUB1(FRMIC,frmic,PDOUBLE,A1) 0986 0987 /*------------------------------------------------------------------ 0988 fortran filename : /cern/new/src/cfs/geant315/gamrn.f 0989 ------------------------------------------------------------------*/ 0990 0991 PROTOCCALLSFFUN2(DOUBLE,GAMRN,gamrn,DOUBLE,DOUBLE) 0992 #define GAMRN(A2,A3) CCALLSFFUN2(GAMRN,gamrn,DOUBLE,DOUBLE,A2,A3) 0993 0994 /*------------------------------------------------------------------ 0995 fortran filename : /cern/new/src/cfs/geant315/ganni.f 0996 ------------------------------------------------------------------*/ 0997 0998 #define GANNI() CCALLSFSUB0(GANNI,ganni) 0999 1000 /*------------------------------------------------------------------ 1001 fortran filename : /cern/new/src/cfs/geant315/ganni2.f 1002 ------------------------------------------------------------------*/ 1003 1004 #define GANNI2() CCALLSFSUB0(GANNI2,ganni2) 1005 1006 /*------------------------------------------------------------------ 1007 fortran filename : /cern/new/src/cfs/geant315/gannii.f 1008 ------------------------------------------------------------------*/ 1009 1010 #define GANNII() CCALLSFSUB0(GANNII,gannii) 1011 1012 /*------------------------------------------------------------------ 1013 fortran filename : /cern/new/src/cfs/geant315/gannir.f 1014 ------------------------------------------------------------------*/ 1015 1016 #define GANNIR() CCALLSFSUB0(GANNIR,gannir) 1017 1018 /*------------------------------------------------------------------ 1019 fortran filename : /cern/new/src/cfs/geant315/garndm.f 1020 ------------------------------------------------------------------*/ 1021 1022 PROTOCCALLSFFUN1(FLOAT,GARNDM,garndm,FLOAT) 1023 #define GARNDM(A2) CCALLSFFUN1(GARNDM,garndm,FLOAT,A2) 1024 1025 /*------------------------------------------------------------------ 1026 fortran filename : /cern/new/src/cfs/geant315/gbhsta.f 1027 ------------------------------------------------------------------*/ 1028 1029 #define GBHSTA() CCALLSFSUB0(GBHSTA,gbhsta) 1030 1031 /*------------------------------------------------------------------ 1032 fortran filename : /cern/new/src/cfs/geant315/gbirk.f 1033 ------------------------------------------------------------------*/ 1034 1035 #define GBIRK(A1) CCALLSFSUB1(GBIRK,gbirk,PFLOAT,A1) 1036 1037 /*------------------------------------------------------------------ 1038 fortran filename : /cern/new/src/cfs/geant315/gbrela.f 1039 ------------------------------------------------------------------*/ 1040 1041 #define GBRELA() CCALLSFSUB0(GBRELA,gbrela) 1042 1043 /*------------------------------------------------------------------ 1044 fortran filename : /cern/new/src/cfs/geant315/gbrele.f 1045 ------------------------------------------------------------------*/ 1046 1047 PROTOCCALLSFFUN3(FLOAT,GBRELE,gbrele,FLOAT,FLOAT,FLOAT) 1048 #define GBRELE(A2,A3,A4) CCALLSFFUN3(GBRELE,gbrele,FLOAT,FLOAT,FLOAT,A2,A3,A4) 1049 1050 /*------------------------------------------------------------------ 1051 fortran filename : /cern/new/src/cfs/geant315/gbrelm.f 1052 ------------------------------------------------------------------*/ 1053 1054 PROTOCCALLSFFUN3(FLOAT,GBRELM,gbrelm,FLOAT,FLOAT,FLOAT) 1055 #define GBRELM(A2,A3,A4) CCALLSFFUN3(GBRELM,gbrelm,FLOAT,FLOAT,FLOAT,A2,A3,A4) 1056 1057 /*------------------------------------------------------------------ 1058 fortran filename : /cern/new/src/cfs/geant315/gbreme.f 1059 ------------------------------------------------------------------*/ 1060 1061 #define GBREME() CCALLSFSUB0(GBREME,gbreme) 1062 1063 /*------------------------------------------------------------------ 1064 fortran filename : /cern/new/src/cfs/geant315/gbremm.f 1065 ------------------------------------------------------------------*/ 1066 1067 #define GBREMM() CCALLSFSUB0(GBREMM,gbremm) 1068 1069 /*------------------------------------------------------------------ 1070 fortran filename : /cern/new/src/cfs/geant315/gbrsga.f 1071 ------------------------------------------------------------------*/ 1072 1073 #define GBRSGA() CCALLSFSUB0(GBRSGA,gbrsga) 1074 1075 /*------------------------------------------------------------------ 1076 fortran filename : /cern/new/src/cfs/geant315/gbrsge.f 1077 ------------------------------------------------------------------*/ 1078 1079 PROTOCCALLSFFUN3(FLOAT,GBRSGE,gbrsge,FLOAT,FLOAT,FLOAT) 1080 #define GBRSGE(A2,A3,A4) CCALLSFFUN3(GBRSGE,gbrsge,FLOAT,FLOAT,FLOAT,A2,A3,A4) 1081 1082 /*------------------------------------------------------------------ 1083 fortran filename : /cern/new/src/cfs/geant315/gbrsgm.f 1084 ------------------------------------------------------------------*/ 1085 1086 PROTOCCALLSFFUN3(FLOAT,GBRSGM,gbrsgm,FLOAT,FLOAT,FLOAT) 1087 #define GBRSGM(A2,A3,A4) CCALLSFFUN3(GBRSGM,gbrsgm,FLOAT,FLOAT,FLOAT,A2,A3,A4) 1088 1089 /*------------------------------------------------------------------ 1090 fortran filename : /cern/new/src/cfs/geant315/gbstat.f 1091 ------------------------------------------------------------------*/ 1092 1093 #define GBSTAT() CCALLSFSUB0(GBSTAT,gbstat) 1094 1095 /*------------------------------------------------------------------ 1096 fortran filename : /cern/new/src/cfs/geant315/gcderr.f 1097 ------------------------------------------------------------------*/ 1098 1099 #define GCDERR(A1,A2,A3) CCALLSFSUB3(GCDERR,gcderr,PINT,FLOAT,FLOAT,A1,A2,A3) 1100 1101 /*------------------------------------------------------------------ 1102 fortran filename : /cern/new/src/cfs/geant315/gcdrif.f 1103 ------------------------------------------------------------------*/ 1104 1105 #define GCDRIF(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GCDRIF,gcdrif,FLOAT,FLOAT,FLOAT,FLOATV,FLOATV,PINT,A1,A2,A3,A4,A5,A6) 1106 1107 /*------------------------------------------------------------------ 1108 fortran filename : /cern/new/src/cfs/geant315/gcent.f 1109 ------------------------------------------------------------------*/ 1110 1111 #define GCENT(A1,A2) CCALLSFSUB2(GCENT,gcent,INT,PFLOAT,A1,A2) 1112 1113 /*------------------------------------------------------------------ 1114 fortran filename : /cern/new/src/cfs/geant315/gclose.f 1115 ------------------------------------------------------------------*/ 1116 1117 #define GCLOSE(A1,A2) CCALLSFSUB2(GCLOSE,gclose,INT,PINT,A1,A2) 1118 1119 /*------------------------------------------------------------------ 1120 fortran filename : /cern/new/src/cfs/geant315/gcmwpc.f 1121 ------------------------------------------------------------------*/ 1122 1123 #define GCMWPC(A1,A2,A3) CCALLSFSUB3(GCMWPC,gcmwpc,FLOATV,FLOATV,PINT,A1,A2,A3) 1124 1125 /*------------------------------------------------------------------ 1126 fortran filename : /cern/new/src/cfs/geant315/gcoeff.f 1127 ------------------------------------------------------------------*/ 1128 1129 #define GCOEFF() CCALLSFSUB0(GCOEFF,gcoeff) 1130 1131 /*------------------------------------------------------------------ 1132 fortran filename : /cern/new/src/cfs/geant315/gcomp.f 1133 ------------------------------------------------------------------*/ 1134 1135 #define GCOMP() CCALLSFSUB0(GCOMP,gcomp) 1136 1137 /*------------------------------------------------------------------ 1138 fortran filename : /cern/new/src/cfs/geant315/gcompi.f 1139 ------------------------------------------------------------------*/ 1140 1141 #define GCOMPI() CCALLSFSUB0(GCOMPI,gcompi) 1142 1143 /*------------------------------------------------------------------ 1144 fortran filename : /cern/new/src/cfs/geant315/gcubs.f 1145 ------------------------------------------------------------------*/ 1146 1147 #define GCUBS(A1,A2,A3,A4,A5) CCALLSFSUB5(GCUBS,gcubs,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5) 1148 1149 /*------------------------------------------------------------------ 1150 fortran filename : /cern/new/src/cfs/geant315/gd16v.f 1151 ------------------------------------------------------------------*/ 1152 1153 #define GD16V(A1,A2) CCALLSFSUB2(GD16V,gd16v,INT,INTV,A1,A2) 1154 1155 /*------------------------------------------------------------------ 1156 fortran filename : /cern/new/src/cfs/geant315/gd3d3d.f 1157 ------------------------------------------------------------------*/ 1158 1159 #define GD3D3D(A1,A2,A3,A4) CCALLSFSUB4(GD3D3D,gd3d3d,PFLOAT,INT,PFLOAT,INT,A1,A2,A3,A4) 1160 1161 /*------------------------------------------------------------------ 1162 fortran filename : /cern/new/src/cfs/geant315/gdahit.f 1163 ------------------------------------------------------------------*/ 1164 1165 #define GDAHIT(A1,A2,A3,A4,A5) CCALLSFSUB5(GDAHIT,gdahit,FLOAT,FLOAT,FLOAT,INT,FLOAT,A1,A2,A3,A4,A5) 1166 1167 /*------------------------------------------------------------------ 1168 fortran filename : /cern/new/src/cfs/geant315/gdarc.f 1169 ------------------------------------------------------------------*/ 1170 1171 #define GDARC(A1,A2,A3,A4) CCALLSFSUB4(GDARC,gdarc,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4) 1172 1173 /*------------------------------------------------------------------ 1174 fortran filename : /cern/new/src/cfs/geant315/gdarr.f 1175 ------------------------------------------------------------------*/ 1176 /* 1177 #define gdarr_ELEMS_6 ZTRINGV_NUM(1) 1178 #define gdarr_ELEMLEN_6 ZTRINGV_NUM(255) 1179 */ 1180 1181 #define GDARR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GDARR,gdarr,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,STRING,A1,A2,A3,A4,A5,A6) 1182 1183 /*------------------------------------------------------------------ 1184 fortran filename : /cern/new/src/cfs/geant315/gdaxis.f 1185 ------------------------------------------------------------------*/ 1186 1187 #define GDAXIS(A1,A2,A3,A4) CCALLSFSUB4(GDAXIS,gdaxis,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4) 1188 1189 /*------------------------------------------------------------------ 1190 fortran filename : /cern/new/src/cfs/geant315/gdbomb.f 1191 ------------------------------------------------------------------*/ 1192 1193 #define GDBOMB(A1,A2) CCALLSFSUB2(GDBOMB,gdbomb,INT,INT,A1,A2) 1194 1195 /*------------------------------------------------------------------ 1196 fortran filename : /cern/new/src/cfs/geant315/gdcgcl.f 1197 ------------------------------------------------------------------*/ 1198 1199 #define GDCGCL(A1) CCALLSFSUB1(GDCGCL,gdcgcl,INT,A1) 1200 1201 /*------------------------------------------------------------------ 1202 fortran filename : /cern/new/src/cfs/geant315/gdcgem.f 1203 ------------------------------------------------------------------*/ 1204 1205 #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) 1206 1207 /*------------------------------------------------------------------ 1208 fortran filename : /cern/new/src/cfs/geant315/gdcger.f 1209 ------------------------------------------------------------------*/ 1210 1211 #define GDCGER(A1) CCALLSFSUB1(GDCGER,gdcger,FLOAT,A1) 1212 1213 /*------------------------------------------------------------------ 1214 fortran filename : /cern/new/src/cfs/geant315/gdcghi.f 1215 ------------------------------------------------------------------*/ 1216 1217 #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) 1218 1219 /*------------------------------------------------------------------ 1220 fortran filename : /cern/new/src/cfs/geant315/gdcgob.f 1221 ------------------------------------------------------------------*/ 1222 1223 #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) 1224 1225 /*------------------------------------------------------------------ 1226 fortran filename : /cern/new/src/cfs/geant315/gdcgpr.f 1227 ------------------------------------------------------------------*/ 1228 1229 #define GDCGPR() CCALLSFSUB0(GDCGPR,gdcgpr) 1230 1231 /*------------------------------------------------------------------ 1232 fortran filename : /cern/new/src/cfs/geant315/gdcgrs.f 1233 ------------------------------------------------------------------*/ 1234 1235 #define GDCGRS() CCALLSFSUB0(GDCGRS,gdcgrs) 1236 1237 /*------------------------------------------------------------------ 1238 fortran filename : /cern/new/src/cfs/geant315/gdcgsl.f 1239 ------------------------------------------------------------------*/ 1240 1241 #define GDCGSL(A1,A2) CCALLSFSUB2(GDCGSL,gdcgsl,INT,INT,A1,A2) 1242 1243 /*------------------------------------------------------------------ 1244 fortran filename : /cern/new/src/cfs/geant315/gdcgvw.f 1245 ------------------------------------------------------------------*/ 1246 1247 #define GDCGVW(A1,A2) CCALLSFSUB2(GDCGVW,gdcgvw,FLOATV,PFLOAT,A1,A2) 1248 1249 /*------------------------------------------------------------------ 1250 fortran filename : /cern/new/src/cfs/geant315/gdcgwv.f 1251 ------------------------------------------------------------------*/ 1252 1253 #define GDCGWV(A1) CCALLSFSUB1(GDCGWV,gdcgwv,INT,A1) 1254 1255 /*------------------------------------------------------------------ 1256 fortran filename : /cern/new/src/cfs/geant315/gdchit.f 1257 ------------------------------------------------------------------*/ 1258 /* 1259 #define gdchit_ELEMS_1 ZTRINGV_NUM(1) 1260 #define gdchit_ELEMLEN_1 ZTRINGV_NUM(4) 1261 #define gdchit_ELEMS_2 ZTRINGV_NUM(1) 1262 #define gdchit_ELEMLEN_2 ZTRINGV_NUM(4) 1263 */ 1264 1265 #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) 1266 1267 /*------------------------------------------------------------------ 1268 fortran filename : /cern/new/src/cfs/geant315/gdcirc.f 1269 ------------------------------------------------------------------*/ 1270 1271 #define GDCIRC(A1,A2) CCALLSFSUB2(GDCIRC,gdcirc,FLOAT,FLOAT,A1,A2) 1272 1273 /*------------------------------------------------------------------ 1274 fortran filename : /cern/new/src/cfs/geant315/gdcirr.f 1275 ------------------------------------------------------------------*/ 1276 1277 #define GDCIRR(A1,A2) CCALLSFSUB2(GDCIRR,gdcirr,FLOAT,FLOAT,A1,A2) 1278 1279 /*------------------------------------------------------------------ 1280 fortran filename : /cern/new/src/cfs/geant315/gdciry.f 1281 ------------------------------------------------------------------*/ 1282 1283 #define GDCIRY(A1,A2) CCALLSFSUB2(GDCIRY,gdciry,FLOAT,FLOAT,A1,A2) 1284 1285 /*------------------------------------------------------------------ 1286 fortran filename : /cern/new/src/cfs/geant315/gdclos.f 1287 ------------------------------------------------------------------*/ 1288 1289 #define GDCLOS() CCALLSFSUB0(GDCLOS,gdclos) 1290 1291 /*------------------------------------------------------------------ 1292 fortran filename : /cern/new/src/cfs/geant315/gdcol.f 1293 ------------------------------------------------------------------*/ 1294 1295 #define GDCOL(A1) CCALLSFSUB1(GDCOL,gdcol,INT,A1) 1296 1297 /*------------------------------------------------------------------ 1298 fortran filename : /cern/new/src/cfs/geant315/gdcol1.f 1299 ------------------------------------------------------------------*/ 1300 1301 #define GDCOL1(A1) CCALLSFSUB1(GDCOL1,gdcol1,INT,A1) 1302 1303 /*------------------------------------------------------------------ 1304 fortran filename : /cern/new/src/cfs/geant315/gdcota.f 1305 ------------------------------------------------------------------*/ 1306 1307 #define GDCOTA() CCALLSFSUB0(GDCOTA,gdcota) 1308 1309 /*------------------------------------------------------------------ 1310 fortran filename : /cern/new/src/cfs/geant315/gdcurs.f 1311 ------------------------------------------------------------------*/ 1312 1313 #define GDCURS(A1,A2,A3) CCALLSFSUB3(GDCURS,gdcurs,FLOAT,FLOAT,PINT,A1,A2,A3) 1314 1315 /*------------------------------------------------------------------ 1316 fortran filename : /cern/new/src/cfs/geant315/gdcut.f 1317 ------------------------------------------------------------------*/ 1318 1319 #define GDCUT() CCALLSFSUB0(GDCUT,gdcut) 1320 1321 /*------------------------------------------------------------------ 1322 fortran filename : /cern/new/src/cfs/geant315/gdcxyz.f 1323 ------------------------------------------------------------------*/ 1324 1325 #define GDCXYZ() CCALLSFSUB0(GDCXYZ,gdcxyz) 1326 1327 /*------------------------------------------------------------------ 1328 fortran filename : /cern/new/src/cfs/geant315/gdebug.f 1329 ------------------------------------------------------------------*/ 1330 1331 #define GDEBUG() CCALLSFSUB0(GDEBUG,gdebug) 1332 1333 /*------------------------------------------------------------------ 1334 fortran filename : /cern/new/src/cfs/geant315/gdeca2.f 1335 ------------------------------------------------------------------*/ 1336 1337 #define GDECA2(A1,A2,A3,A4) CCALLSFSUB4(GDECA2,gdeca2,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4) 1338 1339 /*------------------------------------------------------------------ 1340 fortran filename : /cern/new/src/cfs/geant315/gdeca3.f 1341 ------------------------------------------------------------------*/ 1342 1343 #define GDECA3(A1,A2,A3,A4,A5) CCALLSFSUB5(GDECA3,gdeca3,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5) 1344 1345 /*------------------------------------------------------------------ 1346 fortran filename : /cern/new/src/cfs/geant315/gdecay.f 1347 ------------------------------------------------------------------*/ 1348 1349 #define GDECAY() CCALLSFSUB0(GDECAY,gdecay) 1350 1351 /*------------------------------------------------------------------ 1352 fortran filename : /cern/new/src/cfs/geant315/gdelet.f 1353 ------------------------------------------------------------------*/ 1354 1355 #define GDELET(A1) CCALLSFSUB1(GDELET,gdelet,INT,A1) 1356 1357 /*------------------------------------------------------------------ 1358 fortran filename : /cern/new/src/cfs/geant315/gdeltu.f 1359 ------------------------------------------------------------------*/ 1360 1361 #define GDELTU(A1,A2,A3) CCALLSFSUB3(GDELTU,gdeltu,FLOAT,FLOAT,FLOAT,A1,A2,A3) 1362 1363 /*------------------------------------------------------------------ 1364 fortran filename : /cern/new/src/cfs/geant315/gdfr3d.f 1365 ------------------------------------------------------------------*/ 1366 1367 #define GDFR3D(A1,A2,A3,A4) CCALLSFSUB4(GDFR3D,gdfr3d,PFLOAT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4) 1368 1369 /*------------------------------------------------------------------ 1370 fortran filename : /cern/new/src/cfs/geant315/gdfspc.f 1371 ------------------------------------------------------------------*/ 1372 /* 1373 #define gdfspc_ELEMS_1 ZTRINGV_NUM(1) 1374 #define gdfspc_ELEMLEN_1 ZTRINGV_NUM(4) 1375 */ 1376 1377 #define GDFSPC(A1,A2,A3) CCALLSFSUB3(GDFSPC,gdfspc,STRING,INT,INT,A1,A2,A3) 1378 1379 /*------------------------------------------------------------------ 1380 fortran filename : /cern/new/src/cfs/geant315/gdgirl.f 1381 ------------------------------------------------------------------*/ 1382 1383 #define GDGIRL(A1,A2) CCALLSFSUB2(GDGIRL,gdgirl,FLOAT,FLOAT,A1,A2) 1384 1385 /*------------------------------------------------------------------ 1386 fortran filename : /cern/new/src/cfs/geant315/gdhead.f 1387 ------------------------------------------------------------------*/ 1388 /* 1389 #define gdhead_ELEMS_2 ZTRINGV_NUM(1) 1390 #define gdhead_ELEMLEN_2 ZTRINGV_NUM(255) 1391 */ 1392 1393 #define GDHEAD(A1,A2,A3) CCALLSFSUB3(GDHEAD,gdhead,INT,STRING,FLOAT,A1,A2,A3) 1394 1395 /*------------------------------------------------------------------ 1396 fortran filename : /cern/new/src/cfs/geant315/gdhits.f 1397 ------------------------------------------------------------------*/ 1398 /* 1399 #define gdhits_ELEMS_1 ZTRINGV_NUM(1) 1400 #define gdhits_ELEMLEN_1 ZTRINGV_NUM(4) 1401 #define gdhits_ELEMS_2 ZTRINGV_NUM(1) 1402 #define gdhits_ELEMLEN_2 ZTRINGV_NUM(4) 1403 */ 1404 1405 #define GDHITS(A1,A2,A3,A4,A5) CCALLSFSUB5(GDHITS,gdhits,STRING,STRING,INT,INT,FLOAT,A1,A2,A3,A4,A5) 1406 1407 /*------------------------------------------------------------------ 1408 fortran filename : /cern/new/src/cfs/geant315/gdinit.f 1409 ------------------------------------------------------------------*/ 1410 1411 #define GDINIT() CCALLSFSUB0(GDINIT,gdinit) 1412 1413 /*------------------------------------------------------------------ 1414 fortran filename : /cern/new/src/cfs/geant315/gdlcyl.f 1415 ------------------------------------------------------------------*/ 1416 1417 #define GDLCYL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GDLCYL,gdlcyl,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6) 1418 1419 /*------------------------------------------------------------------ 1420 fortran filename : /cern/new/src/cfs/geant315/gdlens.f 1421 ------------------------------------------------------------------*/ 1422 /* 1423 #define gdlens_ELEMS_2 ZTRINGV_NUM(1) 1424 #define gdlens_ELEMLEN_2 ZTRINGV_NUM(4) 1425 */ 1426 1427 #define GDLENS(A1,A2) CCALLSFSUB2(GDLENS,gdlens,INT,STRING,A1,A2) 1428 1429 /*------------------------------------------------------------------ 1430 fortran filename : /cern/new/src/cfs/geant315/gdline.f 1431 ------------------------------------------------------------------*/ 1432 1433 #define GDLINE(A1,A2) CCALLSFSUB2(GDLINE,gdline,FLOATV,FLOATV,A1,A2) 1434 1435 /*------------------------------------------------------------------ 1436 fortran filename : /cern/new/src/cfs/geant315/gdlw.f 1437 ------------------------------------------------------------------*/ 1438 1439 #define GDLW(A1) CCALLSFSUB1(GDLW,gdlw,INT,A1) 1440 1441 /*------------------------------------------------------------------ 1442 fortran filename : /cern/new/src/cfs/geant315/gdlw1.f 1443 ------------------------------------------------------------------*/ 1444 1445 #define GDLW1(A1) CCALLSFSUB1(GDLW1,gdlw1,INT,A1) 1446 1447 /*------------------------------------------------------------------ 1448 fortran filename : /cern/new/src/cfs/geant315/gdman.f 1449 ------------------------------------------------------------------*/ 1450 1451 #define GDMAN(A1,A2) CCALLSFSUB2(GDMAN,gdman,FLOAT,FLOAT,A1,A2) 1452 1453 /*------------------------------------------------------------------ 1454 fortran filename : /cern/new/src/cfs/geant315/gdnson.f 1455 ------------------------------------------------------------------*/ 1456 /* 1457 #define gdnson_ELEMS_1 ZTRINGV_NUM(1) 1458 #define gdnson_ELEMLEN_1 ZTRINGV_NUM(4) 1459 */ 1460 1461 #define GDNSON(A1,A2,A3) CCALLSFSUB3(GDNSON,gdnson,STRING,PINT,PINT,A1,A2,A3) 1462 1463 /*------------------------------------------------------------------ 1464 fortran filename : /cern/new/src/cfs/geant315/gdopen.f 1465 ------------------------------------------------------------------*/ 1466 1467 #define GDOPEN(A1) CCALLSFSUB1(GDOPEN,gdopen,INT,A1) 1468 1469 /*------------------------------------------------------------------ 1470 fortran filename : /cern/new/src/cfs/geant315/gdopt.f 1471 ------------------------------------------------------------------*/ 1472 /* 1473 #define gdopt_ELEMS_1 ZTRINGV_NUM(1) 1474 #define gdopt_ELEMLEN_1 ZTRINGV_NUM(4) 1475 #define gdopt_ELEMS_2 ZTRINGV_NUM(1) 1476 #define gdopt_ELEMLEN_2 ZTRINGV_NUM(4) 1477 */ 1478 1479 #define GDOPT(A1,A2) CCALLSFSUB2(GDOPT,gdopt,STRING,STRING,A1,A2) 1480 1481 /*------------------------------------------------------------------ 1482 fortran filename : /cern/new/src/cfs/geant315/gdpart.f 1483 ------------------------------------------------------------------*/ 1484 1485 #define GDPART(A1,A2,A3) CCALLSFSUB3(GDPART,gdpart,INT,INT,FLOAT,A1,A2,A3) 1486 1487 /*------------------------------------------------------------------ 1488 fortran filename : /cern/new/src/cfs/geant315/gdpdk.f 1489 ------------------------------------------------------------------*/ 1490 1491 PROTOCCALLSFFUN3(DOUBLE,GDPDK,gdpdk,DOUBLE,DOUBLE,DOUBLE) 1492 #define GDPDK(A2,A3,A4) CCALLSFFUN3(GDPDK,gdpdk,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4) 1493 1494 /*------------------------------------------------------------------ 1495 fortran filename : /cern/new/src/cfs/geant315/gdplst.f 1496 ------------------------------------------------------------------*/ 1497 /* 1498 #define gdplst_ELEMS_2 ZTRINGV_NUM(1) 1499 #define gdplst_ELEMLEN_2 ZTRINGV_NUM(4) 1500 */ 1501 1502 #define GDPLST(A1,A2,A3,A4) CCALLSFSUB4(GDPLST,gdplst,INT,PSTRING,INT,INT,A1,A2,A3,A4) 1503 1504 /*------------------------------------------------------------------ 1505 fortran filename : /cern/new/src/cfs/geant315/gdprtr.f 1506 ------------------------------------------------------------------*/ 1507 /* 1508 #define gdprtr_ELEMS_1 ZTRINGV_NUM(1) 1509 #define gdprtr_ELEMLEN_1 ZTRINGV_NUM(4) 1510 */ 1511 1512 #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) 1513 1514 /*------------------------------------------------------------------ 1515 fortran filename : /cern/new/src/cfs/geant315/gdraw.f 1516 ------------------------------------------------------------------*/ 1517 /* 1518 #define gdraw_ELEMS_1 ZTRINGV_NUM(1) 1519 #define gdraw_ELEMLEN_1 ZTRINGV_NUM(4) 1520 */ 1521 1522 #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) 1523 1524 /*------------------------------------------------------------------ 1525 fortran filename : /cern/new/src/cfs/geant315/gdrawc.f 1526 ------------------------------------------------------------------*/ 1527 /* 1528 #define gdrawc_ELEMS_1 ZTRINGV_NUM(1) 1529 #define gdrawc_ELEMLEN_1 ZTRINGV_NUM(4) 1530 */ 1531 1532 #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) 1533 1534 /*------------------------------------------------------------------ 1535 fortran filename : /cern/new/src/cfs/geant315/gdrawp.f 1536 ------------------------------------------------------------------*/ 1537 1538 #define GDRAWP(A1,A2,A3) CCALLSFSUB3(GDRAWP,gdrawp,FLOATV,FLOATV,INT,A1,A2,A3) 1539 1540 /*------------------------------------------------------------------ 1541 fortran filename : /cern/new/src/cfs/geant315/gdraws.f 1542 ------------------------------------------------------------------*/ 1543 1544 #define GDRAWS(A1,A2) CCALLSFSUB2(GDRAWS,gdraws,INT,PFLOAT,A1,A2) 1545 1546 /*------------------------------------------------------------------ 1547 fortran filename : /cern/new/src/cfs/geant315/gdrawt.f 1548 ------------------------------------------------------------------*/ 1549 /* 1550 #define gdrawt_ELEMS_3 ZTRINGV_NUM(1) 1551 #define gdrawt_ELEMLEN_3 ZTRINGV_NUM(255) 1552 */ 1553 1554 #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) 1555 1556 /*------------------------------------------------------------------ 1557 fortran filename : /cern/new/src/cfs/geant315/gdrawv.f 1558 ------------------------------------------------------------------*/ 1559 1560 #define GDRAWV(A1,A2,A3) CCALLSFSUB3(GDRAWV,gdrawv,FLOATV,FLOATV,INT,A1,A2,A3) 1561 1562 /*------------------------------------------------------------------ 1563 fortran filename : /cern/new/src/cfs/geant315/gdrawx.f 1564 ------------------------------------------------------------------*/ 1565 /* 1566 #define gdrawx_ELEMS_1 ZTRINGV_NUM(1) 1567 #define gdrawx_ELEMLEN_1 ZTRINGV_NUM(4) 1568 */ 1569 1570 #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) 1571 1572 /*------------------------------------------------------------------ 1573 fortran filename : /cern/new/src/cfs/geant315/gdray.f 1574 ------------------------------------------------------------------*/ 1575 1576 #define GDRAY() CCALLSFSUB0(GDRAY,gdray) 1577 1578 /*------------------------------------------------------------------ 1579 fortran filename : /cern/new/src/cfs/geant315/gdrcut.f 1580 ------------------------------------------------------------------*/ 1581 1582 #define GDRCUT(A1,A2,A3,A4) CCALLSFSUB4(GDRCUT,gdrcut,INT,FLOAT,PINT,PFLOAT,A1,A2,A3,A4) 1583 1584 /*------------------------------------------------------------------ 1585 fortran filename : /cern/new/src/cfs/geant315/gdrect.f 1586 ------------------------------------------------------------------*/ 1587 1588 #define GDRECT(A1,A2,A3,A4) CCALLSFSUB4(GDRECT,gdrect,FLOATV,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4) 1589 1590 /*------------------------------------------------------------------ 1591 fortran filename : /cern/new/src/cfs/geant315/gdrela.f 1592 ------------------------------------------------------------------*/ 1593 1594 #define GDRELA() CCALLSFSUB0(GDRELA,gdrela) 1595 1596 /*------------------------------------------------------------------ 1597 fortran filename : /cern/new/src/cfs/geant315/gdrele.f 1598 ------------------------------------------------------------------*/ 1599 1600 #define GDRELE(A1,A2,A3,A4) CCALLSFSUB4(GDRELE,gdrele,FLOAT,FLOAT,INT,PFLOAT,A1,A2,A3,A4) 1601 1602 /*------------------------------------------------------------------ 1603 fortran filename : /cern/new/src/cfs/geant315/gdrelm.f 1604 ------------------------------------------------------------------*/ 1605 1606 #define GDRELM(A1,A2,A3,A4,A5) CCALLSFSUB5(GDRELM,gdrelm,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5) 1607 1608 /*------------------------------------------------------------------ 1609 fortran filename : /cern/new/src/cfs/geant315/gdrelp.f 1610 ------------------------------------------------------------------*/ 1611 1612 #define GDRELP(A1,A2,A3,A4,A5) CCALLSFSUB5(GDRELP,gdrelp,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5) 1613 1614 /*------------------------------------------------------------------ 1615 fortran filename : /cern/new/src/cfs/geant315/gdrot.f 1616 ------------------------------------------------------------------*/ 1617 1618 #define GDROT(A1,A2,A3,A4,A5) CCALLSFSUB5(GDROT,gdrot,PFLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5) 1619 1620 /*------------------------------------------------------------------ 1621 fortran filename : /cern/new/src/cfs/geant315/gdrprt.f 1622 ------------------------------------------------------------------*/ 1623 1624 #define GDRPRT(A1,A2,A3) CCALLSFSUB3(GDRPRT,gdrprt,INT,INT,FLOAT,A1,A2,A3) 1625 1626 /*------------------------------------------------------------------ 1627 fortran filename : /cern/new/src/cfs/geant315/gdrsga.f 1628 ------------------------------------------------------------------*/ 1629 1630 #define GDRSGA() CCALLSFSUB0(GDRSGA,gdrsga) 1631 1632 /*------------------------------------------------------------------ 1633 fortran filename : /cern/new/src/cfs/geant315/gdrvol.f 1634 ------------------------------------------------------------------*/ 1635 1636 #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) 1637 1638 /*------------------------------------------------------------------ 1639 fortran filename : /cern/new/src/cfs/geant315/gdrwsc.f 1640 ------------------------------------------------------------------*/ 1641 1642 #define GDRWSC(A1,A2) CCALLSFSUB2(GDRWSC,gdrwsc,INT,PFLOAT,A1,A2) 1643 1644 /*------------------------------------------------------------------ 1645 fortran filename : /cern/new/src/cfs/geant315/gdsarc.f 1646 ------------------------------------------------------------------*/ 1647 1648 #define GDSARC(A1,A2,A3,A4,A5) CCALLSFSUB5(GDSARC,gdsarc,FLOAT,FLOAT,FLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5) 1649 1650 /*------------------------------------------------------------------ 1651 fortran filename : /cern/new/src/cfs/geant315/gdscal.f 1652 ------------------------------------------------------------------*/ 1653 1654 #define GDSCAL(A1,A2) CCALLSFSUB2(GDSCAL,gdscal,FLOAT,FLOAT,A1,A2) 1655 1656 /*------------------------------------------------------------------ 1657 fortran filename : /cern/new/src/cfs/geant315/gdshad.f 1658 ------------------------------------------------------------------*/ 1659 1660 #define GDSHAD(A1,A2) CCALLSFSUB2(GDSHAD,gdshad,PINT,FLOAT,A1,A2) 1661 1662 /*------------------------------------------------------------------ 1663 fortran filename : /cern/new/src/cfs/geant315/gdshif.f 1664 ------------------------------------------------------------------*/ 1665 1666 #define GDSHIF(A1,A2) CCALLSFSUB2(GDSHIF,gdshif,INT,INT,A1,A2) 1667 1668 /*------------------------------------------------------------------ 1669 fortran filename : /cern/new/src/cfs/geant315/gdshow.f 1670 ------------------------------------------------------------------*/ 1671 1672 #define GDSHOW(A1) CCALLSFSUB1(GDSHOW,gdshow,INT,A1) 1673 1674 /*------------------------------------------------------------------ 1675 fortran filename : /cern/new/src/cfs/geant315/gdson.f 1676 ------------------------------------------------------------------*/ 1677 /* 1678 #define gdson_ELEMS_2 ZTRINGV_NUM(1) 1679 #define gdson_ELEMLEN_2 ZTRINGV_NUM(4) 1680 #define gdson_ELEMS_3 ZTRINGV_NUM(1) 1681 #define gdson_ELEMLEN_3 ZTRINGV_NUM(4) 1682 */ 1683 1684 #define GDSON(A1,A2,A3) CCALLSFSUB3(GDSON,gdson,INT,STRING,PSTRING,A1,A2,A3) 1685 1686 /*------------------------------------------------------------------ 1687 fortran filename : /cern/new/src/cfs/geant315/gdspec.f 1688 ------------------------------------------------------------------*/ 1689 /* 1690 #define gdspec_ELEMS_1 ZTRINGV_NUM(1) 1691 #define gdspec_ELEMLEN_1 ZTRINGV_NUM(4) 1692 */ 1693 1694 #define GDSPEC(A1) CCALLSFSUB1(GDSPEC,gdspec,STRING,A1) 1695 1696 /*------------------------------------------------------------------ 1697 fortran filename : /cern/new/src/cfs/geant315/gdssur.f 1698 ------------------------------------------------------------------*/ 1699 1700 #define GDSSUR(A1,A2,A3,A4) CCALLSFSUB4(GDSSUR,gdssur,FLOATV,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4) 1701 1702 /*------------------------------------------------------------------ 1703 fortran filename : /cern/new/src/cfs/geant315/gdsurf.f 1704 ------------------------------------------------------------------*/ 1705 1706 #define GDSURF(A1) CCALLSFSUB1(GDSURF,gdsurf,INT,A1) 1707 1708 /*------------------------------------------------------------------ 1709 fortran filename : /cern/new/src/cfs/geant315/gdthrz.f 1710 ------------------------------------------------------------------*/ 1711 1712 #define GDTHRZ(A1) CCALLSFSUB1(GDTHRZ,gdthrz,PFLOAT,A1) 1713 1714 /*------------------------------------------------------------------ 1715 fortran filename : /cern/new/src/cfs/geant315/gdtom.f 1716 ------------------------------------------------------------------*/ 1717 1718 #define GDTOM(A1,A2,A3) CCALLSFSUB3(GDTOM,gdtom,FLOATV,PFLOAT,INT,A1,A2,A3) 1719 1720 /*------------------------------------------------------------------ 1721 fortran filename : /cern/new/src/cfs/geant315/gdtr0.f 1722 ------------------------------------------------------------------*/ 1723 1724 #define GDTR0(A1,A2,A3,A4) CCALLSFSUB4(GDTR0,gdtr0,INT,INT,INT,INT,A1,A2,A3,A4) 1725 1726 /*------------------------------------------------------------------ 1727 fortran filename : /cern/new/src/cfs/geant315/gdtr1.f 1728 ------------------------------------------------------------------*/ 1729 1730 #define GDTR1(A1,A2,A3,A4) CCALLSFSUB4(GDTR1,gdtr1,INT,INT,PINT,PINT,A1,A2,A3,A4) 1731 1732 /*------------------------------------------------------------------ 1733 fortran filename : /cern/new/src/cfs/geant315/gdtr10.f 1734 ------------------------------------------------------------------*/ 1735 1736 #define GDTR10(A1) CCALLSFSUB1(GDTR10,gdtr10,INT,A1) 1737 1738 /*------------------------------------------------------------------ 1739 fortran filename : /cern/new/src/cfs/geant315/gdtr11.f 1740 ------------------------------------------------------------------*/ 1741 1742 #define GDTR11(A1,A2,A3) CCALLSFSUB3(GDTR11,gdtr11,PINT,PINT,INT,A1,A2,A3) 1743 1744 /*------------------------------------------------------------------ 1745 fortran filename : /cern/new/src/cfs/geant315/gdtr12.f 1746 ------------------------------------------------------------------*/ 1747 1748 #define GDTR12(A1) CCALLSFSUB1(GDTR12,gdtr12,INT,A1) 1749 1750 /*------------------------------------------------------------------ 1751 fortran filename : /cern/new/src/cfs/geant315/gdtr2.f 1752 ------------------------------------------------------------------*/ 1753 1754 #define GDTR2(A1,A2,A3,A4) CCALLSFSUB4(GDTR2,gdtr2,INT,PINT,INT,PINT,A1,A2,A3,A4) 1755 1756 /*------------------------------------------------------------------ 1757 fortran filename : /cern/new/src/cfs/geant315/gdtr3.f 1758 ------------------------------------------------------------------*/ 1759 1760 #define GDTR3(A1) CCALLSFSUB1(GDTR3,gdtr3,INT,A1) 1761 1762 /*------------------------------------------------------------------ 1763 fortran filename : /cern/new/src/cfs/geant315/gdtr4.f 1764 ------------------------------------------------------------------*/ 1765 1766 #define GDTR4() CCALLSFSUB0(GDTR4,gdtr4) 1767 1768 /*------------------------------------------------------------------ 1769 fortran filename : /cern/new/src/cfs/geant315/gdtr5.f 1770 ------------------------------------------------------------------*/ 1771 1772 #define GDTR5(A1) CCALLSFSUB1(GDTR5,gdtr5,INT,A1) 1773 1774 /*------------------------------------------------------------------ 1775 fortran filename : /cern/new/src/cfs/geant315/gdtr6.f 1776 ------------------------------------------------------------------*/ 1777 1778 #define GDTR6(A1) CCALLSFSUB1(GDTR6,gdtr6,PINT,A1) 1779 1780 /*------------------------------------------------------------------ 1781 fortran filename : /cern/new/src/cfs/geant315/gdtr8.f 1782 ------------------------------------------------------------------*/ 1783 /* 1784 #define gdtr8_ELEMS_1 ZTRINGV_NUM(1) 1785 #define gdtr8_ELEMLEN_1 ZTRINGV_NUM(4) 1786 #define gdtr8_ELEMS_2 ZTRINGV_NUM(1) 1787 #define gdtr8_ELEMLEN_2 ZTRINGV_NUM(4) 1788 */ 1789 1790 #define GDTR8(A1,A2,A3) CCALLSFSUB3(GDTR8,gdtr8,STRING,STRING,PINT,A1,A2,A3) 1791 1792 /*------------------------------------------------------------------ 1793 fortran filename : /cern/new/src/cfs/geant315/gdtr99.f 1794 ------------------------------------------------------------------*/ 1795 1796 #define GDTR99(A1) CCALLSFSUB1(GDTR99,gdtr99,INT,A1) 1797 1798 /*------------------------------------------------------------------ 1799 fortran filename : /cern/new/src/cfs/geant315/gdtrak.f 1800 ------------------------------------------------------------------*/ 1801 /* 1802 #define gdtrak_ELEMS_1 ZTRINGV_NUM(1) 1803 #define gdtrak_ELEMLEN_1 ZTRINGV_NUM(255) 1804 */ 1805 1806 #define GDTRAK(A1) CCALLSFSUB1(GDTRAK,gdtrak,STRING,A1) 1807 1808 /*------------------------------------------------------------------ 1809 fortran filename : /cern/new/src/cfs/geant315/gdtree.f 1810 ------------------------------------------------------------------*/ 1811 /* 1812 #define gdtree_ELEMS_1 ZTRINGV_NUM(1) 1813 #define gdtree_ELEMLEN_1 ZTRINGV_NUM(4) 1814 */ 1815 1816 #define GDTREE(A1,A2,A3) CCALLSFSUB3(GDTREE,gdtree,PSTRING,INT,INT,A1,A2,A3) 1817 1818 /*------------------------------------------------------------------ 1819 fortran filename : /cern/new/src/cfs/geant315/gdxyz.f 1820 ------------------------------------------------------------------*/ 1821 1822 #define GDXYZ(A1) CCALLSFSUB1(GDXYZ,gdxyz,INT,A1) 1823 1824 /*------------------------------------------------------------------ 1825 fortran filename : /cern/new/src/cfs/geant315/gdxzoo.f 1826 ------------------------------------------------------------------*/ 1827 1828 #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) 1829 1830 /*------------------------------------------------------------------ 1831 fortran filename : /cern/new/src/cfs/geant315/gdzoom.f 1832 ------------------------------------------------------------------*/ 1833 1834 #define GDZOOM(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GDZOOM,gdzoom,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6) 1835 1836 /*------------------------------------------------------------------ 1837 fortran filename : /cern/new/src/cfs/geant315/geamon.f 1838 ------------------------------------------------------------------*/ 1839 /* 1840 #define geamon_ELEMS_2 ZTRINGV_NUM(1) 1841 #define geamon_ELEMLEN_2 ZTRINGV_NUM(255) 1842 */ 1843 1844 #define GEAMON(A1,A2) CCALLSFSUB2(GEAMON,geamon,INT,STRING,A1,A2) 1845 1846 /*------------------------------------------------------------------ 1847 fortran filename : /cern/new/src/cfs/geant315/geditv.f 1848 ------------------------------------------------------------------*/ 1849 1850 #define GEDITV(A1) CCALLSFSUB1(GEDITV,geditv,INT,A1) 1851 1852 /*------------------------------------------------------------------ 1853 fortran filename : /cern/new/src/cfs/geant315/gekbin.f 1854 ------------------------------------------------------------------*/ 1855 1856 #define GEKBIN() CCALLSFSUB0(GEKBIN,gekbin) 1857 1858 /*------------------------------------------------------------------ 1859 fortran filename : /cern/new/src/cfs/geant315/genxpt.f 1860 ------------------------------------------------------------------*/ 1861 1862 #define GENXPT(A1,A2,A3) CCALLSFSUB3(GENXPT,genxpt,INT,INT,FLOAT,A1,A2,A3) 1863 1864 /*------------------------------------------------------------------ 1865 fortran filename : /cern/new/src/cfs/geant315/getnum.f 1866 ------------------------------------------------------------------*/ 1867 1868 #define GETNUM(A1,A2) CCALLSFSUB2(GETNUM,getnum,INTV,PINT,A1,A2) 1869 1870 /*------------------------------------------------------------------ 1871 fortran filename : /cern/new/src/cfs/geant315/getver.f 1872 ------------------------------------------------------------------*/ 1873 /* 1874 #define getver_ELEMS_1 ZTRINGV_NUM(1) 1875 #define getver_ELEMLEN_1 ZTRINGV_NUM(8) 1876 */ 1877 1878 #define GETVER(A1,A2) CCALLSFSUB2(GETVER,getver,PSTRING,PFLOAT,A1,A2) 1879 1880 /*------------------------------------------------------------------ 1881 fortran filename : /cern/new/src/cfs/geant315/gevkev.f 1882 ------------------------------------------------------------------*/ 1883 /* 1884 #define gevkev_ELEMS_3 ZTRINGV_NUM(1) 1885 #define gevkev_ELEMLEN_3 ZTRINGV_NUM(4) 1886 */ 1887 1888 #define GEVKEV(A1,A2,A3) CCALLSFSUB3(GEVKEV,gevkev,FLOAT,PFLOAT,PSTRING,A1,A2,A3) 1889 1890 /*------------------------------------------------------------------ 1891 fortran filename : /cern/new/src/cfs/geant315/gfatt.f 1892 ------------------------------------------------------------------*/ 1893 /* 1894 #define gfatt_ELEMS_1 ZTRINGV_NUM(1) 1895 #define gfatt_ELEMLEN_1 ZTRINGV_NUM(4) 1896 #define gfatt_ELEMS_2 ZTRINGV_NUM(1) 1897 #define gfatt_ELEMLEN_2 ZTRINGV_NUM(4) 1898 */ 1899 1900 #define GFATT(A1,A2,A3) CCALLSFSUB3(GFATT,gfatt,STRING,STRING,PINT,A1,A2,A3) 1901 1902 /*------------------------------------------------------------------ 1903 fortran filename : /cern/new/src/cfs/geant315/gfclim.f 1904 ------------------------------------------------------------------*/ 1905 1906 #define GFCLIM(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFCLIM,gfclim,INT,INT,INT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4,A5,A6) 1907 1908 /*------------------------------------------------------------------ 1909 fortran filename : /cern/new/src/cfs/geant315/gfcoor.f 1910 ------------------------------------------------------------------*/ 1911 1912 #define GFCOOR(A1,A2,A3) CCALLSFSUB3(GFCOOR,gfcoor,FLOATV,INT,PFLOAT,A1,A2,A3) 1913 1914 /*------------------------------------------------------------------ 1915 fortran filename : /cern/new/src/cfs/geant315/gfcord.f 1916 ------------------------------------------------------------------*/ 1917 1918 #define GFCORD(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFCORD,gfcord,INT,FLOATV,FLOATV,PFLOAT,PINT,PINT,A1,A2,A3,A4,A5,A6) 1919 1920 /*------------------------------------------------------------------ 1921 fortran filename : /cern/new/src/cfs/geant315/gfcoul.f 1922 ------------------------------------------------------------------*/ 1923 1924 PROTOCCALLSFFUN1(FLOAT,GFCOUL,gfcoul,FLOAT) 1925 #define GFCOUL(A2) CCALLSFFUN1(GFCOUL,gfcoul,FLOAT,A2) 1926 1927 /*------------------------------------------------------------------ 1928 fortran filename : /cern/new/src/cfs/geant315/gfcvol.f 1929 ------------------------------------------------------------------*/ 1930 1931 #define GFCVOL() CCALLSFSUB0(GFCVOL,gfcvol) 1932 1933 /*------------------------------------------------------------------ 1934 fortran filename : /cern/new/src/cfs/geant315/gfdet.f 1935 ------------------------------------------------------------------*/ 1936 /* 1937 #define gfdet_ELEMS_1 ZTRINGV_NUM(1) 1938 #define gfdet_ELEMLEN_1 ZTRINGV_NUM(4) 1939 #define gfdet_ELEMS_2 ZTRINGV_NUM(1) 1940 #define gfdet_ELEMLEN_2 ZTRINGV_NUM(4) 1941 #define gfdet_ELEMS_4 ZTRINGV_NUM(1) 1942 #define gfdet_ELEMLEN_4 ZTRINGV_NUM(4) 1943 */ 1944 1945 #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) 1946 1947 /*------------------------------------------------------------------ 1948 fortran filename : /cern/new/src/cfs/geant315/gfdeta.f 1949 ------------------------------------------------------------------*/ 1950 /* 1951 #define gfdeta_ELEMS_1 ZTRINGV_NUM(1) 1952 #define gfdeta_ELEMLEN_1 ZTRINGV_NUM(4) 1953 #define gfdeta_ELEMS_2 ZTRINGV_NUM(1) 1954 #define gfdeta_ELEMLEN_2 ZTRINGV_NUM(4) 1955 */ 1956 1957 #define GFDETA(A1,A2,A3) CCALLSFSUB3(GFDETA,gfdeta,STRING,STRING,INT,A1,A2,A3) 1958 1959 /*------------------------------------------------------------------ 1960 fortran filename : /cern/new/src/cfs/geant315/gfdetd.f 1961 ------------------------------------------------------------------*/ 1962 /* 1963 #define gfdetd_ELEMS_1 ZTRINGV_NUM(1) 1964 #define gfdetd_ELEMLEN_1 ZTRINGV_NUM(4) 1965 #define gfdetd_ELEMS_2 ZTRINGV_NUM(1) 1966 #define gfdetd_ELEMLEN_2 ZTRINGV_NUM(4) 1967 #define gfdetd_ELEMS_4 ZTRINGV_NUM(1) 1968 #define gfdetd_ELEMLEN_4 ZTRINGV_NUM(4) 1969 */ 1970 1971 #define GFDETD(A1,A2,A3,A4,A5) CCALLSFSUB5(GFDETD,gfdetd,STRING,STRING,PINT,STRINGV,PINT,A1,A2,A3,A4,A5) 1972 1973 /*------------------------------------------------------------------ 1974 fortran filename : /cern/new/src/cfs/geant315/gfdeth.f 1975 ------------------------------------------------------------------*/ 1976 /* 1977 #define gfdeth_ELEMS_1 ZTRINGV_NUM(1) 1978 #define gfdeth_ELEMLEN_1 ZTRINGV_NUM(4) 1979 #define gfdeth_ELEMS_2 ZTRINGV_NUM(1) 1980 #define gfdeth_ELEMLEN_2 ZTRINGV_NUM(4) 1981 #define gfdeth_ELEMS_4 ZTRINGV_NUM(1) 1982 #define gfdeth_ELEMLEN_4 ZTRINGV_NUM(4) 1983 */ 1984 1985 #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) 1986 1987 /*------------------------------------------------------------------ 1988 fortran filename : /cern/new/src/cfs/geant315/gfdetu.f 1989 ------------------------------------------------------------------*/ 1990 /* 1991 #define gfdetu_ELEMS_1 ZTRINGV_NUM(1) 1992 #define gfdetu_ELEMLEN_1 ZTRINGV_NUM(4) 1993 #define gfdetu_ELEMS_2 ZTRINGV_NUM(1) 1994 #define gfdetu_ELEMLEN_2 ZTRINGV_NUM(4) 1995 */ 1996 1997 #define GFDETU(A1,A2,A3,A4,A5) CCALLSFSUB5(GFDETU,gfdetu,STRING,STRING,INT,PINT,FLOATV,A1,A2,A3,A4,A5) 1998 1999 /*------------------------------------------------------------------ 2000 fortran filename : /cern/new/src/cfs/geant315/gfdigi.f 2001 ------------------------------------------------------------------*/ 2002 /* 2003 #define gfdigi_ELEMS_1 ZTRINGV_NUM(1) 2004 #define gfdigi_ELEMLEN_1 ZTRINGV_NUM(4) 2005 #define gfdigi_ELEMS_2 ZTRINGV_NUM(1) 2006 #define gfdigi_ELEMLEN_2 ZTRINGV_NUM(4) 2007 */ 2008 2009 #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) 2010 2011 /*------------------------------------------------------------------ 2012 fortran filename : /cern/new/src/cfs/geant315/gffgo.f 2013 ------------------------------------------------------------------*/ 2014 2015 #define GFFGO() CCALLSFSUB0(GFFGO,gffgo) 2016 2017 /*------------------------------------------------------------------ 2018 fortran filename : /cern/new/src/cfs/geant315/gfhits.f 2019 ------------------------------------------------------------------*/ 2020 /* 2021 #define gfhits_ELEMS_1 ZTRINGV_NUM(1) 2022 #define gfhits_ELEMLEN_1 ZTRINGV_NUM(4) 2023 #define gfhits_ELEMS_2 ZTRINGV_NUM(1) 2024 #define gfhits_ELEMLEN_2 ZTRINGV_NUM(4) 2025 */ 2026 2027 #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) 2028 2029 /*------------------------------------------------------------------ 2030 fortran filename : /cern/new/src/cfs/geant315/gfhsta.f 2031 ------------------------------------------------------------------*/ 2032 2033 #define GFHSTA() CCALLSFSUB0(GFHSTA,gfhsta) 2034 2035 /*------------------------------------------------------------------ 2036 fortran filename : /cern/new/src/cfs/geant315/gfin.f 2037 ------------------------------------------------------------------*/ 2038 /* 2039 #define gfin_ELEMS_2 ZTRINGV_NUM(#@#) 2040 #define gfin_ELEMLEN_2 ZTRINGV_NUM(4) 2041 #define gfin_ELEMS_5 ZTRINGV_NUM(1) 2042 #define gfin_ELEMLEN_5 ZTRINGV_NUM(255) 2043 */ 2044 2045 #define GFIN(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFIN,gfin,INT,STRINGV,INT,INT,STRING,PINT,A1,A2,A3,A4,A5,A6) 2046 2047 /*------------------------------------------------------------------ 2048 fortran filename : /cern/new/src/cfs/geant315/gfinds.f 2049 ------------------------------------------------------------------*/ 2050 2051 #define GFINDS() CCALLSFSUB0(GFINDS,gfinds) 2052 2053 /*------------------------------------------------------------------ 2054 fortran filename : /cern/new/src/cfs/geant315/gfipar.f 2055 ------------------------------------------------------------------*/ 2056 2057 #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) 2058 2059 /*------------------------------------------------------------------ 2060 fortran filename : /cern/new/src/cfs/geant315/gfkine.f 2061 ------------------------------------------------------------------*/ 2062 2063 #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) 2064 2065 /*------------------------------------------------------------------ 2066 fortran filename : /cern/new/src/cfs/geant315/gflcar.f 2067 ------------------------------------------------------------------*/ 2068 2069 #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) 2070 2071 /*------------------------------------------------------------------ 2072 fortran filename : /cern/new/src/cfs/geant315/gflphi.f 2073 ------------------------------------------------------------------*/ 2074 2075 #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) 2076 2077 /*------------------------------------------------------------------ 2078 fortran filename : /cern/new/src/cfs/geant315/gflrad.f 2079 ------------------------------------------------------------------*/ 2080 2081 #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) 2082 2083 /*------------------------------------------------------------------ 2084 fortran filename : /cern/new/src/cfs/geant315/gflthe.f 2085 ------------------------------------------------------------------*/ 2086 2087 #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) 2088 2089 /*------------------------------------------------------------------ 2090 fortran filename : /cern/new/src/cfs/geant315/gfmate.f 2091 ------------------------------------------------------------------*/ 2092 2093 #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) 2094 2095 /*------------------------------------------------------------------ 2096 fortran filename : /cern/new/src/cfs/geant315/gfmoth.f 2097 ------------------------------------------------------------------*/ 2098 /* 2099 #define gfmoth_ELEMS_1 ZTRINGV_NUM(1) 2100 #define gfmoth_ELEMLEN_1 ZTRINGV_NUM(4) 2101 #define gfmoth_ELEMS_2 ZTRINGV_NUM(1) 2102 #define gfmoth_ELEMLEN_2 ZTRINGV_NUM(4) 2103 */ 2104 2105 #define GFMOTH(A1,A2,A3) CCALLSFSUB3(GFMOTH,gfmoth,STRING,PSTRING,PINT,A1,A2,A3) 2106 2107 /*------------------------------------------------------------------ 2108 fortran filename : /cern/new/src/cfs/geant315/gfndig.f 2109 ------------------------------------------------------------------*/ 2110 /* 2111 #define gfndig_ELEMS_1 ZTRINGV_NUM(1) 2112 #define gfndig_ELEMLEN_1 ZTRINGV_NUM(4) 2113 #define gfndig_ELEMS_2 ZTRINGV_NUM(1) 2114 #define gfndig_ELEMLEN_2 ZTRINGV_NUM(4) 2115 */ 2116 2117 #define GFNDIG(A1,A2,A3) CCALLSFSUB3(GFNDIG,gfndig,STRING,STRING,PINT,A1,A2,A3) 2118 2119 /*------------------------------------------------------------------ 2120 fortran filename : /cern/new/src/cfs/geant315/gfnhit.f 2121 ------------------------------------------------------------------*/ 2122 /* 2123 #define gfnhit_ELEMS_1 ZTRINGV_NUM(1) 2124 #define gfnhit_ELEMLEN_1 ZTRINGV_NUM(4) 2125 #define gfnhit_ELEMS_2 ZTRINGV_NUM(1) 2126 #define gfnhit_ELEMLEN_2 ZTRINGV_NUM(4) 2127 */ 2128 2129 #define GFNHIT(A1,A2,A3) CCALLSFSUB3(GFNHIT,gfnhit,STRING,STRING,PINT,A1,A2,A3) 2130 2131 /*------------------------------------------------------------------ 2132 fortran filename : /cern/new/src/cfs/geant315/gfout.f 2133 ------------------------------------------------------------------*/ 2134 /* 2135 #define gfout_ELEMS_2 ZTRINGV_NUM(#@#) 2136 #define gfout_ELEMLEN_2 ZTRINGV_NUM(4) 2137 #define gfout_ELEMS_5 ZTRINGV_NUM(1) 2138 #define gfout_ELEMLEN_5 ZTRINGV_NUM(255) 2139 */ 2140 2141 #define GFOUT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFOUT,gfout,INT,STRINGV,INT,INT,STRING,PINT,A1,A2,A3,A4,A5,A6) 2142 2143 /*------------------------------------------------------------------ 2144 fortran filename : /cern/new/src/cfs/geant315/gfpara.f 2145 ------------------------------------------------------------------*/ 2146 /* 2147 #define gfpara_ELEMS_1 ZTRINGV_NUM(1) 2148 #define gfpara_ELEMLEN_1 ZTRINGV_NUM(4) 2149 */ 2150 2151 #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) 2152 2153 /*------------------------------------------------------------------ 2154 fortran filename : /cern/new/src/cfs/geant315/gfpart.f 2155 ------------------------------------------------------------------*/ 2156 /* 2157 #define gfpart_ELEMS_2 ZTRINGV_NUM(1) 2158 #define gfpart_ELEMLEN_2 ZTRINGV_NUM(20) 2159 */ 2160 2161 #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) 2162 2163 /*------------------------------------------------------------------ 2164 fortran filename : /cern/new/src/cfs/geant315/gfpath.f 2165 ------------------------------------------------------------------*/ 2166 2167 #define GFPATH(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFPATH,gfpath,INT,INT,INTV,PINT,PINT,PINT,A1,A2,A3,A4,A5,A6) 2168 2169 /*------------------------------------------------------------------ 2170 fortran filename : /cern/new/src/cfs/geant315/gfstat.f 2171 ------------------------------------------------------------------*/ 2172 2173 #define GFSTAT(A1) CCALLSFSUB1(GFSTAT,gfstat,INT,A1) 2174 2175 /*------------------------------------------------------------------ 2176 fortran filename : /cern/new/src/cfs/geant315/gftitl.f 2177 ------------------------------------------------------------------*/ 2178 2179 #define GFTITL(A1,A2) CCALLSFSUB2(GFTITL,gftitl,INTV,INTV,A1,A2) 2180 2181 /*------------------------------------------------------------------ 2182 fortran filename : /cern/new/src/cfs/geant315/gftmat.f 2183 ------------------------------------------------------------------*/ 2184 /* 2185 #define gftmat_ELEMS_3 ZTRINGV_NUM(1) 2186 #define gftmat_ELEMLEN_3 ZTRINGV_NUM(4) 2187 */ 2188 2189 #define GFTMAT(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GFTMAT,gftmat,INT,INT,STRING,INT,FLOATV,PFLOAT,FLOATV,PINT,A1,A2,A3,A4,A5,A6,A7,A8) 2190 2191 /*------------------------------------------------------------------ 2192 fortran filename : /cern/new/src/cfs/geant315/gftmed.f 2193 ------------------------------------------------------------------*/ 2194 /* 2195 #define gftmed_ELEMS_2 ZTRINGV_NUM(1) 2196 #define gftmed_ELEMLEN_2 ZTRINGV_NUM(20) 2197 */ 2198 2199 #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) 2200 2201 /*------------------------------------------------------------------ 2202 fortran filename : /cern/new/src/cfs/geant315/gftrac.f 2203 ------------------------------------------------------------------*/ 2204 2205 #define GFTRAC() CCALLSFSUB0(GFTRAC,gftrac) 2206 2207 /*------------------------------------------------------------------ 2208 fortran filename : /cern/new/src/cfs/geant315/gfupar.f 2209 ------------------------------------------------------------------*/ 2210 2211 #define GFUPAR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFUPAR,gfupar,INT,INT,PINT,PINT,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6) 2212 2213 /*------------------------------------------------------------------ 2214 fortran filename : /cern/new/src/cfs/geant315/gfvert.f 2215 ------------------------------------------------------------------*/ 2216 2217 #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) 2218 2219 /*------------------------------------------------------------------ 2220 fortran filename : /cern/new/src/cfs/geant315/ggcave.f 2221 ------------------------------------------------------------------*/ 2222 2223 #define GGCAVE() CCALLSFSUB0(GGCAVE,ggcave) 2224 2225 /*------------------------------------------------------------------ 2226 fortran filename : /cern/new/src/cfs/geant315/ggclos.f 2227 ------------------------------------------------------------------*/ 2228 2229 #define GGCLOS() CCALLSFSUB0(GGCLOS,ggclos) 2230 2231 /*------------------------------------------------------------------ 2232 fortran filename : /cern/new/src/cfs/geant315/ggdetv.f 2233 ------------------------------------------------------------------*/ 2234 2235 #define GGDETV(A1,A2) CCALLSFSUB2(GGDETV,ggdetv,INT,INT,A1,A2) 2236 2237 /*------------------------------------------------------------------ 2238 fortran filename : /cern/new/src/cfs/geant315/ggdpar.f 2239 ------------------------------------------------------------------*/ 2240 2241 #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) 2242 2243 /*------------------------------------------------------------------ 2244 fortran filename : /cern/new/src/cfs/geant315/ggdspe.f 2245 ------------------------------------------------------------------*/ 2246 2247 #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) 2248 2249 /*------------------------------------------------------------------ 2250 fortran filename : /cern/new/src/cfs/geant315/ggdvlp.f 2251 ------------------------------------------------------------------*/ 2252 2253 #define GGDVLP() CCALLSFSUB0(GGDVLP,ggdvlp) 2254 2255 /*------------------------------------------------------------------ 2256 fortran filename : /cern/new/src/cfs/geant315/gget.f 2257 ------------------------------------------------------------------*/ 2258 /* 2259 #define gget_ELEMS_2 ZTRINGV_NUM(1) 2260 #define gget_ELEMLEN_2 ZTRINGV_NUM(4) 2261 */ 2262 2263 #define GGET(A1,A2,A3,A4,A5) CCALLSFSUB5(GGET,gget,INT,STRINGV,INT,PINT,PINT,A1,A2,A3,A4,A5) 2264 2265 /*------------------------------------------------------------------ 2266 fortran filename : /cern/new/src/cfs/geant315/ggnlev.f 2267 ------------------------------------------------------------------*/ 2268 2269 #define GGNLEV() CCALLSFSUB0(GGNLEV,ggnlev) 2270 2271 /*------------------------------------------------------------------ 2272 fortran filename : /cern/new/src/cfs/geant315/ggord.f 2273 ------------------------------------------------------------------*/ 2274 2275 #define GGORD(A1) CCALLSFSUB1(GGORD,ggord,INT,A1) 2276 2277 /*------------------------------------------------------------------ 2278 fortran filename : /cern/new/src/cfs/geant315/ggordq.f 2279 ------------------------------------------------------------------*/ 2280 2281 #define GGORDQ(A1) CCALLSFSUB1(GGORDQ,ggordq,INT,A1) 2282 2283 /*------------------------------------------------------------------ 2284 fortran filename : /cern/new/src/cfs/geant315/ggppar.f 2285 ------------------------------------------------------------------*/ 2286 2287 #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) 2288 2289 /*------------------------------------------------------------------ 2290 fortran filename : /cern/new/src/cfs/geant315/ggvchk.f 2291 ------------------------------------------------------------------*/ 2292 2293 #define GGVCHK(A1,A2,A3,A4) CCALLSFSUB4(GGVCHK,ggvchk,INT,INT,PINT,PINT,A1,A2,A3,A4) 2294 2295 /*------------------------------------------------------------------ 2296 fortran filename : /cern/new/src/cfs/geant315/ghadro.f 2297 ------------------------------------------------------------------*/ 2298 2299 #define GHADRO(A1,A2,A3,A4) CCALLSFSUB4(GHADRO,ghadro,FLOAT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4) 2300 2301 /*------------------------------------------------------------------ 2302 fortran filename : /cern/new/src/cfs/geant315/ghangl.f 2303 ------------------------------------------------------------------*/ 2304 2305 #define GHANGL(A1,A2,A3,A4,A5) CCALLSFSUB5(GHANGL,ghangl,INT,FLOAT,PFLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5) 2306 2307 /*------------------------------------------------------------------ 2308 fortran filename : /cern/new/src/cfs/geant315/ghclos.f 2309 ------------------------------------------------------------------*/ 2310 2311 #define GHCLOS() CCALLSFSUB0(GHCLOS,ghclos) 2312 2313 /*------------------------------------------------------------------ 2314 fortran filename : /cern/new/src/cfs/geant315/ghdca2.f 2315 ------------------------------------------------------------------*/ 2316 2317 #define GHDCA2(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GHDCA2,ghdca2,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8) 2318 2319 /*------------------------------------------------------------------ 2320 fortran filename : /cern/new/src/cfs/geant315/ghdca3.f 2321 ------------------------------------------------------------------*/ 2322 2323 #define GHDCA3(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GHDCA3,ghdca3,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,INT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) 2324 2325 /*------------------------------------------------------------------ 2326 fortran filename : /cern/new/src/cfs/geant315/gheini.f 2327 ------------------------------------------------------------------*/ 2328 2329 #define GHEINI() CCALLSFSUB0(GHEINI,gheini) 2330 2331 /*------------------------------------------------------------------ 2332 fortran filename : /cern/new/src/cfs/geant315/gheish.f 2333 ------------------------------------------------------------------*/ 2334 2335 #define GHEISH() CCALLSFSUB0(GHEISH,gheish) 2336 2337 /*------------------------------------------------------------------ 2338 fortran filename : /cern/new/src/cfs/geant315/ghelix.f 2339 ------------------------------------------------------------------*/ 2340 2341 #define GHELIX(A1,A2,A3,A4) CCALLSFSUB4(GHELIX,ghelix,FLOAT,FLOAT,FLOATV,PFLOAT,A1,A2,A3,A4) 2342 2343 /*------------------------------------------------------------------ 2344 fortran filename : /cern/new/src/cfs/geant315/ghelx3.f 2345 ------------------------------------------------------------------*/ 2346 2347 #define GHELX3(A1,A2,A3,A4) CCALLSFSUB4(GHELX3,ghelx3,FLOAT,FLOAT,FLOATV,PFLOAT,A1,A2,A3,A4) 2348 2349 /*------------------------------------------------------------------ 2350 fortran filename : /cern/new/src/cfs/geant315/ghesig.f 2351 ------------------------------------------------------------------*/ 2352 2353 PROTOCCALLSFFUN10(FLOAT,GHESIG,ghesig,FLOAT,FLOAT,FLOAT,FLOATV,FLOATV,FLOATV,INT,FLOAT,FLOAT,INT) 2354 #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) 2355 2356 /*------------------------------------------------------------------ 2357 fortran filename : /cern/new/src/cfs/geant315/ghfacf.f 2358 ------------------------------------------------------------------*/ 2359 2360 #define GHFACF() CCALLSFSUB0(GHFACF,ghfacf) 2361 2362 /*------------------------------------------------------------------ 2363 fortran filename : /cern/new/src/cfs/geant315/ghfake.f 2364 ------------------------------------------------------------------*/ 2365 2366 PROTOCCALLSFFUN3(FLOAT,GHFAKE,ghfake,INT,FLOAT,FLOAT) 2367 #define GHFAKE(A2,A3,A4) CCALLSFFUN3(GHFAKE,ghfake,INT,FLOAT,FLOAT,A2,A3,A4) 2368 2369 /*------------------------------------------------------------------ 2370 fortran filename : /cern/new/src/cfs/geant315/ghfalt.f 2371 ------------------------------------------------------------------*/ 2372 2373 #define GHFALT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15) CCALLSFSUB15(GHFALT,ghfalt,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15) 2374 2375 /*------------------------------------------------------------------ 2376 fortran filename : /cern/new/src/cfs/geant315/ghfamg.f 2377 ------------------------------------------------------------------*/ 2378 2379 PROTOCCALLSFFUN1(FLOAT,GHFAMG,ghfamg,INT) 2380 #define GHFAMG(A2) CCALLSFFUN1(GHFAMG,ghfamg,INT,A2) 2381 2382 /*------------------------------------------------------------------ 2383 fortran filename : /cern/new/src/cfs/geant315/ghfank.f 2384 ------------------------------------------------------------------*/ 2385 2386 PROTOCCALLSFFUN4(FLOAT,GHFANK,ghfank,INT,FLOAT,FLOAT,FLOAT) 2387 #define GHFANK(A2,A3,A4,A5) CCALLSFFUN4(GHFANK,ghfank,INT,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5) 2388 2389 /*------------------------------------------------------------------ 2390 fortran filename : /cern/new/src/cfs/geant315/ghfcal.f 2391 ------------------------------------------------------------------*/ 2392 2393 #define GHFCAL(A1,A2) CCALLSFSUB2(GHFCAL,ghfcal,INT,INT,A1,A2) 2394 2395 /*------------------------------------------------------------------ 2396 fortran filename : /cern/new/src/cfs/geant315/ghfcha.f 2397 ------------------------------------------------------------------*/ 2398 2399 #define GHFCHA() CCALLSFSUB0(GHFCHA,ghfcha) 2400 2401 /*------------------------------------------------------------------ 2402 fortran filename : /cern/new/src/cfs/geant315/ghfcos.f 2403 ------------------------------------------------------------------*/ 2404 2405 #define GHFCOS(A1,A2) CCALLSFSUB2(GHFCOS,ghfcos,PFLOAT,PFLOAT,A1,A2) 2406 2407 /*------------------------------------------------------------------ 2408 fortran filename : /cern/new/src/cfs/geant315/ghfeex.f 2409 ------------------------------------------------------------------*/ 2410 2411 PROTOCCALLSFFUN3(FLOAT,GHFEEX,ghfeex,INT,FLOAT,FLOAT) 2412 #define GHFEEX(A2,A3,A4) CCALLSFFUN3(GHFEEX,ghfeex,INT,FLOAT,FLOAT,A2,A3,A4) 2413 2414 /*------------------------------------------------------------------ 2415 fortran filename : /cern/new/src/cfs/geant315/ghfeke.f 2416 ------------------------------------------------------------------*/ 2417 2418 PROTOCCALLSFFUN4(FLOAT,GHFEKE,ghfeke,INT,FLOAT,FLOAT,FLOAT) 2419 #define GHFEKE(A2,A3,A4,A5) CCALLSFFUN4(GHFEKE,ghfeke,INT,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5) 2420 2421 /*------------------------------------------------------------------ 2422 fortran filename : /cern/new/src/cfs/geant315/ghffer.f 2423 ------------------------------------------------------------------*/ 2424 2425 #define GHFFER(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GHFFER,ghffer,FLOAT,FLOAT,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) 2426 2427 /*------------------------------------------------------------------ 2428 fortran filename : /cern/new/src/cfs/geant315/ghffrm.f 2429 ------------------------------------------------------------------*/ 2430 2431 #define GHFFRM(A1) CCALLSFSUB1(GHFFRM,ghffrm,PFLOAT,A1) 2432 2433 /*------------------------------------------------------------------ 2434 fortran filename : /cern/new/src/cfs/geant315/ghfhad.f 2435 ------------------------------------------------------------------*/ 2436 2437 #define GHFHAD(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GHFHAD,ghfhad,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8) 2438 2439 /*------------------------------------------------------------------ 2440 fortran filename : /cern/new/src/cfs/geant315/ghfhdi.f 2441 ------------------------------------------------------------------*/ 2442 2443 #define GHFHDI() CCALLSFSUB0(GHFHDI,ghfhdi) 2444 2445 /*------------------------------------------------------------------ 2446 fortran filename : /cern/new/src/cfs/geant315/ghfhdn.f 2447 ------------------------------------------------------------------*/ 2448 2449 #define GHFHDN(A1,A2,A3,A4) CCALLSFSUB4(GHFHDN,ghfhdn,FLOAT,FLOAT,INT,PINT,A1,A2,A3,A4) 2450 2451 /*------------------------------------------------------------------ 2452 fortran filename : /cern/new/src/cfs/geant315/ghfhyp.f 2453 ------------------------------------------------------------------*/ 2454 2455 #define GHFHYP(A1,A2,A3,A4) CCALLSFSUB4(GHFHYP,ghfhyp,PINT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4) 2456 2457 /*------------------------------------------------------------------ 2458 fortran filename : /cern/new/src/cfs/geant315/ghfief.f 2459 ------------------------------------------------------------------*/ 2460 2461 PROTOCCALLSFFUN2(INT,GHFIEF,ghfief,FLOAT,INT) 2462 #define GHFIEF(A2,A3) CCALLSFFUN2(GHFIEF,ghfief,FLOAT,INT,A2,A3) 2463 2464 /*------------------------------------------------------------------ 2465 fortran filename : /cern/new/src/cfs/geant315/ghfkin.f 2466 ------------------------------------------------------------------*/ 2467 2468 #define GHFKIN(A1,A2,A3) CCALLSFSUB3(GHFKIN,ghfkin,FLOATV,FLOATV,FLOAT,A1,A2,A3) 2469 2470 /*------------------------------------------------------------------ 2471 fortran filename : /cern/new/src/cfs/geant315/ghfnuc.f 2472 ------------------------------------------------------------------*/ 2473 2474 #define GHFNUC(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GHFNUC,ghfnuc,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8) 2475 2476 /*------------------------------------------------------------------ 2477 fortran filename : /cern/new/src/cfs/geant315/ghfpof.f 2478 ------------------------------------------------------------------*/ 2479 2480 PROTOCCALLSFFUN2(FLOAT,GHFPOF,ghfpof,FLOAT,INT) 2481 #define GHFPOF(A2,A3) CCALLSFFUN2(GHFPOF,ghfpof,FLOAT,INT,A2,A3) 2482 2483 /*------------------------------------------------------------------ 2484 fortran filename : /cern/new/src/cfs/geant315/ghfpol.f 2485 ------------------------------------------------------------------*/ 2486 2487 #define GHFPOL(A1,A2) CCALLSFSUB2(GHFPOL,ghfpol,FLOAT,PFLOAT,A1,A2) 2488 2489 /*------------------------------------------------------------------ 2490 fortran filename : /cern/new/src/cfs/geant315/ghfrag.f 2491 ------------------------------------------------------------------*/ 2492 2493 #define GHFRAG(A1) CCALLSFSUB1(GHFRAG,ghfrag,PFLOAT,A1) 2494 2495 /*------------------------------------------------------------------ 2496 fortran filename : /cern/new/src/cfs/geant315/ghfrak.f 2497 ------------------------------------------------------------------*/ 2498 2499 #define GHFRAK(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GHFRAK,ghfrak,INT,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8) 2500 2501 /*------------------------------------------------------------------ 2502 fortran filename : /cern/new/src/cfs/geant315/ghfsgi.f 2503 ------------------------------------------------------------------*/ 2504 2505 #define GHFSGI(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GHFSGI,ghfsgi,INT,FLOAT,INT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) 2506 2507 /*------------------------------------------------------------------ 2508 fortran filename : /cern/new/src/cfs/geant315/ghftch.f 2509 ------------------------------------------------------------------*/ 2510 2511 #define GHFTCH(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GHFTCH,ghftch,PFLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,INT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) 2512 2513 /*------------------------------------------------------------------ 2514 fortran filename : /cern/new/src/cfs/geant315/ghfthr.f 2515 ------------------------------------------------------------------*/ 2516 2517 #define GHFTHR(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19) CCALLSFSUB19(GHFTHR,ghfthr,FLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19) 2518 2519 /*------------------------------------------------------------------ 2520 fortran filename : /cern/new/src/cfs/geant315/ghftra.f 2521 ------------------------------------------------------------------*/ 2522 2523 #define GHFTRA(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15) CCALLSFSUB15(GHFTRA,ghftra,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15) 2524 2525 /*------------------------------------------------------------------ 2526 fortran filename : /cern/new/src/cfs/geant315/ghftrn.f 2527 ------------------------------------------------------------------*/ 2528 2529 #define GHFTRN(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GHFTRN,ghftrn,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) 2530 2531 /*------------------------------------------------------------------ 2532 fortran filename : /cern/new/src/cfs/geant315/ghftwd.f 2533 ------------------------------------------------------------------*/ 2534 2535 #define GHFTWD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) CCALLSFSUB13(GHFTWD,ghftwd,FLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) 2536 2537 /*------------------------------------------------------------------ 2538 fortran filename : /cern/new/src/cfs/geant315/ghftwo.f 2539 ------------------------------------------------------------------*/ 2540 2541 #define GHFTWO(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18) CCALLSFSUB18(GHFTWO,ghftwo,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,FLOAT,PFLOAT,FLOAT,PFLOAT,INT,INT,FLOAT,FLOAT,FLOAT,INT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18) 2542 2543 /*------------------------------------------------------------------ 2544 fortran filename : /cern/new/src/cfs/geant315/ghfxla.f 2545 ------------------------------------------------------------------*/ 2546 2547 PROTOCCALLSFFUN3(FLOAT,GHFXLA,ghfxla,FLOAT,FLOAT,FLOAT) 2548 #define GHFXLA(A2,A3,A4) CCALLSFFUN3(GHFXLA,ghfxla,FLOAT,FLOAT,FLOAT,A2,A3,A4) 2549 2550 /*------------------------------------------------------------------ 2551 fortran filename : /cern/new/src/cfs/geant315/ghgene.f 2552 ------------------------------------------------------------------*/ 2553 2554 #define GHGENE(A1,A2,A3,A4,A5) CCALLSFSUB5(GHGENE,ghgene,INT,FLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5) 2555 2556 /*------------------------------------------------------------------ 2557 fortran filename : /cern/new/src/cfs/geant315/ghisra.f 2558 ------------------------------------------------------------------*/ 2559 2560 #define GHISRA(A1,A2,A3,A4,A5) CCALLSFSUB5(GHISRA,ghisra,FLOATV,INT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5) 2561 2562 /*------------------------------------------------------------------ 2563 fortran filename : /cern/new/src/cfs/geant315/ghkind.f 2564 ------------------------------------------------------------------*/ 2565 2566 #define GHKIND(A1,A2,A3) CCALLSFSUB3(GHKIND,ghkind,FLOAT,INT,INT,A1,A2,A3) 2567 2568 /*------------------------------------------------------------------ 2569 fortran filename : /cern/new/src/cfs/geant315/ghlead.f 2570 ------------------------------------------------------------------*/ 2571 2572 #define GHLEAD(A1,A2,A3,A4) CCALLSFSUB4(GHLEAD,ghlead,FLOAT,INT,INT,FLOAT,A1,A2,A3,A4) 2573 2574 /*------------------------------------------------------------------ 2575 fortran filename : /cern/new/src/cfs/geant315/ghmix.f 2576 ------------------------------------------------------------------*/ 2577 2578 #define GHMIX(A1,A2,A3,A4) CCALLSFSUB4(GHMIX,ghmix,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4) 2579 2580 /*------------------------------------------------------------------ 2581 fortran filename : /cern/new/src/cfs/geant315/ghmlg.f 2582 ------------------------------------------------------------------*/ 2583 2584 #define GHMLG(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GHMLG,ghmlg,FLOAT,FLOAT,FLOAT,PFLOAT,INT,INT,A1,A2,A3,A4,A5,A6) 2585 2586 /*------------------------------------------------------------------ 2587 fortran filename : /cern/new/src/cfs/geant315/ghmome.f 2588 ------------------------------------------------------------------*/ 2589 2590 #define GHMOME(A1,A2,A3,A4) CCALLSFSUB4(GHMOME,ghmome,FLOAT,INT,INT,PFLOAT,A1,A2,A3,A4) 2591 2592 /*------------------------------------------------------------------ 2593 fortran filename : /cern/new/src/cfs/geant315/ghmult.f 2594 ------------------------------------------------------------------*/ 2595 2596 #define GHMULT(A1,A2,A3,A4) CCALLSFSUB4(GHMULT,ghmult,FLOAT,PINT,INT,FLOAT,A1,A2,A3,A4) 2597 2598 /*------------------------------------------------------------------ 2599 fortran filename : /cern/new/src/cfs/geant315/ghrear.f 2600 ------------------------------------------------------------------*/ 2601 2602 #define GHREAR(A1,A2,A3,A4) CCALLSFSUB4(GHREAR,ghrear,PINT,PINT,FLOATV,PFLOAT,A1,A2,A3,A4) 2603 2604 /*------------------------------------------------------------------ 2605 fortran filename : /cern/new/src/cfs/geant315/ghsig.f 2606 ------------------------------------------------------------------*/ 2607 2608 PROTOCCALLSFFUN3(FLOAT,GHSIG,ghsig,FLOAT,INT,FLOAT) 2609 #define GHSIG(A2,A3,A4) CCALLSFFUN3(GHSIG,ghsig,FLOAT,INT,FLOAT,A2,A3,A4) 2610 2611 /*------------------------------------------------------------------ 2612 fortran filename : /cern/new/src/cfs/geant315/ghsigm.f 2613 ------------------------------------------------------------------*/ 2614 2615 PROTOCCALLSFFUN3(FLOAT,GHSIGM,ghsigm,FLOAT,INT,FLOAT) 2616 #define GHSIGM(A2,A3,A4) CCALLSFFUN3(GHSIGM,ghsigm,FLOAT,INT,FLOAT,A2,A3,A4) 2617 2618 /*------------------------------------------------------------------ 2619 fortran filename : /cern/new/src/cfs/geant315/ghstop.f 2620 ------------------------------------------------------------------*/ 2621 2622 #define GHSTOP() CCALLSFSUB0(GHSTOP,ghstop) 2623 2624 /*------------------------------------------------------------------ 2625 fortran filename : /cern/new/src/cfs/geant315/ghtati.f 2626 ------------------------------------------------------------------*/ 2627 2628 #define GHTATI() CCALLSFSUB0(GHTATI,ghtati) 2629 2630 /*------------------------------------------------------------------ 2631 fortran filename : /cern/new/src/cfs/geant315/ghttra.f 2632 ------------------------------------------------------------------*/ 2633 2634 #define GHTTRA(A1,A2,A3,A4) CCALLSFSUB4(GHTTRA,ghttra,FLOAT,PFLOAT,INT,INT,A1,A2,A3,A4) 2635 2636 /*------------------------------------------------------------------ 2637 fortran filename : /cern/new/src/cfs/geant315/gicyl.f 2638 ------------------------------------------------------------------*/ 2639 2640 #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) 2641 2642 /*------------------------------------------------------------------ 2643 fortran filename : /cern/new/src/cfs/geant315/ginctu.f 2644 ------------------------------------------------------------------*/ 2645 2646 #define GINCTU(A1,A2,A3) CCALLSFSUB3(GINCTU,ginctu,FLOATV,FLOATV,PINT,A1,A2,A3) 2647 2648 /*------------------------------------------------------------------ 2649 fortran filename : /cern/new/src/cfs/geant315/gingtr.f 2650 ------------------------------------------------------------------*/ 2651 2652 #define GINGTR(A1,A2,A3) CCALLSFSUB3(GINGTR,gingtr,FLOATV,FLOATV,PINT,A1,A2,A3) 2653 2654 /*------------------------------------------------------------------ 2655 fortran filename : /cern/new/src/cfs/geant315/ginit.f 2656 ------------------------------------------------------------------*/ 2657 2658 #define GINIT() CCALLSFSUB0(GINIT,ginit) 2659 2660 /*------------------------------------------------------------------ 2661 fortran filename : /cern/new/src/cfs/geant315/ginme.f 2662 ------------------------------------------------------------------*/ 2663 2664 #define GINME(A1,A2,A3,A4) CCALLSFSUB4(GINME,ginme,FLOATV,FLOAT,FLOATV,PINT,A1,A2,A3,A4) 2665 2666 /*------------------------------------------------------------------ 2667 fortran filename : /cern/new/src/cfs/geant315/ginpar.f 2668 ------------------------------------------------------------------*/ 2669 2670 #define GINPAR(A1,A2,A3) CCALLSFSUB3(GINPAR,ginpar,FLOATV,FLOATV,PINT,A1,A2,A3) 2671 2672 /*------------------------------------------------------------------ 2673 fortran filename : /cern/new/src/cfs/geant315/ginpco.f 2674 ------------------------------------------------------------------*/ 2675 2676 #define GINPCO(A1,A2,A3) CCALLSFSUB3(GINPCO,ginpco,FLOATV,FLOATV,PINT,A1,A2,A3) 2677 2678 /*------------------------------------------------------------------ 2679 fortran filename : /cern/new/src/cfs/geant315/ginpgo.f 2680 ------------------------------------------------------------------*/ 2681 2682 #define GINPGO(A1,A2,A3) CCALLSFSUB3(GINPGO,ginpgo,FLOATV,FLOATV,PINT,A1,A2,A3) 2683 2684 /*------------------------------------------------------------------ 2685 fortran filename : /cern/new/src/cfs/geant315/ginrot.f 2686 ------------------------------------------------------------------*/ 2687 2688 #define GINROT(A1,A2,A3) CCALLSFSUB3(GINROT,ginrot,FLOATV,FLOATV,PFLOAT,A1,A2,A3) 2689 2690 /*------------------------------------------------------------------ 2691 fortran filename : /cern/new/src/cfs/geant315/gintco.f 2692 ------------------------------------------------------------------*/ 2693 2694 #define GINTCO(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GINTCO,gintco,FLOATV,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 2695 2696 /*------------------------------------------------------------------ 2697 fortran filename : /cern/new/src/cfs/geant315/gintrp.f 2698 ------------------------------------------------------------------*/ 2699 2700 #define GINTRP(A1,A2,A3) CCALLSFSUB3(GINTRP,gintrp,FLOATV,FLOATV,PINT,A1,A2,A3) 2701 2702 /*------------------------------------------------------------------ 2703 fortran filename : /cern/new/src/cfs/geant315/ginvol.f 2704 ------------------------------------------------------------------*/ 2705 2706 #define GINVOL(A1,A2) CCALLSFSUB2(GINVOL,ginvol,FLOATV,PINT,A1,A2) 2707 2708 /*------------------------------------------------------------------ 2709 fortran filename : /cern/new/src/cfs/geant315/giplan.f 2710 ------------------------------------------------------------------*/ 2711 2712 #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) 2713 2714 /*------------------------------------------------------------------ 2715 fortran filename : /cern/new/src/cfs/geant315/gitran.f 2716 ------------------------------------------------------------------*/ 2717 2718 #define GITRAN(A1,A2,A3,A4) CCALLSFSUB4(GITRAN,gitran,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4) 2719 2720 /*------------------------------------------------------------------ 2721 fortran filename : /cern/new/src/cfs/geant315/gkhits.f 2722 ------------------------------------------------------------------*/ 2723 /* 2724 #define gkhits_ELEMS_1 ZTRINGV_NUM(1) 2725 #define gkhits_ELEMLEN_1 ZTRINGV_NUM(4) 2726 #define gkhits_ELEMS_2 ZTRINGV_NUM(1) 2727 #define gkhits_ELEMLEN_2 ZTRINGV_NUM(4) 2728 */ 2729 2730 #define GKHITS(A1,A2,A3) CCALLSFSUB3(GKHITS,gkhits,STRING,STRING,FLOAT,A1,A2,A3) 2731 2732 /*------------------------------------------------------------------ 2733 fortran filename : /cern/new/src/cfs/geant315/gkxyz.f 2734 ------------------------------------------------------------------*/ 2735 2736 #define GKXYZ(A1) CCALLSFSUB1(GKXYZ,gkxyz,FLOAT,A1) 2737 2738 /*------------------------------------------------------------------ 2739 fortran filename : /cern/new/src/cfs/geant315/glande.f 2740 ------------------------------------------------------------------*/ 2741 2742 PROTOCCALLSFFUN1(FLOAT,GLANDE,glande,FLOAT) 2743 #define GLANDE(A2) CCALLSFFUN1(GLANDE,glande,FLOAT,A2) 2744 2745 /*------------------------------------------------------------------ 2746 fortran filename : /cern/new/src/cfs/geant315/glandg.f 2747 ------------------------------------------------------------------*/ 2748 2749 #define GLANDG(A1) CCALLSFSUB1(GLANDG,glandg,PFLOAT,A1) 2750 2751 /*------------------------------------------------------------------ 2752 fortran filename : /cern/new/src/cfs/geant315/glando.f 2753 ------------------------------------------------------------------*/ 2754 2755 #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) 2756 2757 /*------------------------------------------------------------------ 2758 fortran filename : /cern/new/src/cfs/geant315/glandr.f 2759 ------------------------------------------------------------------*/ 2760 2761 PROTOCCALLSFFUN1(FLOAT,GLANDR,glandr,FLOAT) 2762 #define GLANDR(A2) CCALLSFFUN1(GLANDR,glandr,FLOAT,A2) 2763 2764 /*------------------------------------------------------------------ 2765 fortran filename : /cern/new/src/cfs/geant315/glands.f 2766 ------------------------------------------------------------------*/ 2767 2768 PROTOCCALLSFFUN1(FLOAT,GLANDS,glands,FLOAT) 2769 #define GLANDS(A2) CCALLSFFUN1(GLANDS,glands,FLOAT,A2) 2770 2771 /*------------------------------------------------------------------ 2772 fortran filename : /cern/new/src/cfs/geant315/glandz.f 2773 ------------------------------------------------------------------*/ 2774 2775 #define GLANDZ(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GLANDZ,glandz,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8) 2776 2777 /*------------------------------------------------------------------ 2778 fortran filename : /cern/new/src/cfs/geant315/glast.f 2779 ------------------------------------------------------------------*/ 2780 2781 #define GLAST() CCALLSFSUB0(GLAST,glast) 2782 2783 /*------------------------------------------------------------------ 2784 fortran filename : /cern/new/src/cfs/geant315/glmoth.f 2785 ------------------------------------------------------------------*/ 2786 /* 2787 #define glmoth_ELEMS_1 ZTRINGV_NUM(1) 2788 #define glmoth_ELEMLEN_1 ZTRINGV_NUM(255) 2789 */ 2790 2791 #define GLMOTH(A1,A2,A3,A4,A5) CCALLSFSUB5(GLMOTH,glmoth,STRING,INT,PINT,PINT,PINT,A1,A2,A3,A4,A5) 2792 2793 /*------------------------------------------------------------------ 2794 fortran filename : /cern/new/src/cfs/geant315/glook.f 2795 ------------------------------------------------------------------*/ 2796 /* 2797 #define glook_ELEMS_1 ZTRINGV_NUM(1) 2798 #define glook_ELEMLEN_1 ZTRINGV_NUM(255) 2799 */ 2800 2801 #define GLOOK(A1,A2,A3,A4) CCALLSFSUB4(GLOOK,glook,STRING,INTV,INT,PINT,A1,A2,A3,A4) 2802 2803 /*------------------------------------------------------------------ 2804 fortran filename : /cern/new/src/cfs/geant315/gloren.f 2805 ------------------------------------------------------------------*/ 2806 2807 #define GLOREN(A1,A2,A3) CCALLSFSUB3(GLOREN,gloren,FLOATV,FLOATV,PFLOAT,A1,A2,A3) 2808 2809 /*------------------------------------------------------------------ 2810 fortran filename : /cern/new/src/cfs/geant315/glsklt.f 2811 ------------------------------------------------------------------*/ 2812 2813 #define GLSKLT() CCALLSFSUB0(GLSKLT,glsklt) 2814 2815 /*------------------------------------------------------------------ 2816 fortran filename : /cern/new/src/cfs/geant315/gltrac.f 2817 ------------------------------------------------------------------*/ 2818 2819 #define GLTRAC() CCALLSFSUB0(GLTRAC,gltrac) 2820 2821 /*------------------------------------------------------------------ 2822 fortran filename : /cern/new/src/cfs/geant315/gludky.f 2823 ------------------------------------------------------------------*/ 2824 2825 #define GLUDKY() CCALLSFSUB0(GLUDKY,gludky) 2826 2827 /*------------------------------------------------------------------ 2828 fortran filename : /cern/new/src/cfs/geant315/glund.f 2829 ------------------------------------------------------------------*/ 2830 2831 #define GLUND() CCALLSFSUB0(GLUND,glund) 2832 2833 /*------------------------------------------------------------------ 2834 fortran filename : /cern/new/src/cfs/geant315/glundi.f 2835 ------------------------------------------------------------------*/ 2836 2837 #define GLUNDI() CCALLSFSUB0(GLUNDI,glundi) 2838 2839 /*------------------------------------------------------------------ 2840 fortran filename : /cern/new/src/cfs/geant315/glvolu.f 2841 ------------------------------------------------------------------*/ 2842 2843 #define GLVOLU(A1,A2,A3,A4) CCALLSFSUB4(GLVOLU,glvolu,INT,INTV,INTV,PINT,A1,A2,A3,A4) 2844 2845 /*------------------------------------------------------------------ 2846 fortran filename : /cern/new/src/cfs/geant315/gm3pol.f 2847 ------------------------------------------------------------------*/ 2848 2849 #define GM3POL(A1,A2) CCALLSFSUB2(GM3POL,gm3pol,FLOAT,INT,A1,A2) 2850 2851 /*------------------------------------------------------------------ 2852 fortran filename : /cern/new/src/cfs/geant315/gmail.f 2853 ------------------------------------------------------------------*/ 2854 2855 #define GMAIL(A1,A2) CCALLSFSUB2(GMAIL,gmail,INT,INT,A1,A2) 2856 2857 /*------------------------------------------------------------------ 2858 fortran filename : /cern/new/src/cfs/geant315/gmate.f 2859 ------------------------------------------------------------------*/ 2860 2861 #define GMATE() CCALLSFSUB0(GMATE,gmate) 2862 2863 /*------------------------------------------------------------------ 2864 fortran filename : /cern/new/src/cfs/geant315/gmclos.f 2865 ------------------------------------------------------------------*/ 2866 2867 #define GMCLOS() CCALLSFSUB0(GMCLOS,gmclos) 2868 2869 /*------------------------------------------------------------------ 2870 fortran filename : /cern/new/src/cfs/geant315/gmcoul.f 2871 ------------------------------------------------------------------*/ 2872 2873 #define GMCOUL(A1,A2) CCALLSFSUB2(GMCOUL,gmcoul,FLOAT,PFLOAT,A1,A2) 2874 2875 /*------------------------------------------------------------------ 2876 fortran filename : /cern/new/src/cfs/geant315/gmedia.f 2877 ------------------------------------------------------------------*/ 2878 2879 #define GMEDIA(A1,A2) CCALLSFSUB2(GMEDIA,gmedia,FLOATV,PINT,A1,A2) 2880 2881 /*------------------------------------------------------------------ 2882 fortran filename : /cern/new/src/cfs/geant315/gmedin.f 2883 ------------------------------------------------------------------*/ 2884 2885 #define GMEDIN() CCALLSFSUB0(GMEDIN,gmedin) 2886 2887 /*------------------------------------------------------------------ 2888 fortran filename : /cern/new/src/cfs/geant315/gmediv.f 2889 ------------------------------------------------------------------*/ 2890 2891 #define GMEDIV(A1,A2,A3,A4) CCALLSFSUB4(GMEDIV,gmediv,INT,PINT,PFLOAT,INT,A1,A2,A3,A4) 2892 2893 /*------------------------------------------------------------------ 2894 fortran filename : /cern/new/src/cfs/geant315/gmepos.f 2895 ------------------------------------------------------------------*/ 2896 2897 #define GMEPOS(A1,A2,A3,A4) CCALLSFSUB4(GMEPOS,gmepos,INT,INT,PFLOAT,INT,A1,A2,A3,A4) 2898 2899 /*------------------------------------------------------------------ 2900 fortran filename : /cern/new/src/cfs/geant315/gmgaus.f 2901 ------------------------------------------------------------------*/ 2902 2903 #define GMGAUS(A1,A2) CCALLSFSUB2(GMGAUS,gmgaus,FLOAT,PFLOAT,A1,A2) 2904 2905 /*------------------------------------------------------------------ 2906 fortran filename : /cern/new/src/cfs/geant315/gmol4.f 2907 ------------------------------------------------------------------*/ 2908 2909 #define GMOL4(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GMOL4,gmol4,PFLOAT,FLOAT,PFLOAT,PFLOAT,FLOAT,PINT,A1,A2,A3,A4,A5,A6) 2910 2911 /*------------------------------------------------------------------ 2912 fortran filename : /cern/new/src/cfs/geant315/gmoli.f 2913 ------------------------------------------------------------------*/ 2914 2915 #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) 2916 2917 /*------------------------------------------------------------------ 2918 fortran filename : /cern/new/src/cfs/geant315/gmolie.f 2919 ------------------------------------------------------------------*/ 2920 2921 #define GMOLIE(A1,A2,A3) CCALLSFSUB3(GMOLIE,gmolie,FLOAT,FLOAT,PFLOAT,A1,A2,A3) 2922 2923 /*------------------------------------------------------------------ 2924 fortran filename : /cern/new/src/cfs/geant315/gmolio.f 2925 ------------------------------------------------------------------*/ 2926 2927 #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) 2928 2929 /*------------------------------------------------------------------ 2930 fortran filename : /cern/new/src/cfs/geant315/gmopen.f 2931 ------------------------------------------------------------------*/ 2932 2933 #define GMOPEN(A1,A2,A3) CCALLSFSUB3(GMOPEN,gmopen,FLOAT,FLOAT,INT,A1,A2,A3) 2934 2935 /*------------------------------------------------------------------ 2936 fortran filename : /cern/new/src/cfs/geant315/gmtod.f 2937 ------------------------------------------------------------------*/ 2938 2939 #define GMTOD(A1,A2,A3) CCALLSFSUB3(GMTOD,gmtod,FLOATV,PFLOAT,INT,A1,A2,A3) 2940 2941 /*------------------------------------------------------------------ 2942 fortran filename : /cern/new/src/cfs/geant315/gmulof.f 2943 ------------------------------------------------------------------*/ 2944 2945 #define GMULOF() CCALLSFSUB0(GMULOF,gmulof) 2946 2947 /*------------------------------------------------------------------ 2948 fortran filename : /cern/new/src/cfs/geant315/gmults.f 2949 ------------------------------------------------------------------*/ 2950 2951 #define GMULTS() CCALLSFSUB0(GMULTS,gmults) 2952 2953 /*------------------------------------------------------------------ 2954 fortran filename : /cern/new/src/cfs/geant315/gmunu.f 2955 ------------------------------------------------------------------*/ 2956 2957 #define GMUNU() CCALLSFSUB0(GMUNU,gmunu) 2958 2959 /*------------------------------------------------------------------ 2960 fortran filename : /cern/new/src/cfs/geant315/gmunui.f 2961 ------------------------------------------------------------------*/ 2962 2963 #define GMUNUI() CCALLSFSUB0(GMUNUI,gmunui) 2964 2965 /*------------------------------------------------------------------ 2966 fortran filename : /cern/new/src/cfs/geant315/gmusig.f 2967 ------------------------------------------------------------------*/ 2968 2969 PROTOCCALLSFFUN3(FLOAT,GMUSIG,gmusig,FLOAT,FLOAT,FLOAT) 2970 #define GMUSIG(A2,A3,A4) CCALLSFFUN3(GMUSIG,gmusig,FLOAT,FLOAT,FLOAT,A2,A3,A4) 2971 2972 /*------------------------------------------------------------------ 2973 fortran filename : /cern/new/src/cfs/geant315/gnbox.f 2974 ------------------------------------------------------------------*/ 2975 2976 #define GNBOX(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNBOX,gnbox,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 2977 2978 /*------------------------------------------------------------------ 2979 fortran filename : /cern/new/src/cfs/geant315/gncone.f 2980 ------------------------------------------------------------------*/ 2981 2982 #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) 2983 2984 /*------------------------------------------------------------------ 2985 fortran filename : /cern/new/src/cfs/geant315/gnctub.f 2986 ------------------------------------------------------------------*/ 2987 2988 #define GNCTUB(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNCTUB,gnctub,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 2989 2990 /*------------------------------------------------------------------ 2991 fortran filename : /cern/new/src/cfs/geant315/gneltu.f 2992 ------------------------------------------------------------------*/ 2993 2994 #define GNELTU(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNELTU,gneltu,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 2995 2996 /*------------------------------------------------------------------ 2997 fortran filename : /cern/new/src/cfs/geant315/gnext.f 2998 ------------------------------------------------------------------*/ 2999 3000 #define GNEXT(A1,A2,A3) CCALLSFSUB3(GNEXT,gnext,FLOATV,PFLOAT,PFLOAT,A1,A2,A3) 3001 3002 /*------------------------------------------------------------------ 3003 fortran filename : /cern/new/src/cfs/geant315/gnhype.f 3004 ------------------------------------------------------------------*/ 3005 3006 #define GNHYPE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNHYPE,gnhype,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3007 3008 /*------------------------------------------------------------------ 3009 fortran filename : /cern/new/src/cfs/geant315/gnobox.f 3010 ------------------------------------------------------------------*/ 3011 3012 #define GNOBOX(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOBOX,gnobox,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3013 3014 /*------------------------------------------------------------------ 3015 fortran filename : /cern/new/src/cfs/geant315/gnocon.f 3016 ------------------------------------------------------------------*/ 3017 3018 #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) 3019 3020 /*------------------------------------------------------------------ 3021 fortran filename : /cern/new/src/cfs/geant315/gnoctu.f 3022 ------------------------------------------------------------------*/ 3023 3024 #define GNOCTU(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOCTU,gnoctu,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3025 3026 /*------------------------------------------------------------------ 3027 fortran filename : /cern/new/src/cfs/geant315/gnoelt.f 3028 ------------------------------------------------------------------*/ 3029 3030 #define GNOELT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOELT,gnoelt,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3031 3032 /*------------------------------------------------------------------ 3033 fortran filename : /cern/new/src/cfs/geant315/gnohyp.f 3034 ------------------------------------------------------------------*/ 3035 3036 #define GNOHYP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOHYP,gnohyp,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3037 3038 /*------------------------------------------------------------------ 3039 fortran filename : /cern/new/src/cfs/geant315/gnopar.f 3040 ------------------------------------------------------------------*/ 3041 3042 #define GNOPAR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOPAR,gnopar,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3043 3044 /*------------------------------------------------------------------ 3045 fortran filename : /cern/new/src/cfs/geant315/gnopco.f 3046 ------------------------------------------------------------------*/ 3047 3048 #define GNOPCO(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOPCO,gnopco,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3049 3050 /*------------------------------------------------------------------ 3051 fortran filename : /cern/new/src/cfs/geant315/gnopg1.f 3052 ------------------------------------------------------------------*/ 3053 3054 #define GNOPG1(A1,A2,A3) CCALLSFSUB3(GNOPG1,gnopg1,FLOATV,FLOATV,PFLOAT,A1,A2,A3) 3055 3056 /*------------------------------------------------------------------ 3057 fortran filename : /cern/new/src/cfs/geant315/gnopgo.f 3058 ------------------------------------------------------------------*/ 3059 3060 #define GNOPGO(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOPGO,gnopgo,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3061 3062 /*------------------------------------------------------------------ 3063 fortran filename : /cern/new/src/cfs/geant315/gnosph.f 3064 ------------------------------------------------------------------*/ 3065 3066 #define GNOSPH(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOSPH,gnosph,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3067 3068 /*------------------------------------------------------------------ 3069 fortran filename : /cern/new/src/cfs/geant315/gnotr1.f 3070 ------------------------------------------------------------------*/ 3071 3072 #define GNOTR1(A1) CCALLSFSUB1(GNOTR1,gnotr1,FLOATV,A1) 3073 3074 /*------------------------------------------------------------------ 3075 fortran filename : /cern/new/src/cfs/geant315/gnotr2.f 3076 ------------------------------------------------------------------*/ 3077 3078 #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) 3079 3080 /*------------------------------------------------------------------ 3081 fortran filename : /cern/new/src/cfs/geant315/gnotr9.f 3082 ------------------------------------------------------------------*/ 3083 3084 #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) 3085 3086 /*------------------------------------------------------------------ 3087 fortran filename : /cern/new/src/cfs/geant315/gnotra.f 3088 ------------------------------------------------------------------*/ 3089 3090 #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) 3091 3092 /*------------------------------------------------------------------ 3093 fortran filename : /cern/new/src/cfs/geant315/gnotrp.f 3094 ------------------------------------------------------------------*/ 3095 3096 #define GNOTRP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOTRP,gnotrp,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3097 3098 /*------------------------------------------------------------------ 3099 fortran filename : /cern/new/src/cfs/geant315/gnotub.f 3100 ------------------------------------------------------------------*/ 3101 3102 #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) 3103 3104 /*------------------------------------------------------------------ 3105 fortran filename : /cern/new/src/cfs/geant315/gnpara.f 3106 ------------------------------------------------------------------*/ 3107 3108 #define GNPARA(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNPARA,gnpara,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3109 3110 /*------------------------------------------------------------------ 3111 fortran filename : /cern/new/src/cfs/geant315/gnpcon.f 3112 ------------------------------------------------------------------*/ 3113 3114 #define GNPCON(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNPCON,gnpcon,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3115 3116 /*------------------------------------------------------------------ 3117 fortran filename : /cern/new/src/cfs/geant315/gnpgo1.f 3118 ------------------------------------------------------------------*/ 3119 3120 #define GNPGO1(A1,A2,A3) CCALLSFSUB3(GNPGO1,gnpgo1,FLOATV,FLOATV,PFLOAT,A1,A2,A3) 3121 3122 /*------------------------------------------------------------------ 3123 fortran filename : /cern/new/src/cfs/geant315/gnpgon.f 3124 ------------------------------------------------------------------*/ 3125 3126 #define GNPGON(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNPGON,gnpgon,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3127 3128 /*------------------------------------------------------------------ 3129 fortran filename : /cern/new/src/cfs/geant315/gnslwd.f 3130 ------------------------------------------------------------------*/ 3131 3132 #define GNSLWD(A1,A2,A3,A4) CCALLSFSUB4(GNSLWD,gnslwd,PINT,INT,INT,FLOAT,A1,A2,A3,A4) 3133 3134 /*------------------------------------------------------------------ 3135 fortran filename : /cern/new/src/cfs/geant315/gnsphr.f 3136 ------------------------------------------------------------------*/ 3137 3138 #define GNSPHR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNSPHR,gnsphr,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3139 3140 /*------------------------------------------------------------------ 3141 fortran filename : /cern/new/src/cfs/geant315/gntrap.f 3142 ------------------------------------------------------------------*/ 3143 3144 #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) 3145 3146 /*------------------------------------------------------------------ 3147 fortran filename : /cern/new/src/cfs/geant315/gntrp.f 3148 ------------------------------------------------------------------*/ 3149 3150 #define GNTRP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNTRP,gntrp,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 3151 3152 /*------------------------------------------------------------------ 3153 fortran filename : /cern/new/src/cfs/geant315/gntube.f 3154 ------------------------------------------------------------------*/ 3155 3156 #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) 3157 3158 /*------------------------------------------------------------------ 3159 fortran filename : /cern/new/src/cfs/geant315/gopen.f 3160 ------------------------------------------------------------------*/ 3161 /* 3162 #define gopen_ELEMS_2 ZTRINGV_NUM(1) 3163 #define gopen_ELEMLEN_2 ZTRINGV_NUM(255) 3164 */ 3165 3166 #define GOPEN(A1,A2,A3,A4) CCALLSFSUB4(GOPEN,gopen,INT,STRING,INT,PINT,A1,A2,A3,A4) 3167 3168 /*------------------------------------------------------------------ 3169 fortran filename : /cern/new/src/cfs/geant315/gpairg.f 3170 ------------------------------------------------------------------*/ 3171 3172 #define GPAIRG() CCALLSFSUB0(GPAIRG,gpairg) 3173 3174 /*------------------------------------------------------------------ 3175 fortran filename : /cern/new/src/cfs/geant315/gpairm.f 3176 ------------------------------------------------------------------*/ 3177 3178 #define GPAIRM() CCALLSFSUB0(GPAIRM,gpairm) 3179 3180 /*------------------------------------------------------------------ 3181 fortran filename : /cern/new/src/cfs/geant315/gpart.f 3182 ------------------------------------------------------------------*/ 3183 3184 #define GPART() CCALLSFSUB0(GPART,gpart) 3185 3186 /*------------------------------------------------------------------ 3187 fortran filename : /cern/new/src/cfs/geant315/gpcxyz.f 3188 ------------------------------------------------------------------*/ 3189 3190 #define GPCXYZ() CCALLSFSUB0(GPCXYZ,gpcxyz) 3191 3192 /*------------------------------------------------------------------ 3193 fortran filename : /cern/new/src/cfs/geant315/gpdigi.f 3194 ------------------------------------------------------------------*/ 3195 /* 3196 #define gpdigi_ELEMS_1 ZTRINGV_NUM(1) 3197 #define gpdigi_ELEMLEN_1 ZTRINGV_NUM(4) 3198 #define gpdigi_ELEMS_2 ZTRINGV_NUM(1) 3199 #define gpdigi_ELEMLEN_2 ZTRINGV_NUM(4) 3200 */ 3201 3202 #define GPDIGI(A1,A2) CCALLSFSUB2(GPDIGI,gpdigi,STRING,STRING,A1,A2) 3203 3204 /*------------------------------------------------------------------ 3205 fortran filename : /cern/new/src/cfs/geant315/gpdk.f 3206 ------------------------------------------------------------------*/ 3207 3208 PROTOCCALLSFFUN3(FLOAT,GPDK,gpdk,FLOAT,FLOAT,FLOAT) 3209 #define GPDK(A2,A3,A4) CCALLSFFUN3(GPDK,gpdk,FLOAT,FLOAT,FLOAT,A2,A3,A4) 3210 3211 /*------------------------------------------------------------------ 3212 fortran filename : /cern/new/src/cfs/geant315/gpdrif.f 3213 ------------------------------------------------------------------*/ 3214 3215 #define GPDRIF(A1,A2,A3) CCALLSFSUB3(GPDRIF,gpdrif,FLOATV,FLOATV,PINT,A1,A2,A3) 3216 3217 /*------------------------------------------------------------------ 3218 fortran filename : /cern/new/src/cfs/geant315/gpfis.f 3219 ------------------------------------------------------------------*/ 3220 3221 #define GPFIS() CCALLSFSUB0(GPFIS,gpfis) 3222 3223 /*------------------------------------------------------------------ 3224 fortran filename : /cern/new/src/cfs/geant315/gpfisi.f 3225 ------------------------------------------------------------------*/ 3226 3227 #define GPFISI() CCALLSFSUB0(GPFISI,gpfisi) 3228 3229 /*------------------------------------------------------------------ 3230 fortran filename : /cern/new/src/cfs/geant315/gpghei.f 3231 ------------------------------------------------------------------*/ 3232 3233 #define GPGHEI() CCALLSFSUB0(GPGHEI,gpghei) 3234 3235 /*------------------------------------------------------------------ 3236 fortran filename : /cern/new/src/cfs/geant315/gpgkin.f 3237 ------------------------------------------------------------------*/ 3238 3239 #define GPGKIN() CCALLSFSUB0(GPGKIN,gpgkin) 3240 3241 /*------------------------------------------------------------------ 3242 fortran filename : /cern/new/src/cfs/geant315/gphadr.f 3243 ------------------------------------------------------------------*/ 3244 3245 #define GPHADR() CCALLSFSUB0(GPHADR,gphadr) 3246 3247 /*------------------------------------------------------------------ 3248 fortran filename : /cern/new/src/cfs/geant315/gphits.f 3249 ------------------------------------------------------------------*/ 3250 /* 3251 #define gphits_ELEMS_1 ZTRINGV_NUM(1) 3252 #define gphits_ELEMLEN_1 ZTRINGV_NUM(4) 3253 #define gphits_ELEMS_2 ZTRINGV_NUM(1) 3254 #define gphits_ELEMLEN_2 ZTRINGV_NUM(4) 3255 */ 3256 3257 #define GPHITS(A1,A2) CCALLSFSUB2(GPHITS,gphits,STRING,STRING,A1,A2) 3258 3259 /*------------------------------------------------------------------ 3260 fortran filename : /cern/new/src/cfs/geant315/gphmfi.f 3261 ------------------------------------------------------------------*/ 3262 3263 #define GPHMFI() CCALLSFSUB0(GPHMFI,gphmfi) 3264 3265 /*------------------------------------------------------------------ 3266 fortran filename : /cern/new/src/cfs/geant315/gphot.f 3267 ------------------------------------------------------------------*/ 3268 3269 #define GPHOT() CCALLSFSUB0(GPHOT,gphot) 3270 3271 /*------------------------------------------------------------------ 3272 fortran filename : /cern/new/src/cfs/geant315/gphoti.f 3273 ------------------------------------------------------------------*/ 3274 3275 #define GPHOTI() CCALLSFSUB0(GPHOTI,gphoti) 3276 3277 /*------------------------------------------------------------------ 3278 fortran filename : /cern/new/src/cfs/geant315/gphsig.f 3279 ------------------------------------------------------------------*/ 3280 3281 PROTOCCALLSFFUN2(FLOAT,GPHSIG,gphsig,FLOAT,FLOAT) 3282 #define GPHSIG(A2,A3) CCALLSFFUN2(GPHSIG,gphsig,FLOAT,FLOAT,A2,A3) 3283 3284 /*------------------------------------------------------------------ 3285 fortran filename : /cern/new/src/cfs/geant315/gphysi.f 3286 ------------------------------------------------------------------*/ 3287 3288 #define GPHYSI() CCALLSFSUB0(GPHYSI,gphysi) 3289 3290 /*------------------------------------------------------------------ 3291 fortran filename : /cern/new/src/cfs/geant315/gpions.f 3292 ------------------------------------------------------------------*/ 3293 3294 #define GPIONS() CCALLSFSUB0(GPIONS,gpions) 3295 3296 /*------------------------------------------------------------------ 3297 fortran filename : /cern/new/src/cfs/geant315/gpjxyz.f 3298 ------------------------------------------------------------------*/ 3299 3300 #define GPJXYZ(A1) CCALLSFSUB1(GPJXYZ,gpjxyz,INT,A1) 3301 3302 /*------------------------------------------------------------------ 3303 fortran filename : /cern/new/src/cfs/geant315/gpkine.f 3304 ------------------------------------------------------------------*/ 3305 3306 #define GPKINE(A1) CCALLSFSUB1(GPKINE,gpkine,INT,A1) 3307 3308 /*------------------------------------------------------------------ 3309 fortran filename : /cern/new/src/cfs/geant315/gplmat.f 3310 ------------------------------------------------------------------*/ 3311 /* 3312 #define gplmat_ELEMS_3 ZTRINGV_NUM(1) 3313 #define gplmat_ELEMLEN_3 ZTRINGV_NUM(255) 3314 */ 3315 3316 #define GPLMAT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GPLMAT,gplmat,INT,INT,STRING,INT,FLOATV,INT,A1,A2,A3,A4,A5,A6) 3317 3318 /*------------------------------------------------------------------ 3319 fortran filename : /cern/new/src/cfs/geant315/gpmate.f 3320 ------------------------------------------------------------------*/ 3321 3322 #define GPMATE(A1) CCALLSFSUB1(GPMATE,gpmate,INT,A1) 3323 3324 /*------------------------------------------------------------------ 3325 fortran filename : /cern/new/src/cfs/geant315/gpmwpc.f 3326 ------------------------------------------------------------------*/ 3327 3328 #define GPMWPC(A1,A2,A3) CCALLSFSUB3(GPMWPC,gpmwpc,FLOATV,FLOATV,PINT,A1,A2,A3) 3329 3330 /*------------------------------------------------------------------ 3331 fortran filename : /cern/new/src/cfs/geant315/gpoiss.f 3332 ------------------------------------------------------------------*/ 3333 3334 #define GPOISS(A1,A2,A3) CCALLSFSUB3(GPOISS,gpoiss,FLOATV,PINT,INT,A1,A2,A3) 3335 3336 /*------------------------------------------------------------------ 3337 fortran filename : /cern/new/src/cfs/geant315/gppart.f 3338 ------------------------------------------------------------------*/ 3339 3340 #define GPPART(A1) CCALLSFSUB1(GPPART,gppart,INT,A1) 3341 3342 /*------------------------------------------------------------------ 3343 fortran filename : /cern/new/src/cfs/geant315/gprela.f 3344 ------------------------------------------------------------------*/ 3345 3346 #define GPRELA() CCALLSFSUB0(GPRELA,gprela) 3347 3348 /*------------------------------------------------------------------ 3349 fortran filename : /cern/new/src/cfs/geant315/gprelm.f 3350 ------------------------------------------------------------------*/ 3351 3352 PROTOCCALLSFFUN3(FLOAT,GPRELM,gprelm,FLOAT,FLOAT,FLOAT) 3353 #define GPRELM(A2,A3,A4) CCALLSFFUN3(GPRELM,gprelm,FLOAT,FLOAT,FLOAT,A2,A3,A4) 3354 3355 /*------------------------------------------------------------------ 3356 fortran filename : /cern/new/src/cfs/geant315/gprint.f 3357 ------------------------------------------------------------------*/ 3358 /* 3359 #define gprint_ELEMS_1 ZTRINGV_NUM(1) 3360 #define gprint_ELEMLEN_1 ZTRINGV_NUM(255) 3361 */ 3362 3363 #define GPRINT(A1,A2) CCALLSFSUB2(GPRINT,gprint,STRING,INT,A1,A2) 3364 3365 /*------------------------------------------------------------------ 3366 fortran filename : /cern/new/src/cfs/geant315/gprmat.f 3367 ------------------------------------------------------------------*/ 3368 /* 3369 #define gprmat_ELEMS_3 ZTRINGV_NUM(1) 3370 #define gprmat_ELEMLEN_3 ZTRINGV_NUM(255) 3371 */ 3372 3373 #define GPRMAT(A1,A2,A3,A4,A5) CCALLSFSUB5(GPRMAT,gprmat,INT,INT,STRING,INT,FLOATV,A1,A2,A3,A4,A5) 3374 3375 /*------------------------------------------------------------------ 3376 fortran filename : /cern/new/src/cfs/geant315/gprobi.f 3377 ------------------------------------------------------------------*/ 3378 3379 #define GPROBI() CCALLSFSUB0(GPROBI,gprobi) 3380 3381 /*------------------------------------------------------------------ 3382 fortran filename : /cern/new/src/cfs/geant315/gprotm.f 3383 ------------------------------------------------------------------*/ 3384 3385 #define GPROTM(A1) CCALLSFSUB1(GPROTM,gprotm,INT,A1) 3386 3387 /*------------------------------------------------------------------ 3388 fortran filename : /cern/new/src/cfs/geant315/gprsga.f 3389 ------------------------------------------------------------------*/ 3390 3391 #define GPRSGA() CCALLSFSUB0(GPRSGA,gprsga) 3392 3393 /*------------------------------------------------------------------ 3394 fortran filename : /cern/new/src/cfs/geant315/gprsgg.f 3395 ------------------------------------------------------------------*/ 3396 3397 PROTOCCALLSFFUN2(FLOAT,GPRSGG,gprsgg,FLOAT,FLOAT) 3398 #define GPRSGG(A2,A3) CCALLSFFUN2(GPRSGG,gprsgg,FLOAT,FLOAT,A2,A3) 3399 3400 /*------------------------------------------------------------------ 3401 fortran filename : /cern/new/src/cfs/geant315/gprsgm.f 3402 ------------------------------------------------------------------*/ 3403 3404 PROTOCCALLSFFUN3(FLOAT,GPRSGM,gprsgm,FLOAT,FLOAT,FLOAT) 3405 #define GPRSGM(A2,A3,A4) CCALLSFFUN3(GPRSGM,gprsgm,FLOAT,FLOAT,FLOAT,A2,A3,A4) 3406 3407 /*------------------------------------------------------------------ 3408 fortran filename : /cern/new/src/cfs/geant315/gpsets.f 3409 ------------------------------------------------------------------*/ 3410 /* 3411 #define gpsets_ELEMS_1 ZTRINGV_NUM(1) 3412 #define gpsets_ELEMLEN_1 ZTRINGV_NUM(4) 3413 #define gpsets_ELEMS_2 ZTRINGV_NUM(1) 3414 #define gpsets_ELEMLEN_2 ZTRINGV_NUM(4) 3415 */ 3416 3417 #define GPSETS(A1,A2) CCALLSFSUB2(GPSETS,gpsets,STRING,STRING,A1,A2) 3418 3419 /*------------------------------------------------------------------ 3420 fortran filename : /cern/new/src/cfs/geant315/gpstat.f 3421 ------------------------------------------------------------------*/ 3422 3423 #define GPSTAT() CCALLSFSUB0(GPSTAT,gpstat) 3424 3425 /*------------------------------------------------------------------ 3426 fortran filename : /cern/new/src/cfs/geant315/gptmed.f 3427 ------------------------------------------------------------------*/ 3428 3429 #define GPTMED(A1) CCALLSFSUB1(GPTMED,gptmed,INT,A1) 3430 3431 /*------------------------------------------------------------------ 3432 fortran filename : /cern/new/src/cfs/geant315/gpvert.f 3433 ------------------------------------------------------------------*/ 3434 3435 #define GPVERT(A1) CCALLSFSUB1(GPVERT,gpvert,INT,A1) 3436 3437 /*------------------------------------------------------------------ 3438 fortran filename : /cern/new/src/cfs/geant315/gpvolu.f 3439 ------------------------------------------------------------------*/ 3440 3441 #define GPVOLU(A1) CCALLSFSUB1(GPVOLU,gpvolu,INT,A1) 3442 3443 /*------------------------------------------------------------------ 3444 fortran filename : /cern/new/src/cfs/geant315/grangi.f 3445 ------------------------------------------------------------------*/ 3446 3447 #define GRANGI() CCALLSFSUB0(GRANGI,grangi) 3448 3449 /*------------------------------------------------------------------ 3450 fortran filename : /cern/new/src/cfs/geant315/granor.f 3451 ------------------------------------------------------------------*/ 3452 3453 #define GRANOR(A1,A2) CCALLSFSUB2(GRANOR,granor,PFLOAT,PFLOAT,A1,A2) 3454 3455 /*------------------------------------------------------------------ 3456 fortran filename : /cern/new/src/cfs/geant315/grayl.f 3457 ------------------------------------------------------------------*/ 3458 3459 #define GRAYL() CCALLSFSUB0(GRAYL,grayl) 3460 3461 /*------------------------------------------------------------------ 3462 fortran filename : /cern/new/src/cfs/geant315/grayli.f 3463 ------------------------------------------------------------------*/ 3464 3465 #define GRAYLI() CCALLSFSUB0(GRAYLI,grayli) 3466 3467 /*------------------------------------------------------------------ 3468 fortran filename : /cern/new/src/cfs/geant315/grend.f 3469 ------------------------------------------------------------------*/ 3470 3471 #define GREND(A1) CCALLSFSUB1(GREND,grend,INT,A1) 3472 3473 /*------------------------------------------------------------------ 3474 fortran filename : /cern/new/src/cfs/geant315/grfile.f 3475 ------------------------------------------------------------------*/ 3476 /* 3477 #define grfile_ELEMS_2 ZTRINGV_NUM(1) 3478 #define grfile_ELEMLEN_2 ZTRINGV_NUM(255) 3479 #define grfile_ELEMS_3 ZTRINGV_NUM(1) 3480 #define grfile_ELEMLEN_3 ZTRINGV_NUM(255) 3481 */ 3482 3483 #define GRFILE(A1,A2,A3) CCALLSFSUB3(GRFILE,grfile,INT,STRING,STRING,A1,A2,A3) 3484 3485 /*------------------------------------------------------------------ 3486 fortran filename : /cern/new/src/cfs/geant315/grget.f 3487 ------------------------------------------------------------------*/ 3488 /* 3489 #define grget_ELEMS_1 ZTRINGV_NUM(1) 3490 #define grget_ELEMLEN_1 ZTRINGV_NUM(4) 3491 */ 3492 3493 #define GRGET(A1,A2,A3,A4,A5) CCALLSFSUB5(GRGET,grget,STRINGV,INT,INT,INT,INT,A1,A2,A3,A4,A5) 3494 3495 /*------------------------------------------------------------------ 3496 fortran filename : /cern/new/src/cfs/geant315/grhits.f 3497 ------------------------------------------------------------------*/ 3498 /* 3499 #define grhits_ELEMS_1 ZTRINGV_NUM(1) 3500 #define grhits_ELEMLEN_1 ZTRINGV_NUM(255) 3501 #define grhits_ELEMS_2 ZTRINGV_NUM(1) 3502 #define grhits_ELEMLEN_2 ZTRINGV_NUM(255) 3503 */ 3504 3505 #define GRHITS(A1,A2,A3,A4) CCALLSFSUB4(GRHITS,grhits,STRING,STRING,INT,INTV,A1,A2,A3,A4) 3506 3507 /*------------------------------------------------------------------ 3508 fortran filename : /cern/new/src/cfs/geant315/grin.f 3509 ------------------------------------------------------------------*/ 3510 /* 3511 #define grin_ELEMS_1 ZTRINGV_NUM(1) 3512 #define grin_ELEMLEN_1 ZTRINGV_NUM(255) 3513 #define grin_ELEMS_3 ZTRINGV_NUM(1) 3514 #define grin_ELEMLEN_3 ZTRINGV_NUM(255) 3515 */ 3516 3517 #define GRIN(A1,A2,A3) CCALLSFSUB3(GRIN,grin,STRING,INT,STRING,A1,A2,A3) 3518 3519 /*------------------------------------------------------------------ 3520 fortran filename : /cern/new/src/cfs/geant315/grkuta.f 3521 ------------------------------------------------------------------*/ 3522 3523 #define GRKUTA(A1,A2,A3,A4) CCALLSFSUB4(GRKUTA,grkuta,FLOAT,FLOAT,FLOATV,PFLOAT,A1,A2,A3,A4) 3524 3525 /*------------------------------------------------------------------ 3526 fortran filename : /cern/new/src/cfs/geant315/grleas.f 3527 ------------------------------------------------------------------*/ 3528 3529 #define GRLEAS(A1) CCALLSFSUB1(GRLEAS,grleas,INT,A1) 3530 3531 /*------------------------------------------------------------------ 3532 fortran filename : /cern/new/src/cfs/geant315/grmdir.f 3533 ------------------------------------------------------------------*/ 3534 /* 3535 #define grmdir_ELEMS_1 ZTRINGV_NUM(1) 3536 #define grmdir_ELEMLEN_1 ZTRINGV_NUM(255) 3537 #define grmdir_ELEMS_2 ZTRINGV_NUM(1) 3538 #define grmdir_ELEMLEN_2 ZTRINGV_NUM(255) 3539 */ 3540 3541 #define GRMDIR(A1,A2) CCALLSFSUB2(GRMDIR,grmdir,STRING,STRING,A1,A2) 3542 3543 /*------------------------------------------------------------------ 3544 fortran filename : /cern/new/src/cfs/geant315/grmtd.f 3545 ------------------------------------------------------------------*/ 3546 3547 #define GRMTD(A1,A2,A3) CCALLSFSUB3(GRMTD,grmtd,FLOATV,INT,PFLOAT,A1,A2,A3) 3548 3549 /*------------------------------------------------------------------ 3550 fortran filename : /cern/new/src/cfs/geant315/grmul.f 3551 ------------------------------------------------------------------*/ 3552 3553 #define GRMUL(A1,A2,A3) CCALLSFSUB3(GRMUL,grmul,FLOATV,INT,PFLOAT,A1,A2,A3) 3554 3555 /*------------------------------------------------------------------ 3556 fortran filename : /cern/new/src/cfs/geant315/grndm.f 3557 ------------------------------------------------------------------*/ 3558 3559 #define GRNDM(A1,A2) CCALLSFSUB2(GRNDM,grndm,PFLOAT,INT,A1,A2) 3560 3561 /*------------------------------------------------------------------ 3562 fortran filename : /cern/new/src/cfs/geant315/grndmq.f 3563 ------------------------------------------------------------------*/ 3564 /* 3565 #define grndmq_ELEMS_4 ZTRINGV_NUM(1) 3566 #define grndmq_ELEMLEN_4 ZTRINGV_NUM(255) 3567 */ 3568 3569 #define GRNDMQ(A1,A2,A3,A4) CCALLSFSUB4(GRNDMQ,grndmq,PINT,PINT,INT,STRING,A1,A2,A3,A4) 3570 3571 /*------------------------------------------------------------------ 3572 fortran filename : /cern/new/src/cfs/geant315/grot.f 3573 ------------------------------------------------------------------*/ 3574 3575 #define GROT(A1,A2,A3) CCALLSFSUB3(GROT,grot,FLOATV,FLOATV,PFLOAT,A1,A2,A3) 3576 3577 /*------------------------------------------------------------------ 3578 fortran filename : /cern/new/src/cfs/geant315/grout.f 3579 ------------------------------------------------------------------*/ 3580 /* 3581 #define grout_ELEMS_1 ZTRINGV_NUM(1) 3582 #define grout_ELEMLEN_1 ZTRINGV_NUM(255) 3583 #define grout_ELEMS_3 ZTRINGV_NUM(1) 3584 #define grout_ELEMLEN_3 ZTRINGV_NUM(255) 3585 */ 3586 3587 #define GROUT(A1,A2,A3) CCALLSFSUB3(GROUT,grout,STRING,INT,STRING,A1,A2,A3) 3588 3589 /*------------------------------------------------------------------ 3590 fortran filename : /cern/new/src/cfs/geant315/grpar.f 3591 ------------------------------------------------------------------*/ 3592 3593 #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) 3594 3595 /*------------------------------------------------------------------ 3596 fortran filename : /cern/new/src/cfs/geant315/grsave.f 3597 ------------------------------------------------------------------*/ 3598 /* 3599 #define grsave_ELEMS_1 ZTRINGV_NUM(1) 3600 #define grsave_ELEMLEN_1 ZTRINGV_NUM(4) 3601 */ 3602 3603 #define GRSAVE(A1,A2,A3,A4,A5) CCALLSFSUB5(GRSAVE,grsave,STRINGV,INT,INT,INT,INT,A1,A2,A3,A4,A5) 3604 3605 /*------------------------------------------------------------------ 3606 fortran filename : /cern/new/src/cfs/geant315/grun.f 3607 ------------------------------------------------------------------*/ 3608 3609 #define GRUN() CCALLSFSUB0(GRUN,grun) 3610 3611 /*------------------------------------------------------------------ 3612 fortran filename : /cern/new/src/cfs/geant315/gsagtr.f 3613 ------------------------------------------------------------------*/ 3614 3615 #define GSAGTR(A1,A2,A3,A4) CCALLSFSUB4(GSAGTR,gsagtr,FLOATV,FLOATV,PFLOAT,INT,A1,A2,A3,A4) 3616 3617 /*------------------------------------------------------------------ 3618 fortran filename : /cern/new/src/cfs/geant315/gsahit.f 3619 ------------------------------------------------------------------*/ 3620 3621 #define GSAHIT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSAHIT,gsahit,INT,INT,INT,INTV,FLOATV,PINT,A1,A2,A3,A4,A5,A6) 3622 3623 /*------------------------------------------------------------------ 3624 fortran filename : /cern/new/src/cfs/geant315/gsaphi.f 3625 ------------------------------------------------------------------*/ 3626 3627 #define GSAPHI(A1,A2,A3,A4) CCALLSFSUB4(GSAPHI,gsaphi,FLOATV,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4) 3628 3629 /*------------------------------------------------------------------ 3630 fortran filename : /cern/new/src/cfs/geant315/gsatt.f 3631 ------------------------------------------------------------------*/ 3632 /* 3633 #define gsatt_ELEMS_1 ZTRINGV_NUM(1) 3634 #define gsatt_ELEMLEN_1 ZTRINGV_NUM(4) 3635 #define gsatt_ELEMS_2 ZTRINGV_NUM(1) 3636 #define gsatt_ELEMLEN_2 ZTRINGV_NUM(4) 3637 */ 3638 3639 #define GSATT(A1,A2,A3) CCALLSFSUB3(GSATT,gsatt,STRING,STRING,INT,A1,A2,A3) 3640 3641 /*------------------------------------------------------------------ 3642 fortran filename : /cern/new/src/cfs/geant315/gsave.f 3643 ------------------------------------------------------------------*/ 3644 /* 3645 #define gsave_ELEMS_2 ZTRINGV_NUM(1) 3646 #define gsave_ELEMLEN_2 ZTRINGV_NUM(4) 3647 */ 3648 3649 #define GSAVE(A1,A2,A3,A4,A5) CCALLSFSUB5(GSAVE,gsave,INT,STRINGV,INT,INT,PINT,A1,A2,A3,A4,A5) 3650 3651 /*------------------------------------------------------------------ 3652 fortran filename : /cern/new/src/cfs/geant315/gscani.f 3653 ------------------------------------------------------------------*/ 3654 3655 #define GSCANI() CCALLSFSUB0(GSCANI,gscani) 3656 3657 /*------------------------------------------------------------------ 3658 fortran filename : /cern/new/src/cfs/geant315/gscank.f 3659 ------------------------------------------------------------------*/ 3660 3661 #define GSCANK() CCALLSFSUB0(GSCANK,gscank) 3662 3663 /*------------------------------------------------------------------ 3664 fortran filename : /cern/new/src/cfs/geant315/gscano.f 3665 ------------------------------------------------------------------*/ 3666 3667 #define GSCANO() CCALLSFSUB0(GSCANO,gscano) 3668 3669 /*------------------------------------------------------------------ 3670 fortran filename : /cern/new/src/cfs/geant315/gscanu.f 3671 ------------------------------------------------------------------*/ 3672 3673 #define GSCANU() CCALLSFSUB0(GSCANU,gscanu) 3674 3675 /*------------------------------------------------------------------ 3676 fortran filename : /cern/new/src/cfs/geant315/gschit.f 3677 ------------------------------------------------------------------*/ 3678 3679 #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) 3680 3681 /*------------------------------------------------------------------ 3682 fortran filename : /cern/new/src/cfs/geant315/gschk.f 3683 ------------------------------------------------------------------*/ 3684 /* 3685 #define gschk_ELEMS_1 ZTRINGV_NUM(1) 3686 #define gschk_ELEMLEN_1 ZTRINGV_NUM(4) 3687 #define gschk_ELEMS_2 ZTRINGV_NUM(1) 3688 #define gschk_ELEMLEN_2 ZTRINGV_NUM(4) 3689 */ 3690 3691 #define GSCHK(A1,A2,A3,A4) CCALLSFSUB4(GSCHK,gschk,STRING,STRING,INT,PINT,A1,A2,A3,A4) 3692 3693 /*------------------------------------------------------------------ 3694 fortran filename : /cern/new/src/cfs/geant315/gscvol.f 3695 ------------------------------------------------------------------*/ 3696 3697 #define GSCVOL() CCALLSFSUB0(GSCVOL,gscvol) 3698 3699 /*------------------------------------------------------------------ 3700 fortran filename : /cern/new/src/cfs/geant315/gsdet.f 3701 ------------------------------------------------------------------*/ 3702 /* 3703 #define gsdet_ELEMS_1 ZTRINGV_NUM(1) 3704 #define gsdet_ELEMLEN_1 ZTRINGV_NUM(4) 3705 #define gsdet_ELEMS_2 ZTRINGV_NUM(1) 3706 #define gsdet_ELEMLEN_2 ZTRINGV_NUM(4) 3707 #define gsdet_ELEMS_4 ZTRINGV_NUM(1) 3708 #define gsdet_ELEMLEN_4 ZTRINGV_NUM(4) 3709 */ 3710 3711 #define GSDET(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GSDET,gsdet,STRINGV,STRINGV,INT,STRINGV,INTV,INT,INT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) 3712 3713 /*------------------------------------------------------------------ 3714 fortran filename : /cern/new/src/cfs/geant315/gsdeta.f 3715 ------------------------------------------------------------------*/ 3716 /* 3717 #define gsdeta_ELEMS_1 ZTRINGV_NUM(1) 3718 #define gsdeta_ELEMLEN_1 ZTRINGV_NUM(4) 3719 #define gsdeta_ELEMS_2 ZTRINGV_NUM(1) 3720 #define gsdeta_ELEMLEN_2 ZTRINGV_NUM(4) 3721 #define gsdeta_ELEMS_3 ZTRINGV_NUM(1) 3722 #define gsdeta_ELEMLEN_3 ZTRINGV_NUM(4) 3723 */ 3724 3725 #define GSDETA(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSDETA,gsdeta,STRING,STRING,STRING,INT,INT,PINT,A1,A2,A3,A4,A5,A6) 3726 3727 /*------------------------------------------------------------------ 3728 fortran filename : /cern/new/src/cfs/geant315/gsdetd.f 3729 ------------------------------------------------------------------*/ 3730 /* 3731 #define gsdetd_ELEMS_1 ZTRINGV_NUM(1) 3732 #define gsdetd_ELEMLEN_1 ZTRINGV_NUM(4) 3733 #define gsdetd_ELEMS_2 ZTRINGV_NUM(1) 3734 #define gsdetd_ELEMLEN_2 ZTRINGV_NUM(4) 3735 #define gsdetd_ELEMS_4 ZTRINGV_NUM(1) 3736 #define gsdetd_ELEMLEN_4 ZTRINGV_NUM(4) 3737 */ 3738 3739 #define GSDETD(A1,A2,A3,A4,A5) CCALLSFSUB5(GSDETD,gsdetd,STRING,STRING,INT,STRINGV,INTV,A1,A2,A3,A4,A5) 3740 3741 /*------------------------------------------------------------------ 3742 fortran filename : /cern/new/src/cfs/geant315/gsdeth.f 3743 ------------------------------------------------------------------*/ 3744 /* 3745 #define gsdeth_ELEMS_1 ZTRINGV_NUM(1) 3746 #define gsdeth_ELEMLEN_1 ZTRINGV_NUM(4) 3747 #define gsdeth_ELEMS_2 ZTRINGV_NUM(1) 3748 #define gsdeth_ELEMLEN_2 ZTRINGV_NUM(4) 3749 #define gsdeth_ELEMS_4 ZTRINGV_NUM(1) 3750 #define gsdeth_ELEMLEN_4 ZTRINGV_NUM(4) 3751 */ 3752 3753 #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) 3754 3755 /*------------------------------------------------------------------ 3756 fortran filename : /cern/new/src/cfs/geant315/gsdetu.f 3757 ------------------------------------------------------------------*/ 3758 /* 3759 #define gsdetu_ELEMS_1 ZTRINGV_NUM(1) 3760 #define gsdetu_ELEMLEN_1 ZTRINGV_NUM(4) 3761 #define gsdetu_ELEMS_2 ZTRINGV_NUM(1) 3762 #define gsdetu_ELEMLEN_2 ZTRINGV_NUM(4) 3763 */ 3764 3765 #define GSDETU(A1,A2,A3,A4) CCALLSFSUB4(GSDETU,gsdetu,STRING,STRING,INT,FLOATV,A1,A2,A3,A4) 3766 3767 /*------------------------------------------------------------------ 3768 fortran filename : /cern/new/src/cfs/geant315/gsdetv.f 3769 ------------------------------------------------------------------*/ 3770 /* 3771 #define gsdetv_ELEMS_1 ZTRINGV_NUM(1) 3772 #define gsdetv_ELEMLEN_1 ZTRINGV_NUM(4) 3773 #define gsdetv_ELEMS_2 ZTRINGV_NUM(1) 3774 #define gsdetv_ELEMLEN_2 ZTRINGV_NUM(4) 3775 */ 3776 3777 #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) 3778 3779 /*------------------------------------------------------------------ 3780 fortran filename : /cern/new/src/cfs/geant315/gsdigi.f 3781 ------------------------------------------------------------------*/ 3782 3783 #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) 3784 3785 /*------------------------------------------------------------------ 3786 fortran filename : /cern/new/src/cfs/geant315/gsdk.f 3787 ------------------------------------------------------------------*/ 3788 3789 #define GSDK(A1,A2,A3) CCALLSFSUB3(GSDK,gsdk,INT,FLOATV,INTV,A1,A2,A3) 3790 3791 /*------------------------------------------------------------------ 3792 fortran filename : /cern/new/src/cfs/geant315/gsdvn.f 3793 ------------------------------------------------------------------*/ 3794 /* 3795 #define gsdvn_ELEMS_1 ZTRINGV_NUM(1) 3796 #define gsdvn_ELEMLEN_1 ZTRINGV_NUM(4) 3797 #define gsdvn_ELEMS_2 ZTRINGV_NUM(1) 3798 #define gsdvn_ELEMLEN_2 ZTRINGV_NUM(4) 3799 */ 3800 3801 #define GSDVN(A1,A2,A3,A4) CCALLSFSUB4(GSDVN,gsdvn,STRING,STRING,INT,INT,A1,A2,A3,A4) 3802 3803 /*------------------------------------------------------------------ 3804 fortran filename : /cern/new/src/cfs/geant315/gsdvn2.f 3805 ------------------------------------------------------------------*/ 3806 /* 3807 #define gsdvn2_ELEMS_1 ZTRINGV_NUM(1) 3808 #define gsdvn2_ELEMLEN_1 ZTRINGV_NUM(4) 3809 #define gsdvn2_ELEMS_2 ZTRINGV_NUM(1) 3810 #define gsdvn2_ELEMLEN_2 ZTRINGV_NUM(4) 3811 */ 3812 3813 #define GSDVN2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSDVN2,gsdvn2,STRING,STRING,INT,INT,PFLOAT,INT,A1,A2,A3,A4,A5,A6) 3814 3815 /*------------------------------------------------------------------ 3816 fortran filename : /cern/new/src/cfs/geant315/gsdvs.f 3817 ------------------------------------------------------------------*/ 3818 /* 3819 #define gsdvs_ELEMS_1 ZTRINGV_NUM(1) 3820 #define gsdvs_ELEMLEN_1 ZTRINGV_NUM(4) 3821 #define gsdvs_ELEMS_2 ZTRINGV_NUM(1) 3822 #define gsdvs_ELEMLEN_2 ZTRINGV_NUM(4) 3823 */ 3824 3825 #define GSDVS(A1,A2,A3,A4,A5) CCALLSFSUB5(GSDVS,gsdvs,STRING,STRING,FLOAT,INT,INT,A1,A2,A3,A4,A5) 3826 3827 /*------------------------------------------------------------------ 3828 fortran filename : /cern/new/src/cfs/geant315/gsdvs2.f 3829 ------------------------------------------------------------------*/ 3830 /* 3831 #define gsdvs2_ELEMS_1 ZTRINGV_NUM(1) 3832 #define gsdvs2_ELEMLEN_1 ZTRINGV_NUM(4) 3833 #define gsdvs2_ELEMS_2 ZTRINGV_NUM(1) 3834 #define gsdvs2_ELEMLEN_2 ZTRINGV_NUM(4) 3835 */ 3836 3837 #define GSDVS2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSDVS2,gsdvs2,STRING,STRING,FLOAT,INT,FLOAT,INT,A1,A2,A3,A4,A5,A6) 3838 3839 /*------------------------------------------------------------------ 3840 fortran filename : /cern/new/src/cfs/geant315/gsdvt.f 3841 ------------------------------------------------------------------*/ 3842 /* 3843 #define gsdvt_ELEMS_1 ZTRINGV_NUM(1) 3844 #define gsdvt_ELEMLEN_1 ZTRINGV_NUM(4) 3845 #define gsdvt_ELEMS_2 ZTRINGV_NUM(1) 3846 #define gsdvt_ELEMLEN_2 ZTRINGV_NUM(4) 3847 */ 3848 3849 #define GSDVT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSDVT,gsdvt,STRING,STRING,FLOAT,INT,INT,INT,A1,A2,A3,A4,A5,A6) 3850 3851 /*------------------------------------------------------------------ 3852 fortran filename : /cern/new/src/cfs/geant315/gsdvt2.f 3853 ------------------------------------------------------------------*/ 3854 /* 3855 #define gsdvt2_ELEMS_1 ZTRINGV_NUM(1) 3856 #define gsdvt2_ELEMLEN_1 ZTRINGV_NUM(4) 3857 #define gsdvt2_ELEMS_2 ZTRINGV_NUM(1) 3858 #define gsdvt2_ELEMLEN_2 ZTRINGV_NUM(4) 3859 */ 3860 3861 #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) 3862 3863 /*------------------------------------------------------------------ 3864 fortran filename : /cern/new/src/cfs/geant315/gsdvx.f 3865 ------------------------------------------------------------------*/ 3866 /* 3867 #define gsdvx_ELEMS_1 ZTRINGV_NUM(1) 3868 #define gsdvx_ELEMLEN_1 ZTRINGV_NUM(4) 3869 #define gsdvx_ELEMS_2 ZTRINGV_NUM(1) 3870 #define gsdvx_ELEMLEN_2 ZTRINGV_NUM(4) 3871 */ 3872 3873 #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) 3874 3875 /*------------------------------------------------------------------ 3876 fortran filename : /cern/new/src/cfs/geant315/gsipar.f 3877 ------------------------------------------------------------------*/ 3878 3879 #define GSIPAR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSIPAR,gsipar,INT,INT,INT,INT,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6) 3880 3881 /*------------------------------------------------------------------ 3882 fortran filename : /cern/new/src/cfs/geant315/gskine.f 3883 ------------------------------------------------------------------*/ 3884 3885 #define GSKINE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSKINE,gskine,FLOATV,INT,INT,FLOATV,INT,PINT,A1,A2,A3,A4,A5,A6) 3886 3887 /*------------------------------------------------------------------ 3888 fortran filename : /cern/new/src/cfs/geant315/gsking.f 3889 ------------------------------------------------------------------*/ 3890 3891 #define GSKING(A1) CCALLSFSUB1(GSKING,gsking,INT,A1) 3892 3893 /*------------------------------------------------------------------ 3894 fortran filename : /cern/new/src/cfs/geant315/gsmate.f 3895 ------------------------------------------------------------------*/ 3896 /* 3897 #define gsmate_ELEMS_2 ZTRINGV_NUM(1) 3898 #define gsmate_ELEMLEN_2 ZTRINGV_NUM(255) 3899 */ 3900 3901 #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) 3902 3903 /*------------------------------------------------------------------ 3904 fortran filename : /cern/new/src/cfs/geant315/gsmixt.f 3905 ------------------------------------------------------------------*/ 3906 /* 3907 #define gsmixt_ELEMS_2 ZTRINGV_NUM(1) 3908 #define gsmixt_ELEMLEN_2 ZTRINGV_NUM(255) 3909 */ 3910 3911 #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) 3912 3913 /*------------------------------------------------------------------ 3914 fortran filename : /cern/new/src/cfs/geant315/gsnear.f 3915 ------------------------------------------------------------------*/ 3916 /* 3917 #define gsnear_ELEMS_1 ZTRINGV_NUM(1) 3918 #define gsnear_ELEMLEN_1 ZTRINGV_NUM(4) 3919 */ 3920 3921 #define GSNEAR(A1,A2,A3,A4) CCALLSFSUB4(GSNEAR,gsnear,STRING,INT,INT,INTV,A1,A2,A3,A4) 3922 3923 /*------------------------------------------------------------------ 3924 fortran filename : /cern/new/src/cfs/geant315/gsnext.f 3925 ------------------------------------------------------------------*/ 3926 /* 3927 #define gsnext_ELEMS_1 ZTRINGV_NUM(1) 3928 #define gsnext_ELEMLEN_1 ZTRINGV_NUM(4) 3929 */ 3930 3931 #define GSNEXT(A1,A2,A3,A4) CCALLSFSUB4(GSNEXT,gsnext,STRING,INT,INT,INTV,A1,A2,A3,A4) 3932 3933 /*------------------------------------------------------------------ 3934 fortran filename : /cern/new/src/cfs/geant315/gsngtr.f 3935 ------------------------------------------------------------------*/ 3936 3937 #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) 3938 3939 /*------------------------------------------------------------------ 3940 fortran filename : /cern/new/src/cfs/geant315/gsord.f 3941 ------------------------------------------------------------------*/ 3942 /* 3943 #define gsord_ELEMS_1 ZTRINGV_NUM(1) 3944 #define gsord_ELEMLEN_1 ZTRINGV_NUM(4) 3945 */ 3946 3947 #define GSORD(A1,A2) CCALLSFSUB2(GSORD,gsord,STRING,INT,A1,A2) 3948 3949 /*------------------------------------------------------------------ 3950 fortran filename : /cern/new/src/cfs/geant315/gspart.f 3951 ------------------------------------------------------------------*/ 3952 /* 3953 #define gspart_ELEMS_2 ZTRINGV_NUM(1) 3954 #define gspart_ELEMLEN_2 ZTRINGV_NUM(255) 3955 */ 3956 3957 #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) 3958 3959 /*------------------------------------------------------------------ 3960 fortran filename : /cern/new/src/cfs/geant315/gspos.f 3961 ------------------------------------------------------------------*/ 3962 /* 3963 #define gspos_ELEMS_1 ZTRINGV_NUM(1) 3964 #define gspos_ELEMLEN_1 ZTRINGV_NUM(4) 3965 #define gspos_ELEMS_3 ZTRINGV_NUM(1) 3966 #define gspos_ELEMLEN_3 ZTRINGV_NUM(4) 3967 #define gspos_ELEMS_8 ZTRINGV_NUM(1) 3968 #define gspos_ELEMLEN_8 ZTRINGV_NUM(4) 3969 */ 3970 3971 #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) 3972 3973 /*------------------------------------------------------------------ 3974 fortran filename : /cern/new/src/cfs/geant315/gsposp.f 3975 ------------------------------------------------------------------*/ 3976 /* 3977 #define gsposp_ELEMS_1 ZTRINGV_NUM(1) 3978 #define gsposp_ELEMLEN_1 ZTRINGV_NUM(4) 3979 #define gsposp_ELEMS_3 ZTRINGV_NUM(1) 3980 #define gsposp_ELEMLEN_3 ZTRINGV_NUM(4) 3981 #define gsposp_ELEMS_8 ZTRINGV_NUM(1) 3982 #define gsposp_ELEMLEN_8 ZTRINGV_NUM(4) 3983 */ 3984 3985 #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) 3986 3987 /*------------------------------------------------------------------ 3988 fortran filename : /cern/new/src/cfs/geant315/gsrotm.f 3989 ------------------------------------------------------------------*/ 3990 3991 #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) 3992 3993 /*------------------------------------------------------------------ 3994 fortran filename : /cern/new/src/cfs/geant315/gsscan.f 3995 ------------------------------------------------------------------*/ 3996 3997 #define GSSCAN(A1,A2) CCALLSFSUB2(GSSCAN,gsscan,INT,INT,A1,A2) 3998 3999 /*------------------------------------------------------------------ 4000 fortran filename : /cern/new/src/cfs/geant315/gsstak.f 4001 ------------------------------------------------------------------*/ 4002 4003 #define GSSTAK(A1) CCALLSFSUB1(GSSTAK,gsstak,INT,A1) 4004 4005 /*------------------------------------------------------------------ 4006 fortran filename : /cern/new/src/cfs/geant315/gstmed.f 4007 ------------------------------------------------------------------*/ 4008 /* 4009 #define gstmed_ELEMS_2 ZTRINGV_NUM(1) 4010 #define gstmed_ELEMLEN_2 ZTRINGV_NUM(255) 4011 */ 4012 4013 #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) 4014 4015 /*------------------------------------------------------------------ 4016 fortran filename : /cern/new/src/cfs/geant315/gstpar.f 4017 ------------------------------------------------------------------*/ 4018 /* 4019 #define gstpar_ELEMS_2 ZTRINGV_NUM(1) 4020 #define gstpar_ELEMLEN_2 ZTRINGV_NUM(255) 4021 */ 4022 4023 #define GSTPAR(A1,A2,A3) CCALLSFSUB3(GSTPAR,gstpar,INT,STRING,FLOAT,A1,A2,A3) 4024 4025 /*------------------------------------------------------------------ 4026 fortran filename : /cern/new/src/cfs/geant315/gstrac.f 4027 ------------------------------------------------------------------*/ 4028 4029 #define GSTRAC() CCALLSFSUB0(GSTRAC,gstrac) 4030 4031 /*------------------------------------------------------------------ 4032 fortran filename : /cern/new/src/cfs/geant315/gsunea.f 4033 ------------------------------------------------------------------*/ 4034 /* 4035 #define gsunea_ELEMS_1 ZTRINGV_NUM(1) 4036 #define gsunea_ELEMLEN_1 ZTRINGV_NUM(4) 4037 */ 4038 4039 #define GSUNEA(A1,A2) CCALLSFSUB2(GSUNEA,gsunea,STRING,INT,A1,A2) 4040 4041 /*------------------------------------------------------------------ 4042 fortran filename : /cern/new/src/cfs/geant315/gsvert.f 4043 ------------------------------------------------------------------*/ 4044 4045 #define GSVERT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSVERT,gsvert,FLOATV,INT,INT,FLOATV,INT,PINT,A1,A2,A3,A4,A5,A6) 4046 4047 /*------------------------------------------------------------------ 4048 fortran filename : /cern/new/src/cfs/geant315/gsvolu.f 4049 ------------------------------------------------------------------*/ 4050 /* 4051 #define gsvolu_ELEMS_1 ZTRINGV_NUM(1) 4052 #define gsvolu_ELEMLEN_1 ZTRINGV_NUM(4) 4053 #define gsvolu_ELEMS_2 ZTRINGV_NUM(1) 4054 #define gsvolu_ELEMLEN_2 ZTRINGV_NUM(4) 4055 */ 4056 4057 #define GSVOLU(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSVOLU,gsvolu,STRING,STRING,INT,FLOATV,INT,PINT,A1,A2,A3,A4,A5,A6) 4058 4059 /*------------------------------------------------------------------ 4060 fortran filename : /cern/new/src/cfs/geant315/gsxyz.f 4061 ------------------------------------------------------------------*/ 4062 4063 #define GSXYZ() CCALLSFSUB0(GSXYZ,gsxyz) 4064 4065 /*------------------------------------------------------------------ 4066 fortran filename : /cern/new/src/cfs/geant315/gtau.f 4067 ------------------------------------------------------------------*/ 4068 4069 #define GTAU() CCALLSFSUB0(GTAU,gtau) 4070 4071 /*------------------------------------------------------------------ 4072 fortran filename : /cern/new/src/cfs/geant315/gtelec.f 4073 ------------------------------------------------------------------*/ 4074 4075 #define GTELEC() CCALLSFSUB0(GTELEC,gtelec) 4076 4077 /*------------------------------------------------------------------ 4078 fortran filename : /cern/new/src/cfs/geant315/gtgama.f 4079 ------------------------------------------------------------------*/ 4080 4081 #define GTGAMA() CCALLSFSUB0(GTGAMA,gtgama) 4082 4083 /*------------------------------------------------------------------ 4084 fortran filename : /cern/new/src/cfs/geant315/gthadr.f 4085 ------------------------------------------------------------------*/ 4086 4087 #define GTHADR() CCALLSFSUB0(GTHADR,gthadr) 4088 4089 /*------------------------------------------------------------------ 4090 fortran filename : /cern/new/src/cfs/geant315/gtmedi.f 4091 ------------------------------------------------------------------*/ 4092 4093 #define GTMEDI(A1,A2) CCALLSFSUB2(GTMEDI,gtmedi,FLOATV,PINT,A1,A2) 4094 4095 /*------------------------------------------------------------------ 4096 fortran filename : /cern/new/src/cfs/geant315/gtmuon.f 4097 ------------------------------------------------------------------*/ 4098 4099 #define GTMUON() CCALLSFSUB0(GTMUON,gtmuon) 4100 4101 /*------------------------------------------------------------------ 4102 fortran filename : /cern/new/src/cfs/geant315/gtneut.f 4103 ------------------------------------------------------------------*/ 4104 4105 #define GTNEUT() CCALLSFSUB0(GTNEUT,gtneut) 4106 4107 /*------------------------------------------------------------------ 4108 fortran filename : /cern/new/src/cfs/geant315/gtnext.f 4109 ------------------------------------------------------------------*/ 4110 4111 #define GTNEXT() CCALLSFSUB0(GTNEXT,gtnext) 4112 4113 /*------------------------------------------------------------------ 4114 fortran filename : /cern/new/src/cfs/geant315/gtnino.f 4115 ------------------------------------------------------------------*/ 4116 4117 #define GTNINO() CCALLSFSUB0(GTNINO,gtnino) 4118 4119 /*------------------------------------------------------------------ 4120 fortran filename : /cern/new/src/cfs/geant315/gtrack.f 4121 ------------------------------------------------------------------*/ 4122 4123 #define GTRACK() CCALLSFSUB0(GTRACK,gtrack) 4124 4125 /*------------------------------------------------------------------ 4126 fortran filename : /cern/new/src/cfs/geant315/gtrain.f 4127 ------------------------------------------------------------------*/ 4128 4129 #define GTRAIN(A1,A2) CCALLSFSUB2(GTRAIN,gtrain,FLOATV,PFLOAT,A1,A2) 4130 4131 /*------------------------------------------------------------------ 4132 fortran filename : /cern/new/src/cfs/geant315/gtreve.f 4133 ------------------------------------------------------------------*/ 4134 4135 #define GTREVE() CCALLSFSUB0(GTREVE,gtreve) 4136 4137 /*------------------------------------------------------------------ 4138 fortran filename : /cern/new/src/cfs/geant315/gtrig.f 4139 ------------------------------------------------------------------*/ 4140 4141 #define GTRIG() CCALLSFSUB0(GTRIG,gtrig) 4142 4143 /*------------------------------------------------------------------ 4144 fortran filename : /cern/new/src/cfs/geant315/gtrigc.f 4145 ------------------------------------------------------------------*/ 4146 4147 #define GTRIGC() CCALLSFSUB0(GTRIGC,gtrigc) 4148 4149 /*------------------------------------------------------------------ 4150 fortran filename : /cern/new/src/cfs/geant315/gtrigi.f 4151 ------------------------------------------------------------------*/ 4152 4153 #define GTRIGI() CCALLSFSUB0(GTRIGI,gtrigi) 4154 4155 /*------------------------------------------------------------------ 4156 fortran filename : /cern/new/src/cfs/geant315/gtrmul.f 4157 ------------------------------------------------------------------*/ 4158 4159 #define GTRMUL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GTRMUL,gtrmul,FLOATV,FLOATV,FLOATV,INT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) 4160 4161 /*------------------------------------------------------------------ 4162 fortran filename : /cern/new/src/cfs/geant315/gtrnsf.f 4163 ------------------------------------------------------------------*/ 4164 4165 #define GTRNSF(A1,A2,A3,A4) CCALLSFSUB4(GTRNSF,gtrnsf,FLOATV,FLOATV,FLOATV,PFLOAT,A1,A2,A3,A4) 4166 4167 /*------------------------------------------------------------------ 4168 fortran filename : /cern/new/src/cfs/geant315/gudcay.f 4169 ------------------------------------------------------------------*/ 4170 4171 #define GUDCAY() CCALLSFSUB0(GUDCAY,gudcay) 4172 4173 /*------------------------------------------------------------------ 4174 fortran filename : /cern/new/src/cfs/geant315/gudigi.f 4175 ------------------------------------------------------------------*/ 4176 4177 #define GUDIGI() CCALLSFSUB0(GUDIGI,gudigi) 4178 4179 /*------------------------------------------------------------------ 4180 fortran filename : /cern/new/src/cfs/geant315/gudtim.f 4181 ------------------------------------------------------------------*/ 4182 4183 PROTOCCALLSFFUN4(FLOAT,GUDTIM,gudtim,FLOAT,FLOAT,INT,FLOAT) 4184 #define GUDTIM(A2,A3,A4,A5) CCALLSFFUN4(GUDTIM,gudtim,FLOAT,FLOAT,INT,FLOAT,A2,A3,A4,A5) 4185 4186 /*------------------------------------------------------------------ 4187 fortran filename : /cern/new/src/cfs/geant315/gufld.f 4188 ------------------------------------------------------------------*/ 4189 4190 #define GUFLD(A1,A2) CCALLSFSUB2(GUFLD,gufld,FLOATV,PFLOAT,A1,A2) 4191 4192 /*------------------------------------------------------------------ 4193 fortran filename : /cern/new/src/cfs/geant315/guhadr.f 4194 ------------------------------------------------------------------*/ 4195 4196 #define GUHADR() CCALLSFSUB0(GUHADR,guhadr) 4197 4198 /*------------------------------------------------------------------ 4199 fortran filename : /cern/new/src/cfs/geant315/guiget.f 4200 ------------------------------------------------------------------*/ 4201 4202 #define GUIGET(A1,A2,A3) CCALLSFSUB3(GUIGET,guiget,INT,INT,INT,A1,A2,A3) 4203 4204 /*------------------------------------------------------------------ 4205 fortran filename : /cern/new/src/cfs/geant315/guinme.f 4206 ------------------------------------------------------------------*/ 4207 4208 #define GUINME(A1,A2,A3,A4) CCALLSFSUB4(GUINME,guinme,FLOATV,FLOAT,FLOATV,PINT,A1,A2,A3,A4) 4209 4210 /*------------------------------------------------------------------ 4211 fortran filename : /cern/new/src/cfs/geant315/guinti.f 4212 ------------------------------------------------------------------*/ 4213 4214 #define GUINTI() CCALLSFSUB0(GUINTI,guinti) 4215 4216 /*------------------------------------------------------------------ 4217 fortran filename : /cern/new/src/cfs/geant315/gukine.f 4218 ------------------------------------------------------------------*/ 4219 4220 #define GUKINE() CCALLSFSUB0(GUKINE,gukine) 4221 4222 /*------------------------------------------------------------------ 4223 fortran filename : /cern/new/src/cfs/geant315/gunear.f 4224 ------------------------------------------------------------------*/ 4225 4226 #define GUNEAR(A1,A2,A3,A4) CCALLSFSUB4(GUNEAR,gunear,INT,INT,FLOATV,INT,A1,A2,A3,A4) 4227 4228 /*------------------------------------------------------------------ 4229 fortran filename : /cern/new/src/cfs/geant315/gunliv.f 4230 ------------------------------------------------------------------*/ 4231 4232 #define GUNLIV(A1,A2,A3) CCALLSFSUB3(GUNLIV,gunliv,INT,INT,INT,A1,A2,A3) 4233 4234 /*------------------------------------------------------------------ 4235 fortran filename : /cern/new/src/cfs/geant315/guout.f 4236 ------------------------------------------------------------------*/ 4237 4238 #define GUOUT() CCALLSFSUB0(GUOUT,guout) 4239 4240 /*------------------------------------------------------------------ 4241 fortran filename : /cern/new/src/cfs/geant315/gupara.f 4242 ------------------------------------------------------------------*/ 4243 4244 #define GUPARA() CCALLSFSUB0(GUPARA,gupara) 4245 4246 /*------------------------------------------------------------------ 4247 fortran filename : /cern/new/src/cfs/geant315/guphad.f 4248 ------------------------------------------------------------------*/ 4249 4250 #define GUPHAD() CCALLSFSUB0(GUPHAD,guphad) 4251 4252 /*------------------------------------------------------------------ 4253 fortran filename : /cern/new/src/cfs/geant315/guskip.f 4254 ------------------------------------------------------------------*/ 4255 4256 #define GUSKIP(A1) CCALLSFSUB1(GUSKIP,guskip,PINT,A1) 4257 4258 /*------------------------------------------------------------------ 4259 fortran filename : /cern/new/src/cfs/geant315/gustep.f 4260 ------------------------------------------------------------------*/ 4261 4262 #define GUSTEP() CCALLSFSUB0(GUSTEP,gustep) 4263 4264 /*------------------------------------------------------------------ 4265 fortran filename : /cern/new/src/cfs/geant315/guswim.f 4266 ------------------------------------------------------------------*/ 4267 4268 #define GUSWIM(A1,A2,A3,A4) CCALLSFSUB4(GUSWIM,guswim,FLOAT,FLOAT,FLOATV,FLOATV,A1,A2,A3,A4) 4269 4270 /*------------------------------------------------------------------ 4271 fortran filename : /cern/new/src/cfs/geant315/gutrak.f 4272 ------------------------------------------------------------------*/ 4273 4274 #define GUTRAK() CCALLSFSUB0(GUTRAK,gutrak) 4275 4276 /*------------------------------------------------------------------ 4277 fortran filename : /cern/new/src/cfs/geant315/gutrev.f 4278 ------------------------------------------------------------------*/ 4279 4280 #define GUTREV() CCALLSFSUB0(GUTREV,gutrev) 4281 4282 /*------------------------------------------------------------------ 4283 fortran filename : /cern/new/src/cfs/geant315/guview.f 4284 ------------------------------------------------------------------*/ 4285 /* 4286 #define guview_ELEMS_3 ZTRINGV_NUM(1) 4287 #define guview_ELEMLEN_3 ZTRINGV_NUM(255) 4288 */ 4289 4290 #define GUVIEW(A1,A2,A3,A4) CCALLSFSUB4(GUVIEW,guview,INT,INT,STRING,INT,A1,A2,A3,A4) 4291 4292 /*------------------------------------------------------------------ 4293 fortran filename : /cern/new/src/cfs/geant315/gvaviv.f 4294 ------------------------------------------------------------------*/ 4295 4296 PROTOCCALLSFFUN3(FLOAT,GVAVIV,gvaviv,FLOAT,FLOAT,FLOAT) 4297 #define GVAVIV(A2,A3,A4) CCALLSFFUN3(GVAVIV,gvaviv,FLOAT,FLOAT,FLOAT,A2,A3,A4) 4298 4299 /*------------------------------------------------------------------ 4300 fortran filename : /cern/new/src/cfs/geant315/gviewf.f 4301 ------------------------------------------------------------------*/ 4302 4303 #define GVIEWF(A1,A2,A3) CCALLSFSUB3(GVIEWF,gviewf,FLOATV,FLOATV,INT,A1,A2,A3) 4304 4305 /*------------------------------------------------------------------ 4306 fortran filename : /cern/new/src/cfs/geant315/gwork.f 4307 ------------------------------------------------------------------*/ 4308 4309 #define GWORK(A1) CCALLSFSUB1(GWORK,gwork,INT,A1) 4310 4311 /*------------------------------------------------------------------ 4312 fortran filename : /cern/new/src/cfs/geant315/gxsi.f 4313 ------------------------------------------------------------------*/ 4314 4315 PROTOCCALLSFFUN1(FLOAT,GXSI,gxsi,FLOAT) 4316 #define GXSI(A2) CCALLSFFUN1(GXSI,gxsi,FLOAT,A2) 4317 4318 /*------------------------------------------------------------------ 4319 fortran filename : /cern/new/src/cfs/geant315/gzebra.f 4320 ------------------------------------------------------------------*/ 4321 4322 #define GZEBRA(A1) CCALLSFSUB1(GZEBRA,gzebra,INT,A1) 4323 4324 /*------------------------------------------------------------------ 4325 fortran filename : /cern/new/src/cfs/geant315/gzinit.f 4326 ------------------------------------------------------------------*/ 4327 4328 #define GZINIT() CCALLSFSUB0(GZINIT,gzinit) 4329 4330 /*------------------------------------------------------------------ 4331 fortran filename : /cern/new/src/cfs/geant315/hadden.f 4332 ------------------------------------------------------------------*/ 4333 4334 #define HADDEN() CCALLSFSUB0(HADDEN,hadden) 4335 4336 /*------------------------------------------------------------------ 4337 fortran filename : /cern/new/src/cfs/geant315/hadevv.f 4338 ------------------------------------------------------------------*/ 4339 4340 #define HADEVV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(HADEVV,hadevv,PINT,INT,INT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6) 4341 4342 /*------------------------------------------------------------------ 4343 fortran filename : /cern/new/src/cfs/geant315/hadrin.f 4344 ------------------------------------------------------------------*/ 4345 4346 #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) 4347 4348 /*------------------------------------------------------------------ 4349 fortran filename : /cern/new/src/cfs/geant315/hadriv.f 4350 ------------------------------------------------------------------*/ 4351 4352 #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) 4353 4354 /*------------------------------------------------------------------ 4355 fortran filename : /cern/new/src/cfs/geant315/hevhin.f 4356 ------------------------------------------------------------------*/ 4357 4358 #define HEVHIN(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(HEVHIN,hevhin,PINT,INT,INT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6) 4359 4360 /*------------------------------------------------------------------ 4361 fortran filename : /cern/new/src/cfs/geant315/hinhev.f 4362 ------------------------------------------------------------------*/ 4363 4364 #define HINHEV(A1,A2,A3,A4) CCALLSFSUB4(HINHEV,hinhev,INT,DOUBLE,DOUBLE,INT,A1,A2,A3,A4) 4365 4366 /*------------------------------------------------------------------ 4367 fortran filename : /cern/new/src/cfs/geant315/hklass.f 4368 ------------------------------------------------------------------*/ 4369 4370 #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) 4371 4372 /*------------------------------------------------------------------ 4373 fortran filename : /cern/new/src/cfs/geant315/hypero.f 4374 ------------------------------------------------------------------*/ 4375 4376 #define HYPERO(A1,A2,A3,A4) CCALLSFSUB4(HYPERO,hypero,PINT,PINT,PDOUBLE,PDOUBLE,A1,A2,A3,A4) 4377 4378 /*------------------------------------------------------------------ 4379 fortran filename : /cern/new/src/cfs/geant315/iefun.f 4380 ------------------------------------------------------------------*/ 4381 4382 PROTOCCALLSFFUN2(INT,IEFUN,iefun,DOUBLE,INT) 4383 #define IEFUN(A2,A3) CCALLSFFUN2(IEFUN,iefun,DOUBLE,INT,A2,A3) 4384 4385 /*------------------------------------------------------------------ 4386 fortran filename : /cern/new/src/cfs/geant315/incini.f 4387 ------------------------------------------------------------------*/ 4388 4389 #define INCINI() CCALLSFSUB0(INCINI,incini) 4390 4391 /*------------------------------------------------------------------ 4392 fortran filename : /cern/new/src/cfs/geant315/index2.f 4393 ------------------------------------------------------------------*/ 4394 4395 #define INDEX2(A1,A2,A3) CCALLSFSUB3(INDEX2,index2,INT,INT,INT,A1,A2,A3) 4396 4397 /*------------------------------------------------------------------ 4398 fortran filename : /cern/new/src/cfs/geant315/kinpar.f 4399 ------------------------------------------------------------------*/ 4400 4401 #define KINPAR(A1,A2,A3) CCALLSFSUB3(KINPAR,kinpar,DOUBLEV,DOUBLEV,DOUBLE,A1,A2,A3) 4402 4403 /*------------------------------------------------------------------ 4404 fortran filename : /cern/new/src/cfs/geant315/kmabs.f 4405 ------------------------------------------------------------------*/ 4406 4407 #define KMABS(A1) CCALLSFSUB1(KMABS,kmabs,PINT,A1) 4408 4409 /*------------------------------------------------------------------ 4410 fortran filename : /cern/new/src/cfs/geant315/kpois.f 4411 ------------------------------------------------------------------*/ 4412 4413 PROTOCCALLSFFUN1(INT,KPOIS,kpois,DOUBLE) 4414 #define KPOIS(A2) CCALLSFFUN1(KPOIS,kpois,DOUBLE,A2) 4415 4416 /*------------------------------------------------------------------ 4417 fortran filename : /cern/new/src/cfs/geant315/limdat.f 4418 ------------------------------------------------------------------*/ 4419 4420 #define LIMDAT() CCALLSFSUB0(LIMDAT,limdat) 4421 4422 /*------------------------------------------------------------------ 4423 fortran filename : /cern/new/src/cfs/geant315/lortra.f 4424 ------------------------------------------------------------------*/ 4425 4426 #define LORTRA(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(LORTRA,lortra,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6) 4427 4428 /*------------------------------------------------------------------ 4429 fortran filename : /cern/new/src/cfs/geant315/minv.f 4430 ------------------------------------------------------------------*/ 4431 4432 #define MINV(A1,A2,A3,A4,A5) CCALLSFSUB5(MINV,minv,PFLOAT,INT,PFLOAT,PINT,PINT,A1,A2,A3,A4,A5) 4433 4434 /*------------------------------------------------------------------ 4435 fortran filename : /cern/new/src/cfs/geant315/nbanh.f 4436 ------------------------------------------------------------------*/ 4437 4438 #define NBANH(A1) CCALLSFSUB1(NBANH,nbanh,PINT,A1) 4439 4440 /*------------------------------------------------------------------ 4441 fortran filename : /cern/new/src/cfs/geant315/nfac.f 4442 ------------------------------------------------------------------*/ 4443 4444 PROTOCCALLSFFUN1(INT,NFAC,nfac,INT) 4445 #define NFAC(A2) CCALLSFFUN1(NFAC,nfac,INT,A2) 4446 4447 /*------------------------------------------------------------------ 4448 fortran filename : /cern/new/src/cfs/geant315/nizl.f 4449 ------------------------------------------------------------------*/ 4450 4451 #define NIZL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(NIZL,nizl,INT,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6) 4452 4453 /*------------------------------------------------------------------ 4454 fortran filename : /cern/new/src/cfs/geant315/normal.f 4455 ------------------------------------------------------------------*/ 4456 4457 #define NORMAL(A1) CCALLSFSUB1(NORMAL,normal,PFLOAT,A1) 4458 4459 /*------------------------------------------------------------------ 4460 fortran filename : /cern/new/src/cfs/geant315/nucevv.f 4461 ------------------------------------------------------------------*/ 4462 4463 #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) 4464 4465 /*------------------------------------------------------------------ 4466 fortran filename : /cern/new/src/cfs/geant315/nucrec.f 4467 ------------------------------------------------------------------*/ 4468 4469 #define NUCREC(A1,A2) CCALLSFSUB2(NUCREC,nucrec,PINT,INT,A1,A2) 4470 4471 /*------------------------------------------------------------------ 4472 fortran filename : /cern/new/src/cfs/geant315/nucrel.f 4473 ------------------------------------------------------------------*/ 4474 4475 #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) 4476 4477 /*------------------------------------------------------------------ 4478 fortran filename : /cern/new/src/cfs/geant315/nucriv.f 4479 ------------------------------------------------------------------*/ 4480 4481 #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) 4482 4483 /*------------------------------------------------------------------ 4484 fortran filename : /cern/new/src/cfs/geant315/nudisv.f 4485 ------------------------------------------------------------------*/ 4486 4487 PROTOCCALLSFFUN5(INT,NUDISV,nudisv,DOUBLE,INT,DOUBLE,PDOUBLE,PDOUBLE) 4488 #define NUDISV(A2,A3,A4,A5,A6) CCALLSFFUN5(NUDISV,nudisv,DOUBLE,INT,DOUBLE,PDOUBLE,PDOUBLE,A2,A3,A4,A5,A6) 4489 4490 /*------------------------------------------------------------------ 4491 fortran filename : /cern/new/src/cfs/geant315/nuprel.f 4492 ------------------------------------------------------------------*/ 4493 4494 #define NUPREL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(NUPREL,nuprel,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6) 4495 4496 /*------------------------------------------------------------------ 4497 fortran filename : /cern/new/src/cfs/geant315/parjet.f 4498 ------------------------------------------------------------------*/ 4499 4500 #define PARJET(A1,A2) CCALLSFSUB2(PARJET,parjet,PINT,INT,A1,A2) 4501 4502 /*------------------------------------------------------------------ 4503 fortran filename : /cern/new/src/cfs/geant315/pbanh.f 4504 ------------------------------------------------------------------*/ 4505 4506 #define PBANH(A1) CCALLSFSUB1(PBANH,pbanh,PINT,A1) 4507 4508 /*------------------------------------------------------------------ 4509 fortran filename : /cern/new/src/cfs/geant315/pcsdat.f 4510 ------------------------------------------------------------------*/ 4511 4512 #define PCSDAT(A1,A2,A3) CCALLSFSUB3(PCSDAT,pcsdat,INT,INT,LOGICAL,A1,A2,A3) 4513 4514 /*------------------------------------------------------------------ 4515 fortran filename : /cern/new/src/cfs/geant315/phasp.f 4516 ------------------------------------------------------------------*/ 4517 4518 #define PHASP() CCALLSFSUB0(PHASP,phasp) 4519 4520 /*------------------------------------------------------------------ 4521 fortran filename : /cern/new/src/cfs/geant315/phpnuc.f 4522 ------------------------------------------------------------------*/ 4523 4524 #define PHPNUC() CCALLSFSUB0(PHPNUC,phpnuc) 4525 4526 /*------------------------------------------------------------------ 4527 fortran filename : /cern/new/src/cfs/geant315/pimabs.f 4528 ------------------------------------------------------------------*/ 4529 4530 #define PIMABS(A1) CCALLSFSUB1(PIMABS,pimabs,PINT,A1) 4531 4532 /*------------------------------------------------------------------ 4533 fortran filename : /cern/new/src/cfs/geant315/plot.f 4534 ------------------------------------------------------------------*/ 4535 4536 #define PLOT(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(PLOT,plot,DOUBLEV,DOUBLEV,INT,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9) 4537 4538 /*------------------------------------------------------------------ 4539 fortran filename : /cern/new/src/cfs/geant315/plotdt.f 4540 ------------------------------------------------------------------*/ 4541 4542 #define PLOTDT(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(PLOTDT,plotdt,DOUBLEV,DOUBLEV,INT,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9) 4543 4544 /*------------------------------------------------------------------ 4545 fortran filename : /cern/new/src/cfs/geant315/pmltpc.f 4546 ------------------------------------------------------------------*/ 4547 4548 PROTOCCALLSFFUN6(FLOAT,PMLTPC,pmltpc,INT,INT,INT,INT,FLOAT,FLOAT) 4549 #define PMLTPC(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(PMLTPC,pmltpc,INT,INT,INT,INT,FLOAT,FLOAT,A2,A3,A4,A5,A6,A7) 4550 4551 /*------------------------------------------------------------------ 4552 fortran filename : /cern/new/src/cfs/geant315/pmprab.f 4553 ------------------------------------------------------------------*/ 4554 4555 #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) 4556 4557 /*------------------------------------------------------------------ 4558 fortran filename : /cern/new/src/cfs/geant315/poisso.f 4559 ------------------------------------------------------------------*/ 4560 4561 #define POISSO(A1,A2) CCALLSFSUB2(POISSO,poisso,FLOAT,PINT,A1,A2) 4562 4563 /*------------------------------------------------------------------ 4564 fortran filename : /cern/new/src/cfs/geant315/qnrg.f 4565 ------------------------------------------------------------------*/ 4566 4567 PROTOCCALLSFFUN4(DOUBLE,QNRG,qnrg,DOUBLE,DOUBLE,DOUBLE,DOUBLE) 4568 #define QNRG(A2,A3,A4,A5) CCALLSFFUN4(QNRG,qnrg,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5) 4569 4570 /*------------------------------------------------------------------ 4571 fortran filename : /cern/new/src/cfs/geant315/raco.f 4572 ------------------------------------------------------------------*/ 4573 4574 #define RACO(A1,A2,A3) CCALLSFSUB3(RACO,raco,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3) 4575 4576 /*------------------------------------------------------------------ 4577 fortran filename : /cern/new/src/cfs/geant315/rakeka.f 4578 ------------------------------------------------------------------*/ 4579 4580 #define RAKEKA(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(RAKEKA,rakeka,INT,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6) 4581 4582 /*------------------------------------------------------------------ 4583 fortran filename : /cern/new/src/cfs/geant315/rakekv.f 4584 ------------------------------------------------------------------*/ 4585 4586 #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) 4587 4588 /*------------------------------------------------------------------ 4589 fortran filename : /cern/new/src/cfs/geant315/ranres.f 4590 ------------------------------------------------------------------*/ 4591 4592 PROTOCCALLSFFUN1(FLOAT,RANRES,ranres,FLOAT) 4593 #define RANRES(A2) CCALLSFFUN1(RANRES,ranres,FLOAT,A2) 4594 4595 /*------------------------------------------------------------------ 4596 fortran filename : /cern/new/src/cfs/geant315/rbkekv.f 4597 ------------------------------------------------------------------*/ 4598 4599 #define RBKEKV(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(RBKEKV,rbkekv,INT,PDOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) 4600 4601 /*------------------------------------------------------------------ 4602 fortran filename : /cern/new/src/cfs/geant315/rchanv.f 4603 ------------------------------------------------------------------*/ 4604 4605 #define RCHANV() CCALLSFSUB0(RCHANV,rchanv) 4606 4607 /*------------------------------------------------------------------ 4608 fortran filename : /cern/new/src/cfs/geant315/rchanw.f 4609 ------------------------------------------------------------------*/ 4610 4611 #define RCHANW() CCALLSFSUB0(RCHANW,rchanw) 4612 4613 /*------------------------------------------------------------------ 4614 fortran filename : /cern/new/src/cfs/geant315/rotes2.f 4615 ------------------------------------------------------------------*/ 4616 4617 #define ROTES2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(ROTES2,rotes2,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,INT,A1,A2,A3,A4,A5,A6) 4618 4619 /*------------------------------------------------------------------ 4620 fortran filename : /cern/new/src/cfs/geant315/rtmi.f 4621 ------------------------------------------------------------------*/ 4622 4623 #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) 4624 4625 /*------------------------------------------------------------------ 4626 fortran filename : /cern/new/src/cfs/geant315/samcst.f 4627 ------------------------------------------------------------------*/ 4628 4629 #define SAMCST(A1,A2,A3) CCALLSFSUB3(SAMCST,samcst,INT,DOUBLE,PDOUBLE,A1,A2,A3) 4630 4631 /*------------------------------------------------------------------ 4632 fortran filename : /cern/new/src/cfs/geant315/selfab.f 4633 ------------------------------------------------------------------*/ 4634 4635 #define SELFAB(A1) CCALLSFSUB1(SELFAB,selfab,PFLOAT,A1) 4636 4637 /*------------------------------------------------------------------ 4638 fortran filename : /cern/new/src/cfs/geant315/setcur.f 4639 ------------------------------------------------------------------*/ 4640 4641 #define SETCUR(A1) CCALLSFSUB1(SETCUR,setcur,INT,A1) 4642 4643 /*------------------------------------------------------------------ 4644 fortran filename : /cern/new/src/cfs/geant315/settrk.f 4645 ------------------------------------------------------------------*/ 4646 4647 #define SETTRK(A1) CCALLSFSUB1(SETTRK,settrk,INT,A1) 4648 4649 /*------------------------------------------------------------------ 4650 fortran filename : /cern/new/src/cfs/geant315/sfecfe.f 4651 ------------------------------------------------------------------*/ 4652 4653 #define SFECFE(A1,A2) CCALLSFSUB2(SFECFE,sfecfe,DOUBLE,DOUBLE,A1,A2) 4654 4655 /*------------------------------------------------------------------ 4656 fortran filename : /cern/new/src/cfs/geant315/shptot.f 4657 ------------------------------------------------------------------*/ 4658 4659 PROTOCCALLSFFUN2(DOUBLE,SHPTOT,shptot,INT,DOUBLE) 4660 #define SHPTOT(A2,A3) CCALLSFFUN2(SHPTOT,shptot,INT,DOUBLE,A2,A3) 4661 4662 /*------------------------------------------------------------------ 4663 fortran filename : /cern/new/src/cfs/geant315/sigel.f 4664 ------------------------------------------------------------------*/ 4665 4666 #define SIGEL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(SIGEL,sigel,INT,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6) 4667 4668 /*------------------------------------------------------------------ 4669 fortran filename : /cern/new/src/cfs/geant315/sihael.f 4670 ------------------------------------------------------------------*/ 4671 4672 #define SIHAEL(A1,A2,A3,A4,A5) CCALLSFSUB5(SIHAEL,sihael,INT,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,A1,A2,A3,A4,A5) 4673 4674 /*------------------------------------------------------------------ 4675 fortran filename : /cern/new/src/cfs/geant315/steep.f 4676 ------------------------------------------------------------------*/ 4677 4678 #define STEEP(A1) CCALLSFSUB1(STEEP,steep,PFLOAT,A1) 4679 4680 /*------------------------------------------------------------------ 4681 fortran filename : /cern/new/src/cfs/geant315/steeq.f 4682 ------------------------------------------------------------------*/ 4683 4684 #define STEEQ(A1,A2) CCALLSFSUB2(STEEQ,steeq,PFLOAT,INT,A1,A2) 4685 4686 /*------------------------------------------------------------------ 4687 fortran filename : /cern/new/src/cfs/geant315/steer.f 4688 ------------------------------------------------------------------*/ 4689 4690 #define STEER(A1) CCALLSFSUB1(STEER,steer,PFLOAT,A1) 4691 4692 /*------------------------------------------------------------------ 4693 fortran filename : /cern/new/src/cfs/geant315/stees.f 4694 ------------------------------------------------------------------*/ 4695 4696 #define STEES(A1,A2) CCALLSFSUB2(STEES,stees,PFLOAT,FLOAT,A1,A2) 4697 4698 /*------------------------------------------------------------------ 4699 fortran filename : /cern/new/src/cfs/geant315/stpair.f 4700 ------------------------------------------------------------------*/ 4701 4702 #define STPAIR() CCALLSFSUB0(STPAIR,stpair) 4703 4704 /*------------------------------------------------------------------ 4705 fortran filename : /cern/new/src/cfs/geant315/tchoic.f 4706 ------------------------------------------------------------------*/ 4707 4708 #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) 4709 4710 /*------------------------------------------------------------------ 4711 fortran filename : /cern/new/src/cfs/geant315/tdelay.f 4712 ------------------------------------------------------------------*/ 4713 4714 #define TDELAY(A1) CCALLSFSUB1(TDELAY,tdelay,PFLOAT,A1) 4715 4716 /*------------------------------------------------------------------ 4717 fortran filename : /cern/new/src/cfs/geant315/threpd.f 4718 ------------------------------------------------------------------*/ 4719 4720 #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) 4721 4722 /*------------------------------------------------------------------ 4723 fortran filename : /cern/new/src/cfs/geant315/trafo.f 4724 ------------------------------------------------------------------*/ 4725 4726 #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) 4727 4728 /*------------------------------------------------------------------ 4729 fortran filename : /cern/new/src/cfs/geant315/trans.f 4730 ------------------------------------------------------------------*/ 4731 4732 #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) 4733 4734 /*------------------------------------------------------------------ 4735 fortran filename : /cern/new/src/cfs/geant315/ttrans.f 4736 ------------------------------------------------------------------*/ 4737 4738 #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) 4739 4740 /*------------------------------------------------------------------ 4741 fortran filename : /cern/new/src/cfs/geant315/twob.f 4742 ------------------------------------------------------------------*/ 4743 4744 #define TWOB(A1,A2,A3) CCALLSFSUB3(TWOB,twob,INT,INT,FLOAT,A1,A2,A3) 4745 4746 /*------------------------------------------------------------------ 4747 fortran filename : /cern/new/src/cfs/geant315/twoclu.f 4748 ------------------------------------------------------------------*/ 4749 4750 #define TWOCLU(A1,A2,A3) CCALLSFSUB3(TWOCLU,twoclu,INT,INT,FLOAT,A1,A2,A3) 4751 4752 /*------------------------------------------------------------------ 4753 fortran filename : /cern/new/src/cfs/geant315/twopad.f 4754 ------------------------------------------------------------------*/ 4755 4756 #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) 4757 4758 /*------------------------------------------------------------------ 4759 fortran filename : /cern/new/src/cfs/geant315/twopar.f 4760 ------------------------------------------------------------------*/ 4761 4762 #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) 4763 4764 /*------------------------------------------------------------------ 4765 fortran filename : /cern/new/src/cfs/geant315/vecsub.f 4766 ------------------------------------------------------------------*/ 4767 4768 #define ADD(A1,A2,A3) CCALLSFSUB3(ADD,add,INT,INT,INT,A1,A2,A3) 4769 4770 4771 #define SUB(A1,A2,A3) CCALLSFSUB3(SUB,sub,INT,INT,INT,A1,A2,A3) 4772 4773 4774 #define LOR(A1,A2,A3) CCALLSFSUB3(LOR,lor,INT,INT,INT,A1,A2,A3) 4775 4776 4777 #define LENGTX(A1,A2) CCALLSFSUB2(LENGTX,lengtx,INT,PFLOAT,A1,A2) 4778 4779 4780 #define ANG(A1,A2,A3,A4) CCALLSFSUB4(ANG,ang,INT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4) 4781 4782 4783 #define DEFS(A1,A2,A3) CCALLSFSUB3(DEFS,defs,INT,INT,INT,A1,A2,A3) 4784 4785 4786 #define TRAC(A1,A2,A3) CCALLSFSUB3(TRAC,trac,INT,INT,INT,A1,A2,A3) 4787 4788 /*------------------------------------------------------------------ 4789 fortran filename : /cern/new/src/cfs/geant315/verein.f 4790 ------------------------------------------------------------------*/ 4791 4792 #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) 4793 4794 /*------------------------------------------------------------------ 4795 fortran filename : /cern/new/src/cfs/geant315/xlamb.f 4796 ------------------------------------------------------------------*/ 4797 4798 PROTOCCALLSFFUN3(DOUBLE,XLAMB,xlamb,DOUBLE,DOUBLE,DOUBLE) 4799 #define XLAMB(A2,A3,A4) CCALLSFFUN3(XLAMB,xlamb,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4) 4800 4801 /*------------------------------------------------------------------ 4802 fortran filename : /cern/new/src/cfs/geant315/zeregs.f 4803 ------------------------------------------------------------------*/ 4804 4805 #define ZEREGS() CCALLSFSUB0(ZEREGS,zeregs) 4806 4807 #ifdef __cplusplus 4808 } /* extern "C" */ 4809 #endif 4810 4811 #endif /* #ifndef _GEANT315_H */
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.5 LXR engine. The LXR team |
|