/*------------------------------------------------------------------ fortran filename : 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 : 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 : 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 : 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 : 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 : amga.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(DOUBLE,AMGA,amga,INT) #define AMGA(A2) CCALLSFFUN1(AMGA,amga,INT,A2) /*------------------------------------------------------------------ fortran filename : angcdf.f ------------------------------------------------------------------*/ #define ANGCDF(A1,A2,A3) CCALLSFSUB3(ANGCDF,angcdf,PFLOAT,INTV,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : atomas.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(FLOAT,ATOMAS,atomas,FLOAT,FLOAT) #define ATOMAS(A2,A3) CCALLSFFUN2(ATOMAS,atomas,FLOAT,FLOAT,A2,A3) /*------------------------------------------------------------------ fortran filename : azirn.f ------------------------------------------------------------------*/ #define AZIRN(A1,A2) CCALLSFSUB2(AZIRN,azirn,PFLOAT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : 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 : bankr.f ------------------------------------------------------------------*/ #define BANKR(A1,A2,A3) CCALLSFSUB3(BANKR,bankr,FLOATV,INTV,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : barier.f ------------------------------------------------------------------*/ #define BARIER(A1,A2,A3,A4,A5) CCALLSFSUB5(BARIER,barier,INT,INT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : beexi.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(DOUBLE,BEEXI,beexi,INT,DOUBLE,DOUBLE) #define BEEXI(A2,A3,A4) CCALLSFFUN3(BEEXI,beexi,INT,DOUBLE,DOUBLE,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : 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 : berttp.f ------------------------------------------------------------------*/ #define BERTTP() CCALLSFSUB0(BERTTP,berttp) /*------------------------------------------------------------------ fortran filename : 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 : betarn.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(DOUBLE,BETARN,betarn,DOUBLE,DOUBLE) #define BETARN(A2,A3) CCALLSFFUN2(BETARN,betarn,DOUBLE,DOUBLE,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : bimsel.f ------------------------------------------------------------------*/ #define BIMSEL(A1,A2,A3,A4,A5) CCALLSFSUB5(BIMSEL,bimsel,INT,DOUBLE,DOUBLE,DOUBLE,LOGICAL,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : 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 : bklass.f ------------------------------------------------------------------*/ #define BKLASS(A1,A2,A3,A4,A5) CCALLSFSUB5(BKLASS,bklass,INT,INT,INT,PINT,PINT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : 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 : cadig.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,CADIG,cadig,FLOAT) #define CADIG(A2) CCALLSFFUN1(CADIG,cadig,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : calumo.f ------------------------------------------------------------------*/ #define CALUMO(A1,A2) CCALLSFSUB2(CALUMO,calumo,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : calumv.f ------------------------------------------------------------------*/ #define CALUMV(A1,A2) CCALLSFSUB2(CALUMV,calumv,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : cangle.f ------------------------------------------------------------------*/ #define CANGLE(A1,A2,A3,A4,A5) CCALLSFSUB5(CANGLE,cangle,FLOATV,INTV,FLOAT,PFLOAT,INT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : captur.f ------------------------------------------------------------------*/ #define CAPTUR(A1) CCALLSFSUB1(CAPTUR,captur,PINT,A1) /*------------------------------------------------------------------ fortran filename : casal0.f ------------------------------------------------------------------*/ #define CASAL0(A1,A2,A3) CCALLSFSUB3(CASAL0,casal0,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : casaom.f ------------------------------------------------------------------*/ #define CASAOM(A1,A2,A3) CCALLSFSUB3(CASAOM,casaom,INT,INT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : casasm.f ------------------------------------------------------------------*/ #define CASASM(A1,A2,A3) CCALLSFSUB3(CASASM,casasm,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : casasp.f ------------------------------------------------------------------*/ #define CASASP(A1,A2,A3) CCALLSFSUB3(CASASP,casasp,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : casax0.f ------------------------------------------------------------------*/ #define CASAX0(A1,A2,A3) CCALLSFSUB3(CASAX0,casax0,INT,INT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : casaxm.f ------------------------------------------------------------------*/ #define CASAXM(A1,A2,A3) CCALLSFSUB3(CASAXM,casaxm,INT,INT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : casfrg.f ------------------------------------------------------------------*/ #define CASFRG(A1,A2,A3) CCALLSFSUB3(CASFRG,casfrg,PINT,INT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : cask0.f ------------------------------------------------------------------*/ #define CASK0(A1,A2,A3) CCALLSFSUB3(CASK0,cask0,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : cask0b.f ------------------------------------------------------------------*/ #define CASK0B(A1,A2,A3) CCALLSFSUB3(CASK0B,cask0b,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : caskm.f ------------------------------------------------------------------*/ #define CASKM(A1,A2,A3) CCALLSFSUB3(CASKM,caskm,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : caskp.f ------------------------------------------------------------------*/ #define CASKP(A1,A2,A3) CCALLSFSUB3(CASKP,caskp,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : casl0.f ------------------------------------------------------------------*/ #define CASL0(A1,A2,A3) CCALLSFSUB3(CASL0,casl0,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : casn.f ------------------------------------------------------------------*/ #define CASN(A1,A2,A3) CCALLSFSUB3(CASN,casn,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : casnb.f ------------------------------------------------------------------*/ #define CASNB(A1,A2,A3) CCALLSFSUB3(CASNB,casnb,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : casom.f ------------------------------------------------------------------*/ #define CASOM(A1,A2,A3) CCALLSFSUB3(CASOM,casom,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : casp.f ------------------------------------------------------------------*/ #define CASP(A1,A2,A3) CCALLSFSUB3(CASP,casp,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : caspb.f ------------------------------------------------------------------*/ #define CASPB(A1,A2,A3) CCALLSFSUB3(CASPB,caspb,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : caspim.f ------------------------------------------------------------------*/ #define CASPIM(A1,A2,A3) CCALLSFSUB3(CASPIM,caspim,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : caspip.f ------------------------------------------------------------------*/ #define CASPIP(A1,A2,A3) CCALLSFSUB3(CASPIP,caspip,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : cassm.f ------------------------------------------------------------------*/ #define CASSM(A1,A2,A3) CCALLSFSUB3(CASSM,cassm,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : cassp.f ------------------------------------------------------------------*/ #define CASSP(A1,A2,A3) CCALLSFSUB3(CASSP,cassp,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : casx0.f ------------------------------------------------------------------*/ #define CASX0(A1,A2,A3) CCALLSFSUB3(CASX0,casx0,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : casxm.f ------------------------------------------------------------------*/ #define CASXM(A1,A2,A3) CCALLSFSUB3(CASXM,casxm,INT,PINT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : cevap.f ------------------------------------------------------------------*/ #define CEVAP(A1,A2,A3,A4,A5) CCALLSFSUB5(CEVAP,cevap,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : cevap1.f ------------------------------------------------------------------*/ #define CEVAP1(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CEVAP1,cevap1,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : cgaffi.f ------------------------------------------------------------------*/ #define CGAFFI(A1,A2) CCALLSFSUB2(CGAFFI,cgaffi,PFLOAT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : cgbfit.f ------------------------------------------------------------------*/ #define CGBFIT(A1,A2,A3) CCALLSFSUB3(CGBFIT,cgbfit,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : cgbint.f ------------------------------------------------------------------*/ #define CGBINT(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBINT,cgbint,FLOATV,FLOATV,INT,PFLOAT,PINT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : cgbmmt.f ------------------------------------------------------------------*/ #define CGBMMT(A1,A2,A3) CCALLSFSUB3(CGBMMT,cgbmmt,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : cgbox.f ------------------------------------------------------------------*/ #define CGBOX(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBOX,cgbox,PFLOAT,INT,INT,INT,PFLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : cgbrik.f ------------------------------------------------------------------*/ #define CGBRIK(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBRIK,cgbrik,FLOAT,FLOAT,FLOAT,INT,PFLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : cgbsea.f ------------------------------------------------------------------*/ #define CGBSEA(A1,A2,A3,A4) CCALLSFSUB4(CGBSEA,cgbsea,FLOATV,FLOATV,PINT,PINT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : 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 : cgbsor.f ------------------------------------------------------------------*/ #define CGBSOR(A1,A2) CCALLSFSUB2(CGBSOR,cgbsor,PINT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : 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 : cgbtef.f ------------------------------------------------------------------*/ #define CGBTEF(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBTEF,cgbtef,INT,INT,FLOATV,FLOATV,PFLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : cgbtfp.f ------------------------------------------------------------------*/ #define CGBTFP(A1,A2,A3) CCALLSFSUB3(CGBTFP,cgbtfp,FLOATV,FLOATV,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : cgcev.f ------------------------------------------------------------------*/ #define CGCEV(A1,A2) CCALLSFSUB2(CGCEV,cgcev,INT,FLOATV,A1,A2) /*------------------------------------------------------------------ fortran filename : cgcopy.f ------------------------------------------------------------------*/ #define CGCOPY(A1,A2,A3) CCALLSFSUB3(CGCOPY,cgcopy,FLOATV,INT,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : cgfac2.f ------------------------------------------------------------------*/ #define CGFAC2(A1,A2,A3,A4) CCALLSFSUB4(CGFAC2,cgfac2,PFLOAT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : cgfaco.f ------------------------------------------------------------------*/ #define CGFACO(A1,A2,A3,A4,A5) CCALLSFSUB5(CGFACO,cgfaco,PFLOAT,PFLOAT,INT,INT,FLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : cgfare.f ------------------------------------------------------------------*/ #define CGFARE(A1,A2,A3,A4) CCALLSFSUB4(CGFARE,cgfare,INT,FLOATV,PINT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : cgfvis.f ------------------------------------------------------------------*/ #define CGFVIS(A1,A2,A3,A4) CCALLSFSUB4(CGFVIS,cgfvis,INT,FLOATV,PINT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : 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 : cghdfa.f ------------------------------------------------------------------*/ #define CGHDFA(A1,A2,A3,A4,A5) CCALLSFSUB5(CGHDFA,cghdfa,INT,PFLOAT,INTV,INTV,PFLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : cghend.f ------------------------------------------------------------------*/ #define CGHEND(A1,A2,A3) CCALLSFSUB3(CGHEND,cghend,PFLOAT,PINT,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : cgheva.f ------------------------------------------------------------------*/ #define CGHEVA(A1,A2) CCALLSFSUB2(CGHEVA,cgheva,FLOATV,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : cghins.f ------------------------------------------------------------------*/ #define CGHINS(A1,A2,A3) CCALLSFSUB3(CGHINS,cghins,FLOATV,PFLOAT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : cghpla.f ------------------------------------------------------------------*/ #define CGHPLA(A1,A2,A3) CCALLSFSUB3(CGHPLA,cghpla,INTV,PFLOAT,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : 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 : cghsiz.f ------------------------------------------------------------------*/ #define CGHSIZ(A1,A2,A3,A4,A5) CCALLSFSUB5(CGHSIZ,cghsiz,FLOATV,INT,PINT,PINT,INT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : 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 : cginve.f ------------------------------------------------------------------*/ #define CGINVE(A1) CCALLSFSUB1(CGINVE,cginve,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : cgmnmx.f ------------------------------------------------------------------*/ #define CGMNMX(A1,A2,A3) CCALLSFSUB3(CGMNMX,cgmnmx,FLOATV,PFLOAT,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : cgpers.f ------------------------------------------------------------------*/ #define CGPERS(A1) CCALLSFSUB1(CGPERS,cgpers,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : cgrifl.f ------------------------------------------------------------------*/ #define CGRIFL(A1,A2) CCALLSFSUB2(CGRIFL,cgrifl,PFLOAT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : cgsaan.f ------------------------------------------------------------------*/ #define CGSAAN(A1,A2,A3,A4,A5) CCALLSFSUB5(CGSAAN,cgsaan,FLOAT,FLOAT,INT,INT,PINT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : cgscop.f ------------------------------------------------------------------*/ #define CGSCOP(A1,A2,A3,A4) CCALLSFSUB4(CGSCOP,cgscop,INT,FLOATV,PFLOAT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : cgshel.f ------------------------------------------------------------------*/ #define CGSHEL(A1,A2,A3,A4) CCALLSFSUB4(CGSHEL,cgshel,FLOAT,FLOAT,PINT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : cgshif.f ------------------------------------------------------------------*/ #define CGSHIF(A1,A2,A3,A4) CCALLSFSUB4(CGSHIF,cgshif,FLOAT,FLOAT,FLOAT,FLOATV,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : 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 : cgslic.f ------------------------------------------------------------------*/ #define CGSLIC(A1,A2,A3,A4) CCALLSFSUB4(CGSLIC,cgslic,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : cgsnor.f ------------------------------------------------------------------*/ #define CGSNOR(A1) CCALLSFSUB1(CGSNOR,cgsnor,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : cgsphe.f ------------------------------------------------------------------*/ #define CGSPHE(A1,A2,A3,A4,A5) CCALLSFSUB5(CGSPHE,cgsphe,FLOAT,INT,INT,INT,FLOATV,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : cgsub.f ------------------------------------------------------------------*/ #define CGSUB(A1,A2,A3,A4) CCALLSFSUB4(CGSUB,cgsub,FLOATV,FLOATV,INT,FLOATV,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : cgtset.f ------------------------------------------------------------------*/ #define CGTSET(A1,A2,A3) CCALLSFSUB3(CGTSET,cgtset,INT,PFLOAT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : cgtstr.f ------------------------------------------------------------------*/ #define CGTSTR(A1,A2) CCALLSFSUB2(CGTSTR,cgtstr,FLOATV,PINT,A1,A2) /*------------------------------------------------------------------ fortran filename : cgvedg.f ------------------------------------------------------------------*/ #define CGVEDG(A1,A2,A3,A4) CCALLSFSUB4(CGVEDG,cgvedg,INT,FLOATV,FLOATV,PINT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : 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 : cgvtef.f ------------------------------------------------------------------*/ #define CGVTEF(A1,A2,A3) CCALLSFSUB3(CGVTEF,cgvtef,INTV,PFLOAT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : cgvtin.f ------------------------------------------------------------------*/ #define CGVTIN(A1,A2,A3) CCALLSFSUB3(CGVTIN,cgvtin,FLOAT,FLOAT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : cgwsor.f ------------------------------------------------------------------*/ #define CGWSOR(A1,A2) CCALLSFSUB2(CGWSOR,cgwsor,PINT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : cgzre.f ------------------------------------------------------------------*/ #define CGZRE(A1,A2,A3) CCALLSFSUB3(CGZRE,cgzre,INT,PFLOAT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : chanwt.f ------------------------------------------------------------------*/ #define CHANWT() CCALLSFSUB0(CHANWT,chanwt) /*------------------------------------------------------------------ fortran filename : chkzeb.f ------------------------------------------------------------------*/ #define CHKZEB(A1,A2) CCALLSFSUB2(CHKZEB,chkzeb,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : cinema.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,CINEMA,cinema,FLOAT) #define CINEMA(A2) CCALLSFFUN1(CINEMA,cinema,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : clear.f ------------------------------------------------------------------*/ #define CLEAR(A1,A2,A3) CCALLSFSUB3(CLEAR,clear,PINT,INT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : cmlabe.f ------------------------------------------------------------------*/ #define CMLABE(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(CMLABE,cmlabe,FLOATV,INTV,FLOAT,INT,INT,PFLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8) /*------------------------------------------------------------------ fortran filename : cmlabi.f ------------------------------------------------------------------*/ #define CMLABI(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(CMLABI,cmlabi,FLOATV,INTV,FLOAT,INT,INT,PFLOAT,FLOAT,PINT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) /*------------------------------------------------------------------ fortran filename : cohert.f ------------------------------------------------------------------*/ #define COHERT(A1,A2,A3) CCALLSFSUB3(COHERT,cohert,INT,INT,FLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : colisn.f ------------------------------------------------------------------*/ #define COLISN(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,A30,A31,A32,A33,A34,A35,A36,A37,A38,A39,A40,A41,A42,A43,A44,A45,A46,A47,A48) CCALLSFSUB48(COLISN,colisn,FLOATV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,PINT,PINT,INTV,INTV,PINT,PINT,FLOATV,PFLOAT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,INTV,PINT,PFLOAT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,A30,A31,A32,A33,A34,A35,A36,A37,A38,A39,A40,A41,A42,A43,A44,A45,A46,A47,A48) /*------------------------------------------------------------------ fortran filename : compo.f ------------------------------------------------------------------*/ #define COMPO() CCALLSFSUB0(COMPO,compo) /*------------------------------------------------------------------ fortran filename : coranh.f ------------------------------------------------------------------*/ #define CORANH(A1,A2) CCALLSFSUB2(CORANH,coranh,PINT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : corevt.f ------------------------------------------------------------------*/ #define COREVT(A1,A2,A3,A4,A5) CCALLSFSUB5(COREVT,corevt,DOUBLE,DOUBLE,INT,DOUBLE,DOUBLE,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : corrin.f ------------------------------------------------------------------*/ #define CORRIN(A1,A2,A3,A4,A5) CCALLSFSUB5(CORRIN,corrin,DOUBLE,DOUBLE,INT,DOUBLE,DOUBLE,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : coscat.f ------------------------------------------------------------------*/ #define COSCAT() CCALLSFSUB0(COSCAT,coscat) /*------------------------------------------------------------------ fortran filename : cosleg.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(DOUBLE,COSLEG,cosleg,PDOUBLE) #define COSLEG(A2) CCALLSFFUN1(COSLEG,cosleg,PDOUBLE,A2) /*------------------------------------------------------------------ fortran filename : cterp.f ------------------------------------------------------------------*/ #define CTERP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CTERP,cterp,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : datar3.f ------------------------------------------------------------------*/ #define DATAR3() CCALLSFSUB0(DATAR3,datar3) /*------------------------------------------------------------------ fortran filename : decaux.f ------------------------------------------------------------------*/ #define DECAUX(A1,A2) CCALLSFSUB2(DECAUX,decaux,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : defs1.f ------------------------------------------------------------------*/ #define DEFS1(A1,A2,A3) CCALLSFSUB3(DEFS1,defs1,INT,INT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : dlpnuc.f ------------------------------------------------------------------*/ #define DLPNUC(A1,A2) CCALLSFSUB2(DLPNUC,dlpnuc,PDOUBLE,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : dlpsor.f ------------------------------------------------------------------*/ #define DLPSOR(A1,A2) CCALLSFSUB2(DLPSOR,dlpsor,PDOUBLE,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : dost.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(DOUBLE,DOST,dost,INT,DOUBLE) #define DOST(A2,A3) CCALLSFFUN2(DOST,dost,INT,DOUBLE,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : 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 : 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 : 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 : 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 : eexlvl.f ------------------------------------------------------------------*/ #define EEXLVL(A1,A2,A3,A4,A5) CCALLSFSUB5(EEXLVL,eexlvl,INT,INT,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : 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 : 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 : enrg.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(DOUBLE,ENRG,enrg,DOUBLE,DOUBLE) #define ENRG(A2,A3) CCALLSFFUN2(ENRG,enrg,DOUBLE,DOUBLE,A2,A3) /*------------------------------------------------------------------ fortran filename : evaplr.f ------------------------------------------------------------------*/ #define EVAPLR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(EVAPLR,evaplr,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : evdeex.f ------------------------------------------------------------------*/ #define EVDEEX(A1) CCALLSFSUB1(EVDEEX,evdeex,DOUBLE,A1) /*------------------------------------------------------------------ fortran filename : 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 : evevap.f ------------------------------------------------------------------*/ #define EVEVAP(A1) CCALLSFSUB1(EVEVAP,evevap,DOUBLE,A1) /*------------------------------------------------------------------ fortran filename : 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 : exnu.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,EXNU,exnu,FLOAT) #define EXNU(A2) CCALLSFFUN1(EXNU,exnu,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : exprnf.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,EXPRNF,exprnf,FLOAT) #define EXPRNF(A2) CCALLSFFUN1(EXPRNF,exprnf,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : fctcos.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,FCTCOS,fctcos,FLOAT) #define FCTCOS(A2) CCALLSFFUN1(FCTCOS,fctcos,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : fdevap.f ------------------------------------------------------------------*/ #define FDEVAP() CCALLSFSUB0(FDEVAP,fdevap) /*------------------------------------------------------------------ fortran filename : fdnopt.f ------------------------------------------------------------------*/ #define FDNOPT() CCALLSFSUB0(FDNOPT,fdnopt) /*------------------------------------------------------------------ fortran filename : fdpree.f ------------------------------------------------------------------*/ #define FDPREE() CCALLSFSUB0(FDPREE,fdpree) /*------------------------------------------------------------------ fortran filename : fekfnc.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(DOUBLE,FEKFNC,fekfnc,DOUBLE,INT) #define FEKFNC(A2,A3) CCALLSFFUN2(FEKFNC,fekfnc,DOUBLE,INT,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : 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 : fermi.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,FERMI,fermi,FLOAT) #define FERMI(A2) CCALLSFFUN1(FERMI,fermi,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : fisfra.f ------------------------------------------------------------------*/ #define FISFRA(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(FISFRA,fisfra,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7) /*------------------------------------------------------------------ fortran filename : fisrnf.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(FLOAT,FISRNF,fisrnf,FLOAT,FLOAT) #define FISRNF(A2,A3) CCALLSFFUN2(FISRNF,fisrnf,FLOAT,FLOAT,A2,A3) /*------------------------------------------------------------------ fortran filename : fissio.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,FISSIO,fissio,FLOAT) #define FISSIO(A2) CCALLSFFUN1(FISSIO,fissio,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : fkdeca.f ------------------------------------------------------------------*/ #define FKDECA(A1,A2) CCALLSFSUB2(FKDECA,fkdeca,PINT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : fkdres.f ------------------------------------------------------------------*/ #define FKDRES(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(FKDRES,fkdres,INT,INT,DOUBLE,PDOUBLE,PDOUBLE,PLOGICAL,INT,A1,A2,A3,A4,A5,A6,A7) /*------------------------------------------------------------------ fortran filename : fkener.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(DOUBLE,FKENER,fkener,DOUBLE,DOUBLE) #define FKENER(A2,A3) CCALLSFFUN2(FKENER,fkener,DOUBLE,DOUBLE,A2,A3) /*------------------------------------------------------------------ fortran filename : fkerup.f ------------------------------------------------------------------*/ #define FKERUP(A1) CCALLSFSUB1(FKERUP,fkerup,INT,A1) /*------------------------------------------------------------------ fortran filename : 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 : 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 : 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 : 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 : fkzero.f ------------------------------------------------------------------*/ #define FKZERO() CCALLSFSUB0(FKZERO,fkzero) /*------------------------------------------------------------------ fortran filename : fldist.f ------------------------------------------------------------------*/ #define FLDIST() CCALLSFSUB0(FLDIST,fldist) /*------------------------------------------------------------------ fortran filename : flinit.f ------------------------------------------------------------------*/ #define FLINIT() CCALLSFSUB0(FLINIT,flinit) /*------------------------------------------------------------------ fortran filename : flkdt1.f ------------------------------------------------------------------*/ #define FLKDT1() CCALLSFSUB0(FLKDT1,flkdt1) /*------------------------------------------------------------------ fortran filename : flkdt2.f ------------------------------------------------------------------*/ #define FLKDT2() CCALLSFSUB0(FLKDT2,flkdt2) /*------------------------------------------------------------------ fortran filename : flkdt3.f ------------------------------------------------------------------*/ #define FLKDT3() CCALLSFSUB0(FLKDT3,flkdt3) /*------------------------------------------------------------------ fortran filename : flkdt4.f ------------------------------------------------------------------*/ #define FLKDT4() CCALLSFSUB0(FLKDT4,flkdt4) /*------------------------------------------------------------------ fortran filename : flkdt5.f ------------------------------------------------------------------*/ #define FLKDT5() CCALLSFSUB0(FLKDT5,flkdt5) /*------------------------------------------------------------------ fortran filename : flkdt6.f ------------------------------------------------------------------*/ #define FLKDT6() CCALLSFSUB0(FLKDT6,flkdt6) /*------------------------------------------------------------------ fortran filename : flkdt7.f ------------------------------------------------------------------*/ #define FLKDT7() CCALLSFSUB0(FLKDT7,flkdt7) /*------------------------------------------------------------------ fortran filename : fltrnf.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,FLTRNF,fltrnf,INT) #define FLTRNF(A2) CCALLSFFUN1(FLTRNF,fltrnf,INT,A2) /*------------------------------------------------------------------ fortran filename : flufin.f ------------------------------------------------------------------*/ #define FLUFIN() CCALLSFSUB0(FLUFIN,flufin) /*------------------------------------------------------------------ fortran filename : fpfrnc.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(DOUBLE,FPFRNC,fpfrnc,DOUBLE,INT) #define FPFRNC(A2,A3) CCALLSFFUN2(FPFRNC,fpfrnc,DOUBLE,INT,A2,A3) /*------------------------------------------------------------------ fortran filename : fpower.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(DOUBLE,FPOWER,fpower,INT,INT,DOUBLE) #define FPOWER(A2,A3,A4) CCALLSFFUN3(FPOWER,fpower,INT,INT,DOUBLE,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : fprob.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(DOUBLE,FPROB,fprob,DOUBLE,DOUBLE,DOUBLE) #define FPROB(A2,A3,A4) CCALLSFFUN3(FPROB,fprob,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : fradnc.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(DOUBLE,FRADNC,fradnc,DOUBLE) #define FRADNC(A2) CCALLSFFUN1(FRADNC,fradnc,DOUBLE,A2) /*------------------------------------------------------------------ fortran filename : frhinc.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(DOUBLE,FRHINC,frhinc,DOUBLE) #define FRHINC(A2) CCALLSFFUN1(FRHINC,frhinc,DOUBLE,A2) /*------------------------------------------------------------------ fortran filename : frhonc.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(DOUBLE,FRHONC,frhonc,DOUBLE) #define FRHONC(A2) CCALLSFFUN1(FRHONC,frhonc,DOUBLE,A2) /*------------------------------------------------------------------ fortran filename : gamrn.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(DOUBLE,GAMRN,gamrn,DOUBLE,DOUBLE) #define GAMRN(A2,A3) CCALLSFFUN2(GAMRN,gamrn,DOUBLE,DOUBLE,A2,A3) /*------------------------------------------------------------------ fortran filename : ganni.f ------------------------------------------------------------------*/ #define GANNI() CCALLSFSUB0(GANNI,ganni) /*------------------------------------------------------------------ fortran filename : ganni2.f ------------------------------------------------------------------*/ #define GANNI2() CCALLSFSUB0(GANNI2,ganni2) /*------------------------------------------------------------------ fortran filename : gannii.f ------------------------------------------------------------------*/ #define GANNII() CCALLSFSUB0(GANNII,gannii) /*------------------------------------------------------------------ fortran filename : gannir.f ------------------------------------------------------------------*/ #define GANNIR() CCALLSFSUB0(GANNIR,gannir) /*------------------------------------------------------------------ fortran filename : garndm.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,GARNDM,garndm,FLOAT) #define GARNDM(A2) CCALLSFFUN1(GARNDM,garndm,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : gavrl2.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(FLOAT,GAVRL2,gavrl2,FLOAT,FLOAT,FLOAT) #define GAVRL2(A2,A3,A4) CCALLSFFUN3(GAVRL2,gavrl2,FLOAT,FLOAT,FLOAT,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gavrl3.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(FLOAT,GAVRL3,gavrl3,FLOAT,FLOAT,FLOAT) #define GAVRL3(A2,A3,A4) CCALLSFFUN3(GAVRL3,gavrl3,FLOAT,FLOAT,FLOAT,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gbflos.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(FLOAT,GBFLOS,gbflos,FLOAT,FLOAT) #define GBFLOS(A2,A3) CCALLSFFUN2(GBFLOS,gbflos,FLOAT,FLOAT,A2,A3) /*------------------------------------------------------------------ fortran filename : gbfsig.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(FLOAT,GBFSIG,gbfsig,FLOAT,FLOAT) #define GBFSIG(A2,A3) CCALLSFFUN2(GBFSIG,gbfsig,FLOAT,FLOAT,A2,A3) /*------------------------------------------------------------------ fortran filename : gbhsta.f ------------------------------------------------------------------*/ #define GBHSTA() CCALLSFSUB0(GBHSTA,gbhsta) /*------------------------------------------------------------------ fortran filename : gbirk.f ------------------------------------------------------------------*/ #define GBIRK(A1) CCALLSFSUB1(GBIRK,gbirk,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : gboset.f ------------------------------------------------------------------*/ #define GBOSET(A1) CCALLSFSUB1(GBOSET,gboset,FLOATV,A1) /*------------------------------------------------------------------ fortran filename : gbrela.f ------------------------------------------------------------------*/ #define GBRELA() CCALLSFSUB0(GBRELA,gbrela) /*------------------------------------------------------------------ fortran filename : 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 : 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 : gbreme.f ------------------------------------------------------------------*/ #define GBREME() CCALLSFSUB0(GBREME,gbreme) /*------------------------------------------------------------------ fortran filename : gbremm.f ------------------------------------------------------------------*/ #define GBREMM() CCALLSFSUB0(GBREMM,gbremm) /*------------------------------------------------------------------ fortran filename : gbrsga.f ------------------------------------------------------------------*/ #define GBRSGA() CCALLSFSUB0(GBRSGA,gbrsga) /*------------------------------------------------------------------ fortran filename : 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 : 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 : gbstat.f ------------------------------------------------------------------*/ #define GBSTAT() CCALLSFSUB0(GBSTAT,gbstat) /*------------------------------------------------------------------ fortran filename : gbteth.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(FLOAT,GBTETH,gbteth,FLOAT,FLOAT,FLOAT) #define GBTETH(A2,A3,A4) CCALLSFFUN3(GBTETH,gbteth,FLOAT,FLOAT,FLOAT,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gcbrem.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,GCBREM,gcbrem,FLOAT) #define GCBREM(A2) CCALLSFFUN1(GCBREM,gcbrem,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : gcderr.f ------------------------------------------------------------------*/ #define GCDERR(A1,A2,A3) CCALLSFSUB3(GCDERR,gcderr,PINT,FLOAT,FLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : gcent.f ------------------------------------------------------------------*/ #define GCENT(A1,A2) CCALLSFSUB2(GCENT,gcent,INT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : gchnwk.f ------------------------------------------------------------------*/ #define GCHNWK() CCALLSFSUB0(GCHNWK,gchnwk) /*------------------------------------------------------------------ fortran filename : gckmat.f ------------------------------------------------------------------*/ /* #define gckmat_ELEMS_2 ZTRINGV_NUM(1) #define gckmat_ELEMLEN_2 ZTRINGV_NUM(20) */ #define GCKMAT(A1,A2) CCALLSFSUB2(GCKMAT,gckmat,INT,STRING,A1,A2) /*------------------------------------------------------------------ fortran filename : gckpar.f ------------------------------------------------------------------*/ #define GCKPAR(A1,A2,A3) CCALLSFSUB3(GCKPAR,gckpar,INT,PINT,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gclose.f ------------------------------------------------------------------*/ #define GCLOSE(A1,A2) CCALLSFSUB2(GCLOSE,gclose,INT,PINT,A1,A2) /*------------------------------------------------------------------ fortran filename : gcmwpc.f ------------------------------------------------------------------*/ #define GCMWPC(A1,A2,A3) CCALLSFSUB3(GCMWPC,gcmwpc,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gcoeff.f ------------------------------------------------------------------*/ #define GCOEFF() CCALLSFSUB0(GCOEFF,gcoeff) /*------------------------------------------------------------------ fortran filename : gcomp.f ------------------------------------------------------------------*/ #define GCOMP() CCALLSFSUB0(GCOMP,gcomp) /*------------------------------------------------------------------ fortran filename : gcompi.f ------------------------------------------------------------------*/ #define GCOMPI() CCALLSFSUB0(GCOMPI,gcompi) /*------------------------------------------------------------------ fortran filename : gcoset.f ------------------------------------------------------------------*/ #define GCOSET(A1,A2) CCALLSFSUB2(GCOSET,gcoset,FLOATV,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : gctset.f ------------------------------------------------------------------*/ #define GCTSET(A1) CCALLSFSUB1(GCTSET,gctset,FLOATV,A1) /*------------------------------------------------------------------ fortran filename : gcubs.f ------------------------------------------------------------------*/ #define GCUBS(A1,A2,A3,A4,A5) CCALLSFSUB5(GCUBS,gcubs,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : gd16v.f ------------------------------------------------------------------*/ #define GD16V(A1,A2) CCALLSFSUB2(GD16V,gd16v,INT,INTV,A1,A2) /*------------------------------------------------------------------ fortran filename : gd3d3d.f ------------------------------------------------------------------*/ #define GD3D3D(A1,A2,A3,A4) CCALLSFSUB4(GD3D3D,gd3d3d,PFLOAT,INT,PFLOAT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gdahit.f ------------------------------------------------------------------*/ #define GDAHIT(A1,A2,A3,A4,A5) CCALLSFSUB5(GDAHIT,gdahit,FLOAT,FLOAT,FLOAT,INT,FLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : gdarc.f ------------------------------------------------------------------*/ #define GDARC(A1,A2,A3,A4) CCALLSFSUB4(GDARC,gdarc,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : 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 : gdaxis.f ------------------------------------------------------------------*/ #define GDAXIS(A1,A2,A3,A4) CCALLSFSUB4(GDAXIS,gdaxis,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gdbomb.f ------------------------------------------------------------------*/ #define GDBOMB(A1,A2) CCALLSFSUB2(GDBOMB,gdbomb,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : gdcgcl.f ------------------------------------------------------------------*/ #define GDCGCL(A1) CCALLSFSUB1(GDCGCL,gdcgcl,INT,A1) /*------------------------------------------------------------------ fortran filename : 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 : gdcger.f ------------------------------------------------------------------*/ #define GDCGER(A1) CCALLSFSUB1(GDCGER,gdcger,FLOAT,A1) /*------------------------------------------------------------------ fortran filename : 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 : 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 : gdcgpr.f ------------------------------------------------------------------*/ #define GDCGPR() CCALLSFSUB0(GDCGPR,gdcgpr) /*------------------------------------------------------------------ fortran filename : gdcgrs.f ------------------------------------------------------------------*/ #define GDCGRS() CCALLSFSUB0(GDCGRS,gdcgrs) /*------------------------------------------------------------------ fortran filename : gdcgsl.f ------------------------------------------------------------------*/ #define GDCGSL(A1,A2) CCALLSFSUB2(GDCGSL,gdcgsl,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : gdcgvw.f ------------------------------------------------------------------*/ #define GDCGVW(A1,A2) CCALLSFSUB2(GDCGVW,gdcgvw,FLOATV,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : gdcgwv.f ------------------------------------------------------------------*/ #define GDCGWV(A1) CCALLSFSUB1(GDCGWV,gdcgwv,INT,A1) /*------------------------------------------------------------------ fortran filename : 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 : gdcirc.f ------------------------------------------------------------------*/ #define GDCIRC(A1,A2) CCALLSFSUB2(GDCIRC,gdcirc,FLOAT,FLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : gdcirr.f ------------------------------------------------------------------*/ #define GDCIRR(A1,A2) CCALLSFSUB2(GDCIRR,gdcirr,FLOAT,FLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : gdciry.f ------------------------------------------------------------------*/ #define GDCIRY(A1,A2) CCALLSFSUB2(GDCIRY,gdciry,FLOAT,FLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : gdclos.f ------------------------------------------------------------------*/ #define GDCLOS() CCALLSFSUB0(GDCLOS,gdclos) /*------------------------------------------------------------------ fortran filename : gdcol.f ------------------------------------------------------------------*/ #define GDCOL(A1) CCALLSFSUB1(GDCOL,gdcol,INT,A1) /*------------------------------------------------------------------ fortran filename : gdcol1.f ------------------------------------------------------------------*/ #define GDCOL1(A1) CCALLSFSUB1(GDCOL1,gdcol1,INT,A1) /*------------------------------------------------------------------ fortran filename : gdcota.f ------------------------------------------------------------------*/ #define GDCOTA() CCALLSFSUB0(GDCOTA,gdcota) /*------------------------------------------------------------------ fortran filename : gdcurs.f ------------------------------------------------------------------*/ #define GDCURS(A1,A2,A3) CCALLSFSUB3(GDCURS,gdcurs,FLOAT,FLOAT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gdcut.f ------------------------------------------------------------------*/ #define GDCUT() CCALLSFSUB0(GDCUT,gdcut) /*------------------------------------------------------------------ fortran filename : gdcxyz.f ------------------------------------------------------------------*/ #define GDCXYZ() CCALLSFSUB0(GDCXYZ,gdcxyz) /*------------------------------------------------------------------ fortran filename : gdebug.f ------------------------------------------------------------------*/ #define GDEBUG() CCALLSFSUB0(GDEBUG,gdebug) /*------------------------------------------------------------------ fortran filename : gdeca2.f ------------------------------------------------------------------*/ #define GDECA2(A1,A2,A3,A4) CCALLSFSUB4(GDECA2,gdeca2,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gdeca3.f ------------------------------------------------------------------*/ #define GDECA3(A1,A2,A3,A4,A5) CCALLSFSUB5(GDECA3,gdeca3,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : gdecay.f ------------------------------------------------------------------*/ #define GDECAY() CCALLSFSUB0(GDECAY,gdecay) /*------------------------------------------------------------------ fortran filename : gdelet.f ------------------------------------------------------------------*/ #define GDELET(A1) CCALLSFSUB1(GDELET,gdelet,INT,A1) /*------------------------------------------------------------------ fortran filename : gdeltu.f ------------------------------------------------------------------*/ #define GDELTU(A1,A2,A3) CCALLSFSUB3(GDELTU,gdeltu,FLOAT,FLOAT,FLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gdexca.f ------------------------------------------------------------------*/ /* #define gdexca_ELEMS_1 ZTRINGV_NUM(1) #define gdexca_ELEMLEN_1 ZTRINGV_NUM(4) */ #define GDEXCA(A1,A2) CCALLSFSUB2(GDEXCA,gdexca,STRING,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : gdfr3d.f ------------------------------------------------------------------*/ #define GDFR3D(A1,A2,A3,A4) CCALLSFSUB4(GDFR3D,gdfr3d,PFLOAT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : 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 : 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 : 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 : gdinit.f ------------------------------------------------------------------*/ #define GDINIT() CCALLSFSUB0(GDINIT,gdinit) /*------------------------------------------------------------------ fortran filename : gdkine.f ------------------------------------------------------------------*/ #define GDKINE() CCALLSFSUB0(GDKINE,gdkine) /*------------------------------------------------------------------ fortran filename : 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 : 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 : gdline.f ------------------------------------------------------------------*/ #define GDLINE(A1,A2) CCALLSFSUB2(GDLINE,gdline,FLOATV,FLOATV,A1,A2) /*------------------------------------------------------------------ fortran filename : gdlumi.f ------------------------------------------------------------------*/ #define GDLUMI(A1,A2) CCALLSFSUB2(GDLUMI,gdlumi,PINT,FLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : gdlw.f ------------------------------------------------------------------*/ #define GDLW(A1) CCALLSFSUB1(GDLW,gdlw,INT,A1) /*------------------------------------------------------------------ fortran filename : gdlw1.f ------------------------------------------------------------------*/ #define GDLW1(A1) CCALLSFSUB1(GDLW1,gdlw1,INT,A1) /*------------------------------------------------------------------ fortran filename : gdman.f ------------------------------------------------------------------*/ #define GDMAN(A1,A2) CCALLSFSUB2(GDMAN,gdman,FLOAT,FLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : gdnino.f ------------------------------------------------------------------*/ #define GDNINO() CCALLSFSUB0(GDNINO,gdnino) /*------------------------------------------------------------------ fortran filename : 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 : gdopen.f ------------------------------------------------------------------*/ #define GDOPEN(A1) CCALLSFSUB1(GDOPEN,gdopen,INT,A1) /*------------------------------------------------------------------ fortran filename : 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 : gdpart.f ------------------------------------------------------------------*/ #define GDPART(A1,A2,A3) CCALLSFSUB3(GDPART,gdpart,INT,INT,FLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : 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 : 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 : gdrack.f ------------------------------------------------------------------*/ #define GDRACK() CCALLSFSUB0(GDRACK,gdrack) /*------------------------------------------------------------------ fortran filename : 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 : 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 : gdrawp.f ------------------------------------------------------------------*/ #define GDRAWP(A1,A2,A3) CCALLSFSUB3(GDRAWP,gdrawp,FLOATV,FLOATV,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gdraws.f ------------------------------------------------------------------*/ #define GDRAWS(A1,A2) CCALLSFSUB2(GDRAWS,gdraws,INT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : 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 : gdrawv.f ------------------------------------------------------------------*/ #define GDRAWV(A1,A2,A3) CCALLSFSUB3(GDRAWV,gdrawv,FLOATV,FLOATV,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : gdray.f ------------------------------------------------------------------*/ #define GDRAY() CCALLSFSUB0(GDRAY,gdray) /*------------------------------------------------------------------ fortran filename : gdrayt.f ------------------------------------------------------------------*/ /* #define gdrayt_ELEMS_1 ZTRINGV_NUM(1) #define gdrayt_ELEMLEN_1 ZTRINGV_NUM(4) */ #define GDRAYT(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GDRAYT,gdrayt,STRING,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8) /*------------------------------------------------------------------ fortran filename : gdrect.f ------------------------------------------------------------------*/ #define GDRECT(A1,A2,A3,A4) CCALLSFSUB4(GDRECT,gdrect,FLOATV,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gdrela.f ------------------------------------------------------------------*/ #define GDRELA() CCALLSFSUB0(GDRELA,gdrela) /*------------------------------------------------------------------ fortran filename : gdrele.f ------------------------------------------------------------------*/ #define GDRELE(A1,A2,A3,A4) CCALLSFSUB4(GDRELE,gdrele,FLOAT,FLOAT,INT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gdreli.f ------------------------------------------------------------------*/ #define GDRELI(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GDRELI,gdreli,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7) /*------------------------------------------------------------------ fortran filename : gdrelm.f ------------------------------------------------------------------*/ #define GDRELM(A1,A2,A3,A4,A5) CCALLSFSUB5(GDRELM,gdrelm,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : gdrelp.f ------------------------------------------------------------------*/ #define GDRELP(A1,A2,A3,A4,A5) CCALLSFSUB5(GDRELP,gdrelp,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : gdrelx.f ------------------------------------------------------------------*/ #define GDRELX(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GDRELX,gdrelx,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : gdrmat.f ------------------------------------------------------------------*/ /* #define gdrmat_ELEMS_3 ZTRINGV_NUM(ZTRINGV_ARGS(4)) #define gdrmat_ELEMLEN_3 ZTRINGV_NUM(4) */ #define GDRMAT(A1,A2,A3,A4) CCALLSFSUB4(GDRMAT,gdrmat,INT,INT,STRINGV,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gdrot.f ------------------------------------------------------------------*/ #define GDROT(A1,A2,A3,A4,A5) CCALLSFSUB5(GDROT,gdrot,PFLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : gdrprt.f ------------------------------------------------------------------*/ #define GDRPRT(A1,A2,A3,A4) CCALLSFSUB4(GDRPRT,gdrprt,INT,INT,FLOAT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gdrsga.f ------------------------------------------------------------------*/ #define GDRSGA() CCALLSFSUB0(GDRSGA,gdrsga) /*------------------------------------------------------------------ fortran filename : 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 : gdrwsc.f ------------------------------------------------------------------*/ #define GDRWSC(A1,A2) CCALLSFSUB2(GDRWSC,gdrwsc,INT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : gdsarc.f ------------------------------------------------------------------*/ #define GDSARC(A1,A2,A3,A4,A5) CCALLSFSUB5(GDSARC,gdsarc,FLOAT,FLOAT,FLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : gdscal.f ------------------------------------------------------------------*/ #define GDSCAL(A1,A2) CCALLSFSUB2(GDSCAL,gdscal,FLOAT,FLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : gdshad.f ------------------------------------------------------------------*/ #define GDSHAD(A1,A2) CCALLSFSUB2(GDSHAD,gdshad,PINT,FLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : gdshif.f ------------------------------------------------------------------*/ #define GDSHIF(A1,A2) CCALLSFSUB2(GDSHIF,gdshif,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : gdshow.f ------------------------------------------------------------------*/ #define GDSHOW(A1) CCALLSFSUB1(GDSHOW,gdshow,INT,A1) /*------------------------------------------------------------------ fortran filename : 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 : 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 : gdssur.f ------------------------------------------------------------------*/ #define GDSSUR(A1,A2,A3,A4) CCALLSFSUB4(GDSSUR,gdssur,FLOATV,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gdstep.f ------------------------------------------------------------------*/ #define GDSTEP() CCALLSFSUB0(GDSTEP,gdstep) /*------------------------------------------------------------------ fortran filename : gdsurf.f ------------------------------------------------------------------*/ #define GDSURF(A1) CCALLSFSUB1(GDSURF,gdsurf,INT,A1) /*------------------------------------------------------------------ fortran filename : gdthrz.f ------------------------------------------------------------------*/ #define GDTHRZ(A1) CCALLSFSUB1(GDTHRZ,gdthrz,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : gdtom.f ------------------------------------------------------------------*/ #define GDTOM(A1,A2,A3) CCALLSFSUB3(GDTOM,gdtom,FLOATV,PFLOAT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gdtr0.f ------------------------------------------------------------------*/ #define GDTR0(A1,A2,A3,A4) CCALLSFSUB4(GDTR0,gdtr0,INT,INT,INT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gdtr1.f ------------------------------------------------------------------*/ #define GDTR1(A1,A2,A3,A4) CCALLSFSUB4(GDTR1,gdtr1,INT,INT,PINT,PINT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gdtr10.f ------------------------------------------------------------------*/ #define GDTR10(A1) CCALLSFSUB1(GDTR10,gdtr10,INT,A1) /*------------------------------------------------------------------ fortran filename : gdtr11.f ------------------------------------------------------------------*/ #define GDTR11(A1,A2,A3) CCALLSFSUB3(GDTR11,gdtr11,PINT,PINT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gdtr12.f ------------------------------------------------------------------*/ #define GDTR12(A1) CCALLSFSUB1(GDTR12,gdtr12,INT,A1) /*------------------------------------------------------------------ fortran filename : gdtr2.f ------------------------------------------------------------------*/ #define GDTR2(A1,A2,A3,A4) CCALLSFSUB4(GDTR2,gdtr2,INT,PINT,INT,PINT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gdtr3.f ------------------------------------------------------------------*/ #define GDTR3(A1) CCALLSFSUB1(GDTR3,gdtr3,INT,A1) /*------------------------------------------------------------------ fortran filename : gdtr4.f ------------------------------------------------------------------*/ #define GDTR4() CCALLSFSUB0(GDTR4,gdtr4) /*------------------------------------------------------------------ fortran filename : gdtr5.f ------------------------------------------------------------------*/ #define GDTR5(A1) CCALLSFSUB1(GDTR5,gdtr5,INT,A1) /*------------------------------------------------------------------ fortran filename : gdtr6.f ------------------------------------------------------------------*/ #define GDTR6(A1) CCALLSFSUB1(GDTR6,gdtr6,PINT,A1) /*------------------------------------------------------------------ fortran filename : 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 : gdtr99.f ------------------------------------------------------------------*/ #define GDTR99(A1) CCALLSFSUB1(GDTR99,gdtr99,INT,A1) /*------------------------------------------------------------------ fortran filename : 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 : 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 : gdwmn1.f ------------------------------------------------------------------*/ #define GDWMN1(A1,A2) CCALLSFSUB2(GDWMN1,gdwmn1,FLOAT,FLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : gdwmn2.f ------------------------------------------------------------------*/ #define GDWMN2(A1,A2) CCALLSFSUB2(GDWMN2,gdwmn2,FLOAT,FLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : gdwmn3.f ------------------------------------------------------------------*/ #define GDWMN3(A1,A2) CCALLSFSUB2(GDWMN3,gdwmn3,FLOAT,FLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : gdxyz.f ------------------------------------------------------------------*/ #define GDXYZ(A1) CCALLSFSUB1(GDXYZ,gdxyz,INT,A1) /*------------------------------------------------------------------ fortran filename : 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 : 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 : 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 : geditv.f ------------------------------------------------------------------*/ #define GEDITV(A1) CCALLSFSUB1(GEDITV,geditv,INT,A1) /*------------------------------------------------------------------ fortran filename : gefch2.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(FLOAT,GEFCH2,gefch2,FLOAT,FLOAT,FLOAT) #define GEFCH2(A2,A3,A4) CCALLSFFUN3(GEFCH2,gefch2,FLOAT,FLOAT,FLOAT,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gekbin.f ------------------------------------------------------------------*/ #define GEKBIN() CCALLSFSUB0(GEKBIN,gekbin) /*------------------------------------------------------------------ fortran filename : gelset.f ------------------------------------------------------------------*/ #define GELSET(A1) CCALLSFSUB1(GELSET,gelset,FLOATV,A1) /*------------------------------------------------------------------ fortran filename : genset.f ------------------------------------------------------------------*/ #define GENSET() CCALLSFSUB0(GENSET,genset) /*------------------------------------------------------------------ fortran filename : genxpt.f ------------------------------------------------------------------*/ #define GENXPT(A1,A2,A3) CCALLSFSUB3(GENXPT,genxpt,INT,INT,FLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : geta.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN7(DOUBLE,GETA,geta,DOUBLE,INT,INT,INT,INT,PDOUBLE,PDOUBLE) #define GETA(A2,A3,A4,A5,A6,A7,A8) CCALLSFFUN7(GETA,geta,DOUBLE,INT,INT,INT,INT,PDOUBLE,PDOUBLE,A2,A3,A4,A5,A6,A7,A8) /*------------------------------------------------------------------ fortran filename : getene.f ------------------------------------------------------------------*/ #define GETENE(A1,A2,A3,A4) CCALLSFSUB4(GETENE,getene,FLOAT,FLOATV,INTV,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : getnu.f ------------------------------------------------------------------*/ #define GETNU(A1,A2,A3,A4,A5) CCALLSFSUB5(GETNU,getnu,FLOATV,INTV,FLOAT,INT,PFLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : getnum.f ------------------------------------------------------------------*/ #define GETNUM(A1,A2) CCALLSFSUB2(GETNUM,getnum,INTV,PINT,A1,A2) /*------------------------------------------------------------------ fortran filename : getpar.f ------------------------------------------------------------------*/ #define GETPAR(A1,A2,A3) CCALLSFSUB3(GETPAR,getpar,INT,INT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : getshp.f ------------------------------------------------------------------*/ #define GETSHP(A1,A2) CCALLSFSUB2(GETSHP,getshp,INT,FLOATV,A1,A2) /*------------------------------------------------------------------ fortran filename : 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 : 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 : gfang.f ------------------------------------------------------------------*/ #define GFANG(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFANG,gfang,FLOATV,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PLOGICAL,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : 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 : 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 : gfcoor.f ------------------------------------------------------------------*/ #define GFCOOR(A1,A2,A3) CCALLSFSUB3(GFCOOR,gfcoor,FLOATV,INT,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : gfcoul.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,GFCOUL,gfcoul,FLOAT) #define GFCOUL(A2) CCALLSFFUN1(GFCOUL,gfcoul,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : gfcvol.f ------------------------------------------------------------------*/ #define GFCVOL() CCALLSFSUB0(GFCVOL,gfcvol) /*------------------------------------------------------------------ fortran filename : 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 : 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 : 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 : 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 : 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 : 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 : gffgo.f ------------------------------------------------------------------*/ #define GFFGO() CCALLSFSUB0(GFFGO,gffgo) /*------------------------------------------------------------------ fortran filename : gfhead.f ------------------------------------------------------------------*/ #define GFHEAD(A1,A2,A3,A4) CCALLSFSUB4(GFHEAD,gfhead,PINT,PINT,PINT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : 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 : gfhsta.f ------------------------------------------------------------------*/ #define GFHSTA() CCALLSFSUB0(GFHSTA,gfhsta) /*------------------------------------------------------------------ fortran filename : gfin.f ------------------------------------------------------------------*/ /* #define gfin_ELEMS_2 ZTRINGV_NUM(#{58{4Ø#) #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 : gfind.f ------------------------------------------------------------------*/ /* #define gfind_ELEMS_1 ZTRINGV_NUM(1) #define gfind_ELEMLEN_1 ZTRINGV_NUM(4) #define gfind_ELEMS_2 ZTRINGV_NUM(1) #define gfind_ELEMLEN_2 ZTRINGV_NUM(4) */ #define GFIND(A1,A2,A3) CCALLSFSUB3(GFIND,gfind,STRING,STRING,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gfinds.f ------------------------------------------------------------------*/ #define GFINDS() CCALLSFSUB0(GFINDS,gfinds) /*------------------------------------------------------------------ fortran filename : 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 : 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 : 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 : 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 : 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 : 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 : gfluct.f ------------------------------------------------------------------*/ #define GFLUCT(A1,A2) CCALLSFSUB2(GFLUCT,gfluct,FLOAT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : 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 : gfmdis.f ------------------------------------------------------------------*/ #define GFMDIS() CCALLSFSUB0(GFMDIS,gfmdis) /*------------------------------------------------------------------ fortran filename : gfmfin.f ------------------------------------------------------------------*/ #define GFMFIN() CCALLSFSUB0(GFMFIN,gfmfin) /*------------------------------------------------------------------ fortran filename : 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 : 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 : 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 : gfnrdt.f ------------------------------------------------------------------*/ #define GFNRDT(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GFNRDT,gfnrdt,FLOAT,FLOATV,INT,PINT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7) /*------------------------------------------------------------------ fortran filename : gfout.f ------------------------------------------------------------------*/ /* #define gfout_ELEMS_2 ZTRINGV_NUM(#{5@{4à#) #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 : 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 : 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 : 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 : gfrdt.f ------------------------------------------------------------------*/ #define GFRDT(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GFRDT,gfrdt,FLOAT,FLOATV,INT,PINT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7) /*------------------------------------------------------------------ fortran filename : gfrung.f ------------------------------------------------------------------*/ #define GFRUNG(A1,A2,A3,A4) CCALLSFSUB4(GFRUNG,gfrung,PINT,PINT,PINT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gfsdpr.f ------------------------------------------------------------------*/ #define GFSDPR(A1,A2,A3) CCALLSFSUB3(GFSDPR,gfsdpr,FLOAT,INT,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gfshdc.f ------------------------------------------------------------------*/ #define GFSHDC(A1,A2) CCALLSFSUB2(GFSHDC,gfshdc,INT,FLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : gfshls.f ------------------------------------------------------------------*/ #define GFSHLS(A1,A2,A3) CCALLSFSUB3(GFSHLS,gfshls,FLOAT,PFLOAT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gfstat.f ------------------------------------------------------------------*/ #define GFSTAT(A1) CCALLSFSUB1(GFSTAT,gfstat,INT,A1) /*------------------------------------------------------------------ fortran filename : 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,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8) /*------------------------------------------------------------------ fortran filename : 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 : gftrac.f ------------------------------------------------------------------*/ #define GFTRAC() CCALLSFSUB0(GFTRAC,gftrac) /*------------------------------------------------------------------ fortran filename : 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 : 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 : gfvolu.f ------------------------------------------------------------------*/ /* #define gfvolu_ELEMS_2 ZTRINGV_NUM(1) #define gfvolu_ELEMLEN_2 ZTRINGV_NUM(4) #define gfvolu_ELEMS_3 ZTRINGV_NUM(1) #define gfvolu_ELEMLEN_3 ZTRINGV_NUM(4) */ #define GFVOLU(A1,A2,A3) CCALLSFSUB3(GFVOLU,gfvolu,INT,STRING,PSTRING,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : ggcave.f ------------------------------------------------------------------*/ #define GGCAVE() CCALLSFSUB0(GGCAVE,ggcave) /*------------------------------------------------------------------ fortran filename : ggckov.f ------------------------------------------------------------------*/ #define GGCKOV() CCALLSFSUB0(GGCKOV,ggckov) /*------------------------------------------------------------------ fortran filename : ggclos.f ------------------------------------------------------------------*/ #define GGCLOS() CCALLSFSUB0(GGCLOS,ggclos) /*------------------------------------------------------------------ fortran filename : ggdetv.f ------------------------------------------------------------------*/ #define GGDETV(A1,A2) CCALLSFSUB2(GGDETV,ggdetv,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : 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 : 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 : ggdvlp.f ------------------------------------------------------------------*/ #define GGDVLP() CCALLSFSUB0(GGDVLP,ggdvlp) /*------------------------------------------------------------------ fortran filename : 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 : ggnlev.f ------------------------------------------------------------------*/ #define GGNLEV() CCALLSFSUB0(GGNLEV,ggnlev) /*------------------------------------------------------------------ fortran filename : ggord.f ------------------------------------------------------------------*/ #define GGORD(A1) CCALLSFSUB1(GGORD,ggord,INT,A1) /*------------------------------------------------------------------ fortran filename : ggordq.f ------------------------------------------------------------------*/ #define GGORDQ(A1) CCALLSFSUB1(GGORDQ,ggordq,INT,A1) /*------------------------------------------------------------------ fortran filename : ggperp.f ------------------------------------------------------------------*/ #define GGPERP(A1,A2,A3) CCALLSFSUB3(GGPERP,ggperp,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : ggvchk.f ------------------------------------------------------------------*/ #define GGVCHK(A1,A2,A3,A4) CCALLSFSUB4(GGVCHK,ggvchk,INT,INT,PINT,PINT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : ghclos.f ------------------------------------------------------------------*/ #define GHCLOS() CCALLSFSUB0(GHCLOS,ghclos) /*------------------------------------------------------------------ fortran filename : gheini.f ------------------------------------------------------------------*/ #define GHEINI() CCALLSFSUB0(GHEINI,gheini) /*------------------------------------------------------------------ fortran filename : gheish.f ------------------------------------------------------------------*/ #define GHEISH() CCALLSFSUB0(GHEISH,gheish) /*------------------------------------------------------------------ fortran filename : ghelix.f ------------------------------------------------------------------*/ #define GHELIX(A1,A2,A3,A4) CCALLSFSUB4(GHELIX,ghelix,FLOAT,FLOAT,FLOATV,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : ghelx3.f ------------------------------------------------------------------*/ #define GHELX3(A1,A2,A3,A4) CCALLSFSUB4(GHELX3,ghelx3,FLOAT,FLOAT,FLOATV,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : ghepec.f ------------------------------------------------------------------*/ #define GHEPEC(A1) CCALLSFSUB1(GHEPEC,ghepec,INT,A1) /*------------------------------------------------------------------ fortran filename : 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 : ghetun.f ------------------------------------------------------------------*/ #define GHETUN(A1) CCALLSFSUB1(GHETUN,ghetun,PINT,A1) /*------------------------------------------------------------------ fortran filename : ghmix.f ------------------------------------------------------------------*/ #define GHMIX(A1,A2,A3,A4) CCALLSFSUB4(GHMIX,ghmix,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : 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 : 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 : ghstop.f ------------------------------------------------------------------*/ #define GHSTOP() CCALLSFSUB0(GHSTOP,ghstop) /*------------------------------------------------------------------ fortran filename : 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 : gidrop.f ------------------------------------------------------------------*/ #define GIDROP() CCALLSFSUB0(GIDROP,gidrop) /*------------------------------------------------------------------ fortran filename : ginctu.f ------------------------------------------------------------------*/ #define GINCTU(A1,A2,A3) CCALLSFSUB3(GINCTU,ginctu,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gingtr.f ------------------------------------------------------------------*/ #define GINGTR(A1,A2,A3) CCALLSFSUB3(GINGTR,gingtr,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : ginit.f ------------------------------------------------------------------*/ #define GINIT() CCALLSFSUB0(GINIT,ginit) /*------------------------------------------------------------------ fortran filename : ginme.f ------------------------------------------------------------------*/ #define GINME(A1,A2,A3,A4) CCALLSFSUB4(GINME,ginme,FLOATV,FLOAT,FLOATV,PINT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : ginpar.f ------------------------------------------------------------------*/ #define GINPAR(A1,A2,A3) CCALLSFSUB3(GINPAR,ginpar,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : ginpco.f ------------------------------------------------------------------*/ #define GINPCO(A1,A2,A3) CCALLSFSUB3(GINPCO,ginpco,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : ginpgo.f ------------------------------------------------------------------*/ #define GINPGO(A1,A2,A3) CCALLSFSUB3(GINPGO,ginpgo,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : ginrot.f ------------------------------------------------------------------*/ #define GINROT(A1,A2,A3) CCALLSFSUB3(GINROT,ginrot,FLOATV,FLOATV,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : gintri.f ------------------------------------------------------------------*/ #define GINTRI() CCALLSFSUB0(GINTRI,gintri) /*------------------------------------------------------------------ fortran filename : gintrp.f ------------------------------------------------------------------*/ #define GINTRP(A1,A2,A3) CCALLSFSUB3(GINTRP,gintrp,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : ginvol.f ------------------------------------------------------------------*/ #define GINVOL(A1,A2) CCALLSFSUB2(GINVOL,ginvol,FLOATV,PINT,A1,A2) /*------------------------------------------------------------------ fortran filename : 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 : gitran.f ------------------------------------------------------------------*/ #define GITRAN(A1,A2,A3,A4) CCALLSFSUB4(GITRAN,gitran,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gjwrit.f ------------------------------------------------------------------*/ #define GJWRIT() CCALLSFSUB0(GJWRIT,gjwrit) /*------------------------------------------------------------------ fortran filename : 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 : gkokri.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(FLOAT,GKOKRI,gkokri,FLOAT,FLOAT,FLOAT) #define GKOKRI(A2,A3,A4) CCALLSFFUN3(GKOKRI,gkokri,FLOAT,FLOAT,FLOAT,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gkxyz.f ------------------------------------------------------------------*/ #define GKXYZ(A1) CCALLSFSUB1(GKXYZ,gkxyz,FLOAT,A1) /*------------------------------------------------------------------ fortran filename : glande.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,GLANDE,glande,FLOAT) #define GLANDE(A2) CCALLSFFUN1(GLANDE,glande,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : glandg.f ------------------------------------------------------------------*/ #define GLANDG(A1) CCALLSFSUB1(GLANDG,glandg,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : 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 : glandr.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,GLANDR,glandr,FLOAT) #define GLANDR(A2) CCALLSFFUN1(GLANDR,glandr,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : glands.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,GLANDS,glands,FLOAT) #define GLANDS(A2) CCALLSFFUN1(GLANDS,glands,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : glandz.f ------------------------------------------------------------------*/ #define GLANDZ(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GLANDZ,glandz,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8) /*------------------------------------------------------------------ fortran filename : glast.f ------------------------------------------------------------------*/ #define GLAST() CCALLSFSUB0(GLAST,glast) /*------------------------------------------------------------------ fortran filename : glight.f ------------------------------------------------------------------*/ #define GLIGHT(A1,A2,A3,A4) CCALLSFSUB4(GLIGHT,glight,FLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : glisur.f ------------------------------------------------------------------*/ #define GLISUR(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GLISUR,glisur,FLOATV,FLOATV,INT,INT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4,A5,A6,A7) /*------------------------------------------------------------------ fortran filename : 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 : 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 : gloren.f ------------------------------------------------------------------*/ #define GLOREN(A1,A2,A3) CCALLSFSUB3(GLOREN,gloren,FLOATV,FLOATV,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : glsklt.f ------------------------------------------------------------------*/ #define GLSKLT() CCALLSFSUB0(GLSKLT,glsklt) /*------------------------------------------------------------------ fortran filename : gltrac.f ------------------------------------------------------------------*/ #define GLTRAC() CCALLSFSUB0(GLTRAC,gltrac) /*------------------------------------------------------------------ fortran filename : gludky.f ------------------------------------------------------------------*/ #define GLUDKY() CCALLSFSUB0(GLUDKY,gludky) /*------------------------------------------------------------------ fortran filename : glund.f ------------------------------------------------------------------*/ #define GLUND() CCALLSFSUB0(GLUND,glund) /*------------------------------------------------------------------ fortran filename : glundi.f ------------------------------------------------------------------*/ #define GLUNDI() CCALLSFSUB0(GLUNDI,glundi) /*------------------------------------------------------------------ fortran filename : glvolu.f ------------------------------------------------------------------*/ #define GLVOLU(A1,A2,A3,A4) CCALLSFSUB4(GLVOLU,glvolu,INT,INTV,INTV,PINT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gm3pol.f ------------------------------------------------------------------*/ #define GM3POL(A1,A2) CCALLSFSUB2(GM3POL,gm3pol,FLOAT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : gmail.f ------------------------------------------------------------------*/ #define GMAIL(A1,A2) CCALLSFSUB2(GMAIL,gmail,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : gmate.f ------------------------------------------------------------------*/ #define GMATE() CCALLSFSUB0(GMATE,gmate) /*------------------------------------------------------------------ fortran filename : gmclos.f ------------------------------------------------------------------*/ #define GMCLOS() CCALLSFSUB0(GMCLOS,gmclos) /*------------------------------------------------------------------ fortran filename : gmcoul.f ------------------------------------------------------------------*/ #define GMCOUL(A1,A2) CCALLSFSUB2(GMCOUL,gmcoul,FLOAT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : gmedia.f ------------------------------------------------------------------*/ #define GMEDIA(A1,A2) CCALLSFSUB2(GMEDIA,gmedia,FLOATV,PINT,A1,A2) /*------------------------------------------------------------------ fortran filename : gmedin.f ------------------------------------------------------------------*/ #define GMEDIN() CCALLSFSUB0(GMEDIN,gmedin) /*------------------------------------------------------------------ fortran filename : gmediv.f ------------------------------------------------------------------*/ #define GMEDIV(A1,A2,A3,A4) CCALLSFSUB4(GMEDIV,gmediv,INT,PINT,PFLOAT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gmepos.f ------------------------------------------------------------------*/ #define GMEPOS(A1,A2,A3,A4) CCALLSFSUB4(GMEPOS,gmepos,INT,INT,PFLOAT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gmgaus.f ------------------------------------------------------------------*/ #define GMGAUS(A1,A2) CCALLSFSUB2(GMGAUS,gmgaus,FLOAT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : gmicap.f ------------------------------------------------------------------*/ #define GMICAP() CCALLSFSUB0(GMICAP,gmicap) /*------------------------------------------------------------------ fortran filename : 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 : 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 : gmolie.f ------------------------------------------------------------------*/ #define GMOLIE(A1,A2,A3) CCALLSFSUB3(GMOLIE,gmolie,FLOAT,FLOAT,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : gmopen.f ------------------------------------------------------------------*/ #define GMOPEN(A1,A2,A3) CCALLSFSUB3(GMOPEN,gmopen,FLOAT,FLOAT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gmorin.f ------------------------------------------------------------------*/ #define GMORIN() CCALLSFSUB0(GMORIN,gmorin) /*------------------------------------------------------------------ fortran filename : gmplxs.f ------------------------------------------------------------------*/ #define GMPLXS(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,A30,A31,A32,A33,A34,A35,A36,A37,A38,A39,A40,A41,A42,A43,A44,A45,A46,A47,A48,A49,A50) CCALLSFSUB50(GMPLXS,gmplxs,FLOATV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,PINT,PINT,INTV,INTV,PINT,PINT,FLOATV,PFLOAT,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,PINT,PINT,INTV,PINT,PFLOAT,INT,INT,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,A30,A31,A32,A33,A34,A35,A36,A37,A38,A39,A40,A41,A42,A43,A44,A45,A46,A47,A48,A49,A50) /*------------------------------------------------------------------ fortran filename : gmtod.f ------------------------------------------------------------------*/ #define GMTOD(A1,A2,A3) CCALLSFSUB3(GMTOD,gmtod,FLOATV,PFLOAT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gmulof.f ------------------------------------------------------------------*/ #define GMULOF() CCALLSFSUB0(GMULOF,gmulof) /*------------------------------------------------------------------ fortran filename : gmults.f ------------------------------------------------------------------*/ #define GMULTS() CCALLSFSUB0(GMULTS,gmults) /*------------------------------------------------------------------ fortran filename : gmunu.f ------------------------------------------------------------------*/ #define GMUNU() CCALLSFSUB0(GMUNU,gmunu) /*------------------------------------------------------------------ fortran filename : gmunui.f ------------------------------------------------------------------*/ #define GMUNUI() CCALLSFSUB0(GMUNUI,gmunui) /*------------------------------------------------------------------ fortran filename : 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 : gmxsec.f ------------------------------------------------------------------*/ #define GMXSEC(A1,A2) CCALLSFSUB2(GMXSEC,gmxsec,INT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : 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 : gnckov.f ------------------------------------------------------------------*/ #define GNCKOV() CCALLSFSUB0(GNCKOV,gnckov) /*------------------------------------------------------------------ fortran filename : 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 : 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 : 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 : gnext.f ------------------------------------------------------------------*/ #define GNEXT(A1,A2,A3) CCALLSFSUB3(GNEXT,gnext,FLOATV,PFLOAT,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : 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 : 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 : 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 : 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 : 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 : 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 : 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 : gnopg1.f ------------------------------------------------------------------*/ #define GNOPG1(A1,A2,A3) CCALLSFSUB3(GNOPG1,gnopg1,FLOATV,FLOATV,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : 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 : gnotr1.f ------------------------------------------------------------------*/ #define GNOTR1(A1) CCALLSFSUB1(GNOTR1,gnotr1,FLOATV,A1) /*------------------------------------------------------------------ fortran filename : 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 : 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 : 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 : 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 : 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 : 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 : 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 : gnpgo1.f ------------------------------------------------------------------*/ #define GNPGO1(A1,A2,A3) CCALLSFSUB3(GNPGO1,gnpgo1,FLOATV,FLOATV,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : gnslwd.f ------------------------------------------------------------------*/ #define GNSLWD(A1,A2,A3,A4) CCALLSFSUB4(GNSLWD,gnslwd,PINT,INT,INT,FLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : 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 : 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 : 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 : 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 : 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 : goptim.f ------------------------------------------------------------------*/ #define GOPTIM(A1) CCALLSFSUB1(GOPTIM,goptim,INT,A1) /*------------------------------------------------------------------ fortran filename : goscin.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(FLOAT,GOSCIN,goscin,FLOAT,FLOAT) #define GOSCIN(A2,A3) CCALLSFFUN2(GOSCIN,goscin,FLOAT,FLOAT,A2,A3) /*------------------------------------------------------------------ fortran filename : gpairg.f ------------------------------------------------------------------*/ /*------------------------------------------------------------------ fortran filename : gpairm.f ------------------------------------------------------------------*/ #define GPAIRM() CCALLSFSUB0(GPAIRM,gpairm) /*------------------------------------------------------------------ fortran filename : gpart.f ------------------------------------------------------------------*/ #define GPART() CCALLSFSUB0(GPART,gpart) /*------------------------------------------------------------------ fortran filename : gpaset.f ------------------------------------------------------------------*/ #define GPASET(A1) CCALLSFSUB1(GPASET,gpaset,FLOATV,A1) /*------------------------------------------------------------------ fortran filename : gpaw.f ------------------------------------------------------------------*/ #define GPAW(A1,A2) CCALLSFSUB2(GPAW,gpaw,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : gpawpp.f ------------------------------------------------------------------*/ #define GPAWPP(A1,A2) CCALLSFSUB2(GPAWPP,gpawpp,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : gpcset.f ------------------------------------------------------------------*/ #define GPCSET(A1) CCALLSFSUB1(GPCSET,gpcset,FLOATV,A1) /*------------------------------------------------------------------ fortran filename : gpcxyz.f ------------------------------------------------------------------*/ #define GPCXYZ() CCALLSFSUB0(GPCXYZ,gpcxyz) /*------------------------------------------------------------------ fortran filename : 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 : 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 : gpdrif.f ------------------------------------------------------------------*/ #define GPDRIF(A1,A2,A3) CCALLSFSUB3(GPDRIF,gpdrif,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gpfis.f ------------------------------------------------------------------*/ #define GPFIS() CCALLSFSUB0(GPFIS,gpfis) /*------------------------------------------------------------------ fortran filename : gpfisi.f ------------------------------------------------------------------*/ #define GPFISI() CCALLSFSUB0(GPFISI,gpfisi) /*------------------------------------------------------------------ fortran filename : gpghei.f ------------------------------------------------------------------*/ #define GPGHEI() CCALLSFSUB0(GPGHEI,gpghei) /*------------------------------------------------------------------ fortran filename : gpgkin.f ------------------------------------------------------------------*/ #define GPGKIN() CCALLSFSUB0(GPGKIN,gpgkin) /*------------------------------------------------------------------ fortran filename : gpgset.f ------------------------------------------------------------------*/ #define GPGSET(A1) CCALLSFSUB1(GPGSET,gpgset,FLOATV,A1) /*------------------------------------------------------------------ fortran filename : gphak.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,GPHAK,gphak,FLOAT) #define GPHAK(A2) CCALLSFFUN1(GPHAK,gphak,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : gphal2.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,GPHAL2,gphal2,FLOAT) #define GPHAL2(A2) CCALLSFFUN1(GPHAL2,gphal2,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : gphal3.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,GPHAL3,gphal3,FLOAT) #define GPHAL3(A2) CCALLSFFUN1(GPHAL3,gphal3,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : gphead.f ------------------------------------------------------------------*/ #define GPHEAD() CCALLSFSUB0(GPHEAD,gphead) /*------------------------------------------------------------------ fortran filename : gphini.f ------------------------------------------------------------------*/ #define GPHINI() CCALLSFSUB0(GPHINI,gphini) /*------------------------------------------------------------------ fortran filename : 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 : gphmfi.f ------------------------------------------------------------------*/ #define GPHMFI() CCALLSFSUB0(GPHMFI,gphmfi) /*------------------------------------------------------------------ fortran filename : gphot.f ------------------------------------------------------------------*/ #define GPHOT() CCALLSFSUB0(GPHOT,gphot) /*------------------------------------------------------------------ fortran filename : gphoti.f ------------------------------------------------------------------*/ #define GPHOTI() CCALLSFSUB0(GPHOTI,gphoti) /*------------------------------------------------------------------ fortran filename : gphrin.f ------------------------------------------------------------------*/ #define GPHRIN() CCALLSFSUB0(GPHRIN,gphrin) /*------------------------------------------------------------------ fortran filename : gphsg1.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,GPHSG1,gphsg1,FLOAT) #define GPHSG1(A2) CCALLSFFUN1(GPHSG1,gphsg1,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : gphsg2.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,GPHSG2,gphsg2,FLOAT) #define GPHSG2(A2) CCALLSFFUN1(GPHSG2,gphsg2,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : gphsgp.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(FLOAT,GPHSGP,gphsgp,INT,FLOAT) #define GPHSGP(A2,A3) CCALLSFFUN2(GPHSGP,gphsgp,INT,FLOAT,A2,A3) /*------------------------------------------------------------------ fortran filename : gphsig.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(FLOAT,GPHSIG,gphsig,FLOAT,FLOAT) #define GPHSIG(A2,A3) CCALLSFFUN2(GPHSIG,gphsig,FLOAT,FLOAT,A2,A3) /*------------------------------------------------------------------ fortran filename : gphxin.f ------------------------------------------------------------------*/ #define GPHXIN() CCALLSFSUB0(GPHXIN,gphxin) /*------------------------------------------------------------------ fortran filename : gphxsi.f ------------------------------------------------------------------*/ #define GPHXSI() CCALLSFSUB0(GPHXSI,gphxsi) /*------------------------------------------------------------------ fortran filename : gphysi.f ------------------------------------------------------------------*/ #define GPHYSI() CCALLSFSUB0(GPHYSI,gphysi) /*------------------------------------------------------------------ fortran filename : gpions.f ------------------------------------------------------------------*/ #define GPIONS() CCALLSFSUB0(GPIONS,gpions) /*------------------------------------------------------------------ fortran filename : gpjxyz.f ------------------------------------------------------------------*/ #define GPJXYZ(A1) CCALLSFSUB1(GPJXYZ,gpjxyz,INT,A1) /*------------------------------------------------------------------ fortran filename : gpkine.f ------------------------------------------------------------------*/ #define GPKINE(A1) CCALLSFSUB1(GPKINE,gpkine,INT,A1) /*------------------------------------------------------------------ fortran filename : gpkinx.f ------------------------------------------------------------------*/ #define GPKINX(A1) CCALLSFSUB1(GPKINX,gpkinx,INT,A1) /*------------------------------------------------------------------ fortran filename : 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 : gpmate.f ------------------------------------------------------------------*/ #define GPMATE(A1) CCALLSFSUB1(GPMATE,gpmate,INT,A1) /*------------------------------------------------------------------ fortran filename : gpmatx.f ------------------------------------------------------------------*/ #define GPMATX(A1) CCALLSFSUB1(GPMATX,gpmatx,INT,A1) /*------------------------------------------------------------------ fortran filename : gpmwpc.f ------------------------------------------------------------------*/ #define GPMWPC(A1,A2,A3) CCALLSFSUB3(GPMWPC,gpmwpc,FLOATV,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gpoiss.f ------------------------------------------------------------------*/ #define GPOISS(A1,A2,A3) CCALLSFSUB3(GPOISS,gpoiss,FLOATV,PINT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gposi.f ------------------------------------------------------------------*/ /* #define gposi_ELEMS_3 ZTRINGV_NUM(1) #define gposi_ELEMLEN_3 ZTRINGV_NUM(10) */ #define GPOSI(A1,A2,A3,A4) CCALLSFSUB4(GPOSI,gposi,FLOATV,FLOATV,STRING,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gppart.f ------------------------------------------------------------------*/ #define GPPART(A1) CCALLSFSUB1(GPPART,gppart,INT,A1) /*------------------------------------------------------------------ fortran filename : gpparx.f ------------------------------------------------------------------*/ #define GPPARX(A1) CCALLSFSUB1(GPPARX,gpparx,INT,A1) /*------------------------------------------------------------------ fortran filename : gprela.f ------------------------------------------------------------------*/ #define GPRELA() CCALLSFSUB0(GPRELA,gprela) /*------------------------------------------------------------------ fortran filename : 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 : 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 : 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 : gprobi.f ------------------------------------------------------------------*/ #define GPROBI() CCALLSFSUB0(GPROBI,gprobi) /*------------------------------------------------------------------ fortran filename : gprotm.f ------------------------------------------------------------------*/ #define GPROTM(A1) CCALLSFSUB1(GPROTM,gprotm,INT,A1) /*------------------------------------------------------------------ fortran filename : gprotx.f ------------------------------------------------------------------*/ #define GPROTX(A1) CCALLSFSUB1(GPROTX,gprotx,INT,A1) /*------------------------------------------------------------------ fortran filename : gprsga.f ------------------------------------------------------------------*/ #define GPRSGA() CCALLSFSUB0(GPRSGA,gprsga) /*------------------------------------------------------------------ fortran filename : gprsgg.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(FLOAT,GPRSGG,gprsgg,FLOAT,FLOAT) #define GPRSGG(A2,A3) CCALLSFFUN2(GPRSGG,gprsgg,FLOAT,FLOAT,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : gprung.f ------------------------------------------------------------------*/ #define GPRUNG() CCALLSFSUB0(GPRUNG,gprung) /*------------------------------------------------------------------ fortran filename : gpscin.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN4(DOUBLE,GPSCIN,gpscin,DOUBLE,DOUBLE,DOUBLE,FLOATV) #define GPSCIN(A2,A3,A4,A5) CCALLSFFUN4(GPSCIN,gpscin,DOUBLE,DOUBLE,DOUBLE,FLOATV,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : 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 : gpstat.f ------------------------------------------------------------------*/ #define GPSTAT() CCALLSFSUB0(GPSTAT,gpstat) /*------------------------------------------------------------------ fortran filename : gptmed.f ------------------------------------------------------------------*/ #define GPTMED(A1) CCALLSFSUB1(GPTMED,gptmed,INT,A1) /*------------------------------------------------------------------ fortran filename : gptmex.f ------------------------------------------------------------------*/ #define GPTMEX(A1) CCALLSFSUB1(GPTMEX,gptmex,INT,A1) /*------------------------------------------------------------------ fortran filename : gptset.f ------------------------------------------------------------------*/ #define GPTSET(A1,A2) CCALLSFSUB2(GPTSET,gptset,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : gpvert.f ------------------------------------------------------------------*/ #define GPVERT(A1) CCALLSFSUB1(GPVERT,gpvert,INT,A1) /*------------------------------------------------------------------ fortran filename : gpvolu.f ------------------------------------------------------------------*/ #define GPVOLU(A1) CCALLSFSUB1(GPVOLU,gpvolu,INT,A1) /*------------------------------------------------------------------ fortran filename : gpvolx.f ------------------------------------------------------------------*/ #define GPVOLX(A1) CCALLSFSUB1(GPVOLX,gpvolx,INT,A1) /*------------------------------------------------------------------ fortran filename : grangi.f ------------------------------------------------------------------*/ #define GRANGI() CCALLSFSUB0(GRANGI,grangi) /*------------------------------------------------------------------ fortran filename : granor.f ------------------------------------------------------------------*/ #define GRANOR(A1,A2) CCALLSFSUB2(GRANOR,granor,PFLOAT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : grayl.f ------------------------------------------------------------------*/ #define GRAYL() CCALLSFSUB0(GRAYL,grayl) /*------------------------------------------------------------------ fortran filename : grayli.f ------------------------------------------------------------------*/ #define GRAYLI() CCALLSFSUB0(GRAYLI,grayli) /*------------------------------------------------------------------ fortran filename : grend.f ------------------------------------------------------------------*/ #define GREND(A1) CCALLSFSUB1(GREND,grend,INT,A1) /*------------------------------------------------------------------ fortran filename : greswk.f ------------------------------------------------------------------*/ #define GRESWK() CCALLSFSUB0(GRESWK,greswk) /*------------------------------------------------------------------ fortran filename : greucl.f ------------------------------------------------------------------*/ /* #define greucl_ELEMS_2 ZTRINGV_NUM(1) #define greucl_ELEMLEN_2 ZTRINGV_NUM(255) */ #define GREUCL(A1,A2) CCALLSFSUB2(GREUCL,greucl,INT,STRING,A1,A2) /*------------------------------------------------------------------ fortran filename : 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 : 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 : 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 : 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 : grkuta.f ------------------------------------------------------------------*/ #define GRKUTA(A1,A2,A3,A4) CCALLSFSUB4(GRKUTA,grkuta,FLOAT,FLOAT,FLOATV,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : grleas.f ------------------------------------------------------------------*/ #define GRLEAS(A1) CCALLSFSUB1(GRLEAS,grleas,INT,A1) /*------------------------------------------------------------------ fortran filename : 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 : grmtd.f ------------------------------------------------------------------*/ #define GRMTD(A1,A2,A3) CCALLSFSUB3(GRMTD,grmtd,FLOATV,INT,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : grmul.f ------------------------------------------------------------------*/ #define GRMUL(A1,A2,A3) CCALLSFSUB3(GRMUL,grmul,FLOATV,INT,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : grndm.f ------------------------------------------------------------------*/ #define GRNDM(A1,A2) CCALLSFSUB2(GRNDM,grndm,PFLOAT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : 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 : grndst.f ------------------------------------------------------------------*/ #define GRNDST(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(GRNDST,grndst,FLOATV,INTV,INT,INT,FLOAT,PFLOAT,FLOAT,PFLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) /*------------------------------------------------------------------ fortran filename : grot.f ------------------------------------------------------------------*/ #define GROT(A1,A2,A3) CCALLSFSUB3(GROT,grot,FLOATV,FLOATV,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : 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 : 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 : grun.f ------------------------------------------------------------------*/ #define GRUN() CCALLSFSUB0(GRUN,grun) /*------------------------------------------------------------------ fortran filename : gsagtr.f ------------------------------------------------------------------*/ #define GSAGTR(A1,A2,A3,A4) CCALLSFSUB4(GSAGTR,gsagtr,FLOATV,FLOATV,PFLOAT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : 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 : gsaphi.f ------------------------------------------------------------------*/ #define GSAPHI(A1,A2,A3,A4) CCALLSFSUB4(GSAPHI,gsaphi,FLOATV,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : 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 : 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 : gscani.f ------------------------------------------------------------------*/ #define GSCANI() CCALLSFSUB0(GSCANI,gscani) /*------------------------------------------------------------------ fortran filename : gscank.f ------------------------------------------------------------------*/ #define GSCANK() CCALLSFSUB0(GSCANK,gscank) /*------------------------------------------------------------------ fortran filename : gscano.f ------------------------------------------------------------------*/ #define GSCANO() CCALLSFSUB0(GSCANO,gscano) /*------------------------------------------------------------------ fortran filename : gscanu.f ------------------------------------------------------------------*/ #define GSCANU() CCALLSFSUB0(GSCANU,gscanu) /*------------------------------------------------------------------ fortran filename : 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 : 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 : gsckov.f ------------------------------------------------------------------*/ #define GSCKOV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSCKOV,gsckov,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : gscvol.f ------------------------------------------------------------------*/ #define GSCVOL() CCALLSFSUB0(GSCVOL,gscvol) /*------------------------------------------------------------------ fortran filename : 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,STRING,STRING,INT,STRING,INTV,INT,INT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) /*------------------------------------------------------------------ fortran filename : 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 : 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 : 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 : 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 : 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 : 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 : gsdk.f ------------------------------------------------------------------*/ #define GSDK(A1,A2,A3) CCALLSFSUB3(GSDK,gsdk,INT,FLOATV,INTV,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : 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,FLOAT,INT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : 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 : 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 : 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 : 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 : 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 : gshead.f ------------------------------------------------------------------*/ #define GSHEAD(A1,A2,A3) CCALLSFSUB3(GSHEAD,gshead,INT,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gshlin.f ------------------------------------------------------------------*/ #define GSHLIN() CCALLSFSUB0(GSHLIN,gshlin) /*------------------------------------------------------------------ fortran filename : 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 : 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 : gsking.f ------------------------------------------------------------------*/ #define GSKING(A1) CCALLSFSUB1(GSKING,gsking,INT,A1) /*------------------------------------------------------------------ fortran filename : gskinu.f ------------------------------------------------------------------*/ #define GSKINU(A1,A2,A3,A4) CCALLSFSUB4(GSKINU,gskinu,INT,INT,FLOATV,PINT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gskpho.f ------------------------------------------------------------------*/ #define GSKPHO(A1) CCALLSFSUB1(GSKPHO,gskpho,INT,A1) /*------------------------------------------------------------------ fortran filename : 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 : 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 : 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 : 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 : 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 : 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 : 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 : gspe3d.f ------------------------------------------------------------------*/ /* #define gspe3d_ELEMS_1 ZTRINGV_NUM(1) #define gspe3d_ELEMLEN_1 ZTRINGV_NUM(4) */ #define GSPE3D(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GSPE3D,gspe3d,STRING,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7) /*------------------------------------------------------------------ fortran filename : 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 : 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 : gspset.f ------------------------------------------------------------------*/ #define GSPSET(A1) CCALLSFSUB1(GSPSET,gspset,FLOATV,A1) /*------------------------------------------------------------------ fortran filename : 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 : gsrung.f ------------------------------------------------------------------*/ #define GSRUNG(A1,A2,A3) CCALLSFSUB3(GSRUNG,gsrung,INT,FLOATV,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gsscan.f ------------------------------------------------------------------*/ #define GSSCAN(A1,A2) CCALLSFSUB2(GSSCAN,gsscan,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : gsstak.f ------------------------------------------------------------------*/ #define GSSTAK(A1) CCALLSFSUB1(GSSTAK,gsstak,INT,A1) /*------------------------------------------------------------------ fortran filename : gstcor.f ------------------------------------------------------------------*/ #define GSTCOR(A1,A2,A3,A4,A5) CCALLSFSUB5(GSTCOR,gstcor,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : gstdn.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,GSTDN,gstdn,FLOAT) #define GSTDN(A2) CCALLSFFUN1(GSTDN,gstdn,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : gstini.f ------------------------------------------------------------------*/ #define GSTINI() CCALLSFSUB0(GSTINI,gstini) /*------------------------------------------------------------------ fortran filename : gstint.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN4(FLOAT,GSTINT,gstint,FLOAT,FLOATV,FLOATV,INT) #define GSTINT(A2,A3,A4,A5) CCALLSFFUN4(GSTINT,gstint,FLOAT,FLOATV,FLOATV,INT,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : gstmat.f ------------------------------------------------------------------*/ /* #define gstmat_ELEMS_1 ZTRINGV_NUM(1) #define gstmat_ELEMLEN_1 ZTRINGV_NUM(24) */ #define GSTMAT(A1) CCALLSFSUB1(GSTMAT,gstmat,STRING,A1) /*------------------------------------------------------------------ fortran filename : 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 : gstord.f ------------------------------------------------------------------*/ #define GSTORD() CCALLSFSUB0(GSTORD,gstord) /*------------------------------------------------------------------ fortran filename : 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 : gstrac.f ------------------------------------------------------------------*/ #define GSTRAC() CCALLSFSUB0(GSTRAC,gstrac) /*------------------------------------------------------------------ fortran filename : gstren.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(FLOAT,GSTREN,gstren,FLOAT,FLOAT,FLOAT) #define GSTREN(A2,A3,A4) CCALLSFFUN3(GSTREN,gstren,FLOAT,FLOAT,FLOAT,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gstset.f ------------------------------------------------------------------*/ /* #define gstset_ELEMS_1 ZTRINGV_NUM(1) #define gstset_ELEMLEN_1 ZTRINGV_NUM(24) #define gstset_ELEMS_2 ZTRINGV_NUM(1) #define gstset_ELEMLEN_2 ZTRINGV_NUM(4) #define gstset_ELEMS_3 ZTRINGV_NUM(1) #define gstset_ELEMLEN_3 ZTRINGV_NUM(24) #define gstset_ELEMS_4 ZTRINGV_NUM(1) #define gstset_ELEMLEN_4 ZTRINGV_NUM(24) #define gstset_ELEMS_5 ZTRINGV_NUM(1) #define gstset_ELEMLEN_5 ZTRINGV_NUM(24) #define gstset_ELEMS_6 ZTRINGV_NUM(1) #define gstset_ELEMLEN_6 ZTRINGV_NUM(24) */ #define GSTSET(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSTSET,gstset,STRING,STRING,STRING,STRING,STRING,STRING,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : gsttab.f ------------------------------------------------------------------*/ #define GSTTAB(A1,A2,A3,A4) CCALLSFSUB4(GSTTAB,gsttab,FLOAT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gstxin.f ------------------------------------------------------------------*/ #define GSTXIN() CCALLSFSUB0(GSTXIN,gstxin) /*------------------------------------------------------------------ fortran filename : 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 : 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 : gsveru.f ------------------------------------------------------------------*/ #define GSVERU(A1,A2,A3,A4) CCALLSFSUB4(GSVERU,gsveru,INT,INT,FLOATV,PINT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : 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 : gsxyz.f ------------------------------------------------------------------*/ #define GSXYZ() CCALLSFSUB0(GSXYZ,gsxyz) /*------------------------------------------------------------------ fortran filename : gsync.f ------------------------------------------------------------------*/ #define GSYNC() CCALLSFSUB0(GSYNC,gsync) /*------------------------------------------------------------------ fortran filename : gsynge.f ------------------------------------------------------------------*/ #define GSYNGE(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GSYNGE,gsynge,FLOAT,FLOAT,FLOAT,FLOAT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7) /*------------------------------------------------------------------ fortran filename : gtau.f ------------------------------------------------------------------*/ #define GTAU() CCALLSFSUB0(GTAU,gtau) /*------------------------------------------------------------------ fortran filename : gtckov.f ------------------------------------------------------------------*/ #define GTCKOV() CCALLSFSUB0(GTCKOV,gtckov) /*------------------------------------------------------------------ fortran filename : gtelec.f ------------------------------------------------------------------*/ #define GTELEC() CCALLSFSUB0(GTELEC,gtelec) /*------------------------------------------------------------------ fortran filename : gtgama.f ------------------------------------------------------------------*/ #define GTGAMA() CCALLSFSUB0(GTGAMA,gtgama) /*------------------------------------------------------------------ fortran filename : gthadr.f ------------------------------------------------------------------*/ #define GTHADR() CCALLSFSUB0(GTHADR,gthadr) /*------------------------------------------------------------------ fortran filename : gthion.f ------------------------------------------------------------------*/ #define GTHION() CCALLSFSUB0(GTHION,gthion) /*------------------------------------------------------------------ fortran filename : gtiso.f ------------------------------------------------------------------*/ #define GTISO(A1,A2,A3) CCALLSFSUB3(GTISO,gtiso,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gtmed.f ------------------------------------------------------------------*/ #define GTMED(A1,A2) CCALLSFSUB2(GTMED,gtmed,INT,PINT,A1,A2) /*------------------------------------------------------------------ fortran filename : gtmedi.f ------------------------------------------------------------------*/ #define GTMEDI(A1,A2) CCALLSFSUB2(GTMEDI,gtmedi,FLOATV,PINT,A1,A2) /*------------------------------------------------------------------ fortran filename : gtmuon.f ------------------------------------------------------------------*/ #define GTMUON() CCALLSFSUB0(GTMUON,gtmuon) /*------------------------------------------------------------------ fortran filename : gtneut.f ------------------------------------------------------------------*/ #define GTNEUT() CCALLSFSUB0(GTNEUT,gtneut) /*------------------------------------------------------------------ fortran filename : gtnext.f ------------------------------------------------------------------*/ #define GTNEXT() CCALLSFSUB0(GTNEXT,gtnext) /*------------------------------------------------------------------ fortran filename : gtnino.f ------------------------------------------------------------------*/ #define GTNINO() CCALLSFSUB0(GTNINO,gtnino) /*------------------------------------------------------------------ fortran filename : gtrack.f ------------------------------------------------------------------*/ #define GTRACK() CCALLSFSUB0(GTRACK,gtrack) /*------------------------------------------------------------------ fortran filename : gtrain.f ------------------------------------------------------------------*/ #define GTRAIN(A1,A2) CCALLSFSUB2(GTRAIN,gtrain,FLOATV,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : gtrase.f ------------------------------------------------------------------*/ #define GTRASE(A1) CCALLSFSUB1(GTRASE,gtrase,FLOATV,A1) /*------------------------------------------------------------------ fortran filename : gtrdse.f ------------------------------------------------------------------*/ #define GTRDSE(A1,A2) CCALLSFSUB2(GTRDSE,gtrdse,FLOATV,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : gtreve.f ------------------------------------------------------------------*/ #define GTREVE() CCALLSFSUB0(GTREVE,gtreve) /*------------------------------------------------------------------ fortran filename : gtrig.f ------------------------------------------------------------------*/ #define GTRIG() CCALLSFSUB0(GTRIG,gtrig) /*------------------------------------------------------------------ fortran filename : gtrigc.f ------------------------------------------------------------------*/ #define GTRIGC() CCALLSFSUB0(GTRIGC,gtrigc) /*------------------------------------------------------------------ fortran filename : gtrigi.f ------------------------------------------------------------------*/ #define GTRIGI() CCALLSFSUB0(GTRIGI,gtrigi) /*------------------------------------------------------------------ fortran filename : 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 : gtrnsf.f ------------------------------------------------------------------*/ #define GTRNSF(A1,A2,A3,A4) CCALLSFSUB4(GTRNSF,gtrnsf,FLOATV,FLOATV,FLOATV,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gtrset.f ------------------------------------------------------------------*/ #define GTRSET(A1) CCALLSFSUB1(GTRSET,gtrset,FLOATV,A1) /*------------------------------------------------------------------ fortran filename : gtuset.f ------------------------------------------------------------------*/ #define GTUSET(A1,A2) CCALLSFSUB2(GTUSET,gtuset,FLOATV,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : gtxset.f ------------------------------------------------------------------*/ /* #define gtxset_ELEMS_1 ZTRINGV_NUM(1) #define gtxset_ELEMLEN_1 ZTRINGV_NUM(24) #define gtxset_ELEMS_2 ZTRINGV_NUM(1) #define gtxset_ELEMLEN_2 ZTRINGV_NUM(4) #define gtxset_ELEMS_6 ZTRINGV_NUM(1) #define gtxset_ELEMLEN_6 ZTRINGV_NUM(24) #define gtxset_ELEMS_7 ZTRINGV_NUM(1) #define gtxset_ELEMLEN_7 ZTRINGV_NUM(24) #define gtxset_ELEMS_8 ZTRINGV_NUM(1) #define gtxset_ELEMLEN_8 ZTRINGV_NUM(24) #define gtxset_ELEMS_9 ZTRINGV_NUM(1) #define gtxset_ELEMLEN_9 ZTRINGV_NUM(24) */ #define GTXSET(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(GTXSET,gtxset,STRING,STRING,INT,INT,INT,STRING,STRING,STRING,STRING,A1,A2,A3,A4,A5,A6,A7,A8,A9) /*------------------------------------------------------------------ fortran filename : gudcay.f ------------------------------------------------------------------*/ #define GUDCAY() CCALLSFSUB0(GUDCAY,gudcay) /*------------------------------------------------------------------ fortran filename : gudigi.f ------------------------------------------------------------------*/ #define GUDIGI() CCALLSFSUB0(GUDIGI,gudigi) /*------------------------------------------------------------------ fortran filename : 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 : gufld.f ------------------------------------------------------------------*/ #define GUFLD(A1,A2) CCALLSFSUB2(GUFLD,gufld,FLOATV,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : guhadr.f ------------------------------------------------------------------*/ #define GUHADR() CCALLSFSUB0(GUHADR,guhadr) /*------------------------------------------------------------------ fortran filename : guiget.f ------------------------------------------------------------------*/ #define GUIGET(A1,A2,A3) CCALLSFSUB3(GUIGET,guiget,INT,INT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : guinme.f ------------------------------------------------------------------*/ #define GUINME(A1,A2,A3,A4) CCALLSFSUB4(GUINME,guinme,FLOATV,FLOAT,FLOATV,PINT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : guinti.f ------------------------------------------------------------------*/ #define GUINTI() CCALLSFSUB0(GUINTI,guinti) /*------------------------------------------------------------------ fortran filename : gukine.f ------------------------------------------------------------------*/ #define GUKINE() CCALLSFSUB0(GUKINE,gukine) /*------------------------------------------------------------------ fortran filename : gunear.f ------------------------------------------------------------------*/ #define GUNEAR(A1,A2,A3,A4) CCALLSFSUB4(GUNEAR,gunear,INT,INT,FLOATV,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gunliv.f ------------------------------------------------------------------*/ #define GUNLIV(A1,A2,A3) CCALLSFSUB3(GUNLIV,gunliv,INT,INT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : guout.f ------------------------------------------------------------------*/ #define GUOUT() CCALLSFSUB0(GUOUT,guout) /*------------------------------------------------------------------ fortran filename : gupara.f ------------------------------------------------------------------*/ #define GUPARA() CCALLSFSUB0(GUPARA,gupara) /*------------------------------------------------------------------ fortran filename : guphad.f ------------------------------------------------------------------*/ #define GUPHAD() CCALLSFSUB0(GUPHAD,guphad) /*------------------------------------------------------------------ fortran filename : guplsh.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(FLOAT,GUPLSH,guplsh,INT,INT) #define GUPLSH(A2,A3) CCALLSFFUN2(GUPLSH,guplsh,INT,INT,A2,A3) /*------------------------------------------------------------------ fortran filename : guskip.f ------------------------------------------------------------------*/ #define GUSKIP(A1) CCALLSFSUB1(GUSKIP,guskip,PINT,A1) /*------------------------------------------------------------------ fortran filename : gustep.f ------------------------------------------------------------------*/ #define GUSTEP() CCALLSFSUB0(GUSTEP,gustep) /*------------------------------------------------------------------ fortran filename : guswim.f ------------------------------------------------------------------*/ #define GUSWIM(A1,A2,A3,A4) CCALLSFSUB4(GUSWIM,guswim,FLOAT,FLOAT,FLOATV,FLOATV,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gutrak.f ------------------------------------------------------------------*/ #define GUTRAK() CCALLSFSUB0(GUTRAK,gutrak) /*------------------------------------------------------------------ fortran filename : gutrev.f ------------------------------------------------------------------*/ #define GUTREV() CCALLSFSUB0(GUTREV,gutrev) /*------------------------------------------------------------------ fortran filename : 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 : 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 : gvdcar.f ------------------------------------------------------------------*/ #define GVDCAR(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GVDCAR,gvdcar,INT,INT,INT,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7) /*------------------------------------------------------------------ fortran filename : gvdlim.f ------------------------------------------------------------------*/ #define GVDLIM(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GVDLIM,gvdlim,INT,INT,INT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : gvdphi.f ------------------------------------------------------------------*/ #define GVDPHI(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GVDPHI,gvdphi,INT,INT,FLOATV,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7) /*------------------------------------------------------------------ fortran filename : gvdrad.f ------------------------------------------------------------------*/ #define GVDRAD(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GVDRAD,gvdrad,INT,INT,INT,FLOATV,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8) /*------------------------------------------------------------------ fortran filename : gvdthe.f ------------------------------------------------------------------*/ #define GVDTHE(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GVDTHE,gvdthe,INT,INT,FLOATV,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7) /*------------------------------------------------------------------ fortran filename : gvgrad.f ------------------------------------------------------------------*/ #define GVGRAD(A1,A2,A3,A4) CCALLSFSUB4(GVGRAD,gvgrad,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gviewf.f ------------------------------------------------------------------*/ #define GVIEWF(A1,A2,A3) CCALLSFSUB3(GVIEWF,gviewf,FLOATV,FLOATV,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gvlong.f ------------------------------------------------------------------*/ #define GVLONG(A1,A2,A3,A4,A5) CCALLSFSUB5(GVLONG,gvlong,FLOATV,FLOATV,INT,PFLOAT,PINT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : gvpsqr.f ------------------------------------------------------------------*/ #define GVPSQR(A1,A2,A3) CCALLSFSUB3(GVPSQR,gvpsqr,FLOATV,PFLOAT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gvrot.f ------------------------------------------------------------------*/ #define GVROT(A1,A2) CCALLSFSUB2(GVROT,gvrot,FLOATV,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : gvsafe.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN4(FLOAT,GVSAFE,gvsafe,FLOATV,FLOAT,FLOATV,INT) #define GVSAFE(A2,A3,A4,A5) CCALLSFFUN4(GVSAFE,gvsafe,FLOATV,FLOAT,FLOATV,INT,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : gvsign.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN4(INT,GVSIGN,gvsign,FLOATV,FLOAT,FLOATV,INT) #define GVSIGN(A2,A3,A4,A5) CCALLSFFUN4(GVSIGN,gvsign,FLOATV,FLOAT,FLOATV,INT,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : gweucl.f ------------------------------------------------------------------*/ /* #define gweucl_ELEMS_2 ZTRINGV_NUM(1) #define gweucl_ELEMLEN_2 ZTRINGV_NUM(255) #define gweucl_ELEMS_3 ZTRINGV_NUM(1) #define gweucl_ELEMLEN_3 ZTRINGV_NUM(4) */ #define GWEUCL(A1,A2,A3,A4,A5) CCALLSFSUB5(GWEUCL,gweucl,INT,STRING,STRING,INT,INT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : gwork.f ------------------------------------------------------------------*/ #define GWORK(A1) CCALLSFSUB1(GWORK,gwork,PINT,A1) /*------------------------------------------------------------------ fortran filename : gwrtre.f ------------------------------------------------------------------*/ /* #define gwrtre_ELEMS_1 ZTRINGV_NUM(1) #define gwrtre_ELEMLEN_1 ZTRINGV_NUM(4) */ #define GWRTRE(A1,A2) CCALLSFSUB2(GWRTRE,gwrtre,STRING,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : gxclos.f ------------------------------------------------------------------*/ #define GXCLOS(A1) CCALLSFSUB1(GXCLOS,gxclos,INT,A1) /*------------------------------------------------------------------ fortran filename : gxcont.f ------------------------------------------------------------------*/ #define GXCONT() CCALLSFSUB0(GXCONT,gxcont) /*------------------------------------------------------------------ fortran filename : gxcs.f ------------------------------------------------------------------*/ #define GXCS() CCALLSFSUB0(GXCS,gxcs) /*------------------------------------------------------------------ fortran filename : gxdraw.f ------------------------------------------------------------------*/ #define GXDRAW() CCALLSFSUB0(GXDRAW,gxdraw) /*------------------------------------------------------------------ fortran filename : gxdz.f ------------------------------------------------------------------*/ #define GXDZ() CCALLSFSUB0(GXDZ,gxdz) /*------------------------------------------------------------------ fortran filename : gxfca.f ------------------------------------------------------------------*/ /* #define gxfca_ELEMS_1 ZTRINGV_NUM(1) #define gxfca_ELEMLEN_1 ZTRINGV_NUM(255) */ #define GXFCA(A1,A2,A3,A4) CCALLSFSUB4(GXFCA,gxfca,PSTRING,PINT,PINT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : gxfort.f ------------------------------------------------------------------*/ #define GXFORT() CCALLSFSUB0(GXFORT,gxfort) /*------------------------------------------------------------------ fortran filename : gxfz.f ------------------------------------------------------------------*/ #define GXFZ() CCALLSFSUB0(GXFZ,gxfz) /*------------------------------------------------------------------ fortran filename : gxgcon.f ------------------------------------------------------------------*/ #define GXGCON() CCALLSFSUB0(GXGCON,gxgcon) /*------------------------------------------------------------------ fortran filename : gxgeom.f ------------------------------------------------------------------*/ #define GXGEOM() CCALLSFSUB0(GXGEOM,gxgeom) /*------------------------------------------------------------------ fortran filename : gxgint.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN4(FLOAT,GXGINT,gxgint,FLOAT,FLOAT,FLOAT,FLOAT) #define GXGINT(A2,A3,A4,A5) CCALLSFFUN4(GXGINT,gxgint,FLOAT,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : gxlist.f ------------------------------------------------------------------*/ #define GXLIST() CCALLSFSUB0(GXLIST,gxlist) /*------------------------------------------------------------------ fortran filename : gxlunf.f ------------------------------------------------------------------*/ #define GXLUNF(A1,A2,A3) CCALLSFSUB3(GXLUNF,gxlunf,INT,INT,PINT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gxobj.f ------------------------------------------------------------------*/ /* #define gxobj_ELEMS_1 ZTRINGV_NUM(1) #define gxobj_ELEMLEN_1 ZTRINGV_NUM(255) #define gxobj_ELEMS_2 ZTRINGV_NUM(1) #define gxobj_ELEMLEN_2 ZTRINGV_NUM(255) #define gxobj_ELEMS_3 ZTRINGV_NUM(1) #define gxobj_ELEMLEN_3 ZTRINGV_NUM(255) #define gxobj_ELEMS_4 ZTRINGV_NUM(1) #define gxobj_ELEMLEN_4 ZTRINGV_NUM(255) #define gxobj_ELEMS_5 ZTRINGV_NUM(1) #define gxobj_ELEMLEN_5 ZTRINGV_NUM(255) #define gxobj_ELEMS_6 ZTRINGV_NUM(1) #define gxobj_ELEMLEN_6 ZTRINGV_NUM(255) #define gxobj_ELEMS_7 ZTRINGV_NUM(1) #define gxobj_ELEMLEN_7 ZTRINGV_NUM(255) */ #define GXOBJ(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GXOBJ,gxobj,STRING,STRING,STRING,PSTRING,PSTRING,STRING,PSTRING,A1,A2,A3,A4,A5,A6,A7) /*------------------------------------------------------------------ fortran filename : gxphys.f ------------------------------------------------------------------*/ #define GXPHYS() CCALLSFSUB0(GXPHYS,gxphys) /*------------------------------------------------------------------ fortran filename : gxpick.f ------------------------------------------------------------------*/ #define GXPICK() CCALLSFSUB0(GXPICK,gxpick) /*------------------------------------------------------------------ fortran filename : gxrz.f ------------------------------------------------------------------*/ #define GXRZ() CCALLSFSUB0(GXRZ,gxrz) /*------------------------------------------------------------------ fortran filename : gxscah.f ------------------------------------------------------------------*/ /* #define gxscah_ELEMS_2 ZTRINGV_NUM(1) #define gxscah_ELEMLEN_2 ZTRINGV_NUM(255) #define gxscah_ELEMS_3 ZTRINGV_NUM(1) #define gxscah_ELEMLEN_3 ZTRINGV_NUM(255) */ #define GXSCAH(A1,A2,A3) CCALLSFSUB3(GXSCAH,gxscah,INT,STRING,STRING,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gxscal.f ------------------------------------------------------------------*/ /* #define gxscal_ELEMS_2 ZTRINGV_NUM(1) #define gxscal_ELEMLEN_2 ZTRINGV_NUM(255) #define gxscal_ELEMS_3 ZTRINGV_NUM(1) #define gxscal_ELEMLEN_3 ZTRINGV_NUM(255) */ #define GXSCAL(A1,A2,A3) CCALLSFSUB3(GXSCAL,gxscal,PINT,STRING,STRING,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : gxscan.f ------------------------------------------------------------------*/ #define GXSCAN() CCALLSFSUB0(GXSCAN,gxscan) /*------------------------------------------------------------------ fortran filename : gxsi.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,GXSI,gxsi,FLOAT) #define GXSI(A2) CCALLSFFUN1(GXSI,gxsi,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : gzebra.f ------------------------------------------------------------------*/ #define GZEBRA(A1) CCALLSFSUB1(GZEBRA,gzebra,INT,A1) /*------------------------------------------------------------------ fortran filename : gzinit.f ------------------------------------------------------------------*/ #define GZINIT() CCALLSFSUB0(GZINIT,gzinit) /*------------------------------------------------------------------ fortran filename : hadden.f ------------------------------------------------------------------*/ #define HADDEN() CCALLSFSUB0(HADDEN,hadden) /*------------------------------------------------------------------ fortran filename : 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 : 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 : 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 : 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 : higclu.f ------------------------------------------------------------------*/ #define HIGCLU(A1,A2,A3) CCALLSFSUB3(HIGCLU,higclu,INT,INT,FLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : highab.f ------------------------------------------------------------------*/ #define HIGHAB(A1) CCALLSFSUB1(HIGHAB,highab,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : higsel.f ------------------------------------------------------------------*/ #define HIGSEL(A1) CCALLSFSUB1(HIGSEL,higsel,PINT,A1) /*------------------------------------------------------------------ fortran filename : higxpt.f ------------------------------------------------------------------*/ #define HIGXPT(A1,A2,A3) CCALLSFSUB3(HIGXPT,higxpt,INT,INT,FLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : hinhev.f ------------------------------------------------------------------*/ #define HINHEV(A1,A2,A3,A4) CCALLSFSUB4(HINHEV,hinhev,INT,DOUBLE,DOUBLE,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : 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 : hypero.f ------------------------------------------------------------------*/ #define HYPERO(A1,A2,A3,A4) CCALLSFSUB4(HYPERO,hypero,PINT,PINT,PDOUBLE,PDOUBLE,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : iefun.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(INT,IEFUN,iefun,DOUBLE,INT) #define IEFUN(A2,A3) CCALLSFFUN2(IEFUN,iefun,DOUBLE,INT,A2,A3) /*------------------------------------------------------------------ fortran filename : incini.f ------------------------------------------------------------------*/ #define INCINI() CCALLSFSUB0(INCINI,incini) /*------------------------------------------------------------------ fortran filename : index2.f ------------------------------------------------------------------*/ #define INDEX2(A1,A2,A3) CCALLSFSUB3(INDEX2,index2,INT,INT,INT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : interp.f ------------------------------------------------------------------*/ #define INTERP(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(INTERP,interp,FLOAT,PFLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7) /*------------------------------------------------------------------ fortran filename : intsch.f ------------------------------------------------------------------*/ #define INTSCH(A1,A2,A3,A4) CCALLSFSUB4(INTSCH,intsch,INTV,INT,PINT,INT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : isotpe.f ------------------------------------------------------------------*/ #define ISOTPE(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12) CCALLSFSUB12(ISOTPE,isotpe,FLOATV,INTV,INTV,FLOATV,INTV,PINT,PINT,FLOAT,FLOAT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12) /*------------------------------------------------------------------ fortran filename : kinpar.f ------------------------------------------------------------------*/ #define KINPAR(A1,A2,A3) CCALLSFSUB3(KINPAR,kinpar,DOUBLEV,DOUBLEV,DOUBLE,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : kmabs.f ------------------------------------------------------------------*/ #define KMABS(A1) CCALLSFSUB1(KMABS,kmabs,PINT,A1) /*------------------------------------------------------------------ fortran filename : kpois.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(INT,KPOIS,kpois,DOUBLE) #define KPOIS(A2) CCALLSFFUN1(KPOIS,kpois,DOUBLE,A2) /*------------------------------------------------------------------ fortran filename : labnf.f ------------------------------------------------------------------*/ #define LABNF(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(LABNF,labnf,FLOATV,INTV,FLOATV,FLOAT,INT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7) /*------------------------------------------------------------------ fortran filename : limdat.f ------------------------------------------------------------------*/ #define LIMDAT() CCALLSFSUB0(LIMDAT,limdat) /*------------------------------------------------------------------ fortran filename : 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 : lr2bod.f ------------------------------------------------------------------*/ #define LR2BOD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) CCALLSFSUB13(LR2BOD,lr2bod,FLOATV,INTV,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,FLOAT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) /*------------------------------------------------------------------ fortran filename : lrnorm.f ------------------------------------------------------------------*/ #define LRNORM(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(LRNORM,lrnorm,FLOATV,INTV,PINT,PINT,PINT,FLOAT,INT,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9) /*------------------------------------------------------------------ fortran filename : minv.f ------------------------------------------------------------------*/ #define MINV(A1,A2,A3,A4,A5) CCALLSFSUB5(MINV,minv,PFLOAT,INT,PFLOAT,PINT,PINT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : moxsec.f ------------------------------------------------------------------*/ #define MOXSEC() CCALLSFSUB0(MOXSEC,moxsec) /*------------------------------------------------------------------ fortran filename : n2nn3n.f ------------------------------------------------------------------*/ #define N2NN3N(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(N2NN3N,n2nn3n,FLOATV,INTV,FLOAT,INT,INT,FLOATV,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8) /*------------------------------------------------------------------ fortran filename : nbanh.f ------------------------------------------------------------------*/ #define NBANH(A1) CCALLSFSUB1(NBANH,nbanh,PINT,A1) /*------------------------------------------------------------------ fortran filename : nclvin.f ------------------------------------------------------------------*/ #define NCLVIN() CCALLSFSUB0(NCLVIN,nclvin) /*------------------------------------------------------------------ fortran filename : nclvst.f ------------------------------------------------------------------*/ #define NCLVST(A1,A2) CCALLSFSUB2(NCLVST,nclvst,INT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : nfac.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(INT,NFAC,nfac,INT) #define NFAC(A2) CCALLSFFUN1(NFAC,nfac,INT,A2) /*------------------------------------------------------------------ fortran filename : nghevy.f ------------------------------------------------------------------*/ #define NGHEVY(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(NGHEVY,nghevy,FLOATV,INTV,INT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : 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 : nizlnw.f ------------------------------------------------------------------*/ #define NIZLNW(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(NIZLNW,nizlnw,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7) /*------------------------------------------------------------------ fortran filename : nn2bod.f ------------------------------------------------------------------*/ #define NN2BOD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(NN2BOD,nn2bod,FLOATV,INTV,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) /*------------------------------------------------------------------ fortran filename : normal.f ------------------------------------------------------------------*/ #define NORMAL(A1) CCALLSFSUB1(NORMAL,normal,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : nsigta.f ------------------------------------------------------------------*/ #define NSIGTA(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(NSIGTA,nsigta,FLOAT,INT,PFLOAT,FLOATV,INTV,INTV,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : 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 : nucnuc.f ------------------------------------------------------------------*/ #define NUCNUC(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12) CCALLSFSUB12(NUCNUC,nucnuc,INT,INT,DOUBLE,PDOUBLE,PLOGICAL,PLOGICAL,PINT,PINT,PINT,PINT,PLOGICAL,PLOGICAL,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12) /*------------------------------------------------------------------ fortran filename : nucrec.f ------------------------------------------------------------------*/ #define NUCREC(A1,A2) CCALLSFSUB2(NUCREC,nucrec,PINT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : 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 : 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 : nudisv.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN6(INT,NUDISV,nudisv,DOUBLE,INT,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE) #define NUDISV(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(NUDISV,nudisv,DOUBLE,INT,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A2,A3,A4,A5,A6,A7) /*------------------------------------------------------------------ fortran filename : 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 : nwisel.f ------------------------------------------------------------------*/ #define NWISEL(A1,A2) CCALLSFSUB2(NWISEL,nwisel,INT,LOGICAL,A1,A2) /*------------------------------------------------------------------ fortran filename : parjet.f ------------------------------------------------------------------*/ #define PARJET(A1,A2) CCALLSFSUB2(PARJET,parjet,PINT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : partxs.f ------------------------------------------------------------------*/ #define PARTXS(A1,A2,A3,A4,A5) CCALLSFSUB5(PARTXS,partxs,FLOATV,INTV,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : pbanh.f ------------------------------------------------------------------*/ #define PBANH(A1) CCALLSFSUB1(PBANH,pbanh,PINT,A1) /*------------------------------------------------------------------ fortran filename : pcsdat.f ------------------------------------------------------------------*/ #define PCSDAT(A1,A2,A3) CCALLSFSUB3(PCSDAT,pcsdat,INT,INT,LOGICAL,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : peanut.f ------------------------------------------------------------------*/ #define PEANUT(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(PEANUT,peanut,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7) /*------------------------------------------------------------------ fortran filename : pfnclv.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(DOUBLE,PFNCLV,pfnclv,INT,LOGICAL) #define PFNCLV(A2,A3) CCALLSFFUN2(PFNCLV,pfnclv,INT,LOGICAL,A2,A3) /*------------------------------------------------------------------ fortran filename : phasp.f ------------------------------------------------------------------*/ #define PHASP() CCALLSFSUB0(PHASP,phasp) /*------------------------------------------------------------------ fortran filename : phdset.f ------------------------------------------------------------------*/ #define PHDSET(A1) CCALLSFSUB1(PHDSET,phdset,INT,A1) /*------------------------------------------------------------------ fortran filename : phdwll.f ------------------------------------------------------------------*/ #define PHDWLL(A1,A2,A3) CCALLSFSUB3(PHDWLL,phdwll,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : photon.f ------------------------------------------------------------------*/ #define PHOTON(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19) CCALLSFSUB19(PHOTON,photon,FLOATV,INTV,PINT,PINT,INTV,INTV,PINT,PINT,FLOATV,PINT,PINT,PINT,INTV,INTV,FLOAT,PINT,INT,INT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19) /*------------------------------------------------------------------ fortran filename : phpnuc.f ------------------------------------------------------------------*/ #define PHPNUC() CCALLSFSUB0(PHPNUC,phpnuc) /*------------------------------------------------------------------ fortran filename : pimabs.f ------------------------------------------------------------------*/ #define PIMABS(A1) CCALLSFSUB1(PIMABS,pimabs,PINT,A1) /*------------------------------------------------------------------ fortran filename : pioabs.f ------------------------------------------------------------------*/ #define PIOABS(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12) CCALLSFSUB12(PIOABS,pioabs,INT,INT,DOUBLE,PDOUBLE,PLOGICAL,PLOGICAL,PINT,PINT,INT,INT,PLOGICAL,PLOGICAL,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12) /*------------------------------------------------------------------ fortran filename : 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 : 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 : poisso.f ------------------------------------------------------------------*/ #define POISSO(A1,A2) CCALLSFSUB2(POISSO,poisso,FLOAT,PINT,A1,A2) /*------------------------------------------------------------------ fortran filename : poli.f ------------------------------------------------------------------*/ #define POLI(A1,A2) CCALLSFSUB2(POLI,poli,PDOUBLE,PDOUBLE,A1,A2) /*------------------------------------------------------------------ fortran filename : prepre.f ------------------------------------------------------------------*/ /*------------------------------------------------------------------ fortran filename : 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 : raco.f ------------------------------------------------------------------*/ #define RACO(A1,A2,A3) CCALLSFSUB3(RACO,raco,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : randc.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(DOUBLE,RANDC,randc,INT) #define RANDC(A2) CCALLSFFUN1(RANDC,randc,INT,A2) /*------------------------------------------------------------------ fortran filename : ranres.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,RANRES,ranres,FLOAT) #define RANRES(A2) CCALLSFFUN1(RANRES,ranres,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : rbkekv.f ------------------------------------------------------------------*/ #define RBKEKV(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(RBKEKV,rbkekv,INT,PDOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,PDOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) /*------------------------------------------------------------------ fortran filename : rchanv.f ------------------------------------------------------------------*/ #define RCHANV() CCALLSFSUB0(RCHANV,rchanv) /*------------------------------------------------------------------ fortran filename : rnmaxf.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,RNMAXF,rnmaxf,FLOAT) #define RNMAXF(A2) CCALLSFFUN1(RNMAXF,rnmaxf,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : rotat.f ------------------------------------------------------------------*/ #define ROTAT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(ROTAT,rotat,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) /*------------------------------------------------------------------ fortran filename : 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 : rstsel.f ------------------------------------------------------------------*/ #define RSTSEL(A1) CCALLSFSUB1(RSTSEL,rstsel,INT,A1) /*------------------------------------------------------------------ fortran filename : 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 : samcst.f ------------------------------------------------------------------*/ #define SAMCST(A1,A2,A3) CCALLSFSUB3(SAMCST,samcst,INT,DOUBLE,PDOUBLE,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : sbcomp.f ------------------------------------------------------------------*/ #define SBCOMP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(SBCOMP,sbcomp,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : secegy.f ------------------------------------------------------------------*/ #define SECEGY(A1,A2,A3,A4) CCALLSFSUB4(SECEGY,secegy,PFLOAT,FLOATV,PFLOAT,INTV,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : secl11.f ------------------------------------------------------------------*/ #define SECL11(A1,A2,A3,A4,A5) CCALLSFSUB5(SECL11,secl11,FLOATV,INTV,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : seclf1.f ------------------------------------------------------------------*/ #define SECLF1(A1,A2,A3,A4,A5) CCALLSFSUB5(SECLF1,seclf1,FLOATV,INTV,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : seclf5.f ------------------------------------------------------------------*/ #define SECLF5(A1,A2,A3,A4,A5) CCALLSFSUB5(SECLF5,seclf5,FLOATV,INTV,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : seclf7.f ------------------------------------------------------------------*/ #define SECLF7(A1,A2,A3,A4,A5) CCALLSFSUB5(SECLF7,seclf7,FLOATV,INTV,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : seclf9.f ------------------------------------------------------------------*/ #define SECLF9(A1,A2,A3,A4,A5) CCALLSFSUB5(SECLF9,seclf9,FLOATV,INTV,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : selfab.f ------------------------------------------------------------------*/ #define SELFAB(A1) CCALLSFSUB1(SELFAB,selfab,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : setcur.f ------------------------------------------------------------------*/ #define SETCUR(A1) CCALLSFSUB1(SETCUR,setcur,INT,A1) /*------------------------------------------------------------------ fortran filename : settrk.f ------------------------------------------------------------------*/ #define SETTRK(A1) CCALLSFSUB1(SETTRK,settrk,INT,A1) /*------------------------------------------------------------------ fortran filename : sfecfe.f ------------------------------------------------------------------*/ #define SFECFE(A1,A2) CCALLSFSUB2(SFECFE,sfecfe,DOUBLE,DOUBLE,A1,A2) /*------------------------------------------------------------------ fortran filename : sflraf.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN1(FLOAT,SFLRAF,sflraf,FLOAT) #define SFLRAF(A2) CCALLSFFUN1(SFLRAF,sflraf,FLOAT,A2) /*------------------------------------------------------------------ fortran filename : shptot.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(DOUBLE,SHPTOT,shptot,INT,DOUBLE) #define SHPTOT(A2,A3) CCALLSFFUN2(SHPTOT,shptot,INT,DOUBLE,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : sigfer.f ------------------------------------------------------------------*/ #define SIGFER(A1,A2,A3,A4) CCALLSFSUB4(SIGFER,sigfer,INT,DOUBLE,DOUBLE,LOGICAL,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : sigmor.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN2(FLOAT,SIGMOR,sigmor,FLOAT,INT) #define SIGMOR(A2,A3) CCALLSFFUN2(SIGMOR,sigmor,FLOAT,INT,A2,A3) /*------------------------------------------------------------------ fortran filename : sihael.f ------------------------------------------------------------------*/ #define SIHAEL(A1,A2,A3,A4,A5) CCALLSFSUB5(SIHAEL,sihael,INT,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,A1,A2,A3,A4,A5) /*------------------------------------------------------------------ fortran filename : sitsao.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(DOUBLE,SITSAO,sitsao,DOUBLE,INT,DOUBLE) #define SITSAO(A2,A3,A4) CCALLSFFUN3(SITSAO,sitsao,DOUBLE,INT,DOUBLE,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : stalin.f ------------------------------------------------------------------*/ #define STALIN() CCALLSFSUB0(STALIN,stalin) /*------------------------------------------------------------------ fortran filename : steep.f ------------------------------------------------------------------*/ #define STEEP(A1) CCALLSFSUB1(STEEP,steep,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : steeq.f ------------------------------------------------------------------*/ #define STEEQ(A1,A2) CCALLSFSUB2(STEEQ,steeq,PFLOAT,INT,A1,A2) /*------------------------------------------------------------------ fortran filename : steer.f ------------------------------------------------------------------*/ #define STEER(A1) CCALLSFSUB1(STEER,steer,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : stees.f ------------------------------------------------------------------*/ #define STEES(A1,A2) CCALLSFSUB2(STEES,stees,PFLOAT,FLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : stopar.f ------------------------------------------------------------------*/ #define STOPAR(A1,A2) CCALLSFSUB2(STOPAR,stopar,INT,PINT,A1,A2) /*------------------------------------------------------------------ fortran filename : stpair.f ------------------------------------------------------------------*/ #define STPAIR() CCALLSFSUB0(STPAIR,stpair) /*------------------------------------------------------------------ fortran filename : sverl2.f ------------------------------------------------------------------*/ #define SVERL2(A1,A2) CCALLSFSUB2(SVERL2,sverl2,INT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : svgam7.f ------------------------------------------------------------------*/ #define SVGAM7(A1,A2) CCALLSFSUB2(SVGAM7,svgam7,FLOAT,PFLOAT,A1,A2) /*------------------------------------------------------------------ fortran filename : tbsplt.f ------------------------------------------------------------------*/ #define TBSPLT(A1,A2,A3,A4) CCALLSFSUB4(TBSPLT,tbsplt,FLOATV,FLOAT,INT,PFLOAT,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : 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 : tdelay.f ------------------------------------------------------------------*/ #define TDELAY(A1) CCALLSFSUB1(TDELAY,tdelay,PFLOAT,A1) /*------------------------------------------------------------------ fortran filename : 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 : thrmsc.f ------------------------------------------------------------------*/ #define THRMSC(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14) CCALLSFSUB14(THRMSC,thrmsc,FLOATV,INTV,INTV,INTV,PFLOAT,PFLOAT,PFLOAT,PFLOAT,FLOAT,PFLOAT,FLOATV,INT,PINT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14) /*------------------------------------------------------------------ fortran filename : thrsel.f ------------------------------------------------------------------*/ #define THRSEL(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19) CCALLSFSUB19(THRSEL,thrsel,INT,INT,INT,FLOAT,PFLOAT,PFLOAT,FLOAT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,PFLOAT,FLOATV,INT,INTV,INTV,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19) /*------------------------------------------------------------------ fortran filename : 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 : trahad.f ------------------------------------------------------------------*/ #define TRAHAD(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(TRAHAD,trahad,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : 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 : trebod.f ------------------------------------------------------------------*/ #define TREBOD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14) CCALLSFSUB14(TREBOD,trebod,FLOATV,INTV,INT,INT,PINT,FLOAT,FLOAT,PFLOAT,FLOAT,FLOAT,PFLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14) /*------------------------------------------------------------------ fortran filename : 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 : twob.f ------------------------------------------------------------------*/ #define TWOB(A1,A2,A3) CCALLSFSUB3(TWOB,twob,INT,INT,FLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : twobod.f ------------------------------------------------------------------*/ #define TWOBOD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(TWOBOD,twobod,FLOATV,INTV,PINT,INT,FLOAT,PFLOAT,FLOAT,PFLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) /*------------------------------------------------------------------ fortran filename : twoclu.f ------------------------------------------------------------------*/ #define TWOCLU(A1,A2,A3) CCALLSFSUB3(TWOCLU,twoclu,INT,INT,FLOAT,A1,A2,A3) /*------------------------------------------------------------------ fortran filename : 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 : 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 : umofin.f ------------------------------------------------------------------*/ #define UMOFIN(A1,A2,A3,A4) CCALLSFSUB4(UMOFIN,umofin,INT,PDOUBLE,PDOUBLE,PLOGICAL,A1,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : vecsub.f ------------------------------------------------------------------*/ #define ADD(A1,A2,A3) CCALLSFSUB3(ADD,add,INT,INT,INT,A1,A2,A3) #define ADD3(A1,A2,A3) CCALLSFSUB3(ADD3,add3,INT,INT,INT,A1,A2,A3) #define SUB3(A1,A2,A3) CCALLSFSUB3(SUB3,sub3,INT,INT,INT,A1,A2,A3) #define CROSS3(A1,A2,A3) CCALLSFSUB3(CROSS3,cross3,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 : 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 : xinneu.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(DOUBLE,XINNEU,xinneu,DOUBLE,DOUBLE,DOUBLE) #define XINNEU(A2,A3,A4) CCALLSFFUN3(XINNEU,xinneu,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : xinpro.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(DOUBLE,XINPRO,xinpro,DOUBLE,DOUBLE,DOUBLE) #define XINPRO(A2,A3,A4) CCALLSFFUN3(XINPRO,xinpro,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : 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 : xsecn1.f ------------------------------------------------------------------*/ #define XSECN1(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(XSECN1,xsecn1,INTV,INTV,PINT,PINT,PINT,PINT,FLOATV,INTV,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9) /*------------------------------------------------------------------ fortran filename : xsecn2.f ------------------------------------------------------------------*/ #define XSECN2(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25) CCALLSFSUB25(XSECN2,xsecn2,INTV,INTV,INTV,PINT,PINT,PFLOAT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PFLOAT,PFLOAT,PINT,PFLOAT,FLOATV,INTV,INT,PINT,INTV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25) /*------------------------------------------------------------------ fortran filename : xsecn3.f ------------------------------------------------------------------*/ #define XSECN3(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) CCALLSFSUB13(XSECN3,xsecn3,INTV,INTV,FLOATV,INTV,PINT,PINT,PINT,PINT,PFLOAT,INTV,FLOATV,INT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) /*------------------------------------------------------------------ fortran filename : xsecn5.f ------------------------------------------------------------------*/ #define XSECN5(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(XSECN5,xsecn5,INTV,PINT,PINT,PINT,PINT,PFLOAT,INTV,FLOATV,INTV,INT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) /*------------------------------------------------------------------ fortran filename : xsecnu.f ------------------------------------------------------------------*/ #define XSECNU(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(XSECNU,xsecnu,FLOATV,INT,FLOAT,PFLOAT,INT,INT,A1,A2,A3,A4,A5,A6) /*------------------------------------------------------------------ fortran filename : xseneu.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(DOUBLE,XSENEU,xseneu,DOUBLE,DOUBLE,DOUBLE) #define XSENEU(A2,A3,A4) CCALLSFFUN3(XSENEU,xseneu,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4) /*------------------------------------------------------------------ fortran filename : xsepro.f ------------------------------------------------------------------*/ PROTOCCALLSFFUN3(DOUBLE,XSEPRO,xsepro,DOUBLE,DOUBLE,DOUBLE) #define XSEPRO(A2,A3,A4) CCALLSFFUN3(XSEPRO,xsepro,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4)