/*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/abbrch.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ainel.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN5(DOUBLE,AINEL,ainel,INT,INT,DOUBLE,DOUBLE,DOUBLE) #define AINEL(A2,A3,A4,A5,A6) CCALLSFFUN5(AINEL,ainel,INT,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/akeka.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(DOUBLE,AKEKA,akeka,INT,DOUBLE,DOUBLE) #define AKEKA(A2,A3,A4) CCALLSFFUN3(AKEKA,akeka,INT,DOUBLE,DOUBLE,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/altra.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/altraf.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/amga.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(DOUBLE,AMGA,amga,INT) #define AMGA(A2) CCALLSFFUN1(AMGA,amga,INT,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ankeka.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN4(DOUBLE,ANKEKA,ankeka,INT,DOUBLE,DOUBLE,DOUBLE) #define ANKEKA(A2,A3,A4,A5) CCALLSFFUN4(ANKEKA,ankeka,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/atomas.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(FLOAT,ATOMAS,atomas,FLOAT,FLOAT) #define ATOMAS(A2,A3) CCALLSFFUN2(ATOMAS,atomas,FLOAT,FLOAT,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/bamjet.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/bamjev.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/bekeka.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN4(DOUBLE,BEKEKA,bekeka,INT,DOUBLE,DOUBLE,DOUBLE) #define BEKEKA(A2,A3,A4,A5) CCALLSFFUN4(BEKEKA,bekeka,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/berttp.f ------------------------------------------------------------------*/ #define BERTTP() CCALLSFSUB0(BERTTP,berttp) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/beta.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(DOUBLE,BETA,beta,DOUBLE,DOUBLE,DOUBLE) #define BETA(A2,A3,A4) CCALLSFFUN3(BETA,beta,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/betarn.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(DOUBLE,BETARN,betarn,DOUBLE,DOUBLE) #define BETARN(A2,A3) CCALLSFFUN2(BETARN,betarn,DOUBLE,DOUBLE,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/betrst.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN4(DOUBLE,BETRST,betrst,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE) #define BETRST(A2,A3,A4,A5) CCALLSFFUN4(BETRST,betrst,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/bkeka.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(DOUBLE,BKEKA,bkeka,INT,DOUBLE,DOUBLE) #define BKEKA(A2,A3,A4) CCALLSFFUN3(BKEKA,bkeka,INT,DOUBLE,DOUBLE,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/bklass.f ------------------------------------------------------------------*/ #define BKLASS(A1,A2,A3,A4,A5) CCALLSFSUB5(BKLASS,bklass,INT,INT,INT,PINT,PINT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/bnkeka.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN4(DOUBLE,BNKEKA,bnkeka,INT,DOUBLE,DOUBLE,DOUBLE) #define BNKEKA(A2,A3,A4,A5) CCALLSFFUN4(BNKEKA,bnkeka,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/calumo.f ------------------------------------------------------------------*/ #define CALUMO(A1,A2) CCALLSFSUB2(CALUMO,calumo,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/calumv.f ------------------------------------------------------------------*/ #define CALUMV(A1,A2) CCALLSFSUB2(CALUMV,calumv,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/captur.f ------------------------------------------------------------------*/ #define CAPTUR(A1) CCALLSFSUB1(CAPTUR,captur,PINT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/casal0.f ------------------------------------------------------------------*/ #define CASAL0(A1,A2,A3) CCALLSFSUB3(CASAL0,casal0,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/casaom.f ------------------------------------------------------------------*/ #define CASAOM(A1,A2,A3) CCALLSFSUB3(CASAOM,casaom,INT,INT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/casasm.f ------------------------------------------------------------------*/ #define CASASM(A1,A2,A3) CCALLSFSUB3(CASASM,casasm,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/casasp.f ------------------------------------------------------------------*/ #define CASASP(A1,A2,A3) CCALLSFSUB3(CASASP,casasp,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/casax0.f ------------------------------------------------------------------*/ #define CASAX0(A1,A2,A3) CCALLSFSUB3(CASAX0,casax0,INT,INT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/casaxm.f ------------------------------------------------------------------*/ #define CASAXM(A1,A2,A3) CCALLSFSUB3(CASAXM,casaxm,INT,INT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/casfrg.f ------------------------------------------------------------------*/ #define CASFRG(A1,A2,A3) CCALLSFSUB3(CASFRG,casfrg,PINT,INT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cask0.f ------------------------------------------------------------------*/ #define CASK0(A1,A2,A3) CCALLSFSUB3(CASK0,cask0,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cask0b.f ------------------------------------------------------------------*/ #define CASK0B(A1,A2,A3) CCALLSFSUB3(CASK0B,cask0b,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/caskm.f ------------------------------------------------------------------*/ #define CASKM(A1,A2,A3) CCALLSFSUB3(CASKM,caskm,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/caskp.f ------------------------------------------------------------------*/ #define CASKP(A1,A2,A3) CCALLSFSUB3(CASKP,caskp,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/casl0.f ------------------------------------------------------------------*/ #define CASL0(A1,A2,A3) CCALLSFSUB3(CASL0,casl0,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/casn.f ------------------------------------------------------------------*/ #define CASN(A1,A2,A3) CCALLSFSUB3(CASN,casn,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/casnb.f ------------------------------------------------------------------*/ #define CASNB(A1,A2,A3) CCALLSFSUB3(CASNB,casnb,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/casom.f ------------------------------------------------------------------*/ #define CASOM(A1,A2,A3) CCALLSFSUB3(CASOM,casom,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/casp.f ------------------------------------------------------------------*/ #define CASP(A1,A2,A3) CCALLSFSUB3(CASP,casp,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/caspb.f ------------------------------------------------------------------*/ #define CASPB(A1,A2,A3) CCALLSFSUB3(CASPB,caspb,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/caspim.f ------------------------------------------------------------------*/ #define CASPIM(A1,A2,A3) CCALLSFSUB3(CASPIM,caspim,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/caspip.f ------------------------------------------------------------------*/ #define CASPIP(A1,A2,A3) CCALLSFSUB3(CASPIP,caspip,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cassm.f ------------------------------------------------------------------*/ #define CASSM(A1,A2,A3) CCALLSFSUB3(CASSM,cassm,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cassp.f ------------------------------------------------------------------*/ #define CASSP(A1,A2,A3) CCALLSFSUB3(CASSP,cassp,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/casx0.f ------------------------------------------------------------------*/ #define CASX0(A1,A2,A3) CCALLSFSUB3(CASX0,casx0,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/casxm.f ------------------------------------------------------------------*/ #define CASXM(A1,A2,A3) CCALLSFSUB3(CASXM,casxm,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgaffi.f ------------------------------------------------------------------*/ #define CGAFFI(A1,A2) CCALLSFSUB2(CGAFFI,cgaffi,PFLOAT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgbfit.f ------------------------------------------------------------------*/ #define CGBFIT(A1,A2,A3) CCALLSFSUB3(CGBFIT,cgbfit,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgbint.f ------------------------------------------------------------------*/ #define CGBINT(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBINT,cgbint,FLOATV,FLOATV,INT,PFLOAT,PINT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgbmmt.f ------------------------------------------------------------------*/ #define CGBMMT(A1,A2,A3) CCALLSFSUB3(CGBMMT,cgbmmt,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgbool.f ------------------------------------------------------------------*/ #define CGBOOL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGBOOL,cgbool,INT,INT,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgbox.f ------------------------------------------------------------------*/ #define CGBOX(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBOX,cgbox,PFLOAT,INT,INT,INT,PFLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgbrik.f ------------------------------------------------------------------*/ #define CGBRIK(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBRIK,cgbrik,FLOAT,FLOAT,FLOAT,INT,PFLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgbsea.f ------------------------------------------------------------------*/ #define CGBSEA(A1,A2,A3,A4) CCALLSFSUB4(CGBSEA,cgbsea,FLOATV,FLOATV,PINT,PINT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgbsec.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgbsor.f ------------------------------------------------------------------*/ #define CGBSOR(A1,A2) CCALLSFSUB2(CGBSOR,cgbsor,PINT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgbsub.f ------------------------------------------------------------------*/ #define CGBSUB(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGBSUB,cgbsub,INT,FLOATV,PFLOAT,INT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgbtef.f ------------------------------------------------------------------*/ #define CGBTEF(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBTEF,cgbtef,INT,INT,FLOATV,FLOATV,PFLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgbtfp.f ------------------------------------------------------------------*/ #define CGBTFP(A1,A2,A3) CCALLSFSUB3(CGBTFP,cgbtfp,FLOATV,FLOATV,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgbttt.f ------------------------------------------------------------------*/ /* #define cgbttt_ELEMS_1 ZTRINGV_NUM(1) #define cgbttt_ELEMLEN_1 ZTRINGV_NUM(2) */ #define CGBTTT(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBTTT,cgbttt,STRING,FLOAT,FLOAT,INT,PINT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgcev.f ------------------------------------------------------------------*/ #define CGCEV(A1,A2) CCALLSFSUB2(CGCEV,cgcev,INT,FLOATV,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgcopy.f ------------------------------------------------------------------*/ #define CGCOPY(A1,A2,A3) CCALLSFSUB3(CGCOPY,cgcopy,FLOATV,INT,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgelli.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgfac2.f ------------------------------------------------------------------*/ #define CGFAC2(A1,A2,A3,A4) CCALLSFSUB4(CGFAC2,cgfac2,PFLOAT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgfaco.f ------------------------------------------------------------------*/ #define CGFACO(A1,A2,A3,A4,A5) CCALLSFSUB5(CGFACO,cgfaco,PFLOAT,PFLOAT,INT,INT,FLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgfare.f ------------------------------------------------------------------*/ #define CGFARE(A1,A2,A3,A4) CCALLSFSUB4(CGFARE,cgfare,INT,FLOATV,PINT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgfvis.f ------------------------------------------------------------------*/ #define CGFVIS(A1,A2,A3,A4) CCALLSFSUB4(CGFVIS,cgfvis,INT,FLOATV,PINT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cghcre.f ------------------------------------------------------------------*/ #define CGHCRE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGHCRE,cghcre,INT,INT,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cghdfa.f ------------------------------------------------------------------*/ #define CGHDFA(A1,A2,A3,A4,A5) CCALLSFSUB5(CGHDFA,cghdfa,INT,PFLOAT,INTV,INTV,PFLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cghend.f ------------------------------------------------------------------*/ #define CGHEND(A1,A2,A3) CCALLSFSUB3(CGHEND,cghend,PFLOAT,PINT,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgheva.f ------------------------------------------------------------------*/ #define CGHEVA(A1,A2) CCALLSFSUB2(CGHEVA,cgheva,FLOATV,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cghins.f ------------------------------------------------------------------*/ #define CGHINS(A1,A2,A3) CCALLSFSUB3(CGHINS,cghins,FLOATV,PFLOAT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cghmov.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cghpla.f ------------------------------------------------------------------*/ #define CGHPLA(A1,A2,A3) CCALLSFSUB3(CGHPLA,cghpla,INTV,PFLOAT,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cghren.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cghshi.f ------------------------------------------------------------------*/ #define CGHSHI(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGHSHI,cghshi,INT,PINT,PINT,INTV,PINT,PINT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cghsiz.f ------------------------------------------------------------------*/ #define CGHSIZ(A1,A2,A3,A4,A5) CCALLSFSUB5(CGHSIZ,cghsiz,FLOATV,INT,PINT,PINT,INT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cghtre.f ------------------------------------------------------------------*/ #define CGHTRE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGHTRE,cghtre,INT,PFLOAT,PINT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cginve.f ------------------------------------------------------------------*/ #define CGINVE(A1) CCALLSFSUB1(CGINVE,cginve,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgmnmx.f ------------------------------------------------------------------*/ #define CGMNMX(A1,A2,A3) CCALLSFSUB3(CGMNMX,cgmnmx,FLOATV,PFLOAT,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgrifl.f ------------------------------------------------------------------*/ #define CGRIFL(A1,A2) CCALLSFSUB2(CGRIFL,cgrifl,PFLOAT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgsaan.f ------------------------------------------------------------------*/ #define CGSAAN(A1,A2,A3,A4,A5) CCALLSFSUB5(CGSAAN,cgsaan,FLOAT,FLOAT,INT,INT,PINT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgscop.f ------------------------------------------------------------------*/ #define CGSCOP(A1,A2,A3,A4) CCALLSFSUB4(CGSCOP,cgscop,INT,FLOATV,PFLOAT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgshel.f ------------------------------------------------------------------*/ #define CGSHEL(A1,A2,A3,A4) CCALLSFSUB4(CGSHEL,cgshel,FLOAT,FLOAT,PINT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgshif.f ------------------------------------------------------------------*/ #define CGSHIF(A1,A2,A3,A4) CCALLSFSUB4(CGSHIF,cgshif,FLOAT,FLOAT,FLOAT,FLOATV,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgsize.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN4(FLOAT,CGSIZE,cgsize,INT,INT,INTV,INTV) #define CGSIZE(A2,A3,A4,A5) CCALLSFFUN4(CGSIZE,cgsize,INT,INT,INTV,INTV,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgslic.f ------------------------------------------------------------------*/ #define CGSLIC(A1,A2,A3,A4) CCALLSFSUB4(CGSLIC,cgslic,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgsnor.f ------------------------------------------------------------------*/ #define CGSNOR(A1) CCALLSFSUB1(CGSNOR,cgsnor,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgsphe.f ------------------------------------------------------------------*/ #define CGSPHE(A1,A2,A3,A4,A5) CCALLSFSUB5(CGSPHE,cgsphe,FLOAT,INT,INT,INT,FLOATV,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgsub.f ------------------------------------------------------------------*/ #define CGSUB(A1,A2,A3,A4) CCALLSFSUB4(CGSUB,cgsub,FLOATV,FLOATV,INT,FLOATV,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgtset.f ------------------------------------------------------------------*/ #define CGTSET(A1,A2,A3) CCALLSFSUB3(CGTSET,cgtset,INT,PFLOAT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgtstr.f ------------------------------------------------------------------*/ #define CGTSTR(A1,A2) CCALLSFSUB2(CGTSTR,cgtstr,FLOATV,PINT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgvedg.f ------------------------------------------------------------------*/ #define CGVEDG(A1,A2,A3,A4) CCALLSFSUB4(CGVEDG,cgvedg,INT,FLOATV,FLOATV,PINT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgvhed.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgvtef.f ------------------------------------------------------------------*/ #define CGVTEF(A1,A2,A3) CCALLSFSUB3(CGVTEF,cgvtef,INTV,PFLOAT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgvtin.f ------------------------------------------------------------------*/ #define CGVTIN(A1,A2,A3) CCALLSFSUB3(CGVTIN,cgvtin,FLOAT,FLOAT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgwire.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgwsor.f ------------------------------------------------------------------*/ #define CGWSOR(A1,A2) CCALLSFSUB2(CGWSOR,cgwsor,PINT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgzre.f ------------------------------------------------------------------*/ #define CGZRE(A1,A2,A3) CCALLSFSUB3(CGZRE,cgzre,INT,PFLOAT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cgzrev.f ------------------------------------------------------------------*/ #define CGZREV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGZREV,cgzrev,PFLOAT,FLOAT,FLOAT,INT,INT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/chanwt.f ------------------------------------------------------------------*/ #define CHANWT() CCALLSFSUB0(CHANWT,chanwt) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/cinema.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,CINEMA,cinema,FLOAT) #define CINEMA(A2) CCALLSFFUN1(CINEMA,cinema,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/compo.f ------------------------------------------------------------------*/ #define COMPO() CCALLSFSUB0(COMPO,compo) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/coranh.f ------------------------------------------------------------------*/ #define CORANH(A1,A2) CCALLSFSUB2(CORANH,coranh,PINT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/corevt.f ------------------------------------------------------------------*/ #define COREVT(A1,A2,A3,A4,A5) CCALLSFSUB5(COREVT,corevt,DOUBLE,DOUBLE,INT,DOUBLE,DOUBLE,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/corrin.f ------------------------------------------------------------------*/ #define CORRIN(A1,A2,A3,A4,A5) CCALLSFSUB5(CORRIN,corrin,DOUBLE,DOUBLE,INT,DOUBLE,DOUBLE,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/coscat.f ------------------------------------------------------------------*/ #define COSCAT() CCALLSFSUB0(COSCAT,coscat) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/datar3.f ------------------------------------------------------------------*/ #define DATAR3() CCALLSFSUB0(DATAR3,datar3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/datesh.f ------------------------------------------------------------------*/ #define DATESH() CCALLSFSUB0(DATESH,datesh) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/decaux.f ------------------------------------------------------------------*/ #define DECAUX(A1,A2) CCALLSFSUB2(DECAUX,decaux,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/defs1.f ------------------------------------------------------------------*/ #define DEFS1(A1,A2,A3) CCALLSFSUB3(DEFS1,defs1,INT,INT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/difevv.f ------------------------------------------------------------------*/ #define DIFEVV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(DIFEVV,difevv,PINT,INT,INT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/dlpnuc.f ------------------------------------------------------------------*/ #define DLPNUC(A1,A2) CCALLSFSUB2(DLPNUC,dlpnuc,PDOUBLE,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/dlpsor.f ------------------------------------------------------------------*/ #define DLPSOR(A1,A2) CCALLSFSUB2(DLPSOR,dlpsor,PDOUBLE,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/dost.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(DOUBLE,DOST,dost,INT,DOUBLE) #define DOST(A2,A3) CCALLSFFUN2(DOST,dost,INT,DOUBLE,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/dotes2.f ------------------------------------------------------------------*/ #define DOTES2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(DOTES2,dotes2,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,INT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/dotnuc.f ------------------------------------------------------------------*/ #define DOTNUC(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(DOTNUC,dotnuc,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,INT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/dpdnuc.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(DOUBLE,DPDNUC,dpdnuc,DOUBLE,DOUBLE,DOUBLE) #define DPDNUC(A2,A3,A4) CCALLSFFUN3(DPDNUC,dpdnuc,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/drelab.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/dresf.f ------------------------------------------------------------------*/ #define DRESF(A1,A2,A3,A4,A5) CCALLSFSUB5(DRESF,dresf,INT,INT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/eexi.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(DOUBLE,EEXI,eexi,INT,DOUBLE,DOUBLE) #define EEXI(A2,A3,A4) CCALLSFFUN3(EEXI,eexi,INT,DOUBLE,DOUBLE,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ekeka.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN4(DOUBLE,EKEKA,ekeka,INT,DOUBLE,DOUBLE,DOUBLE) #define EKEKA(A2,A3,A4,A5) CCALLSFFUN4(EKEKA,ekeka,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/energi.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/enrg.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(DOUBLE,ENRG,enrg,DOUBLE,DOUBLE) #define ENRG(A2,A3) CCALLSFFUN2(ENRG,enrg,DOUBLE,DOUBLE,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/evdeex.f ------------------------------------------------------------------*/ #define EVDEEX(A1) CCALLSFSUB1(EVDEEX,evdeex,DOUBLE,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/eventv.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/evevap.f ------------------------------------------------------------------*/ #define EVEVAP(A1) CCALLSFSUB1(EVEVAP,evevap,DOUBLE,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/evvini.f ------------------------------------------------------------------*/ /* #define evvini_ELEMS_2 ZTRINGV_NUM(1) #define evvini_ELEMLEN_2 ZTRINGV_NUM(8) */ #define EVVINI(A1,A2) CCALLSFSUB2(EVVINI,evvini,DOUBLEV,STRING,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/exnu.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,EXNU,exnu,FLOAT) #define EXNU(A2) CCALLSFFUN1(EXNU,exnu,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/fcount.f ------------------------------------------------------------------*/ #define FCOUNT() CCALLSFSUB0(FCOUNT,fcount) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/fctcos.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,FCTCOS,fctcos,FLOAT) #define FCTCOS(A2) CCALLSFFUN1(FCTCOS,fctcos,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/fdevap.f ------------------------------------------------------------------*/ #define FDEVAP() CCALLSFSUB0(FDEVAP,fdevap) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/fdnopt.f ------------------------------------------------------------------*/ #define FDNOPT() CCALLSFSUB0(FDNOPT,fdnopt) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ferevv.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ferhad.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ferhav.f ------------------------------------------------------------------*/ #define FERHAV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(FERHAV,ferhav,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/fermi.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,FERMI,fermi,FLOAT) #define FERMI(A2) CCALLSFFUN1(FERMI,fermi,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/fissio.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,FISSIO,fissio,FLOAT) #define FISSIO(A2) CCALLSFFUN1(FISSIO,fissio,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/fkdeca.f ------------------------------------------------------------------*/ #define FKDECA(A1,A2) CCALLSFSUB2(FKDECA,fkdeca,PINT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/fkdres.f ------------------------------------------------------------------*/ #define FKDRES(A1,A2,A3,A4,A5) CCALLSFSUB5(FKDRES,fkdres,INT,INT,DOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/fkener.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(DOUBLE,FKENER,fkener,DOUBLE,DOUBLE) #define FKENER(A2,A3) CCALLSFFUN2(FKENER,fkener,DOUBLE,DOUBLE,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/fkerro.f ------------------------------------------------------------------*/ #define FKERRO() CCALLSFSUB0(FKERRO,fkerro) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/fkerup.f ------------------------------------------------------------------*/ #define FKERUP() CCALLSFSUB0(FKERUP,fkerup) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/fkflav.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/fkimpu.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/fkpoli.f ------------------------------------------------------------------*/ #define FKPOLI(A1,A2) CCALLSFSUB2(FKPOLI,fkpoli,PDOUBLE,PDOUBLE,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/fksigi.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/fkvert.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/fkzero.f ------------------------------------------------------------------*/ #define FKZERO() CCALLSFSUB0(FKZERO,fkzero) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/fldist.f ------------------------------------------------------------------*/ #define FLDIST() CCALLSFSUB0(FLDIST,fldist) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/flinit.f ------------------------------------------------------------------*/ #define FLINIT() CCALLSFSUB0(FLINIT,flinit) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/flkdt1.f ------------------------------------------------------------------*/ #define FLKDT1() CCALLSFSUB0(FLKDT1,flkdt1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/flkdt2.f ------------------------------------------------------------------*/ #define FLKDT2() CCALLSFSUB0(FLKDT2,flkdt2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/flkdt3.f ------------------------------------------------------------------*/ #define FLKDT3() CCALLSFSUB0(FLKDT3,flkdt3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/flkdt4.f ------------------------------------------------------------------*/ #define FLKDT4() CCALLSFSUB0(FLKDT4,flkdt4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/flkdt5.f ------------------------------------------------------------------*/ #define FLKDT5() CCALLSFSUB0(FLKDT5,flkdt5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/flkdt6.f ------------------------------------------------------------------*/ #define FLKDT6() CCALLSFSUB0(FLKDT6,flkdt6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/flkdt7.f ------------------------------------------------------------------*/ #define FLKDT7() CCALLSFSUB0(FLKDT7,flkdt7) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/flufin.f ------------------------------------------------------------------*/ #define FLUFIN() CCALLSFSUB0(FLUFIN,flufin) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/frmic.f ------------------------------------------------------------------*/ #define FRMIC(A1) CCALLSFSUB1(FRMIC,frmic,PDOUBLE,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gamrn.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(DOUBLE,GAMRN,gamrn,DOUBLE,DOUBLE) #define GAMRN(A2,A3) CCALLSFFUN2(GAMRN,gamrn,DOUBLE,DOUBLE,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ganni.f ------------------------------------------------------------------*/ #define GANNI() CCALLSFSUB0(GANNI,ganni) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ganni2.f ------------------------------------------------------------------*/ #define GANNI2() CCALLSFSUB0(GANNI2,ganni2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gannii.f ------------------------------------------------------------------*/ #define GANNII() CCALLSFSUB0(GANNII,gannii) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gannir.f ------------------------------------------------------------------*/ #define GANNIR() CCALLSFSUB0(GANNIR,gannir) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/garndm.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,GARNDM,garndm,FLOAT) #define GARNDM(A2) CCALLSFFUN1(GARNDM,garndm,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gbhsta.f ------------------------------------------------------------------*/ #define GBHSTA() CCALLSFSUB0(GBHSTA,gbhsta) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gbirk.f ------------------------------------------------------------------*/ #define GBIRK(A1) CCALLSFSUB1(GBIRK,gbirk,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gbrela.f ------------------------------------------------------------------*/ #define GBRELA() CCALLSFSUB0(GBRELA,gbrela) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gbrele.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(FLOAT,GBRELE,gbrele,FLOAT,FLOAT,FLOAT) #define GBRELE(A2,A3,A4) CCALLSFFUN3(GBRELE,gbrele,FLOAT,FLOAT,FLOAT,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gbrelm.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(FLOAT,GBRELM,gbrelm,FLOAT,FLOAT,FLOAT) #define GBRELM(A2,A3,A4) CCALLSFFUN3(GBRELM,gbrelm,FLOAT,FLOAT,FLOAT,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gbreme.f ------------------------------------------------------------------*/ #define GBREME() CCALLSFSUB0(GBREME,gbreme) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gbremm.f ------------------------------------------------------------------*/ #define GBREMM() CCALLSFSUB0(GBREMM,gbremm) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gbrsga.f ------------------------------------------------------------------*/ #define GBRSGA() CCALLSFSUB0(GBRSGA,gbrsga) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gbrsge.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(FLOAT,GBRSGE,gbrsge,FLOAT,FLOAT,FLOAT) #define GBRSGE(A2,A3,A4) CCALLSFFUN3(GBRSGE,gbrsge,FLOAT,FLOAT,FLOAT,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gbrsgm.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(FLOAT,GBRSGM,gbrsgm,FLOAT,FLOAT,FLOAT) #define GBRSGM(A2,A3,A4) CCALLSFFUN3(GBRSGM,gbrsgm,FLOAT,FLOAT,FLOAT,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gbstat.f ------------------------------------------------------------------*/ #define GBSTAT() CCALLSFSUB0(GBSTAT,gbstat) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gcderr.f ------------------------------------------------------------------*/ #define GCDERR(A1,A2,A3) CCALLSFSUB3(GCDERR,gcderr,PINT,FLOAT,FLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gcdrif.f ------------------------------------------------------------------*/ #define GCDRIF(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GCDRIF,gcdrif,FLOAT,FLOAT,FLOAT,FLOATV,FLOATV,PINT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gcent.f ------------------------------------------------------------------*/ #define GCENT(A1,A2) CCALLSFSUB2(GCENT,gcent,INT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gclose.f ------------------------------------------------------------------*/ #define GCLOSE(A1,A2) CCALLSFSUB2(GCLOSE,gclose,INT,PINT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gcmwpc.f ------------------------------------------------------------------*/ #define GCMWPC(A1,A2,A3) CCALLSFSUB3(GCMWPC,gcmwpc,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gcoeff.f ------------------------------------------------------------------*/ #define GCOEFF() CCALLSFSUB0(GCOEFF,gcoeff) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gcomp.f ------------------------------------------------------------------*/ #define GCOMP() CCALLSFSUB0(GCOMP,gcomp) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gcompi.f ------------------------------------------------------------------*/ #define GCOMPI() CCALLSFSUB0(GCOMPI,gcompi) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gcubs.f ------------------------------------------------------------------*/ #define GCUBS(A1,A2,A3,A4,A5) CCALLSFSUB5(GCUBS,gcubs,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gd16v.f ------------------------------------------------------------------*/ #define GD16V(A1,A2) CCALLSFSUB2(GD16V,gd16v,INT,INTV,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gd3d3d.f ------------------------------------------------------------------*/ #define GD3D3D(A1,A2,A3,A4) CCALLSFSUB4(GD3D3D,gd3d3d,PFLOAT,INT,PFLOAT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdahit.f ------------------------------------------------------------------*/ #define GDAHIT(A1,A2,A3,A4,A5) CCALLSFSUB5(GDAHIT,gdahit,FLOAT,FLOAT,FLOAT,INT,FLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdarc.f ------------------------------------------------------------------*/ #define GDARC(A1,A2,A3,A4) CCALLSFSUB4(GDARC,gdarc,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdarr.f ------------------------------------------------------------------*/ /* #define gdarr_ELEMS_6 ZTRINGV_NUM(1) #define gdarr_ELEMLEN_6 ZTRINGV_NUM(255) */ #define GDARR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GDARR,gdarr,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,STRING,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdaxis.f ------------------------------------------------------------------*/ #define GDAXIS(A1,A2,A3,A4) CCALLSFSUB4(GDAXIS,gdaxis,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdbomb.f ------------------------------------------------------------------*/ #define GDBOMB(A1,A2) CCALLSFSUB2(GDBOMB,gdbomb,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdcgcl.f ------------------------------------------------------------------*/ #define GDCGCL(A1) CCALLSFSUB1(GDCGCL,gdcgcl,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdcgem.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdcger.f ------------------------------------------------------------------*/ #define GDCGER(A1) CCALLSFSUB1(GDCGER,gdcger,FLOAT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdcghi.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdcgob.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdcgpr.f ------------------------------------------------------------------*/ #define GDCGPR() CCALLSFSUB0(GDCGPR,gdcgpr) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdcgrs.f ------------------------------------------------------------------*/ #define GDCGRS() CCALLSFSUB0(GDCGRS,gdcgrs) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdcgsl.f ------------------------------------------------------------------*/ #define GDCGSL(A1,A2) CCALLSFSUB2(GDCGSL,gdcgsl,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdcgvw.f ------------------------------------------------------------------*/ #define GDCGVW(A1,A2) CCALLSFSUB2(GDCGVW,gdcgvw,FLOATV,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdcgwv.f ------------------------------------------------------------------*/ #define GDCGWV(A1) CCALLSFSUB1(GDCGWV,gdcgwv,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdchit.f ------------------------------------------------------------------*/ /* #define gdchit_ELEMS_1 ZTRINGV_NUM(1) #define gdchit_ELEMLEN_1 ZTRINGV_NUM(4) #define gdchit_ELEMS_2 ZTRINGV_NUM(1) #define gdchit_ELEMLEN_2 ZTRINGV_NUM(4) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdcirc.f ------------------------------------------------------------------*/ #define GDCIRC(A1,A2) CCALLSFSUB2(GDCIRC,gdcirc,FLOAT,FLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdcirr.f ------------------------------------------------------------------*/ #define GDCIRR(A1,A2) CCALLSFSUB2(GDCIRR,gdcirr,FLOAT,FLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdciry.f ------------------------------------------------------------------*/ #define GDCIRY(A1,A2) CCALLSFSUB2(GDCIRY,gdciry,FLOAT,FLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdclos.f ------------------------------------------------------------------*/ #define GDCLOS() CCALLSFSUB0(GDCLOS,gdclos) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdcol.f ------------------------------------------------------------------*/ #define GDCOL(A1) CCALLSFSUB1(GDCOL,gdcol,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdcol1.f ------------------------------------------------------------------*/ #define GDCOL1(A1) CCALLSFSUB1(GDCOL1,gdcol1,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdcota.f ------------------------------------------------------------------*/ #define GDCOTA() CCALLSFSUB0(GDCOTA,gdcota) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdcurs.f ------------------------------------------------------------------*/ #define GDCURS(A1,A2,A3) CCALLSFSUB3(GDCURS,gdcurs,FLOAT,FLOAT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdcut.f ------------------------------------------------------------------*/ #define GDCUT() CCALLSFSUB0(GDCUT,gdcut) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdcxyz.f ------------------------------------------------------------------*/ #define GDCXYZ() CCALLSFSUB0(GDCXYZ,gdcxyz) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdebug.f ------------------------------------------------------------------*/ #define GDEBUG() CCALLSFSUB0(GDEBUG,gdebug) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdeca2.f ------------------------------------------------------------------*/ #define GDECA2(A1,A2,A3,A4) CCALLSFSUB4(GDECA2,gdeca2,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdeca3.f ------------------------------------------------------------------*/ #define GDECA3(A1,A2,A3,A4,A5) CCALLSFSUB5(GDECA3,gdeca3,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdecay.f ------------------------------------------------------------------*/ #define GDECAY() CCALLSFSUB0(GDECAY,gdecay) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdelet.f ------------------------------------------------------------------*/ #define GDELET(A1) CCALLSFSUB1(GDELET,gdelet,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdeltu.f ------------------------------------------------------------------*/ #define GDELTU(A1,A2,A3) CCALLSFSUB3(GDELTU,gdeltu,FLOAT,FLOAT,FLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdfr3d.f ------------------------------------------------------------------*/ #define GDFR3D(A1,A2,A3,A4) CCALLSFSUB4(GDFR3D,gdfr3d,PFLOAT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdfspc.f ------------------------------------------------------------------*/ /* #define gdfspc_ELEMS_1 ZTRINGV_NUM(1) #define gdfspc_ELEMLEN_1 ZTRINGV_NUM(4) */ #define GDFSPC(A1,A2,A3) CCALLSFSUB3(GDFSPC,gdfspc,STRING,INT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdgirl.f ------------------------------------------------------------------*/ #define GDGIRL(A1,A2) CCALLSFSUB2(GDGIRL,gdgirl,FLOAT,FLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdhead.f ------------------------------------------------------------------*/ /* #define gdhead_ELEMS_2 ZTRINGV_NUM(1) #define gdhead_ELEMLEN_2 ZTRINGV_NUM(255) */ #define GDHEAD(A1,A2,A3) CCALLSFSUB3(GDHEAD,gdhead,INT,STRING,FLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdhits.f ------------------------------------------------------------------*/ /* #define gdhits_ELEMS_1 ZTRINGV_NUM(1) #define gdhits_ELEMLEN_1 ZTRINGV_NUM(4) #define gdhits_ELEMS_2 ZTRINGV_NUM(1) #define gdhits_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GDHITS(A1,A2,A3,A4,A5) CCALLSFSUB5(GDHITS,gdhits,STRING,STRING,INT,INT,FLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdinit.f ------------------------------------------------------------------*/ #define GDINIT() CCALLSFSUB0(GDINIT,gdinit) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdlcyl.f ------------------------------------------------------------------*/ #define GDLCYL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GDLCYL,gdlcyl,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdlens.f ------------------------------------------------------------------*/ /* #define gdlens_ELEMS_2 ZTRINGV_NUM(1) #define gdlens_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GDLENS(A1,A2) CCALLSFSUB2(GDLENS,gdlens,INT,STRING,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdline.f ------------------------------------------------------------------*/ #define GDLINE(A1,A2) CCALLSFSUB2(GDLINE,gdline,FLOATV,FLOATV,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdlw.f ------------------------------------------------------------------*/ #define GDLW(A1) CCALLSFSUB1(GDLW,gdlw,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdlw1.f ------------------------------------------------------------------*/ #define GDLW1(A1) CCALLSFSUB1(GDLW1,gdlw1,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdman.f ------------------------------------------------------------------*/ #define GDMAN(A1,A2) CCALLSFSUB2(GDMAN,gdman,FLOAT,FLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdnson.f ------------------------------------------------------------------*/ /* #define gdnson_ELEMS_1 ZTRINGV_NUM(1) #define gdnson_ELEMLEN_1 ZTRINGV_NUM(4) */ #define GDNSON(A1,A2,A3) CCALLSFSUB3(GDNSON,gdnson,STRING,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdopen.f ------------------------------------------------------------------*/ #define GDOPEN(A1) CCALLSFSUB1(GDOPEN,gdopen,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdopt.f ------------------------------------------------------------------*/ /* #define gdopt_ELEMS_1 ZTRINGV_NUM(1) #define gdopt_ELEMLEN_1 ZTRINGV_NUM(4) #define gdopt_ELEMS_2 ZTRINGV_NUM(1) #define gdopt_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GDOPT(A1,A2) CCALLSFSUB2(GDOPT,gdopt,STRING,STRING,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdpart.f ------------------------------------------------------------------*/ #define GDPART(A1,A2,A3) CCALLSFSUB3(GDPART,gdpart,INT,INT,FLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdpdk.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(DOUBLE,GDPDK,gdpdk,DOUBLE,DOUBLE,DOUBLE) #define GDPDK(A2,A3,A4) CCALLSFFUN3(GDPDK,gdpdk,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdplst.f ------------------------------------------------------------------*/ /* #define gdplst_ELEMS_2 ZTRINGV_NUM(1) #define gdplst_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GDPLST(A1,A2,A3,A4) CCALLSFSUB4(GDPLST,gdplst,INT,PSTRING,INT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdprtr.f ------------------------------------------------------------------*/ /* #define gdprtr_ELEMS_1 ZTRINGV_NUM(1) #define gdprtr_ELEMLEN_1 ZTRINGV_NUM(4) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdraw.f ------------------------------------------------------------------*/ /* #define gdraw_ELEMS_1 ZTRINGV_NUM(1) #define gdraw_ELEMLEN_1 ZTRINGV_NUM(4) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdrawc.f ------------------------------------------------------------------*/ /* #define gdrawc_ELEMS_1 ZTRINGV_NUM(1) #define gdrawc_ELEMLEN_1 ZTRINGV_NUM(4) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdrawp.f ------------------------------------------------------------------*/ #define GDRAWP(A1,A2,A3) CCALLSFSUB3(GDRAWP,gdrawp,FLOATV,FLOATV,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdraws.f ------------------------------------------------------------------*/ #define GDRAWS(A1,A2) CCALLSFSUB2(GDRAWS,gdraws,INT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdrawt.f ------------------------------------------------------------------*/ /* #define gdrawt_ELEMS_3 ZTRINGV_NUM(1) #define gdrawt_ELEMLEN_3 ZTRINGV_NUM(255) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdrawv.f ------------------------------------------------------------------*/ #define GDRAWV(A1,A2,A3) CCALLSFSUB3(GDRAWV,gdrawv,FLOATV,FLOATV,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdrawx.f ------------------------------------------------------------------*/ /* #define gdrawx_ELEMS_1 ZTRINGV_NUM(1) #define gdrawx_ELEMLEN_1 ZTRINGV_NUM(4) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdray.f ------------------------------------------------------------------*/ #define GDRAY() CCALLSFSUB0(GDRAY,gdray) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdrcut.f ------------------------------------------------------------------*/ #define GDRCUT(A1,A2,A3,A4) CCALLSFSUB4(GDRCUT,gdrcut,INT,FLOAT,PINT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdrect.f ------------------------------------------------------------------*/ #define GDRECT(A1,A2,A3,A4) CCALLSFSUB4(GDRECT,gdrect,FLOATV,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdrela.f ------------------------------------------------------------------*/ #define GDRELA() CCALLSFSUB0(GDRELA,gdrela) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdrele.f ------------------------------------------------------------------*/ #define GDRELE(A1,A2,A3,A4) CCALLSFSUB4(GDRELE,gdrele,FLOAT,FLOAT,INT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdrelm.f ------------------------------------------------------------------*/ #define GDRELM(A1,A2,A3,A4,A5) CCALLSFSUB5(GDRELM,gdrelm,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdrelp.f ------------------------------------------------------------------*/ #define GDRELP(A1,A2,A3,A4,A5) CCALLSFSUB5(GDRELP,gdrelp,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdrot.f ------------------------------------------------------------------*/ #define GDROT(A1,A2,A3,A4,A5) CCALLSFSUB5(GDROT,gdrot,PFLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdrprt.f ------------------------------------------------------------------*/ #define GDRPRT(A1,A2,A3) CCALLSFSUB3(GDRPRT,gdrprt,INT,INT,FLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdrsga.f ------------------------------------------------------------------*/ #define GDRSGA() CCALLSFSUB0(GDRSGA,gdrsga) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdrvol.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdrwsc.f ------------------------------------------------------------------*/ #define GDRWSC(A1,A2) CCALLSFSUB2(GDRWSC,gdrwsc,INT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdsarc.f ------------------------------------------------------------------*/ #define GDSARC(A1,A2,A3,A4,A5) CCALLSFSUB5(GDSARC,gdsarc,FLOAT,FLOAT,FLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdscal.f ------------------------------------------------------------------*/ #define GDSCAL(A1,A2) CCALLSFSUB2(GDSCAL,gdscal,FLOAT,FLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdshad.f ------------------------------------------------------------------*/ #define GDSHAD(A1,A2) CCALLSFSUB2(GDSHAD,gdshad,PINT,FLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdshif.f ------------------------------------------------------------------*/ #define GDSHIF(A1,A2) CCALLSFSUB2(GDSHIF,gdshif,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdshow.f ------------------------------------------------------------------*/ #define GDSHOW(A1) CCALLSFSUB1(GDSHOW,gdshow,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdson.f ------------------------------------------------------------------*/ /* #define gdson_ELEMS_2 ZTRINGV_NUM(1) #define gdson_ELEMLEN_2 ZTRINGV_NUM(4) #define gdson_ELEMS_3 ZTRINGV_NUM(1) #define gdson_ELEMLEN_3 ZTRINGV_NUM(4) */ #define GDSON(A1,A2,A3) CCALLSFSUB3(GDSON,gdson,INT,STRING,PSTRING,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdspec.f ------------------------------------------------------------------*/ /* #define gdspec_ELEMS_1 ZTRINGV_NUM(1) #define gdspec_ELEMLEN_1 ZTRINGV_NUM(4) */ #define GDSPEC(A1) CCALLSFSUB1(GDSPEC,gdspec,STRING,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdssur.f ------------------------------------------------------------------*/ #define GDSSUR(A1,A2,A3,A4) CCALLSFSUB4(GDSSUR,gdssur,FLOATV,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdsurf.f ------------------------------------------------------------------*/ #define GDSURF(A1) CCALLSFSUB1(GDSURF,gdsurf,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdthrz.f ------------------------------------------------------------------*/ #define GDTHRZ(A1) CCALLSFSUB1(GDTHRZ,gdthrz,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdtom.f ------------------------------------------------------------------*/ #define GDTOM(A1,A2,A3) CCALLSFSUB3(GDTOM,gdtom,FLOATV,PFLOAT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdtr0.f ------------------------------------------------------------------*/ #define GDTR0(A1,A2,A3,A4) CCALLSFSUB4(GDTR0,gdtr0,INT,INT,INT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdtr1.f ------------------------------------------------------------------*/ #define GDTR1(A1,A2,A3,A4) CCALLSFSUB4(GDTR1,gdtr1,INT,INT,PINT,PINT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdtr10.f ------------------------------------------------------------------*/ #define GDTR10(A1) CCALLSFSUB1(GDTR10,gdtr10,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdtr11.f ------------------------------------------------------------------*/ #define GDTR11(A1,A2,A3) CCALLSFSUB3(GDTR11,gdtr11,PINT,PINT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdtr12.f ------------------------------------------------------------------*/ #define GDTR12(A1) CCALLSFSUB1(GDTR12,gdtr12,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdtr2.f ------------------------------------------------------------------*/ #define GDTR2(A1,A2,A3,A4) CCALLSFSUB4(GDTR2,gdtr2,INT,PINT,INT,PINT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdtr3.f ------------------------------------------------------------------*/ #define GDTR3(A1) CCALLSFSUB1(GDTR3,gdtr3,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdtr4.f ------------------------------------------------------------------*/ #define GDTR4() CCALLSFSUB0(GDTR4,gdtr4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdtr5.f ------------------------------------------------------------------*/ #define GDTR5(A1) CCALLSFSUB1(GDTR5,gdtr5,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdtr6.f ------------------------------------------------------------------*/ #define GDTR6(A1) CCALLSFSUB1(GDTR6,gdtr6,PINT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdtr8.f ------------------------------------------------------------------*/ /* #define gdtr8_ELEMS_1 ZTRINGV_NUM(1) #define gdtr8_ELEMLEN_1 ZTRINGV_NUM(4) #define gdtr8_ELEMS_2 ZTRINGV_NUM(1) #define gdtr8_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GDTR8(A1,A2,A3) CCALLSFSUB3(GDTR8,gdtr8,STRING,STRING,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdtr99.f ------------------------------------------------------------------*/ #define GDTR99(A1) CCALLSFSUB1(GDTR99,gdtr99,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdtrak.f ------------------------------------------------------------------*/ /* #define gdtrak_ELEMS_1 ZTRINGV_NUM(1) #define gdtrak_ELEMLEN_1 ZTRINGV_NUM(255) */ #define GDTRAK(A1) CCALLSFSUB1(GDTRAK,gdtrak,STRING,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdtree.f ------------------------------------------------------------------*/ /* #define gdtree_ELEMS_1 ZTRINGV_NUM(1) #define gdtree_ELEMLEN_1 ZTRINGV_NUM(4) */ #define GDTREE(A1,A2,A3) CCALLSFSUB3(GDTREE,gdtree,PSTRING,INT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdxyz.f ------------------------------------------------------------------*/ #define GDXYZ(A1) CCALLSFSUB1(GDXYZ,gdxyz,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdxzoo.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gdzoom.f ------------------------------------------------------------------*/ #define GDZOOM(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GDZOOM,gdzoom,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/geamon.f ------------------------------------------------------------------*/ /* #define geamon_ELEMS_2 ZTRINGV_NUM(1) #define geamon_ELEMLEN_2 ZTRINGV_NUM(255) */ #define GEAMON(A1,A2) CCALLSFSUB2(GEAMON,geamon,INT,STRING,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/geditv.f ------------------------------------------------------------------*/ #define GEDITV(A1) CCALLSFSUB1(GEDITV,geditv,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gekbin.f ------------------------------------------------------------------*/ #define GEKBIN() CCALLSFSUB0(GEKBIN,gekbin) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/genxpt.f ------------------------------------------------------------------*/ #define GENXPT(A1,A2,A3) CCALLSFSUB3(GENXPT,genxpt,INT,INT,FLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/getnum.f ------------------------------------------------------------------*/ #define GETNUM(A1,A2) CCALLSFSUB2(GETNUM,getnum,INTV,PINT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/getver.f ------------------------------------------------------------------*/ /* #define getver_ELEMS_1 ZTRINGV_NUM(1) #define getver_ELEMLEN_1 ZTRINGV_NUM(8) */ #define GETVER(A1,A2) CCALLSFSUB2(GETVER,getver,PSTRING,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gevkev.f ------------------------------------------------------------------*/ /* #define gevkev_ELEMS_3 ZTRINGV_NUM(1) #define gevkev_ELEMLEN_3 ZTRINGV_NUM(4) */ #define GEVKEV(A1,A2,A3) CCALLSFSUB3(GEVKEV,gevkev,FLOAT,PFLOAT,PSTRING,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfatt.f ------------------------------------------------------------------*/ /* #define gfatt_ELEMS_1 ZTRINGV_NUM(1) #define gfatt_ELEMLEN_1 ZTRINGV_NUM(4) #define gfatt_ELEMS_2 ZTRINGV_NUM(1) #define gfatt_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GFATT(A1,A2,A3) CCALLSFSUB3(GFATT,gfatt,STRING,STRING,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfclim.f ------------------------------------------------------------------*/ #define GFCLIM(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFCLIM,gfclim,INT,INT,INT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfcoor.f ------------------------------------------------------------------*/ #define GFCOOR(A1,A2,A3) CCALLSFSUB3(GFCOOR,gfcoor,FLOATV,INT,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfcord.f ------------------------------------------------------------------*/ #define GFCORD(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFCORD,gfcord,INT,FLOATV,FLOATV,PFLOAT,PINT,PINT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfcoul.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,GFCOUL,gfcoul,FLOAT) #define GFCOUL(A2) CCALLSFFUN1(GFCOUL,gfcoul,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfcvol.f ------------------------------------------------------------------*/ #define GFCVOL() CCALLSFSUB0(GFCVOL,gfcvol) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfdet.f ------------------------------------------------------------------*/ /* #define gfdet_ELEMS_1 ZTRINGV_NUM(1) #define gfdet_ELEMLEN_1 ZTRINGV_NUM(4) #define gfdet_ELEMS_2 ZTRINGV_NUM(1) #define gfdet_ELEMLEN_2 ZTRINGV_NUM(4) #define gfdet_ELEMS_4 ZTRINGV_NUM(1) #define gfdet_ELEMLEN_4 ZTRINGV_NUM(4) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfdeta.f ------------------------------------------------------------------*/ /* #define gfdeta_ELEMS_1 ZTRINGV_NUM(1) #define gfdeta_ELEMLEN_1 ZTRINGV_NUM(4) #define gfdeta_ELEMS_2 ZTRINGV_NUM(1) #define gfdeta_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GFDETA(A1,A2,A3) CCALLSFSUB3(GFDETA,gfdeta,STRING,STRING,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfdetd.f ------------------------------------------------------------------*/ /* #define gfdetd_ELEMS_1 ZTRINGV_NUM(1) #define gfdetd_ELEMLEN_1 ZTRINGV_NUM(4) #define gfdetd_ELEMS_2 ZTRINGV_NUM(1) #define gfdetd_ELEMLEN_2 ZTRINGV_NUM(4) #define gfdetd_ELEMS_4 ZTRINGV_NUM(1) #define gfdetd_ELEMLEN_4 ZTRINGV_NUM(4) */ #define GFDETD(A1,A2,A3,A4,A5) CCALLSFSUB5(GFDETD,gfdetd,STRING,STRING,PINT,STRINGV,PINT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfdeth.f ------------------------------------------------------------------*/ /* #define gfdeth_ELEMS_1 ZTRINGV_NUM(1) #define gfdeth_ELEMLEN_1 ZTRINGV_NUM(4) #define gfdeth_ELEMS_2 ZTRINGV_NUM(1) #define gfdeth_ELEMLEN_2 ZTRINGV_NUM(4) #define gfdeth_ELEMS_4 ZTRINGV_NUM(1) #define gfdeth_ELEMLEN_4 ZTRINGV_NUM(4) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfdetu.f ------------------------------------------------------------------*/ /* #define gfdetu_ELEMS_1 ZTRINGV_NUM(1) #define gfdetu_ELEMLEN_1 ZTRINGV_NUM(4) #define gfdetu_ELEMS_2 ZTRINGV_NUM(1) #define gfdetu_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GFDETU(A1,A2,A3,A4,A5) CCALLSFSUB5(GFDETU,gfdetu,STRING,STRING,INT,PINT,FLOATV,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfdigi.f ------------------------------------------------------------------*/ /* #define gfdigi_ELEMS_1 ZTRINGV_NUM(1) #define gfdigi_ELEMLEN_1 ZTRINGV_NUM(4) #define gfdigi_ELEMS_2 ZTRINGV_NUM(1) #define gfdigi_ELEMLEN_2 ZTRINGV_NUM(4) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gffgo.f ------------------------------------------------------------------*/ #define GFFGO() CCALLSFSUB0(GFFGO,gffgo) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfhits.f ------------------------------------------------------------------*/ /* #define gfhits_ELEMS_1 ZTRINGV_NUM(1) #define gfhits_ELEMLEN_1 ZTRINGV_NUM(4) #define gfhits_ELEMS_2 ZTRINGV_NUM(1) #define gfhits_ELEMLEN_2 ZTRINGV_NUM(4) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfhsta.f ------------------------------------------------------------------*/ #define GFHSTA() CCALLSFSUB0(GFHSTA,gfhsta) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfin.f ------------------------------------------------------------------*/ /* #define gfin_ELEMS_2 ZTRINGV_NUM(#@#) #define gfin_ELEMLEN_2 ZTRINGV_NUM(4) #define gfin_ELEMS_5 ZTRINGV_NUM(1) #define gfin_ELEMLEN_5 ZTRINGV_NUM(255) */ #define GFIN(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFIN,gfin,INT,STRINGV,INT,INT,STRING,PINT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfinds.f ------------------------------------------------------------------*/ #define GFINDS() CCALLSFSUB0(GFINDS,gfinds) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfipar.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfkine.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gflcar.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gflphi.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gflrad.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gflthe.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfmate.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfmoth.f ------------------------------------------------------------------*/ /* #define gfmoth_ELEMS_1 ZTRINGV_NUM(1) #define gfmoth_ELEMLEN_1 ZTRINGV_NUM(4) #define gfmoth_ELEMS_2 ZTRINGV_NUM(1) #define gfmoth_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GFMOTH(A1,A2,A3) CCALLSFSUB3(GFMOTH,gfmoth,STRING,PSTRING,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfndig.f ------------------------------------------------------------------*/ /* #define gfndig_ELEMS_1 ZTRINGV_NUM(1) #define gfndig_ELEMLEN_1 ZTRINGV_NUM(4) #define gfndig_ELEMS_2 ZTRINGV_NUM(1) #define gfndig_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GFNDIG(A1,A2,A3) CCALLSFSUB3(GFNDIG,gfndig,STRING,STRING,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfnhit.f ------------------------------------------------------------------*/ /* #define gfnhit_ELEMS_1 ZTRINGV_NUM(1) #define gfnhit_ELEMLEN_1 ZTRINGV_NUM(4) #define gfnhit_ELEMS_2 ZTRINGV_NUM(1) #define gfnhit_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GFNHIT(A1,A2,A3) CCALLSFSUB3(GFNHIT,gfnhit,STRING,STRING,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfout.f ------------------------------------------------------------------*/ /* #define gfout_ELEMS_2 ZTRINGV_NUM(#@#) #define gfout_ELEMLEN_2 ZTRINGV_NUM(4) #define gfout_ELEMS_5 ZTRINGV_NUM(1) #define gfout_ELEMLEN_5 ZTRINGV_NUM(255) */ #define GFOUT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFOUT,gfout,INT,STRINGV,INT,INT,STRING,PINT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfpara.f ------------------------------------------------------------------*/ /* #define gfpara_ELEMS_1 ZTRINGV_NUM(1) #define gfpara_ELEMLEN_1 ZTRINGV_NUM(4) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfpart.f ------------------------------------------------------------------*/ /* #define gfpart_ELEMS_2 ZTRINGV_NUM(1) #define gfpart_ELEMLEN_2 ZTRINGV_NUM(20) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfpath.f ------------------------------------------------------------------*/ #define GFPATH(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFPATH,gfpath,INT,INT,INTV,PINT,PINT,PINT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfstat.f ------------------------------------------------------------------*/ #define GFSTAT(A1) CCALLSFSUB1(GFSTAT,gfstat,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gftitl.f ------------------------------------------------------------------*/ #define GFTITL(A1,A2) CCALLSFSUB2(GFTITL,gftitl,INTV,INTV,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gftmat.f ------------------------------------------------------------------*/ /* #define gftmat_ELEMS_3 ZTRINGV_NUM(1) #define gftmat_ELEMLEN_3 ZTRINGV_NUM(4) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gftmed.f ------------------------------------------------------------------*/ /* #define gftmed_ELEMS_2 ZTRINGV_NUM(1) #define gftmed_ELEMLEN_2 ZTRINGV_NUM(20) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gftrac.f ------------------------------------------------------------------*/ #define GFTRAC() CCALLSFSUB0(GFTRAC,gftrac) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfupar.f ------------------------------------------------------------------*/ #define GFUPAR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFUPAR,gfupar,INT,INT,PINT,PINT,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gfvert.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ggcave.f ------------------------------------------------------------------*/ #define GGCAVE() CCALLSFSUB0(GGCAVE,ggcave) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ggclos.f ------------------------------------------------------------------*/ #define GGCLOS() CCALLSFSUB0(GGCLOS,ggclos) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ggdetv.f ------------------------------------------------------------------*/ #define GGDETV(A1,A2) CCALLSFSUB2(GGDETV,ggdetv,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ggdpar.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ggdspe.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ggdvlp.f ------------------------------------------------------------------*/ #define GGDVLP() CCALLSFSUB0(GGDVLP,ggdvlp) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gget.f ------------------------------------------------------------------*/ /* #define gget_ELEMS_2 ZTRINGV_NUM(1) #define gget_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GGET(A1,A2,A3,A4,A5) CCALLSFSUB5(GGET,gget,INT,STRINGV,INT,PINT,PINT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ggnlev.f ------------------------------------------------------------------*/ #define GGNLEV() CCALLSFSUB0(GGNLEV,ggnlev) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ggord.f ------------------------------------------------------------------*/ #define GGORD(A1) CCALLSFSUB1(GGORD,ggord,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ggordq.f ------------------------------------------------------------------*/ #define GGORDQ(A1) CCALLSFSUB1(GGORDQ,ggordq,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ggppar.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ggvchk.f ------------------------------------------------------------------*/ #define GGVCHK(A1,A2,A3,A4) CCALLSFSUB4(GGVCHK,ggvchk,INT,INT,PINT,PINT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghadro.f ------------------------------------------------------------------*/ #define GHADRO(A1,A2,A3,A4) CCALLSFSUB4(GHADRO,ghadro,FLOAT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghangl.f ------------------------------------------------------------------*/ #define GHANGL(A1,A2,A3,A4,A5) CCALLSFSUB5(GHANGL,ghangl,INT,FLOAT,PFLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghclos.f ------------------------------------------------------------------*/ #define GHCLOS() CCALLSFSUB0(GHCLOS,ghclos) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghdca2.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghdca3.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gheini.f ------------------------------------------------------------------*/ #define GHEINI() CCALLSFSUB0(GHEINI,gheini) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gheish.f ------------------------------------------------------------------*/ #define GHEISH() CCALLSFSUB0(GHEISH,gheish) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghelix.f ------------------------------------------------------------------*/ #define GHELIX(A1,A2,A3,A4) CCALLSFSUB4(GHELIX,ghelix,FLOAT,FLOAT,FLOATV,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghelx3.f ------------------------------------------------------------------*/ #define GHELX3(A1,A2,A3,A4) CCALLSFSUB4(GHELX3,ghelx3,FLOAT,FLOAT,FLOATV,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghesig.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN10(FLOAT,GHESIG,ghesig,FLOAT,FLOAT,FLOAT,FLOATV,FLOATV,FLOATV,INT,FLOAT,FLOAT,INT) #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfacf.f ------------------------------------------------------------------*/ #define GHFACF() CCALLSFSUB0(GHFACF,ghfacf) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfake.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(FLOAT,GHFAKE,ghfake,INT,FLOAT,FLOAT) #define GHFAKE(A2,A3,A4) CCALLSFFUN3(GHFAKE,ghfake,INT,FLOAT,FLOAT,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfalt.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfamg.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,GHFAMG,ghfamg,INT) #define GHFAMG(A2) CCALLSFFUN1(GHFAMG,ghfamg,INT,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfank.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN4(FLOAT,GHFANK,ghfank,INT,FLOAT,FLOAT,FLOAT) #define GHFANK(A2,A3,A4,A5) CCALLSFFUN4(GHFANK,ghfank,INT,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfcal.f ------------------------------------------------------------------*/ #define GHFCAL(A1,A2) CCALLSFSUB2(GHFCAL,ghfcal,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfcha.f ------------------------------------------------------------------*/ #define GHFCHA() CCALLSFSUB0(GHFCHA,ghfcha) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfcos.f ------------------------------------------------------------------*/ #define GHFCOS(A1,A2) CCALLSFSUB2(GHFCOS,ghfcos,PFLOAT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfeex.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(FLOAT,GHFEEX,ghfeex,INT,FLOAT,FLOAT) #define GHFEEX(A2,A3,A4) CCALLSFFUN3(GHFEEX,ghfeex,INT,FLOAT,FLOAT,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfeke.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN4(FLOAT,GHFEKE,ghfeke,INT,FLOAT,FLOAT,FLOAT) #define GHFEKE(A2,A3,A4,A5) CCALLSFFUN4(GHFEKE,ghfeke,INT,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghffer.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghffrm.f ------------------------------------------------------------------*/ #define GHFFRM(A1) CCALLSFSUB1(GHFFRM,ghffrm,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfhad.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfhdi.f ------------------------------------------------------------------*/ #define GHFHDI() CCALLSFSUB0(GHFHDI,ghfhdi) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfhdn.f ------------------------------------------------------------------*/ #define GHFHDN(A1,A2,A3,A4) CCALLSFSUB4(GHFHDN,ghfhdn,FLOAT,FLOAT,INT,PINT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfhyp.f ------------------------------------------------------------------*/ #define GHFHYP(A1,A2,A3,A4) CCALLSFSUB4(GHFHYP,ghfhyp,PINT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfief.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(INT,GHFIEF,ghfief,FLOAT,INT) #define GHFIEF(A2,A3) CCALLSFFUN2(GHFIEF,ghfief,FLOAT,INT,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfkin.f ------------------------------------------------------------------*/ #define GHFKIN(A1,A2,A3) CCALLSFSUB3(GHFKIN,ghfkin,FLOATV,FLOATV,FLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfnuc.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfpof.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(FLOAT,GHFPOF,ghfpof,FLOAT,INT) #define GHFPOF(A2,A3) CCALLSFFUN2(GHFPOF,ghfpof,FLOAT,INT,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfpol.f ------------------------------------------------------------------*/ #define GHFPOL(A1,A2) CCALLSFSUB2(GHFPOL,ghfpol,FLOAT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfrag.f ------------------------------------------------------------------*/ #define GHFRAG(A1) CCALLSFSUB1(GHFRAG,ghfrag,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfrak.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfsgi.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghftch.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfthr.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghftra.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghftrn.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghftwd.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghftwo.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghfxla.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(FLOAT,GHFXLA,ghfxla,FLOAT,FLOAT,FLOAT) #define GHFXLA(A2,A3,A4) CCALLSFFUN3(GHFXLA,ghfxla,FLOAT,FLOAT,FLOAT,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghgene.f ------------------------------------------------------------------*/ #define GHGENE(A1,A2,A3,A4,A5) CCALLSFSUB5(GHGENE,ghgene,INT,FLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghisra.f ------------------------------------------------------------------*/ #define GHISRA(A1,A2,A3,A4,A5) CCALLSFSUB5(GHISRA,ghisra,FLOATV,INT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghkind.f ------------------------------------------------------------------*/ #define GHKIND(A1,A2,A3) CCALLSFSUB3(GHKIND,ghkind,FLOAT,INT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghlead.f ------------------------------------------------------------------*/ #define GHLEAD(A1,A2,A3,A4) CCALLSFSUB4(GHLEAD,ghlead,FLOAT,INT,INT,FLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghmix.f ------------------------------------------------------------------*/ #define GHMIX(A1,A2,A3,A4) CCALLSFSUB4(GHMIX,ghmix,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghmlg.f ------------------------------------------------------------------*/ #define GHMLG(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GHMLG,ghmlg,FLOAT,FLOAT,FLOAT,PFLOAT,INT,INT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghmome.f ------------------------------------------------------------------*/ #define GHMOME(A1,A2,A3,A4) CCALLSFSUB4(GHMOME,ghmome,FLOAT,INT,INT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghmult.f ------------------------------------------------------------------*/ #define GHMULT(A1,A2,A3,A4) CCALLSFSUB4(GHMULT,ghmult,FLOAT,PINT,INT,FLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghrear.f ------------------------------------------------------------------*/ #define GHREAR(A1,A2,A3,A4) CCALLSFSUB4(GHREAR,ghrear,PINT,PINT,FLOATV,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghsig.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(FLOAT,GHSIG,ghsig,FLOAT,INT,FLOAT) #define GHSIG(A2,A3,A4) CCALLSFFUN3(GHSIG,ghsig,FLOAT,INT,FLOAT,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghsigm.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(FLOAT,GHSIGM,ghsigm,FLOAT,INT,FLOAT) #define GHSIGM(A2,A3,A4) CCALLSFFUN3(GHSIGM,ghsigm,FLOAT,INT,FLOAT,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghstop.f ------------------------------------------------------------------*/ #define GHSTOP() CCALLSFSUB0(GHSTOP,ghstop) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghtati.f ------------------------------------------------------------------*/ #define GHTATI() CCALLSFSUB0(GHTATI,ghtati) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ghttra.f ------------------------------------------------------------------*/ #define GHTTRA(A1,A2,A3,A4) CCALLSFSUB4(GHTTRA,ghttra,FLOAT,PFLOAT,INT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gicyl.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ginctu.f ------------------------------------------------------------------*/ #define GINCTU(A1,A2,A3) CCALLSFSUB3(GINCTU,ginctu,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gingtr.f ------------------------------------------------------------------*/ #define GINGTR(A1,A2,A3) CCALLSFSUB3(GINGTR,gingtr,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ginit.f ------------------------------------------------------------------*/ #define GINIT() CCALLSFSUB0(GINIT,ginit) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ginme.f ------------------------------------------------------------------*/ #define GINME(A1,A2,A3,A4) CCALLSFSUB4(GINME,ginme,FLOATV,FLOAT,FLOATV,PINT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ginpar.f ------------------------------------------------------------------*/ #define GINPAR(A1,A2,A3) CCALLSFSUB3(GINPAR,ginpar,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ginpco.f ------------------------------------------------------------------*/ #define GINPCO(A1,A2,A3) CCALLSFSUB3(GINPCO,ginpco,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ginpgo.f ------------------------------------------------------------------*/ #define GINPGO(A1,A2,A3) CCALLSFSUB3(GINPGO,ginpgo,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ginrot.f ------------------------------------------------------------------*/ #define GINROT(A1,A2,A3) CCALLSFSUB3(GINROT,ginrot,FLOATV,FLOATV,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gintco.f ------------------------------------------------------------------*/ #define GINTCO(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GINTCO,gintco,FLOATV,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gintrp.f ------------------------------------------------------------------*/ #define GINTRP(A1,A2,A3) CCALLSFSUB3(GINTRP,gintrp,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ginvol.f ------------------------------------------------------------------*/ #define GINVOL(A1,A2) CCALLSFSUB2(GINVOL,ginvol,FLOATV,PINT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/giplan.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gitran.f ------------------------------------------------------------------*/ #define GITRAN(A1,A2,A3,A4) CCALLSFSUB4(GITRAN,gitran,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gkhits.f ------------------------------------------------------------------*/ /* #define gkhits_ELEMS_1 ZTRINGV_NUM(1) #define gkhits_ELEMLEN_1 ZTRINGV_NUM(4) #define gkhits_ELEMS_2 ZTRINGV_NUM(1) #define gkhits_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GKHITS(A1,A2,A3) CCALLSFSUB3(GKHITS,gkhits,STRING,STRING,FLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gkxyz.f ------------------------------------------------------------------*/ #define GKXYZ(A1) CCALLSFSUB1(GKXYZ,gkxyz,FLOAT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/glande.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,GLANDE,glande,FLOAT) #define GLANDE(A2) CCALLSFFUN1(GLANDE,glande,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/glandg.f ------------------------------------------------------------------*/ #define GLANDG(A1) CCALLSFSUB1(GLANDG,glandg,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/glando.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/glandr.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,GLANDR,glandr,FLOAT) #define GLANDR(A2) CCALLSFFUN1(GLANDR,glandr,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/glands.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,GLANDS,glands,FLOAT) #define GLANDS(A2) CCALLSFFUN1(GLANDS,glands,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/glandz.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/glast.f ------------------------------------------------------------------*/ #define GLAST() CCALLSFSUB0(GLAST,glast) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/glmoth.f ------------------------------------------------------------------*/ /* #define glmoth_ELEMS_1 ZTRINGV_NUM(1) #define glmoth_ELEMLEN_1 ZTRINGV_NUM(255) */ #define GLMOTH(A1,A2,A3,A4,A5) CCALLSFSUB5(GLMOTH,glmoth,STRING,INT,PINT,PINT,PINT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/glook.f ------------------------------------------------------------------*/ /* #define glook_ELEMS_1 ZTRINGV_NUM(1) #define glook_ELEMLEN_1 ZTRINGV_NUM(255) */ #define GLOOK(A1,A2,A3,A4) CCALLSFSUB4(GLOOK,glook,STRING,INTV,INT,PINT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gloren.f ------------------------------------------------------------------*/ #define GLOREN(A1,A2,A3) CCALLSFSUB3(GLOREN,gloren,FLOATV,FLOATV,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/glsklt.f ------------------------------------------------------------------*/ #define GLSKLT() CCALLSFSUB0(GLSKLT,glsklt) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gltrac.f ------------------------------------------------------------------*/ #define GLTRAC() CCALLSFSUB0(GLTRAC,gltrac) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gludky.f ------------------------------------------------------------------*/ #define GLUDKY() CCALLSFSUB0(GLUDKY,gludky) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/glund.f ------------------------------------------------------------------*/ #define GLUND() CCALLSFSUB0(GLUND,glund) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/glundi.f ------------------------------------------------------------------*/ #define GLUNDI() CCALLSFSUB0(GLUNDI,glundi) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/glvolu.f ------------------------------------------------------------------*/ #define GLVOLU(A1,A2,A3,A4) CCALLSFSUB4(GLVOLU,glvolu,INT,INTV,INTV,PINT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gm3pol.f ------------------------------------------------------------------*/ #define GM3POL(A1,A2) CCALLSFSUB2(GM3POL,gm3pol,FLOAT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gmail.f ------------------------------------------------------------------*/ #define GMAIL(A1,A2) CCALLSFSUB2(GMAIL,gmail,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gmate.f ------------------------------------------------------------------*/ #define GMATE() CCALLSFSUB0(GMATE,gmate) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gmclos.f ------------------------------------------------------------------*/ #define GMCLOS() CCALLSFSUB0(GMCLOS,gmclos) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gmcoul.f ------------------------------------------------------------------*/ #define GMCOUL(A1,A2) CCALLSFSUB2(GMCOUL,gmcoul,FLOAT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gmedia.f ------------------------------------------------------------------*/ #define GMEDIA(A1,A2) CCALLSFSUB2(GMEDIA,gmedia,FLOATV,PINT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gmedin.f ------------------------------------------------------------------*/ #define GMEDIN() CCALLSFSUB0(GMEDIN,gmedin) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gmediv.f ------------------------------------------------------------------*/ #define GMEDIV(A1,A2,A3,A4) CCALLSFSUB4(GMEDIV,gmediv,INT,PINT,PFLOAT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gmepos.f ------------------------------------------------------------------*/ #define GMEPOS(A1,A2,A3,A4) CCALLSFSUB4(GMEPOS,gmepos,INT,INT,PFLOAT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gmgaus.f ------------------------------------------------------------------*/ #define GMGAUS(A1,A2) CCALLSFSUB2(GMGAUS,gmgaus,FLOAT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gmol4.f ------------------------------------------------------------------*/ #define GMOL4(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GMOL4,gmol4,PFLOAT,FLOAT,PFLOAT,PFLOAT,FLOAT,PINT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gmoli.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gmolie.f ------------------------------------------------------------------*/ #define GMOLIE(A1,A2,A3) CCALLSFSUB3(GMOLIE,gmolie,FLOAT,FLOAT,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gmolio.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gmopen.f ------------------------------------------------------------------*/ #define GMOPEN(A1,A2,A3) CCALLSFSUB3(GMOPEN,gmopen,FLOAT,FLOAT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gmtod.f ------------------------------------------------------------------*/ #define GMTOD(A1,A2,A3) CCALLSFSUB3(GMTOD,gmtod,FLOATV,PFLOAT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gmulof.f ------------------------------------------------------------------*/ #define GMULOF() CCALLSFSUB0(GMULOF,gmulof) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gmults.f ------------------------------------------------------------------*/ #define GMULTS() CCALLSFSUB0(GMULTS,gmults) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gmunu.f ------------------------------------------------------------------*/ #define GMUNU() CCALLSFSUB0(GMUNU,gmunu) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gmunui.f ------------------------------------------------------------------*/ #define GMUNUI() CCALLSFSUB0(GMUNUI,gmunui) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gmusig.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(FLOAT,GMUSIG,gmusig,FLOAT,FLOAT,FLOAT) #define GMUSIG(A2,A3,A4) CCALLSFFUN3(GMUSIG,gmusig,FLOAT,FLOAT,FLOAT,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnbox.f ------------------------------------------------------------------*/ #define GNBOX(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNBOX,gnbox,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gncone.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnctub.f ------------------------------------------------------------------*/ #define GNCTUB(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNCTUB,gnctub,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gneltu.f ------------------------------------------------------------------*/ #define GNELTU(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNELTU,gneltu,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnext.f ------------------------------------------------------------------*/ #define GNEXT(A1,A2,A3) CCALLSFSUB3(GNEXT,gnext,FLOATV,PFLOAT,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnhype.f ------------------------------------------------------------------*/ #define GNHYPE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNHYPE,gnhype,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnobox.f ------------------------------------------------------------------*/ #define GNOBOX(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOBOX,gnobox,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnocon.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnoctu.f ------------------------------------------------------------------*/ #define GNOCTU(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOCTU,gnoctu,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnoelt.f ------------------------------------------------------------------*/ #define GNOELT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOELT,gnoelt,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnohyp.f ------------------------------------------------------------------*/ #define GNOHYP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOHYP,gnohyp,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnopar.f ------------------------------------------------------------------*/ #define GNOPAR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOPAR,gnopar,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnopco.f ------------------------------------------------------------------*/ #define GNOPCO(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOPCO,gnopco,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnopg1.f ------------------------------------------------------------------*/ #define GNOPG1(A1,A2,A3) CCALLSFSUB3(GNOPG1,gnopg1,FLOATV,FLOATV,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnopgo.f ------------------------------------------------------------------*/ #define GNOPGO(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOPGO,gnopgo,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnosph.f ------------------------------------------------------------------*/ #define GNOSPH(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOSPH,gnosph,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnotr1.f ------------------------------------------------------------------*/ #define GNOTR1(A1) CCALLSFSUB1(GNOTR1,gnotr1,FLOATV,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnotr2.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnotr9.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnotra.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnotrp.f ------------------------------------------------------------------*/ #define GNOTRP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOTRP,gnotrp,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnotub.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnpara.f ------------------------------------------------------------------*/ #define GNPARA(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNPARA,gnpara,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnpcon.f ------------------------------------------------------------------*/ #define GNPCON(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNPCON,gnpcon,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnpgo1.f ------------------------------------------------------------------*/ #define GNPGO1(A1,A2,A3) CCALLSFSUB3(GNPGO1,gnpgo1,FLOATV,FLOATV,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnpgon.f ------------------------------------------------------------------*/ #define GNPGON(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNPGON,gnpgon,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnslwd.f ------------------------------------------------------------------*/ #define GNSLWD(A1,A2,A3,A4) CCALLSFSUB4(GNSLWD,gnslwd,PINT,INT,INT,FLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gnsphr.f ------------------------------------------------------------------*/ #define GNSPHR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNSPHR,gnsphr,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gntrap.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gntrp.f ------------------------------------------------------------------*/ #define GNTRP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNTRP,gntrp,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gntube.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gopen.f ------------------------------------------------------------------*/ /* #define gopen_ELEMS_2 ZTRINGV_NUM(1) #define gopen_ELEMLEN_2 ZTRINGV_NUM(255) */ #define GOPEN(A1,A2,A3,A4) CCALLSFSUB4(GOPEN,gopen,INT,STRING,INT,PINT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gpairg.f ------------------------------------------------------------------*/ #define GPAIRG() CCALLSFSUB0(GPAIRG,gpairg) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gpairm.f ------------------------------------------------------------------*/ #define GPAIRM() CCALLSFSUB0(GPAIRM,gpairm) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gpart.f ------------------------------------------------------------------*/ #define GPART() CCALLSFSUB0(GPART,gpart) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gpcxyz.f ------------------------------------------------------------------*/ #define GPCXYZ() CCALLSFSUB0(GPCXYZ,gpcxyz) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gpdigi.f ------------------------------------------------------------------*/ /* #define gpdigi_ELEMS_1 ZTRINGV_NUM(1) #define gpdigi_ELEMLEN_1 ZTRINGV_NUM(4) #define gpdigi_ELEMS_2 ZTRINGV_NUM(1) #define gpdigi_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GPDIGI(A1,A2) CCALLSFSUB2(GPDIGI,gpdigi,STRING,STRING,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gpdk.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(FLOAT,GPDK,gpdk,FLOAT,FLOAT,FLOAT) #define GPDK(A2,A3,A4) CCALLSFFUN3(GPDK,gpdk,FLOAT,FLOAT,FLOAT,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gpdrif.f ------------------------------------------------------------------*/ #define GPDRIF(A1,A2,A3) CCALLSFSUB3(GPDRIF,gpdrif,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gpfis.f ------------------------------------------------------------------*/ #define GPFIS() CCALLSFSUB0(GPFIS,gpfis) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gpfisi.f ------------------------------------------------------------------*/ #define GPFISI() CCALLSFSUB0(GPFISI,gpfisi) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gpghei.f ------------------------------------------------------------------*/ #define GPGHEI() CCALLSFSUB0(GPGHEI,gpghei) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gpgkin.f ------------------------------------------------------------------*/ #define GPGKIN() CCALLSFSUB0(GPGKIN,gpgkin) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gphadr.f ------------------------------------------------------------------*/ #define GPHADR() CCALLSFSUB0(GPHADR,gphadr) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gphits.f ------------------------------------------------------------------*/ /* #define gphits_ELEMS_1 ZTRINGV_NUM(1) #define gphits_ELEMLEN_1 ZTRINGV_NUM(4) #define gphits_ELEMS_2 ZTRINGV_NUM(1) #define gphits_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GPHITS(A1,A2) CCALLSFSUB2(GPHITS,gphits,STRING,STRING,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gphmfi.f ------------------------------------------------------------------*/ #define GPHMFI() CCALLSFSUB0(GPHMFI,gphmfi) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gphot.f ------------------------------------------------------------------*/ #define GPHOT() CCALLSFSUB0(GPHOT,gphot) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gphoti.f ------------------------------------------------------------------*/ #define GPHOTI() CCALLSFSUB0(GPHOTI,gphoti) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gphsig.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(FLOAT,GPHSIG,gphsig,FLOAT,FLOAT) #define GPHSIG(A2,A3) CCALLSFFUN2(GPHSIG,gphsig,FLOAT,FLOAT,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gphysi.f ------------------------------------------------------------------*/ #define GPHYSI() CCALLSFSUB0(GPHYSI,gphysi) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gpions.f ------------------------------------------------------------------*/ #define GPIONS() CCALLSFSUB0(GPIONS,gpions) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gpjxyz.f ------------------------------------------------------------------*/ #define GPJXYZ(A1) CCALLSFSUB1(GPJXYZ,gpjxyz,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gpkine.f ------------------------------------------------------------------*/ #define GPKINE(A1) CCALLSFSUB1(GPKINE,gpkine,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gplmat.f ------------------------------------------------------------------*/ /* #define gplmat_ELEMS_3 ZTRINGV_NUM(1) #define gplmat_ELEMLEN_3 ZTRINGV_NUM(255) */ #define GPLMAT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GPLMAT,gplmat,INT,INT,STRING,INT,FLOATV,INT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gpmate.f ------------------------------------------------------------------*/ #define GPMATE(A1) CCALLSFSUB1(GPMATE,gpmate,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gpmwpc.f ------------------------------------------------------------------*/ #define GPMWPC(A1,A2,A3) CCALLSFSUB3(GPMWPC,gpmwpc,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gpoiss.f ------------------------------------------------------------------*/ #define GPOISS(A1,A2,A3) CCALLSFSUB3(GPOISS,gpoiss,FLOATV,PINT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gppart.f ------------------------------------------------------------------*/ #define GPPART(A1) CCALLSFSUB1(GPPART,gppart,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gprela.f ------------------------------------------------------------------*/ #define GPRELA() CCALLSFSUB0(GPRELA,gprela) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gprelm.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(FLOAT,GPRELM,gprelm,FLOAT,FLOAT,FLOAT) #define GPRELM(A2,A3,A4) CCALLSFFUN3(GPRELM,gprelm,FLOAT,FLOAT,FLOAT,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gprint.f ------------------------------------------------------------------*/ /* #define gprint_ELEMS_1 ZTRINGV_NUM(1) #define gprint_ELEMLEN_1 ZTRINGV_NUM(255) */ #define GPRINT(A1,A2) CCALLSFSUB2(GPRINT,gprint,STRING,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gprmat.f ------------------------------------------------------------------*/ /* #define gprmat_ELEMS_3 ZTRINGV_NUM(1) #define gprmat_ELEMLEN_3 ZTRINGV_NUM(255) */ #define GPRMAT(A1,A2,A3,A4,A5) CCALLSFSUB5(GPRMAT,gprmat,INT,INT,STRING,INT,FLOATV,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gprobi.f ------------------------------------------------------------------*/ #define GPROBI() CCALLSFSUB0(GPROBI,gprobi) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gprotm.f ------------------------------------------------------------------*/ #define GPROTM(A1) CCALLSFSUB1(GPROTM,gprotm,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gprsga.f ------------------------------------------------------------------*/ #define GPRSGA() CCALLSFSUB0(GPRSGA,gprsga) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gprsgg.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(FLOAT,GPRSGG,gprsgg,FLOAT,FLOAT) #define GPRSGG(A2,A3) CCALLSFFUN2(GPRSGG,gprsgg,FLOAT,FLOAT,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gprsgm.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(FLOAT,GPRSGM,gprsgm,FLOAT,FLOAT,FLOAT) #define GPRSGM(A2,A3,A4) CCALLSFFUN3(GPRSGM,gprsgm,FLOAT,FLOAT,FLOAT,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gpsets.f ------------------------------------------------------------------*/ /* #define gpsets_ELEMS_1 ZTRINGV_NUM(1) #define gpsets_ELEMLEN_1 ZTRINGV_NUM(4) #define gpsets_ELEMS_2 ZTRINGV_NUM(1) #define gpsets_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GPSETS(A1,A2) CCALLSFSUB2(GPSETS,gpsets,STRING,STRING,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gpstat.f ------------------------------------------------------------------*/ #define GPSTAT() CCALLSFSUB0(GPSTAT,gpstat) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gptmed.f ------------------------------------------------------------------*/ #define GPTMED(A1) CCALLSFSUB1(GPTMED,gptmed,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gpvert.f ------------------------------------------------------------------*/ #define GPVERT(A1) CCALLSFSUB1(GPVERT,gpvert,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gpvolu.f ------------------------------------------------------------------*/ #define GPVOLU(A1) CCALLSFSUB1(GPVOLU,gpvolu,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/grangi.f ------------------------------------------------------------------*/ #define GRANGI() CCALLSFSUB0(GRANGI,grangi) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/granor.f ------------------------------------------------------------------*/ #define GRANOR(A1,A2) CCALLSFSUB2(GRANOR,granor,PFLOAT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/grayl.f ------------------------------------------------------------------*/ #define GRAYL() CCALLSFSUB0(GRAYL,grayl) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/grayli.f ------------------------------------------------------------------*/ #define GRAYLI() CCALLSFSUB0(GRAYLI,grayli) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/grend.f ------------------------------------------------------------------*/ #define GREND(A1) CCALLSFSUB1(GREND,grend,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/grfile.f ------------------------------------------------------------------*/ /* #define grfile_ELEMS_2 ZTRINGV_NUM(1) #define grfile_ELEMLEN_2 ZTRINGV_NUM(255) #define grfile_ELEMS_3 ZTRINGV_NUM(1) #define grfile_ELEMLEN_3 ZTRINGV_NUM(255) */ #define GRFILE(A1,A2,A3) CCALLSFSUB3(GRFILE,grfile,INT,STRING,STRING,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/grget.f ------------------------------------------------------------------*/ /* #define grget_ELEMS_1 ZTRINGV_NUM(1) #define grget_ELEMLEN_1 ZTRINGV_NUM(4) */ #define GRGET(A1,A2,A3,A4,A5) CCALLSFSUB5(GRGET,grget,STRINGV,INT,INT,INT,INT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/grhits.f ------------------------------------------------------------------*/ /* #define grhits_ELEMS_1 ZTRINGV_NUM(1) #define grhits_ELEMLEN_1 ZTRINGV_NUM(255) #define grhits_ELEMS_2 ZTRINGV_NUM(1) #define grhits_ELEMLEN_2 ZTRINGV_NUM(255) */ #define GRHITS(A1,A2,A3,A4) CCALLSFSUB4(GRHITS,grhits,STRING,STRING,INT,INTV,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/grin.f ------------------------------------------------------------------*/ /* #define grin_ELEMS_1 ZTRINGV_NUM(1) #define grin_ELEMLEN_1 ZTRINGV_NUM(255) #define grin_ELEMS_3 ZTRINGV_NUM(1) #define grin_ELEMLEN_3 ZTRINGV_NUM(255) */ #define GRIN(A1,A2,A3) CCALLSFSUB3(GRIN,grin,STRING,INT,STRING,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/grkuta.f ------------------------------------------------------------------*/ #define GRKUTA(A1,A2,A3,A4) CCALLSFSUB4(GRKUTA,grkuta,FLOAT,FLOAT,FLOATV,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/grleas.f ------------------------------------------------------------------*/ #define GRLEAS(A1) CCALLSFSUB1(GRLEAS,grleas,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/grmdir.f ------------------------------------------------------------------*/ /* #define grmdir_ELEMS_1 ZTRINGV_NUM(1) #define grmdir_ELEMLEN_1 ZTRINGV_NUM(255) #define grmdir_ELEMS_2 ZTRINGV_NUM(1) #define grmdir_ELEMLEN_2 ZTRINGV_NUM(255) */ #define GRMDIR(A1,A2) CCALLSFSUB2(GRMDIR,grmdir,STRING,STRING,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/grmtd.f ------------------------------------------------------------------*/ #define GRMTD(A1,A2,A3) CCALLSFSUB3(GRMTD,grmtd,FLOATV,INT,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/grmul.f ------------------------------------------------------------------*/ #define GRMUL(A1,A2,A3) CCALLSFSUB3(GRMUL,grmul,FLOATV,INT,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/grndm.f ------------------------------------------------------------------*/ #define GRNDM(A1,A2) CCALLSFSUB2(GRNDM,grndm,PFLOAT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/grndmq.f ------------------------------------------------------------------*/ /* #define grndmq_ELEMS_4 ZTRINGV_NUM(1) #define grndmq_ELEMLEN_4 ZTRINGV_NUM(255) */ #define GRNDMQ(A1,A2,A3,A4) CCALLSFSUB4(GRNDMQ,grndmq,PINT,PINT,INT,STRING,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/grot.f ------------------------------------------------------------------*/ #define GROT(A1,A2,A3) CCALLSFSUB3(GROT,grot,FLOATV,FLOATV,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/grout.f ------------------------------------------------------------------*/ /* #define grout_ELEMS_1 ZTRINGV_NUM(1) #define grout_ELEMLEN_1 ZTRINGV_NUM(255) #define grout_ELEMS_3 ZTRINGV_NUM(1) #define grout_ELEMLEN_3 ZTRINGV_NUM(255) */ #define GROUT(A1,A2,A3) CCALLSFSUB3(GROUT,grout,STRING,INT,STRING,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/grpar.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/grsave.f ------------------------------------------------------------------*/ /* #define grsave_ELEMS_1 ZTRINGV_NUM(1) #define grsave_ELEMLEN_1 ZTRINGV_NUM(4) */ #define GRSAVE(A1,A2,A3,A4,A5) CCALLSFSUB5(GRSAVE,grsave,STRINGV,INT,INT,INT,INT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/grun.f ------------------------------------------------------------------*/ #define GRUN() CCALLSFSUB0(GRUN,grun) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsagtr.f ------------------------------------------------------------------*/ #define GSAGTR(A1,A2,A3,A4) CCALLSFSUB4(GSAGTR,gsagtr,FLOATV,FLOATV,PFLOAT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsahit.f ------------------------------------------------------------------*/ #define GSAHIT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSAHIT,gsahit,INT,INT,INT,INTV,FLOATV,PINT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsaphi.f ------------------------------------------------------------------*/ #define GSAPHI(A1,A2,A3,A4) CCALLSFSUB4(GSAPHI,gsaphi,FLOATV,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsatt.f ------------------------------------------------------------------*/ /* #define gsatt_ELEMS_1 ZTRINGV_NUM(1) #define gsatt_ELEMLEN_1 ZTRINGV_NUM(4) #define gsatt_ELEMS_2 ZTRINGV_NUM(1) #define gsatt_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GSATT(A1,A2,A3) CCALLSFSUB3(GSATT,gsatt,STRING,STRING,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsave.f ------------------------------------------------------------------*/ /* #define gsave_ELEMS_2 ZTRINGV_NUM(1) #define gsave_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GSAVE(A1,A2,A3,A4,A5) CCALLSFSUB5(GSAVE,gsave,INT,STRINGV,INT,INT,PINT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gscani.f ------------------------------------------------------------------*/ #define GSCANI() CCALLSFSUB0(GSCANI,gscani) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gscank.f ------------------------------------------------------------------*/ #define GSCANK() CCALLSFSUB0(GSCANK,gscank) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gscano.f ------------------------------------------------------------------*/ #define GSCANO() CCALLSFSUB0(GSCANO,gscano) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gscanu.f ------------------------------------------------------------------*/ #define GSCANU() CCALLSFSUB0(GSCANU,gscanu) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gschit.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gschk.f ------------------------------------------------------------------*/ /* #define gschk_ELEMS_1 ZTRINGV_NUM(1) #define gschk_ELEMLEN_1 ZTRINGV_NUM(4) #define gschk_ELEMS_2 ZTRINGV_NUM(1) #define gschk_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GSCHK(A1,A2,A3,A4) CCALLSFSUB4(GSCHK,gschk,STRING,STRING,INT,PINT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gscvol.f ------------------------------------------------------------------*/ #define GSCVOL() CCALLSFSUB0(GSCVOL,gscvol) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsdet.f ------------------------------------------------------------------*/ /* #define gsdet_ELEMS_1 ZTRINGV_NUM(1) #define gsdet_ELEMLEN_1 ZTRINGV_NUM(4) #define gsdet_ELEMS_2 ZTRINGV_NUM(1) #define gsdet_ELEMLEN_2 ZTRINGV_NUM(4) #define gsdet_ELEMS_4 ZTRINGV_NUM(1) #define gsdet_ELEMLEN_4 ZTRINGV_NUM(4) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsdeta.f ------------------------------------------------------------------*/ /* #define gsdeta_ELEMS_1 ZTRINGV_NUM(1) #define gsdeta_ELEMLEN_1 ZTRINGV_NUM(4) #define gsdeta_ELEMS_2 ZTRINGV_NUM(1) #define gsdeta_ELEMLEN_2 ZTRINGV_NUM(4) #define gsdeta_ELEMS_3 ZTRINGV_NUM(1) #define gsdeta_ELEMLEN_3 ZTRINGV_NUM(4) */ #define GSDETA(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSDETA,gsdeta,STRING,STRING,STRING,INT,INT,PINT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsdetd.f ------------------------------------------------------------------*/ /* #define gsdetd_ELEMS_1 ZTRINGV_NUM(1) #define gsdetd_ELEMLEN_1 ZTRINGV_NUM(4) #define gsdetd_ELEMS_2 ZTRINGV_NUM(1) #define gsdetd_ELEMLEN_2 ZTRINGV_NUM(4) #define gsdetd_ELEMS_4 ZTRINGV_NUM(1) #define gsdetd_ELEMLEN_4 ZTRINGV_NUM(4) */ #define GSDETD(A1,A2,A3,A4,A5) CCALLSFSUB5(GSDETD,gsdetd,STRING,STRING,INT,STRINGV,INTV,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsdeth.f ------------------------------------------------------------------*/ /* #define gsdeth_ELEMS_1 ZTRINGV_NUM(1) #define gsdeth_ELEMLEN_1 ZTRINGV_NUM(4) #define gsdeth_ELEMS_2 ZTRINGV_NUM(1) #define gsdeth_ELEMLEN_2 ZTRINGV_NUM(4) #define gsdeth_ELEMS_4 ZTRINGV_NUM(1) #define gsdeth_ELEMLEN_4 ZTRINGV_NUM(4) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsdetu.f ------------------------------------------------------------------*/ /* #define gsdetu_ELEMS_1 ZTRINGV_NUM(1) #define gsdetu_ELEMLEN_1 ZTRINGV_NUM(4) #define gsdetu_ELEMS_2 ZTRINGV_NUM(1) #define gsdetu_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GSDETU(A1,A2,A3,A4) CCALLSFSUB4(GSDETU,gsdetu,STRING,STRING,INT,FLOATV,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsdetv.f ------------------------------------------------------------------*/ /* #define gsdetv_ELEMS_1 ZTRINGV_NUM(1) #define gsdetv_ELEMLEN_1 ZTRINGV_NUM(4) #define gsdetv_ELEMS_2 ZTRINGV_NUM(1) #define gsdetv_ELEMLEN_2 ZTRINGV_NUM(4) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsdigi.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsdk.f ------------------------------------------------------------------*/ #define GSDK(A1,A2,A3) CCALLSFSUB3(GSDK,gsdk,INT,FLOATV,INTV,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsdvn.f ------------------------------------------------------------------*/ /* #define gsdvn_ELEMS_1 ZTRINGV_NUM(1) #define gsdvn_ELEMLEN_1 ZTRINGV_NUM(4) #define gsdvn_ELEMS_2 ZTRINGV_NUM(1) #define gsdvn_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GSDVN(A1,A2,A3,A4) CCALLSFSUB4(GSDVN,gsdvn,STRING,STRING,INT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsdvn2.f ------------------------------------------------------------------*/ /* #define gsdvn2_ELEMS_1 ZTRINGV_NUM(1) #define gsdvn2_ELEMLEN_1 ZTRINGV_NUM(4) #define gsdvn2_ELEMS_2 ZTRINGV_NUM(1) #define gsdvn2_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GSDVN2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSDVN2,gsdvn2,STRING,STRING,INT,INT,PFLOAT,INT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsdvs.f ------------------------------------------------------------------*/ /* #define gsdvs_ELEMS_1 ZTRINGV_NUM(1) #define gsdvs_ELEMLEN_1 ZTRINGV_NUM(4) #define gsdvs_ELEMS_2 ZTRINGV_NUM(1) #define gsdvs_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GSDVS(A1,A2,A3,A4,A5) CCALLSFSUB5(GSDVS,gsdvs,STRING,STRING,FLOAT,INT,INT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsdvs2.f ------------------------------------------------------------------*/ /* #define gsdvs2_ELEMS_1 ZTRINGV_NUM(1) #define gsdvs2_ELEMLEN_1 ZTRINGV_NUM(4) #define gsdvs2_ELEMS_2 ZTRINGV_NUM(1) #define gsdvs2_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GSDVS2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSDVS2,gsdvs2,STRING,STRING,FLOAT,INT,FLOAT,INT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsdvt.f ------------------------------------------------------------------*/ /* #define gsdvt_ELEMS_1 ZTRINGV_NUM(1) #define gsdvt_ELEMLEN_1 ZTRINGV_NUM(4) #define gsdvt_ELEMS_2 ZTRINGV_NUM(1) #define gsdvt_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GSDVT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSDVT,gsdvt,STRING,STRING,FLOAT,INT,INT,INT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsdvt2.f ------------------------------------------------------------------*/ /* #define gsdvt2_ELEMS_1 ZTRINGV_NUM(1) #define gsdvt2_ELEMLEN_1 ZTRINGV_NUM(4) #define gsdvt2_ELEMS_2 ZTRINGV_NUM(1) #define gsdvt2_ELEMLEN_2 ZTRINGV_NUM(4) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsdvx.f ------------------------------------------------------------------*/ /* #define gsdvx_ELEMS_1 ZTRINGV_NUM(1) #define gsdvx_ELEMLEN_1 ZTRINGV_NUM(4) #define gsdvx_ELEMS_2 ZTRINGV_NUM(1) #define gsdvx_ELEMLEN_2 ZTRINGV_NUM(4) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsipar.f ------------------------------------------------------------------*/ #define GSIPAR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSIPAR,gsipar,INT,INT,INT,INT,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gskine.f ------------------------------------------------------------------*/ #define GSKINE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSKINE,gskine,FLOATV,INT,INT,FLOATV,INT,PINT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsking.f ------------------------------------------------------------------*/ #define GSKING(A1) CCALLSFSUB1(GSKING,gsking,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsmate.f ------------------------------------------------------------------*/ /* #define gsmate_ELEMS_2 ZTRINGV_NUM(1) #define gsmate_ELEMLEN_2 ZTRINGV_NUM(255) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsmixt.f ------------------------------------------------------------------*/ /* #define gsmixt_ELEMS_2 ZTRINGV_NUM(1) #define gsmixt_ELEMLEN_2 ZTRINGV_NUM(255) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsnear.f ------------------------------------------------------------------*/ /* #define gsnear_ELEMS_1 ZTRINGV_NUM(1) #define gsnear_ELEMLEN_1 ZTRINGV_NUM(4) */ #define GSNEAR(A1,A2,A3,A4) CCALLSFSUB4(GSNEAR,gsnear,STRING,INT,INT,INTV,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsnext.f ------------------------------------------------------------------*/ /* #define gsnext_ELEMS_1 ZTRINGV_NUM(1) #define gsnext_ELEMLEN_1 ZTRINGV_NUM(4) */ #define GSNEXT(A1,A2,A3,A4) CCALLSFSUB4(GSNEXT,gsnext,STRING,INT,INT,INTV,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsngtr.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsord.f ------------------------------------------------------------------*/ /* #define gsord_ELEMS_1 ZTRINGV_NUM(1) #define gsord_ELEMLEN_1 ZTRINGV_NUM(4) */ #define GSORD(A1,A2) CCALLSFSUB2(GSORD,gsord,STRING,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gspart.f ------------------------------------------------------------------*/ /* #define gspart_ELEMS_2 ZTRINGV_NUM(1) #define gspart_ELEMLEN_2 ZTRINGV_NUM(255) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gspos.f ------------------------------------------------------------------*/ /* #define gspos_ELEMS_1 ZTRINGV_NUM(1) #define gspos_ELEMLEN_1 ZTRINGV_NUM(4) #define gspos_ELEMS_3 ZTRINGV_NUM(1) #define gspos_ELEMLEN_3 ZTRINGV_NUM(4) #define gspos_ELEMS_8 ZTRINGV_NUM(1) #define gspos_ELEMLEN_8 ZTRINGV_NUM(4) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsposp.f ------------------------------------------------------------------*/ /* #define gsposp_ELEMS_1 ZTRINGV_NUM(1) #define gsposp_ELEMLEN_1 ZTRINGV_NUM(4) #define gsposp_ELEMS_3 ZTRINGV_NUM(1) #define gsposp_ELEMLEN_3 ZTRINGV_NUM(4) #define gsposp_ELEMS_8 ZTRINGV_NUM(1) #define gsposp_ELEMLEN_8 ZTRINGV_NUM(4) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsrotm.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsscan.f ------------------------------------------------------------------*/ #define GSSCAN(A1,A2) CCALLSFSUB2(GSSCAN,gsscan,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsstak.f ------------------------------------------------------------------*/ #define GSSTAK(A1) CCALLSFSUB1(GSSTAK,gsstak,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gstmed.f ------------------------------------------------------------------*/ /* #define gstmed_ELEMS_2 ZTRINGV_NUM(1) #define gstmed_ELEMLEN_2 ZTRINGV_NUM(255) */ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gstpar.f ------------------------------------------------------------------*/ /* #define gstpar_ELEMS_2 ZTRINGV_NUM(1) #define gstpar_ELEMLEN_2 ZTRINGV_NUM(255) */ #define GSTPAR(A1,A2,A3) CCALLSFSUB3(GSTPAR,gstpar,INT,STRING,FLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gstrac.f ------------------------------------------------------------------*/ #define GSTRAC() CCALLSFSUB0(GSTRAC,gstrac) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsunea.f ------------------------------------------------------------------*/ /* #define gsunea_ELEMS_1 ZTRINGV_NUM(1) #define gsunea_ELEMLEN_1 ZTRINGV_NUM(4) */ #define GSUNEA(A1,A2) CCALLSFSUB2(GSUNEA,gsunea,STRING,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsvert.f ------------------------------------------------------------------*/ #define GSVERT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSVERT,gsvert,FLOATV,INT,INT,FLOATV,INT,PINT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsvolu.f ------------------------------------------------------------------*/ /* #define gsvolu_ELEMS_1 ZTRINGV_NUM(1) #define gsvolu_ELEMLEN_1 ZTRINGV_NUM(4) #define gsvolu_ELEMS_2 ZTRINGV_NUM(1) #define gsvolu_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GSVOLU(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSVOLU,gsvolu,STRING,STRING,INT,FLOATV,INT,PINT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gsxyz.f ------------------------------------------------------------------*/ #define GSXYZ() CCALLSFSUB0(GSXYZ,gsxyz) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gtau.f ------------------------------------------------------------------*/ #define GTAU() CCALLSFSUB0(GTAU,gtau) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gtelec.f ------------------------------------------------------------------*/ #define GTELEC() CCALLSFSUB0(GTELEC,gtelec) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gtgama.f ------------------------------------------------------------------*/ #define GTGAMA() CCALLSFSUB0(GTGAMA,gtgama) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gthadr.f ------------------------------------------------------------------*/ #define GTHADR() CCALLSFSUB0(GTHADR,gthadr) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gtmedi.f ------------------------------------------------------------------*/ #define GTMEDI(A1,A2) CCALLSFSUB2(GTMEDI,gtmedi,FLOATV,PINT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gtmuon.f ------------------------------------------------------------------*/ #define GTMUON() CCALLSFSUB0(GTMUON,gtmuon) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gtneut.f ------------------------------------------------------------------*/ #define GTNEUT() CCALLSFSUB0(GTNEUT,gtneut) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gtnext.f ------------------------------------------------------------------*/ #define GTNEXT() CCALLSFSUB0(GTNEXT,gtnext) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gtnino.f ------------------------------------------------------------------*/ #define GTNINO() CCALLSFSUB0(GTNINO,gtnino) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gtrack.f ------------------------------------------------------------------*/ #define GTRACK() CCALLSFSUB0(GTRACK,gtrack) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gtrain.f ------------------------------------------------------------------*/ #define GTRAIN(A1,A2) CCALLSFSUB2(GTRAIN,gtrain,FLOATV,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gtreve.f ------------------------------------------------------------------*/ #define GTREVE() CCALLSFSUB0(GTREVE,gtreve) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gtrig.f ------------------------------------------------------------------*/ #define GTRIG() CCALLSFSUB0(GTRIG,gtrig) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gtrigc.f ------------------------------------------------------------------*/ #define GTRIGC() CCALLSFSUB0(GTRIGC,gtrigc) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gtrigi.f ------------------------------------------------------------------*/ #define GTRIGI() CCALLSFSUB0(GTRIGI,gtrigi) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gtrmul.f ------------------------------------------------------------------*/ #define GTRMUL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GTRMUL,gtrmul,FLOATV,FLOATV,FLOATV,INT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gtrnsf.f ------------------------------------------------------------------*/ #define GTRNSF(A1,A2,A3,A4) CCALLSFSUB4(GTRNSF,gtrnsf,FLOATV,FLOATV,FLOATV,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gudcay.f ------------------------------------------------------------------*/ #define GUDCAY() CCALLSFSUB0(GUDCAY,gudcay) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gudigi.f ------------------------------------------------------------------*/ #define GUDIGI() CCALLSFSUB0(GUDIGI,gudigi) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gudtim.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN4(FLOAT,GUDTIM,gudtim,FLOAT,FLOAT,INT,FLOAT) #define GUDTIM(A2,A3,A4,A5) CCALLSFFUN4(GUDTIM,gudtim,FLOAT,FLOAT,INT,FLOAT,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gufld.f ------------------------------------------------------------------*/ #define GUFLD(A1,A2) CCALLSFSUB2(GUFLD,gufld,FLOATV,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/guhadr.f ------------------------------------------------------------------*/ #define GUHADR() CCALLSFSUB0(GUHADR,guhadr) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/guiget.f ------------------------------------------------------------------*/ #define GUIGET(A1,A2,A3) CCALLSFSUB3(GUIGET,guiget,INT,INT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/guinme.f ------------------------------------------------------------------*/ #define GUINME(A1,A2,A3,A4) CCALLSFSUB4(GUINME,guinme,FLOATV,FLOAT,FLOATV,PINT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/guinti.f ------------------------------------------------------------------*/ #define GUINTI() CCALLSFSUB0(GUINTI,guinti) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gukine.f ------------------------------------------------------------------*/ #define GUKINE() CCALLSFSUB0(GUKINE,gukine) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gunear.f ------------------------------------------------------------------*/ #define GUNEAR(A1,A2,A3,A4) CCALLSFSUB4(GUNEAR,gunear,INT,INT,FLOATV,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gunliv.f ------------------------------------------------------------------*/ #define GUNLIV(A1,A2,A3) CCALLSFSUB3(GUNLIV,gunliv,INT,INT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/guout.f ------------------------------------------------------------------*/ #define GUOUT() CCALLSFSUB0(GUOUT,guout) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gupara.f ------------------------------------------------------------------*/ #define GUPARA() CCALLSFSUB0(GUPARA,gupara) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/guphad.f ------------------------------------------------------------------*/ #define GUPHAD() CCALLSFSUB0(GUPHAD,guphad) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/guskip.f ------------------------------------------------------------------*/ #define GUSKIP(A1) CCALLSFSUB1(GUSKIP,guskip,PINT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gustep.f ------------------------------------------------------------------*/ #define GUSTEP() CCALLSFSUB0(GUSTEP,gustep) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/guswim.f ------------------------------------------------------------------*/ #define GUSWIM(A1,A2,A3,A4) CCALLSFSUB4(GUSWIM,guswim,FLOAT,FLOAT,FLOATV,FLOATV,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gutrak.f ------------------------------------------------------------------*/ #define GUTRAK() CCALLSFSUB0(GUTRAK,gutrak) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gutrev.f ------------------------------------------------------------------*/ #define GUTREV() CCALLSFSUB0(GUTREV,gutrev) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/guview.f ------------------------------------------------------------------*/ /* #define guview_ELEMS_3 ZTRINGV_NUM(1) #define guview_ELEMLEN_3 ZTRINGV_NUM(255) */ #define GUVIEW(A1,A2,A3,A4) CCALLSFSUB4(GUVIEW,guview,INT,INT,STRING,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gvaviv.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(FLOAT,GVAVIV,gvaviv,FLOAT,FLOAT,FLOAT) #define GVAVIV(A2,A3,A4) CCALLSFFUN3(GVAVIV,gvaviv,FLOAT,FLOAT,FLOAT,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gviewf.f ------------------------------------------------------------------*/ #define GVIEWF(A1,A2,A3) CCALLSFSUB3(GVIEWF,gviewf,FLOATV,FLOATV,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gwork.f ------------------------------------------------------------------*/ #define GWORK(A1) CCALLSFSUB1(GWORK,gwork,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gxsi.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,GXSI,gxsi,FLOAT) #define GXSI(A2) CCALLSFFUN1(GXSI,gxsi,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gzebra.f ------------------------------------------------------------------*/ #define GZEBRA(A1) CCALLSFSUB1(GZEBRA,gzebra,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/gzinit.f ------------------------------------------------------------------*/ #define GZINIT() CCALLSFSUB0(GZINIT,gzinit) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/hadden.f ------------------------------------------------------------------*/ #define HADDEN() CCALLSFSUB0(HADDEN,hadden) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/hadevv.f ------------------------------------------------------------------*/ #define HADEVV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(HADEVV,hadevv,PINT,INT,INT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/hadrin.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/hadriv.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/hevhin.f ------------------------------------------------------------------*/ #define HEVHIN(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(HEVHIN,hevhin,PINT,INT,INT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/hinhev.f ------------------------------------------------------------------*/ #define HINHEV(A1,A2,A3,A4) CCALLSFSUB4(HINHEV,hinhev,INT,DOUBLE,DOUBLE,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/hklass.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/hypero.f ------------------------------------------------------------------*/ #define HYPERO(A1,A2,A3,A4) CCALLSFSUB4(HYPERO,hypero,PINT,PINT,PDOUBLE,PDOUBLE,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/iefun.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(INT,IEFUN,iefun,DOUBLE,INT) #define IEFUN(A2,A3) CCALLSFFUN2(IEFUN,iefun,DOUBLE,INT,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/incini.f ------------------------------------------------------------------*/ #define INCINI() CCALLSFSUB0(INCINI,incini) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/index2.f ------------------------------------------------------------------*/ #define INDEX2(A1,A2,A3) CCALLSFSUB3(INDEX2,index2,INT,INT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/kinpar.f ------------------------------------------------------------------*/ #define KINPAR(A1,A2,A3) CCALLSFSUB3(KINPAR,kinpar,DOUBLEV,DOUBLEV,DOUBLE,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/kmabs.f ------------------------------------------------------------------*/ #define KMABS(A1) CCALLSFSUB1(KMABS,kmabs,PINT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/kpois.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(INT,KPOIS,kpois,DOUBLE) #define KPOIS(A2) CCALLSFFUN1(KPOIS,kpois,DOUBLE,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/limdat.f ------------------------------------------------------------------*/ #define LIMDAT() CCALLSFSUB0(LIMDAT,limdat) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/lortra.f ------------------------------------------------------------------*/ #define LORTRA(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(LORTRA,lortra,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/minv.f ------------------------------------------------------------------*/ #define MINV(A1,A2,A3,A4,A5) CCALLSFSUB5(MINV,minv,PFLOAT,INT,PFLOAT,PINT,PINT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/nbanh.f ------------------------------------------------------------------*/ #define NBANH(A1) CCALLSFSUB1(NBANH,nbanh,PINT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/nfac.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(INT,NFAC,nfac,INT) #define NFAC(A2) CCALLSFFUN1(NFAC,nfac,INT,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/nizl.f ------------------------------------------------------------------*/ #define NIZL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(NIZL,nizl,INT,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/normal.f ------------------------------------------------------------------*/ #define NORMAL(A1) CCALLSFSUB1(NORMAL,normal,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/nucevv.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/nucrec.f ------------------------------------------------------------------*/ #define NUCREC(A1,A2) CCALLSFSUB2(NUCREC,nucrec,PINT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/nucrel.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/nucriv.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/nudisv.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN5(INT,NUDISV,nudisv,DOUBLE,INT,DOUBLE,PDOUBLE,PDOUBLE) #define NUDISV(A2,A3,A4,A5,A6) CCALLSFFUN5(NUDISV,nudisv,DOUBLE,INT,DOUBLE,PDOUBLE,PDOUBLE,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/nuprel.f ------------------------------------------------------------------*/ #define NUPREL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(NUPREL,nuprel,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/parjet.f ------------------------------------------------------------------*/ #define PARJET(A1,A2) CCALLSFSUB2(PARJET,parjet,PINT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/pbanh.f ------------------------------------------------------------------*/ #define PBANH(A1) CCALLSFSUB1(PBANH,pbanh,PINT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/pcsdat.f ------------------------------------------------------------------*/ #define PCSDAT(A1,A2,A3) CCALLSFSUB3(PCSDAT,pcsdat,INT,INT,LOGICAL,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/phasp.f ------------------------------------------------------------------*/ #define PHASP() CCALLSFSUB0(PHASP,phasp) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/phpnuc.f ------------------------------------------------------------------*/ #define PHPNUC() CCALLSFSUB0(PHPNUC,phpnuc) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/pimabs.f ------------------------------------------------------------------*/ #define PIMABS(A1) CCALLSFSUB1(PIMABS,pimabs,PINT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/plot.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/plotdt.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/pmltpc.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN6(FLOAT,PMLTPC,pmltpc,INT,INT,INT,INT,FLOAT,FLOAT) #define PMLTPC(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(PMLTPC,pmltpc,INT,INT,INT,INT,FLOAT,FLOAT,A2,A3,A4,A5,A6,A7) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/pmprab.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/poisso.f ------------------------------------------------------------------*/ #define POISSO(A1,A2) CCALLSFSUB2(POISSO,poisso,FLOAT,PINT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/qnrg.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN4(DOUBLE,QNRG,qnrg,DOUBLE,DOUBLE,DOUBLE,DOUBLE) #define QNRG(A2,A3,A4,A5) CCALLSFFUN4(QNRG,qnrg,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/raco.f ------------------------------------------------------------------*/ #define RACO(A1,A2,A3) CCALLSFSUB3(RACO,raco,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/rakeka.f ------------------------------------------------------------------*/ #define RAKEKA(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(RAKEKA,rakeka,INT,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/rakekv.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ranres.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,RANRES,ranres,FLOAT) #define RANRES(A2) CCALLSFFUN1(RANRES,ranres,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/rbkekv.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/rchanv.f ------------------------------------------------------------------*/ #define RCHANV() CCALLSFSUB0(RCHANV,rchanv) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/rchanw.f ------------------------------------------------------------------*/ #define RCHANW() CCALLSFSUB0(RCHANW,rchanw) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/rotes2.f ------------------------------------------------------------------*/ #define ROTES2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(ROTES2,rotes2,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,INT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/rtmi.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/samcst.f ------------------------------------------------------------------*/ #define SAMCST(A1,A2,A3) CCALLSFSUB3(SAMCST,samcst,INT,DOUBLE,PDOUBLE,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/selfab.f ------------------------------------------------------------------*/ #define SELFAB(A1) CCALLSFSUB1(SELFAB,selfab,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/setcur.f ------------------------------------------------------------------*/ #define SETCUR(A1) CCALLSFSUB1(SETCUR,setcur,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/settrk.f ------------------------------------------------------------------*/ #define SETTRK(A1) CCALLSFSUB1(SETTRK,settrk,INT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/sfecfe.f ------------------------------------------------------------------*/ #define SFECFE(A1,A2) CCALLSFSUB2(SFECFE,sfecfe,DOUBLE,DOUBLE,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/shptot.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(DOUBLE,SHPTOT,shptot,INT,DOUBLE) #define SHPTOT(A2,A3) CCALLSFFUN2(SHPTOT,shptot,INT,DOUBLE,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/sigel.f ------------------------------------------------------------------*/ #define SIGEL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(SIGEL,sigel,INT,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/sihael.f ------------------------------------------------------------------*/ #define SIHAEL(A1,A2,A3,A4,A5) CCALLSFSUB5(SIHAEL,sihael,INT,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/steep.f ------------------------------------------------------------------*/ #define STEEP(A1) CCALLSFSUB1(STEEP,steep,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/steeq.f ------------------------------------------------------------------*/ #define STEEQ(A1,A2) CCALLSFSUB2(STEEQ,steeq,PFLOAT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/steer.f ------------------------------------------------------------------*/ #define STEER(A1) CCALLSFSUB1(STEER,steer,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/stees.f ------------------------------------------------------------------*/ #define STEES(A1,A2) CCALLSFSUB2(STEES,stees,PFLOAT,FLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/stpair.f ------------------------------------------------------------------*/ #define STPAIR() CCALLSFSUB0(STPAIR,stpair) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/tchoic.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/tdelay.f ------------------------------------------------------------------*/ #define TDELAY(A1) CCALLSFSUB1(TDELAY,tdelay,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/threpd.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/trafo.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/trans.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/ttrans.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/twob.f ------------------------------------------------------------------*/ #define TWOB(A1,A2,A3) CCALLSFSUB3(TWOB,twob,INT,INT,FLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/twoclu.f ------------------------------------------------------------------*/ #define TWOCLU(A1,A2,A3) CCALLSFSUB3(TWOCLU,twoclu,INT,INT,FLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/twopad.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/twopar.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/vecsub.f ------------------------------------------------------------------*/ #define ADD(A1,A2,A3) CCALLSFSUB3(ADD,add,INT,INT,INT,A1,A2,A3) #define SUB(A1,A2,A3) CCALLSFSUB3(SUB,sub,INT,INT,INT,A1,A2,A3) #define LOR(A1,A2,A3) CCALLSFSUB3(LOR,lor,INT,INT,INT,A1,A2,A3) #define LENGTX(A1,A2) CCALLSFSUB2(LENGTX,lengtx,INT,PFLOAT,A1,A2) #define ANG(A1,A2,A3,A4) CCALLSFSUB4(ANG,ang,INT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4) #define DEFS(A1,A2,A3) CCALLSFSUB3(DEFS,defs,INT,INT,INT,A1,A2,A3) #define TRAC(A1,A2,A3) CCALLSFSUB3(TRAC,trac,INT,INT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/verein.f ------------------------------------------------------------------*/ #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) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/xlamb.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(DOUBLE,XLAMB,xlamb,DOUBLE,DOUBLE,DOUBLE) #define XLAMB(A2,A3,A4) CCALLSFFUN3(XLAMB,xlamb,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : /cern/new/src/cfs/geant315/zeregs.f ------------------------------------------------------------------*/ #define ZEREGS() CCALLSFSUB0(ZEREGS,zeregs)