Back to home page

EIC code displayed by LXR
 
 

    

File indexing completed on 2025-01-17 09:55:29 

0001 #ifndef _GEN_H
0002 #define _GEN_H
0003 #include <cfortran/cfortran.h>
0004 
0005 #ifdef __cplusplus
0006 extern "C" {
0007 #endif
0008 /* Subroutines/Functions with COMPLEX not supported ***
0009 
0010 #define CBSJA(A1,A2,A3,A4,A5)  CCALLSFSUB5(CBSJA,cbsja,COMPLEX,FLOAT,INT,INT,PCOMPLEX,A1,A2,A3,A4,A5)
0011 #define WBSJA(A1,A2,A3,A4,A5)  CCALLSFSUB5(WBSJA,wbsja,COMPLEX,DOUBLE,INT,INT,PCOMPLEX,A1,A2,A3,A4,A5)
0012 PROTOCCALLSFFUN1(COMPLEX,CDIGAM,cdigam,COMPLEX)
0013 #define CDIGAM(A2)  CCALLSFFUN1(CDIGAM,cdigam,COMPLEX,A2)
0014 PROTOCCALLSFFUN1(COMPLEX,WDIGAM,wdigam,COMPLEX)
0015 #define WDIGAM(A2)  CCALLSFFUN1(WDIGAM,wdigam,COMPLEX,A2)
0016 #define CELFUN(A1,A2,A3,A4,A5)  CCALLSFSUB5(CELFUN,celfun,COMPLEX,FLOAT,PCOMPLEX,PCOMPLEX,PCOMPLEX,A1,A2,A3,A4,A5)
0017 #define WELFUN(A1,A2,A3,A4,A5)  CCALLSFSUB5(WELFUN,welfun,COMPLEX,DOUBLE,PCOMPLEX,PCOMPLEX,PCOMPLEX,A1,A2,A3,A4,A5)
0018 PROTOCCALLSFFUN4(COMPLEX,CELINT,celint,COMPLEX,FLOAT,FLOAT,FLOAT)
0019 #define CELINT(A2,A3,A4,A5)  CCALLSFFUN4(CELINT,celint,COMPLEX,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5)
0020 PROTOCCALLSFFUN4(COMPLEX,WELINT,welint,COMPLEX,DOUBLE,DOUBLE,DOUBLE)
0021 #define WELINT(A2,A3,A4,A5)  CCALLSFFUN4(WELINT,welint,COMPLEX,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5)
0022 PROTOCCALLSFFUN1(COMPLEX,CEXPIN,cexpin,COMPLEX)
0023 #define CEXPIN(A2)  CCALLSFFUN1(CEXPIN,cexpin,COMPLEX,A2)
0024 PROTOCCALLSFFUN1(COMPLEX,WEXPIN,wexpin,COMPLEX)
0025 #define WEXPIN(A2)  CCALLSFFUN1(WEXPIN,wexpin,COMPLEX,A2)
0026 PROTOCCALLSFFUN1(COMPLEX,CGAMMA,cgamma,COMPLEX)
0027 #define CGAMMA(A2)  CCALLSFFUN1(CGAMMA,cgamma,COMPLEX,A2)
0028 PROTOCCALLSFFUN1(COMPLEX,WGAMMA,wgamma,COMPLEX)
0029 #define WGAMMA(A2)  CCALLSFFUN1(WGAMMA,wgamma,COMPLEX,A2)
0030 PROTOCCALLSFFUN4(COMPLEX,CGAUSS,cgauss,ROUTINE,COMPLEX,COMPLEX,FLOAT)
0031 #define CGAUSS(A2,A3,A4,A5)  CCALLSFFUN4(CGAUSS,cgauss,ROUTINE,COMPLEX,COMPLEX,FLOAT,A2,A3,A4,A5)
0032 PROTOCCALLSFFUN4(COMPLEX,WGAUSS,wgauss,ROUTINE,COMPLEX,COMPLEX,DOUBLE)
0033 #define WGAUSS(A2,A3,A4,A5)  CCALLSFFUN4(WGAUSS,wgauss,ROUTINE,COMPLEX,COMPLEX,DOUBLE,A2,A3,A4,A5)
0034 PROTOCCALLSFFUN3(COMPLEX,CGPLG,cgplg,INT,INT,FLOAT)
0035 #define CGPLG(A2,A3,A4)  CCALLSFFUN3(CGPLG,cgplg,INT,INT,FLOAT,A2,A3,A4)
0036 PROTOCCALLSFFUN3(COMPLEX,WGPLG,wgplg,INT,INT,DOUBLE)
0037 #define WGPLG(A2,A3,A4)  CCALLSFFUN3(WGPLG,wgplg,INT,INT,DOUBLE,A2,A3,A4)
0038 PROTOCCALLSFFUN1(COMPLEX,CLGAMA,clgama,COMPLEX)
0039 #define CLGAMA(A2)  CCALLSFFUN1(CLGAMA,clgama,COMPLEX,A2)
0040 PROTOCCALLSFFUN1(COMPLEX,WLGAMA,wlgama,COMPLEX)
0041 #define WLGAMA(A2)  CCALLSFFUN1(WLGAMA,wlgama,COMPLEX,A2)
0042 #define CIRCLE(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(CIRCLE,circle,PCOMPLEX,FLOAT,COMPLEXV,COMPLEXV,INT,PINT,INT,A1,A2,A3,A4,A5,A6,A7)
0043 PROTOCCALLSFFUN3(COMPLEX,CLOGOK,clogok,COMPLEX,INT,INT)
0044 #define CLOGOK(A2,A3,A4)  CCALLSFFUN3(CLOGOK,clogok,COMPLEX,INT,INT,A2,A3,A4)
0045 #define WPOLYZ(A1,A2,A3,A4,A5)  CCALLSFSUB5(WPOLYZ,wpolyz,COMPLEXV,INT,INT,PCOMPLEX,PDOUBLE,A1,A2,A3,A4,A5)
0046 #define CPSC(A1,A2,A3,A4,A5)  CCALLSFSUB5(CPSC,cpsc,COMPLEX,COMPLEX,INT,PCOMPLEX,PFLOAT,A1,A2,A3,A4,A5)
0047 PROTOCCALLSFFUN3(FLOAT,CRIT,crit,COMPLEX,COMPLEX,FLOAT)
0048 #define CRIT(A2,A3,A4)  CCALLSFFUN3(CRIT,crit,COMPLEX,COMPLEX,FLOAT,A2,A3,A4)
0049 PROTOCCALLSFFUN3(COMPLEX,CSQRTK,csqrtk,COMPLEX,INT,INT)
0050 #define CSQRTK(A2,A3,A4)  CCALLSFFUN3(CSQRTK,csqrtk,COMPLEX,INT,INT,A2,A3,A4)
0051 PROTOCCALLSFFUN1(COMPLEX,CWERF,cwerf,COMPLEX)
0052 #define CWERF(A2)  CCALLSFFUN1(CWERF,cwerf,COMPLEX,A2)
0053 PROTOCCALLSFFUN1(COMPLEX,WWERF,wwerf,COMPLEX)
0054 #define WWERF(A2)  CCALLSFFUN1(WWERF,wwerf,COMPLEX,A2)
0055 PROTOCCALLSFFUN3(COMPLEX,CWHITM,cwhitm,COMPLEX,COMPLEX,COMPLEX)
0056 #define CWHITM(A2,A3,A4)  CCALLSFFUN3(CWHITM,cwhitm,COMPLEX,COMPLEX,COMPLEX,A2,A3,A4)
0057 PROTOCCALLSFFUN3(COMPLEX,WWHITM,wwhitm,COMPLEX,COMPLEX,COMPLEX)
0058 #define WWHITM(A2,A3,A4)  CCALLSFFUN3(WWHITM,wwhitm,COMPLEX,COMPLEX,COMPLEX,A2,A3,A4)
0059 #define DEFLAT(A1,A2,A3)  CCALLSFSUB3(DEFLAT,deflat,PCOMPLEX,PINT,COMPLEX,A1,A2,A3)
0060 #define HYPGM(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(HYPGM,hypgm,COMPLEX,COMPLEX,COMPLEX,COMPLEX,PCOMPLEX,FLOAT,PINT,A1,A2,A3,A4,A5,A6,A7)
0061 #define LEGFN(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(LEGFN,legfn,COMPLEX,COMPLEX,PCOMPLEX,PCOMPLEX,PINT,INT,A1,A2,A3,A4,A5,A6)
0062 PROTOCCALLSFFUN3(INT,NZERFZ,nzerfz,COMPLEX,COMPLEXV,INT)
0063 #define NZERFZ(A2,A3,A4)  CCALLSFFUN3(NZERFZ,nzerfz,COMPLEX,COMPLEXV,INT,A2,A3,A4)
0064 #define NZEROS(A1,A2,A3,A4)  CCALLSFSUB4(NZEROS,nzeros,PINT,COMPLEX,FLOAT,COMPLEX,A1,A2,A3,A4)
0065 #define POLY2(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(POLY2,poly2,COMPLEXV,INT,PCOMPLEX,PFLOAT,INT,INT,A1,A2,A3,A4,A5,A6)
0066 #define PREP(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(PREP,prep,PCOMPLEX,PCOMPLEX,PCOMPLEX,INT,COMPLEX,FLOAT,PINT,COMPLEX,A1,A2,A3,A4,A5,A6,A7,A8)
0067 PROTOCCALLSFFUN13(COMPLEX,C309R1,c309r1,COMPLEX,COMPLEX,COMPLEX,COMPLEX,DOUBLE,INT,PDOUBLE,PINT,DOUBLE,DOUBLE,LOGICAL,DOUBLE,COMPLEX)
0068 #define C309R1(A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14)  CCALLSFFUN13(C309R1,c309r1,COMPLEX,COMPLEX,COMPLEX,COMPLEX,DOUBLE,INT,PDOUBLE,PINT,DOUBLE,DOUBLE,LOGICAL,DOUBLE,COMPLEX,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14)
0069 PROTOCCALLSFFUN12(COMPLEX,C309R2,c309r2,COMPLEX,COMPLEX,COMPLEX,COMPLEX,DOUBLE,INT,INT,PDOUBLE,PINT,DOUBLE,DOUBLE,DOUBLE)
0070 #define C309R2(A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)  CCALLSFFUN12(C309R2,c309r2,COMPLEX,COMPLEX,COMPLEX,COMPLEX,DOUBLE,INT,INT,PDOUBLE,PINT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)
0071 PROTOCCALLSFFUN9(COMPLEX,C309R3,c309r3,COMPLEX,COMPLEX,COMPLEX,DOUBLE,INT,PDOUBLE,DOUBLE,PINT,PCOMPLEX)
0072 #define C309R3(A2,A3,A4,A5,A6,A7,A8,A9,A10)  CCALLSFFUN9(C309R3,c309r3,COMPLEX,COMPLEX,COMPLEX,DOUBLE,INT,PDOUBLE,DOUBLE,PINT,PCOMPLEX,A2,A3,A4,A5,A6,A7,A8,A9,A10)
0073 PROTOCCALLSFFUN13(COMPLEX,C309R5,c309r5,COMPLEX,COMPLEX,COMPLEX,DOUBLE,PCOMPLEX,PCOMPLEX,LOGICAL,INT,PDOUBLE,PINT,DOUBLE,DOUBLE,LOGICAL)
0074 #define C309R5(A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14)  CCALLSFFUN13(C309R5,c309r5,COMPLEX,COMPLEX,COMPLEX,DOUBLE,PCOMPLEX,PCOMPLEX,LOGICAL,INT,PDOUBLE,PINT,DOUBLE,DOUBLE,LOGICAL,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14)
0075 PROTOCCALLSFFUN13(COMPLEX,C309R6,c309r6,COMPLEX,COMPLEX,COMPLEX,COMPLEX,DOUBLE,INT,PINT,PCOMPLEX,PDOUBLE,DOUBLE,PCOMPLEX,PCOMPLEX,COMPLEXV)
0076 #define C309R6(A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14)  CCALLSFFUN13(C309R6,c309r6,COMPLEX,COMPLEX,COMPLEX,COMPLEX,DOUBLE,INT,PINT,PCOMPLEX,PDOUBLE,DOUBLE,PCOMPLEX,PCOMPLEX,COMPLEXV,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14)
0077 #define C309R7(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(C309R7,c309r7,COMPLEXV,PCOMPLEX,INT,PINT,PCOMPLEX,DOUBLE,A1,A2,A3,A4,A5,A6)
0078 PROTOCCALLSFFUN2(COMPLEX,C309R8,c309r8,COMPLEX,DOUBLE)
0079 #define C309R8(A2,A3)  CCALLSFFUN2(C309R8,c309r8,COMPLEX,DOUBLE,A2,A3)
0080 PROTOCCALLSFFUN3(COMPLEX,RGAM,rgam,COMPLEX,COMPLEX,COMPLEX)
0081 #define RGAM(A2,A3,A4)  CCALLSFFUN3(RGAM,rgam,COMPLEX,COMPLEX,COMPLEX,A2,A3,A4)
0082 #define DMULLZ(A1,A2,A3,A4)  CCALLSFSUB4(DMULLZ,dmullz,DOUBLEV,INT,INT,PCOMPLEX,A1,A2,A3,A4)
0083 #define DRTEQ4(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(DRTEQ4,drteq4,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PCOMPLEX,PDOUBLE,PINT,A1,A2,A3,A4,A5,A6,A7)
0084 #define VP(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(VP,vp,PCOMPLEX,COMPLEX,COMPLEXV,INT,PINT,INT,A1,A2,A3,A4,A5,A6)
0085 #define WCLBES(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)  CCALLSFSUB13(WCLBES,wclbes,COMPLEX,COMPLEX,COMPLEX,INT,PCOMPLEX,PCOMPLEX,PCOMPLEX,PCOMPLEX,PCOMPLEX,INT,INT,PINT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)
0086 
0087 *** End Subroutines/Functions using COMPLEX */
0088 
0089 PROTOCCALLSFFUN1(FLOAT,ADIGAM,adigam,FLOAT)
0090 #define ADIGAM(A2)  CCALLSFFUN1(ADIGAM,adigam,FLOAT,A2)
0091 
0092 PROTOCCALLSFFUN1(FLOAT,ALGAMA,algama,FLOAT)
0093 #define ALGAMA(A2)  CCALLSFFUN1(ALGAMA,algama,FLOAT,A2)
0094 
0095 PROTOCCALLSFFUN1(FLOAT,QLGAMA,qlgama,FLOAT)
0096 #define QLGAMA(A2)  CCALLSFFUN1(QLGAMA,qlgama,FLOAT,A2)
0097 
0098 PROTOCCALLSFFUN1(DOUBLE,DLGAMA,dlgama,DOUBLE)
0099 #define DLGAMA(A2)  CCALLSFFUN1(DLGAMA,dlgama,DOUBLE,A2)
0100 
0101 PROTOCCALLSFFUN1(FLOAT,ASINH,asinh,FLOAT)
0102 #define ASINH(A2)  CCALLSFFUN1(ASINH,asinh,FLOAT,A2)
0103 
0104 PROTOCCALLSFFUN1(DOUBLE,DASINH,dasinh,DOUBLE)
0105 #define DASINH(A2)  CCALLSFFUN1(DASINH,dasinh,DOUBLE,A2)
0106 
0107 PROTOCCALLSFFUN1(FLOAT,ATANI,atani,FLOAT)
0108 #define ATANI(A2)  CCALLSFFUN1(ATANI,atani,FLOAT,A2)
0109 
0110 PROTOCCALLSFFUN1(DOUBLE,DATANI,datani,DOUBLE)
0111 #define DATANI(A2)  CCALLSFFUN1(DATANI,datani,DOUBLE,A2)
0112 
0113 PROTOCCALLSFFUN2(FLOAT,ATG,atg,FLOAT,FLOAT)
0114 #define ATG(A2,A3)  CCALLSFFUN2(ATG,atg,FLOAT,FLOAT,A2,A3)
0115 
0116 PROTOCCALLSFFUN1(FLOAT,BESI0,besi0,FLOAT)
0117 #define BESI0(A2)  CCALLSFFUN1(BESI0,besi0,FLOAT,A2)
0118 
0119 PROTOCCALLSFFUN1(DOUBLE,DBESI0,dbesi0,DOUBLE)
0120 #define DBESI0(A2)  CCALLSFFUN1(DBESI0,dbesi0,DOUBLE,A2)
0121 
0122 PROTOCCALLSFFUN1(FLOAT,BESJ0,besj0,FLOAT)
0123 #define BESJ0(A2)  CCALLSFFUN1(BESJ0,besj0,FLOAT,A2)
0124 
0125 PROTOCCALLSFFUN1(DOUBLE,DBESJ0,dbesj0,DOUBLE)
0126 #define DBESJ0(A2)  CCALLSFFUN1(DBESJ0,dbesj0,DOUBLE,A2)
0127 
0128 PROTOCCALLSFFUN2(FLOAT,BINOM,binom,FLOAT,INT)
0129 #define BINOM(A2,A3)  CCALLSFFUN2(BINOM,binom,FLOAT,INT,A2,A3)
0130 
0131 PROTOCCALLSFFUN2(DOUBLE,DBINOM,dbinom,DOUBLE,INT)
0132 #define DBINOM(A2,A3)  CCALLSFFUN2(DBINOM,dbinom,DOUBLE,INT,A2,A3)
0133 
0134 PROTOCCALLSFFUN2(FLOAT,BSIR3,bsir3,FLOAT,INT)
0135 #define BSIR3(A2,A3)  CCALLSFFUN2(BSIR3,bsir3,FLOAT,INT,A2,A3)
0136 
0137 PROTOCCALLSFFUN2(DOUBLE,DBSIR3,dbsir3,DOUBLE,INT)
0138 #define DBSIR3(A2,A3)  CCALLSFFUN2(DBSIR3,dbsir3,DOUBLE,INT,A2,A3)
0139 
0140 PROTOCCALLSFFUN2(FLOAT,BSIR4,bsir4,FLOAT,INT)
0141 #define BSIR4(A2,A3)  CCALLSFFUN2(BSIR4,bsir4,FLOAT,INT,A2,A3)
0142 
0143 PROTOCCALLSFFUN2(DOUBLE,DBSIR4,dbsir4,DOUBLE,INT)
0144 #define DBSIR4(A2,A3)  CCALLSFFUN2(DBSIR4,dbsir4,DOUBLE,INT,A2,A3)
0145 
0146 PROTOCCALLSFFUN5(FLOAT,CAUCHY,cauchy,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
0147 #define CAUCHY(A2,A3,A4,A5,A6)  CCALLSFFUN5(CAUCHY,cauchy,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5,A6)
0148 
0149 PROTOCCALLSFFUN5(DOUBLE,DCAUCH,dcauch,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE)
0150 #define DCAUCH(A2,A3,A4,A5,A6)  CCALLSFFUN5(DCAUCH,dcauch,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5,A6)
0151 
0152 PROTOCCALLSFFUN6(DOUBLE,CHEBQU,chebqu,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,INT,DOUBLE)
0153 #define CHEBQU(A2,A3,A4,A5,A6,A7)  CCALLSFFUN6(CHEBQU,chebqu,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,INT,DOUBLE,A2,A3,A4,A5,A6,A7)
0154 
0155 PROTOCCALLSFFUN2(FLOAT,CHISIN,chisin,FLOAT,INT)
0156 #define CHISIN(A2,A3)  CCALLSFFUN2(CHISIN,chisin,FLOAT,INT,A2,A3)
0157 
0158 PROTOCCALLSFFUN4(FLOAT,CHSUM,chsum,INT,FLOATV,INT,FLOAT)
0159 #define CHSUM(A2,A3,A4,A5)  CCALLSFFUN4(CHSUM,chsum,INT,FLOATV,INT,FLOAT,A2,A3,A4,A5)
0160 
0161 PROTOCCALLSFFUN4(DOUBLE,DCHSUM,dchsum,INT,DOUBLEV,INT,DOUBLE)
0162 #define DCHSUM(A2,A3,A4,A5)  CCALLSFFUN4(DCHSUM,dchsum,INT,DOUBLEV,INT,DOUBLE,A2,A3,A4,A5)
0163 
0164 PROTOCCALLSFFUN9(FLOAT,CLEBSG,clebsg,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
0165 #define CLEBSG(A2,A3,A4,A5,A6,A7,A8,A9,A10)  CCALLSFFUN9(CLEBSG,clebsg,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5,A6,A7,A8,A9,A10)
0166 
0167 PROTOCCALLSFFUN1(FLOAT,DAWSON,dawson,FLOAT)
0168 #define DAWSON(A2)  CCALLSFFUN1(DAWSON,dawson,FLOAT,A2)
0169 
0170 PROTOCCALLSFFUN1(DOUBLE,DDAWSN,ddawsn,DOUBLE)
0171 #define DDAWSN(A2)  CCALLSFFUN1(DDAWSN,ddawsn,DOUBLE,A2)
0172 
0173 PROTOCCALLSFFUN1(FLOAT,DENLAN,denlan,FLOAT)
0174 #define DENLAN(A2)  CCALLSFFUN1(DENLAN,denlan,FLOAT,A2)
0175 
0176 PROTOCCALLSFFUN1(FLOAT,DIFLAN,diflan,FLOAT)
0177 #define DIFLAN(A2)  CCALLSFFUN1(DIFLAN,diflan,FLOAT,A2)
0178 
0179 PROTOCCALLSFFUN1(FLOAT,DILOG,dilog,FLOAT)
0180 #define DILOG(A2)  CCALLSFFUN1(DILOG,dilog,FLOAT,A2)
0181 
0182 PROTOCCALLSFFUN1(DOUBLE,DDILOG,ddilog,DOUBLE)
0183 #define DDILOG(A2)  CCALLSFFUN1(DDILOG,ddilog,DOUBLE,A2)
0184 
0185 PROTOCCALLSFFUN1(FLOAT,DINVAV,dinvav,FLOAT)
0186 #define DINVAV(A2)  CCALLSFFUN1(DINVAV,dinvav,FLOAT,A2)
0187 
0188 PROTOCCALLSFFUN1(FLOAT,DISLAN,dislan,FLOAT)
0189 #define DISLAN(A2)  CCALLSFFUN1(DISLAN,dislan,FLOAT,A2)
0190 
0191 PROTOCCALLSFFUN2(FLOAT,DISVAV,disvav,FLOAT,INT)
0192 #define DISVAV(A2,A3)  CCALLSFFUN2(DISVAV,disvav,FLOAT,INT,A2,A3)
0193 
0194 PROTOCCALLSFFUN4(FLOAT,DJMNB,djmnb,FLOAT,FLOAT,FLOAT,FLOAT)
0195 #define DJMNB(A2,A3,A4,A5)  CCALLSFFUN4(DJMNB,djmnb,FLOAT,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5)
0196 
0197 PROTOCCALLSFFUN4(DOUBLE,DDJMNB,ddjmnb,DOUBLE,DOUBLE,DOUBLE,DOUBLE)
0198 #define DDJMNB(A2,A3,A4,A5)  CCALLSFFUN4(DDJMNB,ddjmnb,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5)
0199 
0200 PROTOCCALLSFFUN7(DOUBLE,DSPNB1,dspnb1,INT,INT,INT,INT,DOUBLE,DOUBLEV,PINT)
0201 #define DSPNB1(A2,A3,A4,A5,A6,A7,A8)  CCALLSFFUN7(DSPNB1,dspnb1,INT,INT,INT,INT,DOUBLE,DOUBLEV,PINT,A2,A3,A4,A5,A6,A7,A8)
0202 
0203 PROTOCCALLSFFUN13(DOUBLE,DSPNB2,dspnb2,INT,INT,INT,INT,INT,INT,INT,INT,DOUBLE,DOUBLE,DOUBLEV,DOUBLEV,PINT)
0204 #define DSPNB2(A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14)  CCALLSFFUN13(DSPNB2,dspnb2,INT,INT,INT,INT,INT,INT,INT,INT,DOUBLE,DOUBLE,DOUBLEV,DOUBLEV,PINT,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14)
0205 
0206 PROTOCCALLSFFUN7(DOUBLE,DSPPS1,dspps1,INT,INT,INT,DOUBLE,DOUBLEV,DOUBLEV,PINT)
0207 #define DSPPS1(A2,A3,A4,A5,A6,A7,A8)  CCALLSFFUN7(DSPPS1,dspps1,INT,INT,INT,DOUBLE,DOUBLEV,DOUBLEV,PINT,A2,A3,A4,A5,A6,A7,A8)
0208 
0209 PROTOCCALLSFFUN14(DOUBLE,DSPPS2,dspps2,INT,INT,INT,INT,INT,INT,DOUBLE,DOUBLE,DOUBLEV,DOUBLEV,PDOUBLE,INT,PDOUBLE,PINT)
0210 #define DSPPS2(A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)  CCALLSFFUN14(DSPPS2,dspps2,INT,INT,INT,INT,INT,INT,DOUBLE,DOUBLE,DOUBLEV,DOUBLEV,PDOUBLE,INT,PDOUBLE,PINT,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)
0211 
0212 PROTOCCALLSFFUN3(DOUBLE,DVDOT,dvdot,INT,DOUBLEV,DOUBLEV)
0213 #define DVDOT(A2,A3,A4)  CCALLSFFUN3(DVDOT,dvdot,INT,DOUBLEV,DOUBLEV,A2,A3,A4)
0214 
0215 PROTOCCALLSFFUN2(DOUBLE,E401BD,e401bd,DOUBLE,DOUBLE)
0216 #define E401BD(A2,A3)  CCALLSFFUN2(E401BD,e401bd,DOUBLE,DOUBLE,A2,A3)
0217 
0218 PROTOCCALLSFFUN2(FLOAT,ELIN1,elin1,FLOAT,FLOAT)
0219 #define ELIN1(A2,A3)  CCALLSFFUN2(ELIN1,elin1,FLOAT,FLOAT,A2,A3)
0220 
0221 PROTOCCALLSFFUN1(FLOAT,ERF,erf,FLOAT)
0222 #define ERF(A2)  CCALLSFFUN1(ERF,erf,FLOAT,A2)
0223 
0224 PROTOCCALLSFFUN1(DOUBLE,DERF,derf,DOUBLE)
0225 #define DERF(A2)  CCALLSFFUN1(DERF,derf,DOUBLE,A2)
0226 
0227 PROTOCCALLSFFUN7(INT,EXMBUC,exmbuc,INT,INT,FLOATV,FLOAT,INT,PINT,INT)
0228 #define EXMBUC(A2,A3,A4,A5,A6,A7,A8)  CCALLSFFUN7(EXMBUC,exmbuc,INT,INT,FLOATV,FLOAT,INT,PINT,INT,A2,A3,A4,A5,A6,A7,A8)
0229 
0230 PROTOCCALLSFFUN3(FLOAT,FCONC,fconc,FLOAT,FLOAT,INT)
0231 #define FCONC(A2,A3,A4)  CCALLSFFUN3(FCONC,fconc,FLOAT,FLOAT,INT,A2,A3,A4)
0232 
0233 PROTOCCALLSFFUN3(DOUBLE,DFCONC,dfconc,DOUBLE,DOUBLE,INT)
0234 #define DFCONC(A2,A3,A4)  CCALLSFFUN3(DFCONC,dfconc,DOUBLE,DOUBLE,INT,A2,A3,A4)
0235 
0236 PROTOCCALLSFFUN2(FLOAT,FERDR,ferdr,FLOAT,INT)
0237 #define FERDR(A2,A3)  CCALLSFFUN2(FERDR,ferdr,FLOAT,INT,A2,A3)
0238 
0239 PROTOCCALLSFFUN2(DOUBLE,DFERDR,dferdr,DOUBLE,INT)
0240 #define DFERDR(A2,A3)  CCALLSFFUN2(DFERDR,dferdr,DOUBLE,INT,A2,A3)
0241 
0242 PROTOCCALLSFFUN2(FLOAT,FINARG,finarg,INT,INT)
0243 #define FINARG(A2,A3)  CCALLSFFUN2(FINARG,finarg,INT,INT,A2,A3)
0244 
0245 PROTOCCALLSFFUN2(FLOAT,FREARG,frearg,FLOAT,FLOAT)
0246 #define FREARG(A2,A3)  CCALLSFFUN2(FREARG,frearg,FLOAT,FLOAT,A2,A3)
0247 
0248 PROTOCCALLSFFUN3(FLOAT,FRED2,fred2,FLOAT,FLOAT,FLOAT)
0249 #define FRED2(A2,A3,A4)  CCALLSFFUN3(FRED2,fred2,FLOAT,FLOAT,FLOAT,A2,A3,A4)
0250 
0251 PROTOCCALLSFFUN1(FLOAT,FRED3,fred3,FLOAT)
0252 #define FRED3(A2)  CCALLSFFUN1(FRED3,fred3,FLOAT,A2)
0253 
0254 PROTOCCALLSFFUN1(FLOAT,FREQ,freq,FLOAT)
0255 #define FREQ(A2)  CCALLSFFUN1(FREQ,freq,FLOAT,A2)
0256 
0257 PROTOCCALLSFFUN1(DOUBLE,DFREQ,dfreq,DOUBLE)
0258 #define DFREQ(A2)  CCALLSFFUN1(DFREQ,dfreq,DOUBLE,A2)
0259 
0260 PROTOCCALLSFFUN1(FLOAT,FRSIN,frsin,FLOAT)
0261 #define FRSIN(A2)  CCALLSFFUN1(FRSIN,frsin,FLOAT,A2)
0262 
0263 PROTOCCALLSFFUN1(DOUBLE,DFRSIN,dfrsin,DOUBLE)
0264 #define DFRSIN(A2)  CCALLSFFUN1(DFRSIN,dfrsin,DOUBLE,A2)
0265 
0266 PROTOCCALLSFFUN2(FLOAT,FUN,fun,INT,FLOATV)
0267 #define FUN(A2,A3)  CCALLSFFUN2(FUN,fun,INT,FLOATV,A2,A3)
0268 
0269 PROTOCCALLSFFUN1(FLOAT,G116F1,g116f1,FLOAT)
0270 #define G116F1(A2)  CCALLSFFUN1(G116F1,g116f1,FLOAT,A2)
0271 
0272 PROTOCCALLSFFUN2(DOUBLE,DGAGNC,dgagnc,DOUBLE,DOUBLE)
0273 #define DGAGNC(A2,A3)  CCALLSFFUN2(DGAGNC,dgagnc,DOUBLE,DOUBLE,A2,A3)
0274 
0275 PROTOCCALLSFFUN2(FLOAT,GAMDIS,gamdis,FLOAT,FLOAT)
0276 #define GAMDIS(A2,A3)  CCALLSFFUN2(GAMDIS,gamdis,FLOAT,FLOAT,A2,A3)
0277 
0278 PROTOCCALLSFFUN1(FLOAT,GAMMA,gamma,FLOAT)
0279 #define GAMMA(A2)  CCALLSFFUN1(GAMMA,gamma,FLOAT,A2)
0280 
0281 PROTOCCALLSFFUN1(FLOAT,QGAMMA,qgamma,FLOAT)
0282 #define QGAMMA(A2)  CCALLSFFUN1(QGAMMA,qgamma,FLOAT,A2)
0283 
0284 PROTOCCALLSFFUN1(DOUBLE,DGAMMA,dgamma,DOUBLE)
0285 #define DGAMMA(A2)  CCALLSFFUN1(DGAMMA,dgamma,DOUBLE,A2)
0286 
0287 PROTOCCALLSFFUN1(FLOAT,GAMMF,gammf,FLOAT)
0288 #define GAMMF(A2)  CCALLSFFUN1(GAMMF,gammf,FLOAT,A2)
0289 
0290 PROTOCCALLSFFUN1(DOUBLE,DGAMMF,dgammf,DOUBLE)
0291 #define DGAMMF(A2)  CCALLSFFUN1(DGAMMF,dgammf,DOUBLE,A2)
0292 
0293 PROTOCCALLSFFUN2(FLOAT,GAPNC,gapnc,FLOAT,FLOAT)
0294 #define GAPNC(A2,A3)  CCALLSFFUN2(GAPNC,gapnc,FLOAT,FLOAT,A2,A3)
0295 
0296 PROTOCCALLSFFUN2(DOUBLE,DGAPNC,dgapnc,DOUBLE,DOUBLE)
0297 #define DGAPNC(A2,A3)  CCALLSFFUN2(DGAPNC,dgapnc,DOUBLE,DOUBLE,A2,A3)
0298 
0299 PROTOCCALLSFFUN1(FLOAT,GAUSIN,gausin,FLOAT)
0300 #define GAUSIN(A2)  CCALLSFFUN1(GAUSIN,gausin,FLOAT,A2)
0301 
0302 PROTOCCALLSFFUN1(DOUBLE,DGAUSN,dgausn,DOUBLE)
0303 #define DGAUSN(A2)  CCALLSFFUN1(DGAUSN,dgausn,DOUBLE,A2)
0304 
0305 PROTOCCALLSFFUN4(FLOAT,GAUSS,gauss,ROUTINE,FLOAT,FLOAT,FLOAT)
0306 #define GAUSS(A2,A3,A4,A5)  CCALLSFFUN4(GAUSS,gauss,ROUTINE,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5)
0307 
0308 PROTOCCALLSFFUN4(FLOAT,QGAUSS,qgauss,ROUTINE,FLOAT,FLOAT,FLOAT)
0309 #define QGAUSS(A2,A3,A4,A5)  CCALLSFFUN4(QGAUSS,qgauss,ROUTINE,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5)
0310 
0311 PROTOCCALLSFFUN4(DOUBLE,DGAUSS,dgauss,ROUTINE,DOUBLE,DOUBLE,DOUBLE)
0312 #define DGAUSS(A2,A3,A4,A5)  CCALLSFFUN4(DGAUSS,dgauss,ROUTINE,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5)
0313 
0314 PROTOCCALLSFFUN6(DOUBLE,GPINDP,gpindp,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,DOUBLE,INT)
0315 #define GPINDP(A2,A3,A4,A5,A6,A7)  CCALLSFFUN6(GPINDP,gpindp,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,DOUBLE,INT,A2,A3,A4,A5,A6,A7)
0316 
0317 PROTOCCALLSFFUN2(INT,IGET,iget,INTV,INT)
0318 #define IGET(A2,A3)  CCALLSFFUN2(IGET,iget,INTV,INT,A2,A3)
0319 
0320 PROTOCCALLSFFUN3(INT,IILZ,iilz,INT,INTV,INT)
0321 #define IILZ(A2,A3,A4)  CCALLSFFUN3(IILZ,iilz,INT,INTV,INT,A2,A3,A4)
0322 
0323 PROTOCCALLSFFUN3(INT,ILSUM,ilsum,INT,LOGICALV,INT)
0324 #define ILSUM(A2,A3,A4)  CCALLSFFUN3(ILSUM,ilsum,INT,LOGICALV,INT,A2,A3,A4)
0325 
0326 PROTOCCALLSFFUN10(FLOAT,QLINSQ,qlinsq,INT,INT,INT,FLOATV,PFLOAT,FLOATV,FLOATV,FLOATV,PDOUBLE,INT)
0327 #define QLINSQ(A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)  CCALLSFFUN10(QLINSQ,qlinsq,INT,INT,INT,FLOATV,PFLOAT,FLOATV,FLOATV,FLOATV,PDOUBLE,INT,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
0328 
0329 PROTOCCALLSFFUN3(INT,LKKSPL,lkkspl,DOUBLE,DOUBLEV,INT)
0330 #define LKKSPL(A2,A3,A4)  CCALLSFFUN3(LKKSPL,lkkspl,DOUBLE,DOUBLEV,INT,A2,A3,A4)
0331 
0332 PROTOCCALLSFFUN4(INT,LOCHAR,lochar,INTV,INT,INTV,INT)
0333 #define LOCHAR(A2,A3,A4,A5)  CCALLSFFUN4(LOCHAR,lochar,INTV,INT,INTV,INT,A2,A3,A4,A5)
0334 
0335 PROTOCCALLSFFUN2(INT,MAXFZE,maxfze,FLOATV,INT)
0336 #define MAXFZE(A2,A3)  CCALLSFFUN2(MAXFZE,maxfze,FLOATV,INT,A2,A3)
0337 
0338 PROTOCCALLSFFUN2(INT,MAXIZE,maxize,INTV,INT)
0339 #define MAXIZE(A2,A3)  CCALLSFFUN2(MAXIZE,maxize,INTV,INT,A2,A3)
0340 
0341 PROTOCCALLSFFUN2(INT,MINFZE,minfze,FLOATV,INT)
0342 #define MINFZE(A2,A3)  CCALLSFFUN2(MINFZE,minfze,FLOATV,INT,A2,A3)
0343 
0344 PROTOCCALLSFFUN2(INT,MINIZE,minize,INTV,INT)
0345 #define MINIZE(A2,A3)  CCALLSFFUN2(MINIZE,minize,INTV,INT,A2,A3)
0346 
0347 PROTOCCALLSFFUN2(INT,NDIGIT,ndigit,DOUBLE,DOUBLE)
0348 #define NDIGIT(A2,A3)  CCALLSFFUN2(NDIGIT,ndigit,DOUBLE,DOUBLE,A2,A3)
0349 
0350 PROTOCCALLSFFUN1(INT,NEAR1,near1,FLOAT)
0351 #define NEAR1(A2)  CCALLSFFUN1(NEAR1,near1,FLOAT,A2)
0352 
0353 PROTOCCALLSFFUN1(INT,NIC311,nic311,FLOAT)
0354 #define NIC311(A2)  CCALLSFFUN1(NIC311,nic311,FLOAT,A2)
0355 
0356 PROTOCCALLSFFUN1(INT,NORRAN,norran,PFLOAT)
0357 #define NORRAN(A2)  CCALLSFFUN1(NORRAN,norran,PFLOAT,A2)
0358 
0359 PROTOCCALLSFFUN2(FLOAT,PROB,prob,FLOAT,INT)
0360 #define PROB(A2,A3)  CCALLSFFUN2(PROB,prob,FLOAT,INT,A2,A3)
0361 
0362 PROTOCCALLSFFUN1(FLOAT,PROBKL,probkl,FLOAT)
0363 #define PROBKL(A2)  CCALLSFFUN1(PROBKL,probkl,FLOAT,A2)
0364 
0365 PROTOCCALLSFFUN4(FLOAT,PROD1,prod1,FLOATV,FLOATV,INT,INT)
0366 #define PROD1(A2,A3,A4,A5)  CCALLSFFUN4(PROD1,prod1,FLOATV,FLOATV,INT,INT,A2,A3,A4,A5)
0367 
0368 PROTOCCALLSFFUN7(FLOAT,PROD2,prod2,PFLOAT,FLOATV,INT,INT,INT,INT,FLOAT)
0369 #define PROD2(A2,A3,A4,A5,A6,A7,A8)  CCALLSFFUN7(PROD2,prod2,PFLOAT,FLOATV,INT,INT,INT,INT,FLOAT,A2,A3,A4,A5,A6,A7,A8)
0370 
0371 PROTOCCALLSFFUN5(FLOAT,QUAD,quad,INT,INT,FLOATV,FLOATV,FLOAT)
0372 #define QUAD(A2,A3,A4,A5,A6)  CCALLSFFUN5(QUAD,quad,INT,INT,FLOATV,FLOATV,FLOAT,A2,A3,A4,A5,A6)
0373 
0374 PROTOCCALLSFFUN13(DOUBLE,C309R4,c309r4,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,LOGICAL,INT,PDOUBLE,PINT,DOUBLE,DOUBLE,LOGICAL)
0375 #define C309R4(A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14)  CCALLSFFUN13(C309R4,c309r4,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,LOGICAL,INT,PDOUBLE,PINT,DOUBLE,DOUBLE,LOGICAL,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14)
0376 
0377 PROTOCCALLSFFUN1(FLOAT,RANGAM,rangam,FLOAT)
0378 #define RANGAM(A2)  CCALLSFFUN1(RANGAM,rangam,FLOAT,A2)
0379 
0380 PROTOCCALLSFFUN1(FLOAT,RANLAN,ranlan,FLOAT)
0381 #define RANLAN(A2)  CCALLSFFUN1(RANLAN,ranlan,FLOAT,A2)
0382 
0383 PROTOCCALLSFFUN2(FLOAT,RELI1,reli1,FLOAT,FLOAT)
0384 #define RELI1(A2,A3)  CCALLSFFUN2(RELI1,reli1,FLOAT,FLOAT,A2,A3)
0385 
0386 PROTOCCALLSFFUN2(DOUBLE,DELI1,deli1,DOUBLE,DOUBLE)
0387 #define DELI1(A2,A3)  CCALLSFFUN2(DELI1,deli1,DOUBLE,DOUBLE,A2,A3)
0388 
0389 PROTOCCALLSFFUN1(FLOAT,RELI1C,reli1c,FLOAT)
0390 #define RELI1C(A2)  CCALLSFFUN1(RELI1C,reli1c,FLOAT,A2)
0391 
0392 PROTOCCALLSFFUN1(DOUBLE,DELI1C,deli1c,DOUBLE)
0393 #define DELI1C(A2)  CCALLSFFUN1(DELI1C,deli1c,DOUBLE,A2)
0394 
0395 PROTOCCALLSFFUN5(DOUBLE,DELI2,deli2,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT)
0396 #define DELI2(A2,A3,A4,A5,A6)  CCALLSFFUN5(DELI2,deli2,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,A2,A3,A4,A5,A6)
0397 
0398 PROTOCCALLSFFUN3(DOUBLE,DELI3,deli3,DOUBLE,DOUBLE,DOUBLE)
0399 #define DELI3(A2,A3,A4)  CCALLSFFUN3(DELI3,deli3,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4)
0400 
0401 PROTOCCALLSFFUN4(DOUBLE,DELIGC,deligc,DOUBLE,DOUBLE,DOUBLE,DOUBLE)
0402 #define DELIGC(A2,A3,A4,A5)  CCALLSFFUN4(DELIGC,deligc,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5)
0403 
0404 PROTOCCALLSFFUN1(DOUBLE,DELIKC,delikc,DOUBLE)
0405 #define DELIKC(A2)  CCALLSFFUN1(DELIKC,delikc,DOUBLE,A2)
0406 
0407 PROTOCCALLSFFUN1(FLOAT,REXPIN,rexpin,FLOAT)
0408 #define REXPIN(A2)  CCALLSFFUN1(REXPIN,rexpin,FLOAT,A2)
0409 
0410 PROTOCCALLSFFUN1(DOUBLE,DEXPIN,dexpin,DOUBLE)
0411 #define DEXPIN(A2)  CCALLSFFUN1(DEXPIN,dexpin,DOUBLE,A2)
0412 
0413 PROTOCCALLSFFUN6(DOUBLE,DFRDH2,dfrdh2,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,INT,INT)
0414 #define DFRDH2(A2,A3,A4,A5,A6,A7)  CCALLSFFUN6(DFRDH2,dfrdh2,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,INT,INT,A2,A3,A4,A5,A6,A7)
0415 
0416 PROTOCCALLSFFUN1(FLOAT,RG32,rg32,INT)
0417 #define RG32(A2)  CCALLSFFUN1(RG32,rg32,INT,A2)
0418 
0419 PROTOCCALLSFFUN6(FLOAT,RGMLT1,rgmlt1,FLOAT,FLOAT,FLOAT,INT,INT,FLOAT)
0420 #define RGMLT1(A2,A3,A4,A5,A6,A7)  CCALLSFFUN6(RGMLT1,rgmlt1,FLOAT,FLOAT,FLOAT,INT,INT,FLOAT,A2,A3,A4,A5,A6,A7)
0421 
0422 PROTOCCALLSFFUN6(DOUBLE,DGMLT1,dgmlt1,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV)
0423 #define DGMLT1(A2,A3,A4,A5,A6,A7)  CCALLSFFUN6(DGMLT1,dgmlt1,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV,A2,A3,A4,A5,A6,A7)
0424 
0425 PROTOCCALLSFFUN6(DOUBLE,DGMLT2,dgmlt2,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV)
0426 #define DGMLT2(A2,A3,A4,A5,A6,A7)  CCALLSFFUN6(DGMLT2,dgmlt2,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV,A2,A3,A4,A5,A6,A7)
0427 
0428 PROTOCCALLSFFUN6(DOUBLE,DGMLT3,dgmlt3,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV)
0429 #define DGMLT3(A2,A3,A4,A5,A6,A7)  CCALLSFFUN6(DGMLT3,dgmlt3,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV,A2,A3,A4,A5,A6,A7)
0430 
0431 PROTOCCALLSFFUN6(DOUBLE,DGMLT4,dgmlt4,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV)
0432 #define DGMLT4(A2,A3,A4,A5,A6,A7)  CCALLSFFUN6(DGMLT4,dgmlt4,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV,A2,A3,A4,A5,A6,A7)
0433 
0434 PROTOCCALLSFFUN6(DOUBLE,DGMLT5,dgmlt5,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV)
0435 #define DGMLT5(A2,A3,A4,A5,A6,A7)  CCALLSFFUN6(DGMLT5,dgmlt5,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV,A2,A3,A4,A5,A6,A7)
0436 
0437 PROTOCCALLSFFUN6(DOUBLE,DGMLT6,dgmlt6,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV)
0438 #define DGMLT6(A2,A3,A4,A5,A6,A7)  CCALLSFFUN6(DGMLT6,dgmlt6,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV,A2,A3,A4,A5,A6,A7)
0439 
0440 PROTOCCALLSFFUN4(DOUBLE,DGQUAD,dgquad,DOUBLE,DOUBLE,DOUBLE,INT)
0441 #define DGQUAD(A2,A3,A4,A5)  CCALLSFFUN4(DGQUAD,dgquad,DOUBLE,DOUBLE,DOUBLE,INT,A2,A3,A4,A5)
0442 
0443 PROTOCCALLSFFUN1(FLOAT,RN32,rn32,INT)
0444 #define RN32(A2)  CCALLSFFUN1(RN32,rn32,INT,A2)
0445 
0446 PROTOCCALLSFFUN1(FLOAT,RNDM2,rndm2,FLOAT)
0447 #define RNDM2(A2)  CCALLSFFUN1(RNDM2,rndm2,FLOAT,A2)
0448 
0449 PROTOCCALLSFFUN1(FLOAT,RNORTH,rnorth,INT)
0450 #define RNORTH(A2)  CCALLSFFUN1(RNORTH,rnorth,INT,A2)
0451 
0452 PROTOCCALLSFFUN2(FLOAT,RPSIPG,rpsipg,FLOAT,INT)
0453 #define RPSIPG(A2,A3)  CCALLSFFUN2(RPSIPG,rpsipg,FLOAT,INT,A2,A3)
0454 
0455 PROTOCCALLSFFUN2(DOUBLE,DPSIPG,dpsipg,DOUBLE,INT)
0456 #define DPSIPG(A2,A3)  CCALLSFFUN2(DPSIPG,dpsipg,DOUBLE,INT,A2,A3)
0457 
0458 PROTOCCALLSFFUN1(FLOAT,RRIZET,rrizet,FLOAT)
0459 #define RRIZET(A2)  CCALLSFFUN1(RRIZET,rrizet,FLOAT,A2)
0460 
0461 PROTOCCALLSFFUN1(DOUBLE,DRIZET,drizet,DOUBLE)
0462 #define DRIZET(A2)  CCALLSFFUN1(DRIZET,drizet,DOUBLE,A2)
0463 
0464 PROTOCCALLSFFUN3(FLOAT,RTHETA,rtheta,INT,FLOAT,FLOAT)
0465 #define RTHETA(A2,A3,A4)  CCALLSFFUN3(RTHETA,rtheta,INT,FLOAT,FLOAT,A2,A3,A4)
0466 
0467 PROTOCCALLSFFUN3(DOUBLE,DTHETA,dtheta,INT,DOUBLE,DOUBLE)
0468 #define DTHETA(A2,A3,A4)  CCALLSFFUN3(DTHETA,dtheta,INT,DOUBLE,DOUBLE,A2,A3,A4)
0469 
0470 PROTOCCALLSFFUN3(FLOAT,RVNSPC,rvnspc,FLOAT,FLOAT,FLOAT)
0471 #define RVNSPC(A2,A3,A4)  CCALLSFFUN3(RVNSPC,rvnspc,FLOAT,FLOAT,FLOAT,A2,A3,A4)
0472 
0473 PROTOCCALLSFFUN3(DOUBLE,DVNSPC,dvnspc,DOUBLE,DOUBLE,DOUBLE)
0474 #define DVNSPC(A2,A3,A4)  CCALLSFFUN3(DVNSPC,dvnspc,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4)
0475 
0476 PROTOCCALLSFFUN4(FLOAT,SIMPS,simps,FLOATV,FLOAT,FLOAT,INT)
0477 #define SIMPS(A2,A3,A4,A5)  CCALLSFFUN4(SIMPS,simps,FLOATV,FLOAT,FLOAT,INT,A2,A3,A4,A5)
0478 
0479 PROTOCCALLSFFUN4(DOUBLE,DSIMPS,dsimps,DOUBLEV,DOUBLE,DOUBLE,INT)
0480 #define DSIMPS(A2,A3,A4,A5)  CCALLSFFUN4(DSIMPS,dsimps,DOUBLEV,DOUBLE,DOUBLE,INT,A2,A3,A4,A5)
0481 
0482 PROTOCCALLSFFUN1(FLOAT,SININT,sinint,FLOAT)
0483 #define SININT(A2)  CCALLSFFUN1(SININT,sinint,FLOAT,A2)
0484 
0485 PROTOCCALLSFFUN1(DOUBLE,DSININ,dsinin,DOUBLE)
0486 #define DSININ(A2)  CCALLSFFUN1(DSININ,dsinin,DOUBLE,A2)
0487 
0488 PROTOCCALLSFFUN2(FLOAT,STRAG,strag,FLOAT,FLOAT)
0489 #define STRAG(A2,A3)  CCALLSFFUN2(STRAG,strag,FLOAT,FLOAT,A2,A3)
0490 
0491 PROTOCCALLSFFUN1(FLOAT,STRH0,strh0,FLOAT)
0492 #define STRH0(A2)  CCALLSFFUN1(STRH0,strh0,FLOAT,A2)
0493 
0494 PROTOCCALLSFFUN1(DOUBLE,DSTRH0,dstrh0,DOUBLE)
0495 #define DSTRH0(A2)  CCALLSFFUN1(DSTRH0,dstrh0,DOUBLE,A2)
0496 
0497 PROTOCCALLSFFUN2(FLOAT,STUDIN,studin,FLOAT,INT)
0498 #define STUDIN(A2,A3)  CCALLSFFUN2(STUDIN,studin,FLOAT,INT,A2,A3)
0499 
0500 PROTOCCALLSFFUN2(FLOAT,STUDIS,studis,FLOAT,INT)
0501 #define STUDIS(A2,A3)  CCALLSFFUN2(STUDIS,studis,FLOAT,INT,A2,A3)
0502 
0503 PROTOCCALLSFFUN2(FLOAT,THETA1,theta1,FLOAT,FLOAT)
0504 #define THETA1(A2,A3)  CCALLSFFUN2(THETA1,theta1,FLOAT,FLOAT,A2,A3)
0505 
0506 PROTOCCALLSFFUN10(FLOAT,TRIINT,triint,FLOAT,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
0507 #define TRIINT(A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)  CCALLSFFUN10(TRIINT,triint,FLOAT,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
0508 
0509 PROTOCCALLSFFUN10(DOUBLE,DTRINT,dtrint,DOUBLE,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE)
0510 #define DTRINT(A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)  CCALLSFFUN10(DTRINT,dtrint,DOUBLE,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
0511 
0512 PROTOCCALLSFFUN6(FLOAT,TRISUM,trisum,FLOAT,FLOATV,INT,FLOATV,INT,INT)
0513 #define TRISUM(A2,A3,A4,A5,A6,A7)  CCALLSFFUN6(TRISUM,trisum,FLOAT,FLOATV,INT,FLOATV,INT,INT,A2,A3,A4,A5,A6,A7)
0514 
0515 PROTOCCALLSFFUN1(LOGICAL,USRTRM,usrtrm,INT)
0516 #define USRTRM(A2)  CCALLSFFUN1(USRTRM,usrtrm,INT,A2)
0517 
0518 PROTOCCALLSFFUN1(FLOAT,VAVDEN,vavden,FLOAT)
0519 #define VAVDEN(A2)  CCALLSFFUN1(VAVDEN,vavden,FLOAT,A2)
0520 
0521 PROTOCCALLSFFUN3(FLOAT,VAVFCN,vavfcn,FLOAT,FLOAT,FLOAT)
0522 #define VAVFCN(A2,A3,A4)  CCALLSFFUN3(VAVFCN,vavfcn,FLOAT,FLOAT,FLOAT,A2,A3,A4)
0523 
0524 PROTOCCALLSFFUN3(FLOAT,VAVRAN,vavran,FLOAT,FLOAT,FLOAT)
0525 #define VAVRAN(A2,A3,A4)  CCALLSFFUN3(VAVRAN,vavran,FLOAT,FLOAT,FLOAT,A2,A3,A4)
0526 
0527 PROTOCCALLSFFUN1(INT,VOMAS,vomas,INT)
0528 #define VOMAS(A2)  CCALLSFFUN1(VOMAS,vomas,INT,A2)
0529 
0530 PROTOCCALLSFFUN1(FLOAT,VVIDEN,vviden,FLOAT)
0531 #define VVIDEN(A2)  CCALLSFFUN1(VVIDEN,vviden,FLOAT,A2)
0532 
0533 PROTOCCALLSFFUN1(FLOAT,XM1LAN,xm1lan,FLOAT)
0534 #define XM1LAN(A2)  CCALLSFFUN1(XM1LAN,xm1lan,FLOAT,A2)
0535 
0536 PROTOCCALLSFFUN1(FLOAT,XM2LAN,xm2lan,FLOAT)
0537 #define XM2LAN(A2)  CCALLSFFUN1(XM2LAN,xm2lan,FLOAT,A2)
0538 
0539 PROTOCCALLSFFUN6(DOUBLE,DZEROX,dzerox,DOUBLE,DOUBLE,DOUBLE,INT,DOUBLE,INT)
0540 #define DZEROX(A2,A3,A4,A5,A6,A7)  CCALLSFFUN6(DZEROX,dzerox,DOUBLE,DOUBLE,DOUBLE,INT,DOUBLE,INT,A2,A3,A4,A5,A6,A7)
0541 
0542 PROTOCCALLSFSUB12(ADDBND,addbnd,INT,PINT,INTV,PINT,PINT,INT,INT,INT,PDOUBLE,DOUBLEV,PDOUBLE,PDOUBLE)
0543 #define ADDBND(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(ADDBND,addbnd,INT,PINT,INTV,PINT,PINT,INT,INT,INT,PDOUBLE,DOUBLEV,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
0544 
0545 PROTOCCALLSFSUB1(ARITHM,arithm,PFLOAT)
0546 #define ARITHM(A1)  CCALLSFSUB1(ARITHM,arithm,PFLOAT,A1)
0547 
0548 PROTOCCALLSFSUB5(ASLGF,aslgf,INT,FLOAT,INT,INT,PFLOAT)
0549 #define ASLGF(A1,A2,A3,A4,A5)  CCALLSFSUB5(ASLGF,aslgf,INT,FLOAT,INT,INT,PFLOAT,A1,A2,A3,A4,A5)
0550 
0551 PROTOCCALLSFSUB5(DASLGF,daslgf,INT,DOUBLE,INT,INT,PDOUBLE)
0552 #define DASLGF(A1,A2,A3,A4,A5)  CCALLSFSUB5(DASLGF,daslgf,INT,DOUBLE,INT,INT,PDOUBLE,A1,A2,A3,A4,A5)
0553 
0554 PROTOCCALLSFSUB7(ASSIGN,assign,PFLOAT,INT,INT,INT,PINT,PFLOAT,INT)
0555 #define ASSIGN(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(ASSIGN,assign,PFLOAT,INT,INT,INT,PINT,PFLOAT,INT,A1,A2,A3,A4,A5,A6,A7)
0556 
0557 PROTOCCALLSFSUB7(BAKVEC,bakvec,INT,INT,PFLOAT,PFLOAT,INT,PFLOAT,PINT)
0558 #define BAKVEC(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(BAKVEC,bakvec,INT,INT,PFLOAT,PFLOAT,INT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7)
0559 
0560 PROTOCCALLSFSUB6(BALANC,balanc,INT,INT,PFLOAT,PINT,PINT,PFLOAT)
0561 #define BALANC(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(BALANC,balanc,INT,INT,PFLOAT,PINT,PINT,PFLOAT,A1,A2,A3,A4,A5,A6)
0562 
0563 PROTOCCALLSFSUB7(BALBAK,balbak,INT,INT,INT,INT,FLOATV,INT,PFLOAT)
0564 #define BALBAK(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(BALBAK,balbak,INT,INT,INT,INT,FLOATV,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
0565 
0566 PROTOCCALLSFSUB9(BFGS,bfgs,INT,INT,PDOUBLE,DOUBLE,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLE,PDOUBLE)
0567 #define BFGS(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(BFGS,bfgs,INT,INT,PDOUBLE,DOUBLE,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0568 
0569 PROTOCCALLSFSUB4(BINOMI,binomi,INT,FLOAT,PINT,PINT)
0570 #define BINOMI(A1,A2,A3,A4)  CCALLSFSUB4(BINOMI,binomi,INT,FLOAT,PINT,PINT,A1,A2,A3,A4)
0571 
0572 PROTOCCALLSFSUB14(BISECT,bisect,INT,FLOAT,FLOATV,FLOATV,PFLOAT,PFLOAT,PFLOAT,INT,PINT,PFLOAT,PINT,PINT,PFLOAT,PFLOAT)
0573 #define BISECT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14)  CCALLSFSUB14(BISECT,bisect,INT,FLOAT,FLOATV,FLOATV,PFLOAT,PFLOAT,PFLOAT,INT,PINT,PFLOAT,PINT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14)
0574 
0575 PROTOCCALLSFSUB27(BNDOPT,bndopt,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLEV,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,PINT,PINT,PINT,INT,INT)
0576 #define BNDOPT(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)  CCALLSFSUB27(BNDOPT,bndopt,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLEV,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,PINT,PINT,PINT,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)
0577 
0578 PROTOCCALLSFSUB10(BNDTST,bndtst,INT,PDOUBLE,DOUBLEV,DOUBLEV,DOUBLE,PINT,PINT,PINT,PINT,PLOGICAL)
0579 #define BNDTST(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)  CCALLSFSUB10(BNDTST,bndtst,INT,PDOUBLE,DOUBLEV,DOUBLEV,DOUBLE,PINT,PINT,PINT,PINT,PLOGICAL,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
0580 
0581 PROTOCCALLSFSUB6(BOUNDS,bounds,INT,PINT,PINT,FLOATV,PFLOAT,PFLOAT)
0582 #define BOUNDS(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(BOUNDS,bounds,INT,PINT,PINT,FLOATV,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
0583 
0584 PROTOCCALLSFSUB5(BSJA,bsja,FLOAT,FLOAT,INT,INT,FLOATV)
0585 #define BSJA(A1,A2,A3,A4,A5)  CCALLSFSUB5(BSJA,bsja,FLOAT,FLOAT,INT,INT,FLOATV,A1,A2,A3,A4,A5)
0586 
0587 PROTOCCALLSFSUB5(QBSJA,qbsja,FLOAT,FLOAT,INT,INT,FLOATV)
0588 #define QBSJA(A1,A2,A3,A4,A5)  CCALLSFSUB5(QBSJA,qbsja,FLOAT,FLOAT,INT,INT,FLOATV,A1,A2,A3,A4,A5)
0589 
0590 PROTOCCALLSFSUB5(DBSJA,dbsja,DOUBLE,DOUBLE,INT,INT,DOUBLEV)
0591 #define DBSJA(A1,A2,A3,A4,A5)  CCALLSFSUB5(DBSJA,dbsja,DOUBLE,DOUBLE,INT,INT,DOUBLEV,A1,A2,A3,A4,A5)
0592 
0593 PROTOCCALLSFSUB7(BUCMVE,bucmve,INT,INT,INT,PFLOAT,PFLOAT,INT,INT)
0594 #define BUCMVE(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(BUCMVE,bucmve,INT,INT,INT,PFLOAT,PFLOAT,INT,INT,A1,A2,A3,A4,A5,A6,A7)
0595 
0596 PROTOCCALLSFSUB15(BUFOPT,bufopt,INT,PFLOAT,PFLOAT,FLOATV,FLOATV,PFLOAT,PFLOAT,FLOAT,FLOAT,PDOUBLE,INT,INTV,INT,INT,INT)
0597 #define BUFOPT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)  CCALLSFSUB15(BUFOPT,bufopt,INT,PFLOAT,PFLOAT,FLOATV,FLOATV,PFLOAT,PFLOAT,FLOAT,FLOAT,PDOUBLE,INT,INTV,INT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)
0598 
0599 PROTOCCALLSFSUB5(BZEJY,bzejy,FLOAT,INT,INT,FLOAT,PFLOAT)
0600 #define BZEJY(A1,A2,A3,A4,A5)  CCALLSFSUB5(BZEJY,bzejy,FLOAT,INT,INT,FLOAT,PFLOAT,A1,A2,A3,A4,A5)
0601 
0602 PROTOCCALLSFSUB5(DBZEJY,dbzejy,DOUBLE,INT,INT,DOUBLE,PDOUBLE)
0603 #define DBZEJY(A1,A2,A3,A4,A5)  CCALLSFSUB5(DBZEJY,dbzejy,DOUBLE,INT,INT,DOUBLE,PDOUBLE,A1,A2,A3,A4,A5)
0604 
0605 PROTOCCALLSFSUB2(C128,c128,FLOATV,PFLOAT)
0606 #define C128(A1,A2)  CCALLSFSUB2(C128,c128,FLOATV,PFLOAT,A1,A2)
0607 
0608 PROTOCCALLSFSUB2(C256,c256,FLOATV,PFLOAT)
0609 #define C256(A1,A2)  CCALLSFSUB2(C256,c256,FLOATV,PFLOAT,A1,A2)
0610 
0611 PROTOCCALLSFSUB0(C311BD,c311bd)
0612 #define C311BD() CCALLSFSUB0(C311BD,c311bd)
0613 
0614 PROTOCCALLSFSUB2(C512,c512,FLOATV,PFLOAT)
0615 #define C512(A1,A2)  CCALLSFSUB2(C512,c512,FLOATV,PFLOAT,A1,A2)
0616 
0617 PROTOCCALLSFSUB2(C64,c64,FLOATV,PFLOAT)
0618 #define C64(A1,A2)  CCALLSFSUB2(C64,c64,FLOATV,PFLOAT,A1,A2)
0619 
0620 PROTOCCALLSFSUB8(CBABK2,cbabk2,INT,INT,INT,INT,FLOATV,INT,PFLOAT,PFLOAT)
0621 #define CBABK2(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(CBABK2,cbabk2,INT,INT,INT,INT,FLOATV,INT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
0622 
0623 PROTOCCALLSFSUB7(CBAL,cbal,INT,INT,PFLOAT,PFLOAT,PINT,PINT,PFLOAT)
0624 #define CBAL(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(CBAL,cbal,INT,INT,PFLOAT,PFLOAT,PINT,PINT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
0625 
0626 PROTOCCALLSFSUB6(CFT,cft,PFLOAT,PFLOAT,INT,INT,INT,PINT)
0627 #define CFT(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(CFT,cft,PFLOAT,PFLOAT,INT,INT,INT,PINT,A1,A2,A3,A4,A5,A6)
0628 
0629 PROTOCCALLSFSUB13(CHEB,cheb,INT,INT,INT,INT,PFLOAT,PFLOAT,FLOAT,PFLOAT,PFLOAT,PINT,PFLOAT,PINT,PINT)
0630 #define CHEB(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)  CCALLSFSUB13(CHEB,cheb,INT,INT,INT,INT,PFLOAT,PFLOAT,FLOAT,PFLOAT,PFLOAT,PINT,PFLOAT,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)
0631 
0632 PROTOCCALLSFSUB3(CHEB02,cheb02,PDOUBLE,INT,INT)
0633 #define CHEB02(A1,A2,A3)  CCALLSFSUB3(CHEB02,cheb02,PDOUBLE,INT,INT,A1,A2,A3)
0634 
0635 PROTOCCALLSFSUB7(CHECF,checf,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,FLOAT)
0636 #define CHECF(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(CHECF,checf,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,FLOAT,A1,A2,A3,A4,A5,A6,A7)
0637 
0638 PROTOCCALLSFSUB7(QCHECF,qchecf,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PINT,PFLOAT)
0639 #define QCHECF(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(QCHECF,qchecf,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PINT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
0640 
0641 PROTOCCALLSFSUB7(DCHECF,dchecf,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PINT,PDOUBLE)
0642 #define DCHECF(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(DCHECF,dchecf,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PINT,PDOUBLE,A1,A2,A3,A4,A5,A6,A7)
0643 
0644 PROTOCCALLSFSUB5(CHMOVE,chmove,STRING,INT,PSTRING,INT,INT)
0645 #define CHMOVE(A1,A2,A3,A4,A5)  CCALLSFSUB5(CHMOVE,chmove,STRING,INT,PSTRING,INT,INT,A1,A2,A3,A4,A5)
0646 
0647 PROTOCCALLSFSUB16(CINVIT,cinvit,INT,INT,PFLOAT,PFLOAT,PFLOAT,FLOATV,LOGICALV,INT,PINT,PFLOAT,PFLOAT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT)
0648 #define CINVIT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16)  CCALLSFSUB16(CINVIT,cinvit,INT,INT,PFLOAT,PFLOAT,PFLOAT,FLOATV,LOGICALV,INT,PINT,PFLOAT,PFLOAT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16)
0649 
0650 PROTOCCALLSFSUB8(CLEBS,clebs,INT,INT,INT,INT,INT,INT,PINT,PINT)
0651 #define CLEBS(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(CLEBS,clebs,INT,INT,INT,INT,INT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8)
0652 
0653 PROTOCCALLSFSUB3(COEDIN,coedin,FLOAT,FLOAT,INT)
0654 #define COEDIN(A1,A2,A3)  CCALLSFSUB3(COEDIN,coedin,FLOAT,FLOAT,INT,A1,A2,A3)
0655 
0656 PROTOCCALLSFSUB4(COEDIS,coedis,FLOAT,FLOAT,INT,INT)
0657 #define COEDIS(A1,A2,A3,A4)  CCALLSFSUB4(COEDIS,coedis,FLOAT,FLOAT,INT,INT,A1,A2,A3,A4)
0658 
0659 PROTOCCALLSFSUB9(COMBAK,combak,INT,INT,INT,PFLOAT,PFLOAT,INTV,INT,PFLOAT,PFLOAT)
0660 #define COMBAK(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(COMBAK,combak,INT,INT,INT,PFLOAT,PFLOAT,INTV,INT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0661 
0662 PROTOCCALLSFSUB7(COMHES,comhes,INT,INT,INT,INT,PFLOAT,PFLOAT,PINT)
0663 #define COMHES(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(COMHES,comhes,INT,INT,INT,INT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7)
0664 
0665 PROTOCCALLSFSUB9(COMLR,comlr,INT,INT,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PINT)
0666 #define COMLR(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(COMLR,comlr,INT,INT,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0667 
0668 PROTOCCALLSFSUB12(COMLR2,comlr2,INT,INT,INT,INT,INTV,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PINT)
0669 #define COMLR2(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(COMLR2,comlr2,INT,INT,INT,INT,INTV,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
0670 
0671 PROTOCCALLSFSUB8(CONPRT,conprt,PFLOAT,INT,INT,INT,INT,INT,FLOAT,FLOAT)
0672 #define CONPRT(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(CONPRT,conprt,PFLOAT,INT,INT,INT,INT,INT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
0673 
0674 PROTOCCALLSFSUB3(CONT,cont,FLOAT,INT,FLOATV)
0675 #define CONT(A1,A2,A3)  CCALLSFSUB3(CONT,cont,FLOAT,INT,FLOATV,A1,A2,A3)
0676 
0677 PROTOCCALLSFSUB5(CPOLYZ,cpolyz,FLOAT,INT,INT,FLOAT,FLOAT)
0678 #define CPOLYZ(A1,A2,A3,A4,A5)  CCALLSFSUB5(CPOLYZ,cpolyz,FLOAT,INT,INT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
0679 
0680 PROTOCCALLSFSUB7(D107S1,d107s1,INT,DOUBLE,DOUBLE,DOUBLE,INT,PDOUBLE,PDOUBLE)
0681 #define D107S1(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(D107S1,d107s1,INT,DOUBLE,DOUBLE,DOUBLE,INT,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7)
0682 
0683 PROTOCCALLSFSUB1(D115BD,d115bd,PINT)
0684 #define D115BD(A1)  CCALLSFSUB1(D115BD,d115bd,PINT,A1)
0685 
0686 /*
0687 PROTOCCALLSFSUB38(D501L1,d501l1,BYTE,DOUBLE,INT,INT,DOUBLEV,INT,DOUBLEV,DOUBLEV,INT,DOUBLE,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,INTV,INT,PDOUBLE,INT,PDOUBLE,PDOUBLE,*ERROR*V,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLEV,PDOUBLE,INTV,PINT)
0688 #define D501L1(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)  CCALLSFSUB38(D501L1,d501l1,BYTE,DOUBLE,INT,INT,DOUBLEV,INT,DOUBLEV,DOUBLEV,INT,DOUBLE,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,INTV,INT,PDOUBLE,INT,PDOUBLE,PDOUBLE,*ERROR*V,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLEV,PDOUBLE,INTV,PINT,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)
0689 
0690 PROTOCCALLSFSUB27(D501L2,d501l2,INT,INT,DOUBLEV,INT,INT,DOUBLE,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,INTV,INT,DOUBLEV,PDOUBLE,*ERROR*V,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,PDOUBLE,PDOUBLE,DOUBLE,PINT)
0691 #define D501L2(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)  CCALLSFSUB27(D501L2,d501l2,INT,INT,DOUBLEV,INT,INT,DOUBLE,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,INTV,INT,DOUBLEV,PDOUBLE,*ERROR*V,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,PDOUBLE,PDOUBLE,DOUBLE,PINT,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)
0692 
0693 PROTOCCALLSFSUB24(D501N1,d501n1,INT,INT,INT,PDOUBLE,DOUBLEV,DOUBLEV,DOUBLEV,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,PINT,DOUBLEV,PDOUBLE,PINT,PINT,DOUBLE,DOUBLE,DOUBLE,INT,BYTE,PINT)
0694 #define D501N1(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(D501N1,d501n1,INT,INT,INT,PDOUBLE,DOUBLEV,DOUBLEV,DOUBLEV,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,PINT,DOUBLEV,PDOUBLE,PINT,PINT,DOUBLE,DOUBLE,DOUBLE,INT,BYTE,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24)
0695 
0696 PROTOCCALLSFSUB22(D501N2,d501n2,INT,INT,INT,PDOUBLE,DOUBLEV,DOUBLEV,DOUBLEV,INT,PDOUBLE,PDOUBLE,DOUBLEV,PDOUBLE,PINT,PDOUBLE,PDOUBLE,PINT,PINT,DOUBLE,DOUBLE,DOUBLE,INT,PINT)
0697 #define D501N2(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22)  CCALLSFSUB22(D501N2,d501n2,INT,INT,INT,PDOUBLE,DOUBLEV,DOUBLEV,DOUBLEV,INT,PDOUBLE,PDOUBLE,DOUBLEV,PDOUBLE,PINT,PDOUBLE,PDOUBLE,PINT,PINT,DOUBLE,DOUBLE,DOUBLE,INT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22)
0698 
0699 PROTOCCALLSFSUB18(D501P1,d501p1,INT,INT,INT,DOUBLEV,INT,DOUBLEV,DOUBLEV,INT,DOUBLE,DOUBLE,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,PINT,BYTE)
0700 #define D501P1(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18)  CCALLSFSUB18(D501P1,d501p1,INT,INT,INT,DOUBLEV,INT,DOUBLEV,DOUBLEV,INT,DOUBLE,DOUBLE,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,PINT,BYTE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18)
0701 
0702 PROTOCCALLSFSUB12(D501P2,d501p2,PLOGICAL,INT,DOUBLEV,DOUBLEV,DOUBLEV,*ERROR*V,DOUBLE,DOUBLE,INT,LOGICAL,INT,BYTE)
0703 #define D501P2(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(D501P2,d501p2,PLOGICAL,INT,DOUBLEV,DOUBLEV,DOUBLEV,*ERROR*V,DOUBLE,DOUBLE,INT,LOGICAL,INT,BYTE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
0704 
0705 PROTOCCALLSFSUB15(D501SF,d501sf,BYTE,DOUBLE,INT,INT,DOUBLEV,INT,PDOUBLE,PDOUBLE,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PINT)
0706 #define D501SF(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)  CCALLSFSUB15(D501SF,d501sf,BYTE,DOUBLE,INT,INT,DOUBLEV,INT,PDOUBLE,PDOUBLE,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)
0707 */
0708 PROTOCCALLSFSUB0(D700SU,d700su)
0709 #define D700SU() CCALLSFSUB0(D700SU,d700su)
0710 
0711 PROTOCCALLSFSUB0(D701BD,d701bd)
0712 #define D701BD() CCALLSFSUB0(D701BD,d701bd)
0713 
0714 PROTOCCALLSFSUB3(DCHPWS,dchpws,INT,DOUBLEV,PDOUBLE)
0715 #define DCHPWS(A1,A2,A3)  CCALLSFSUB3(DCHPWS,dchpws,INT,DOUBLEV,PDOUBLE,A1,A2,A3)
0716 
0717 PROTOCCALLSFSUB8(DECOMP,decomp,INT,INT,PFLOAT,PFLOAT,PINT,PLOGICAL,PFLOAT,PFLOAT)
0718 #define DECOMP(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(DECOMP,decomp,INT,INT,PFLOAT,PFLOAT,PINT,PLOGICAL,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
0719 
0720 PROTOCCALLSFSUB12(DELBND,delbnd,INT,PINT,INTV,PINT,PINT,INT,PINT,DOUBLEV,INT,PDOUBLE,PDOUBLE,PDOUBLE)
0721 #define DELBND(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(DELBND,delbnd,INT,PINT,INTV,PINT,PINT,INT,PINT,DOUBLEV,INT,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
0722 
0723 PROTOCCALLSFSUB4(DELETE,delete,INT,PINT,INT,PINT)
0724 #define DELETE(A1,A2,A3,A4)  CCALLSFSUB4(DELETE,delete,INT,PINT,INT,PINT,A1,A2,A3,A4)
0725 
0726 PROTOCCALLSFSUB26(DELSLV,delslv,INT,DOUBLE,DOUBLE,LOGICAL,DOUBLE,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLE,PINT,INT,PINT,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PINT)
0727 #define DELSLV(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)  CCALLSFSUB26(DELSLV,delslv,INT,DOUBLE,DOUBLE,LOGICAL,DOUBLE,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLE,PINT,INT,PINT,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PINT,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)
0728 
0729 PROTOCCALLSFSUB8(DEQBS,deqbs,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
0730 #define DEQBS(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(DEQBS,deqbs,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
0731 
0732 PROTOCCALLSFSUB8(DDEQBS,ddeqbs,INT,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,PDOUBLE)
0733 #define DDEQBS(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(DDEQBS,ddeqbs,INT,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8)
0734 
0735 PROTOCCALLSFSUB8(DEQMR,deqmr,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
0736 #define DEQMR(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(DEQMR,deqmr,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
0737 
0738 PROTOCCALLSFSUB8(DDEQMR,ddeqmr,INT,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,PDOUBLE)
0739 #define DDEQMR(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(DDEQMR,ddeqmr,INT,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8)
0740 
0741 PROTOCCALLSFSUB5(DERIV,deriv,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
0742 #define DERIV(A1,A2,A3,A4,A5)  CCALLSFSUB5(DERIV,deriv,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
0743 
0744 PROTOCCALLSFSUB5(DDERIV,dderiv,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE)
0745 #define DDERIV(A1,A2,A3,A4,A5)  CCALLSFSUB5(DDERIV,dderiv,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5)
0746 
0747 PROTOCCALLSFSUB24(DFUNFT,dfunft,DOUBLE,INT,INT,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,INT,DOUBLE,INT,INT,INT,INTV,DOUBLE,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,INT)
0748 #define DFUNFT(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(DFUNFT,dfunft,DOUBLE,INT,INT,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,INT,DOUBLE,INT,INT,INT,INTV,DOUBLE,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,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)
0749 
0750 PROTOCCALLSFSUB2(DIRCOS,dircos,FLOATV,FLOATV)
0751 #define DIRCOS(A1,A2)  CCALLSFSUB2(DIRCOS,dircos,FLOATV,FLOATV,A1,A2)
0752 
0753 PROTOCCALLSFSUB7(DIVON,divon,INT,FLOATV,FLOATV,FLOAT,INT,PFLOAT,PFLOAT)
0754 #define DIVON(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(DIVON,divon,INT,FLOATV,FLOATV,FLOAT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
0755 
0756 PROTOCCALLSFSUB19(DMAXLK,dmaxlk,DOUBLE,INT,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,INT,DOUBLE,INT,INT,INT,INTV,DOUBLE,DOUBLEV,DOUBLEV,INT)
0757 #define DMAXLK(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19)  CCALLSFSUB19(DMAXLK,dmaxlk,DOUBLE,INT,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,INT,DOUBLE,INT,INT,INT,INTV,DOUBLE,DOUBLEV,DOUBLEV,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19)
0758 
0759 PROTOCCALLSFSUB15(DSMPLX,dsmplx,PDOUBLE,DOUBLEV,DOUBLEV,DOUBLE,INT,INT,INT,INT,INT,PINT,INT,DOUBLEV,PDOUBLE,PDOUBLE,PINT)
0760 #define DSMPLX(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)  CCALLSFSUB15(DSMPLX,dsmplx,PDOUBLE,DOUBLEV,DOUBLEV,DOUBLE,INT,INT,INT,INT,INT,PINT,INT,DOUBLEV,PDOUBLE,PDOUBLE,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)
0761 
0762 PROTOCCALLSFSUB11(DSPAP1,dspap1,INT,INT,INT,DOUBLEV,DOUBLEV,INT,DOUBLEV,DOUBLEV,DOUBLEV,INT,PINT)
0763 #define DSPAP1(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)  CCALLSFSUB11(DSPAP1,dspap1,INT,INT,INT,DOUBLEV,DOUBLEV,INT,DOUBLEV,DOUBLEV,DOUBLEV,INT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
0764 
0765 PROTOCCALLSFSUB18(DSPAP2,dspap2,INT,INT,INT,INT,INT,INT,DOUBLEV,DOUBLEV,PDOUBLE,INT,INT,DOUBLEV,DOUBLEV,PDOUBLE,INT,DOUBLEV,INT,PINT)
0766 #define DSPAP2(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18)  CCALLSFSUB18(DSPAP2,dspap2,INT,INT,INT,INT,INT,INT,DOUBLEV,DOUBLEV,PDOUBLE,INT,INT,DOUBLEV,DOUBLEV,PDOUBLE,INT,DOUBLEV,INT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18)
0767 
0768 PROTOCCALLSFSUB7(DSPCD1,dspcd1,INT,INT,INT,DOUBLEV,DOUBLEV,PDOUBLE,PINT)
0769 #define DSPCD1(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(DSPCD1,dspcd1,INT,INT,INT,DOUBLEV,DOUBLEV,PDOUBLE,PINT,A1,A2,A3,A4,A5,A6,A7)
0770 
0771 PROTOCCALLSFSUB12(DSPCD2,dspcd2,INT,INT,INT,INT,INT,INT,DOUBLEV,DOUBLEV,PDOUBLE,INT,PDOUBLE,PINT)
0772 #define DSPCD2(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(DSPCD2,dspcd2,INT,INT,INT,INT,INT,INT,DOUBLEV,DOUBLEV,PDOUBLE,INT,PDOUBLE,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
0773 
0774 PROTOCCALLSFSUB10(DSPIN1,dspin1,INT,INT,DOUBLEV,DOUBLEV,INT,PDOUBLE,DOUBLEV,DOUBLEV,PINT,PINT)
0775 #define DSPIN1(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)  CCALLSFSUB10(DSPIN1,dspin1,INT,INT,DOUBLEV,DOUBLEV,INT,PDOUBLE,DOUBLEV,DOUBLEV,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
0776 
0777 PROTOCCALLSFSUB16(DSPIN2,dspin2,INT,INT,INT,INT,DOUBLEV,DOUBLEV,PDOUBLE,INT,INT,PDOUBLE,PDOUBLE,PDOUBLE,INT,PDOUBLE,PINT,PINT)
0778 #define DSPIN2(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16)  CCALLSFSUB16(DSPIN2,dspin2,INT,INT,INT,INT,DOUBLEV,DOUBLEV,PDOUBLE,INT,INT,PDOUBLE,PDOUBLE,PDOUBLE,INT,PDOUBLE,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16)
0779 
0780 PROTOCCALLSFSUB6(DSPKN1,dspkn1,INT,INT,DOUBLE,DOUBLE,PDOUBLE,PINT)
0781 #define DSPKN1(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(DSPKN1,dspkn1,INT,INT,DOUBLE,DOUBLE,PDOUBLE,PINT,A1,A2,A3,A4,A5,A6)
0782 
0783 PROTOCCALLSFSUB11(DSPKN2,dspkn2,INT,INT,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PINT)
0784 #define DSPKN2(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)  CCALLSFSUB11(DSPKN2,dspkn2,INT,INT,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
0785 
0786 PROTOCCALLSFSUB6(DSPVD1,dspvd1,DOUBLE,INT,INT,DOUBLEV,PDOUBLE,PINT)
0787 #define DSPVD1(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(DSPVD1,dspvd1,DOUBLE,INT,INT,DOUBLEV,PDOUBLE,PINT,A1,A2,A3,A4,A5,A6)
0788 
0789 PROTOCCALLSFSUB10(DSPVD2,dspvd2,DOUBLE,INT,INT,INT,INT,DOUBLEV,DOUBLEV,PDOUBLE,INT,PINT)
0790 #define DSPVD2(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)  CCALLSFSUB10(DSPVD2,dspvd2,DOUBLE,INT,INT,INT,INT,DOUBLEV,DOUBLEV,PDOUBLE,INT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
0791 
0792 PROTOCCALLSFSUB19(DSUMSQ,dsumsq,DOUBLE,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,INT,DOUBLE,INT,INT,INT,INTV,DOUBLE,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,INT)
0793 #define DSUMSQ(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19)  CCALLSFSUB19(DSUMSQ,dsumsq,DOUBLE,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,INT,DOUBLE,INT,INT,INT,INTV,DOUBLE,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19)
0794 
0795 PROTOCCALLSFSUB3(DVCOPY,dvcopy,INT,DOUBLEV,PDOUBLE)
0796 #define DVCOPY(A1,A2,A3)  CCALLSFSUB3(DVCOPY,dvcopy,INT,DOUBLEV,PDOUBLE,A1,A2,A3)
0797 
0798 PROTOCCALLSFSUB0(DVNBKD,dvnbkd)
0799 #define DVNBKD() CCALLSFSUB0(DVNBKD,dvnbkd)
0800 
0801 PROTOCCALLSFSUB0(DVNOPT,dvnopt)
0802 #define DVNOPT() CCALLSFSUB0(DVNOPT,dvnopt)
0803 
0804 PROTOCCALLSFSUB11(ECONDE,econde,DOUBLEV,PDOUBLE,INT,PINT,DOUBLE,DOUBLE,DOUBLE,INT,DOUBLEV,DOUBLEV,DOUBLEV)
0805 #define ECONDE(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)  CCALLSFSUB11(ECONDE,econde,DOUBLEV,PDOUBLE,INT,PINT,DOUBLE,DOUBLE,DOUBLE,INT,DOUBLEV,DOUBLEV,DOUBLEV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
0806 
0807 PROTOCCALLSFSUB8(ECTRAD,ectrad,DOUBLEV,INT,DOUBLEV,PINT,DOUBLE,DOUBLE,DOUBLE,INT)
0808 #define ECTRAD(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(ECTRAD,ectrad,DOUBLEV,INT,DOUBLEV,PINT,DOUBLE,DOUBLE,DOUBLE,INT,A1,A2,A3,A4,A5,A6,A7,A8)
0809 
0810 PROTOCCALLSFSUB10(EISCG1,eiscg1,INT,INT,PFLOAT,PFLOAT,FLOATV,FLOATV,PFLOAT,PFLOAT,INT,FLOATV)
0811 #define EISCG1(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)  CCALLSFSUB10(EISCG1,eiscg1,INT,INT,PFLOAT,PFLOAT,FLOATV,FLOATV,PFLOAT,PFLOAT,INT,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
0812 
0813 PROTOCCALLSFSUB7(EISCG2,eiscg2,INT,INT,PFLOAT,PFLOAT,FLOATV,FLOATV,INT)
0814 #define EISCG2(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(EISCG2,eiscg2,INT,INT,PFLOAT,PFLOAT,FLOATV,FLOATV,INT,A1,A2,A3,A4,A5,A6,A7)
0815 
0816 PROTOCCALLSFSUB9(EISCH1,eisch1,INT,INT,PFLOAT,PFLOAT,FLOATV,PFLOAT,PFLOAT,INT,FLOATV)
0817 #define EISCH1(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(EISCH1,eisch1,INT,INT,PFLOAT,PFLOAT,FLOATV,PFLOAT,PFLOAT,INT,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0818 
0819 PROTOCCALLSFSUB7(EISCH2,eisch2,INT,INT,PFLOAT,PFLOAT,FLOATV,INT,FLOATV)
0820 #define EISCH2(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(EISCH2,eisch2,INT,INT,PFLOAT,PFLOAT,FLOATV,INT,FLOATV,A1,A2,A3,A4,A5,A6,A7)
0821 
0822 PROTOCCALLSFSUB13(EISCH3,eisch3,INT,INT,PFLOAT,PFLOAT,FLOAT,FLOAT,INT,INT,FLOATV,PFLOAT,PFLOAT,INT,FLOATV)
0823 #define EISCH3(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)  CCALLSFSUB13(EISCH3,eisch3,INT,INT,PFLOAT,PFLOAT,FLOAT,FLOAT,INT,INT,FLOATV,PFLOAT,PFLOAT,INT,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)
0824 
0825 PROTOCCALLSFSUB11(EISCH4,eisch4,INT,INT,PFLOAT,PFLOAT,FLOAT,FLOAT,INT,INT,FLOATV,INT,FLOATV)
0826 #define EISCH4(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)  CCALLSFSUB11(EISCH4,eisch4,INT,INT,PFLOAT,PFLOAT,FLOAT,FLOAT,INT,INT,FLOATV,INT,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
0827 
0828 PROTOCCALLSFSUB8(EISRG1,eisrg1,INT,INT,PFLOAT,FLOATV,FLOATV,PFLOAT,INT,FLOATV)
0829 #define EISRG1(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(EISRG1,eisrg1,INT,INT,PFLOAT,FLOATV,FLOATV,PFLOAT,INT,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8)
0830 
0831 PROTOCCALLSFSUB6(EISRG2,eisrg2,INT,INT,PFLOAT,FLOATV,FLOATV,INT)
0832 #define EISRG2(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(EISRG2,eisrg2,INT,INT,PFLOAT,FLOATV,FLOATV,INT,A1,A2,A3,A4,A5,A6)
0833 
0834 PROTOCCALLSFSUB7(EISRS1,eisrs1,INT,INT,PFLOAT,FLOATV,PFLOAT,INT,FLOATV)
0835 #define EISRS1(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(EISRS1,eisrs1,INT,INT,PFLOAT,FLOATV,PFLOAT,INT,FLOATV,A1,A2,A3,A4,A5,A6,A7)
0836 
0837 PROTOCCALLSFSUB6(EISRS2,eisrs2,INT,INT,PFLOAT,FLOATV,INT,FLOATV)
0838 #define EISRS2(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(EISRS2,eisrs2,INT,INT,PFLOAT,FLOATV,INT,FLOATV,A1,A2,A3,A4,A5,A6)
0839 
0840 PROTOCCALLSFSUB11(EISRS3,eisrs3,INT,INT,PFLOAT,FLOAT,FLOAT,INT,INT,FLOATV,PFLOAT,INT,FLOATV)
0841 #define EISRS3(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)  CCALLSFSUB11(EISRS3,eisrs3,INT,INT,PFLOAT,FLOAT,FLOAT,INT,INT,FLOATV,PFLOAT,INT,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
0842 
0843 PROTOCCALLSFSUB10(EISRS4,eisrs4,INT,INT,PFLOAT,FLOAT,FLOAT,INT,INT,FLOATV,INT,FLOATV)
0844 #define EISRS4(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)  CCALLSFSUB10(EISRS4,eisrs4,INT,INT,PFLOAT,FLOAT,FLOAT,INT,INT,FLOATV,INT,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
0845 
0846 PROTOCCALLSFSUB7(EISST1,eisst1,INT,INT,PFLOAT,PFLOAT,PFLOAT,INT,PFLOAT)
0847 #define EISST1(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(EISST1,eisst1,INT,INT,PFLOAT,PFLOAT,PFLOAT,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
0848 
0849 PROTOCCALLSFSUB6(EISST2,eisst2,INT,INT,PFLOAT,PFLOAT,INT,PFLOAT)
0850 #define EISST2(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(EISST2,eisst2,INT,INT,PFLOAT,PFLOAT,INT,PFLOAT,A1,A2,A3,A4,A5,A6)
0851 
0852 PROTOCCALLSFSUB11(EISST3,eisst3,INT,INT,PFLOAT,FLOAT,FLOAT,INT,INT,FLOATV,PFLOAT,INT,PFLOAT)
0853 #define EISST3(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)  CCALLSFSUB11(EISST3,eisst3,INT,INT,PFLOAT,FLOAT,FLOAT,INT,INT,FLOATV,PFLOAT,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
0854 
0855 PROTOCCALLSFSUB10(EISST4,eisst4,INT,INT,PFLOAT,FLOAT,FLOAT,INT,INT,FLOATV,INT,PFLOAT)
0856 #define EISST4(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)  CCALLSFSUB10(EISST4,eisst4,INT,INT,PFLOAT,FLOAT,FLOAT,INT,INT,FLOATV,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
0857 
0858 PROTOCCALLSFSUB8(ELANAL,elanal,INT,INT,INT,PFLOAT,FLOATV,FLOATV,FLOATV,FLOATV)
0859 #define ELANAL(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(ELANAL,elanal,INT,INT,INT,PFLOAT,FLOATV,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8)
0860 
0861 PROTOCCALLSFSUB5(ELFUN,elfun,FLOAT,FLOAT,PFLOAT,PFLOAT,PFLOAT)
0862 #define ELFUN(A1,A2,A3,A4,A5)  CCALLSFSUB5(ELFUN,elfun,FLOAT,FLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5)
0863 
0864 PROTOCCALLSFSUB5(DELFUN,delfun,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE)
0865 #define DELFUN(A1,A2,A3,A4,A5)  CCALLSFSUB5(DELFUN,delfun,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5)
0866 
0867 PROTOCCALLSFSUB7(ELMBAK,elmbak,INT,INT,INT,PFLOAT,INTV,INT,PFLOAT)
0868 #define ELMBAK(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(ELMBAK,elmbak,INT,INT,INT,PFLOAT,INTV,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
0869 
0870 PROTOCCALLSFSUB6(ELMHES,elmhes,INT,INT,INT,INT,PFLOAT,PINT)
0871 #define ELMHES(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(ELMHES,elmhes,INT,INT,INT,INT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6)
0872 
0873 PROTOCCALLSFSUB12(ELPAHY,elpahy,PFLOAT,INT,INT,FLOAT,FLOAT,FLOATV,INT,FLOATV,FLOATV,INT,FLOATV,FLOATV)
0874 #define ELPAHY(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(ELPAHY,elpahy,PFLOAT,INT,INT,FLOAT,FLOAT,FLOATV,INT,FLOATV,FLOATV,INT,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
0875 
0876 PROTOCCALLSFSUB7(ELTRAN,eltran,INT,INT,INT,INT,PFLOAT,INTV,PFLOAT)
0877 #define ELTRAN(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(ELTRAN,eltran,INT,INT,INT,INT,PFLOAT,INTV,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
0878 
0879 PROTOCCALLSFSUB13(EPDBPS,epdbps,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,FLOAT,PINT,PFLOAT,PFLOAT,PINT)
0880 #define EPDBPS(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)  CCALLSFSUB13(EPDBPS,epdbps,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,FLOAT,PINT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)
0881 
0882 PROTOCCALLSFSUB4(EPDCHK,epdchk,FLOATV,FLOATV,FLOATV,INT)
0883 #define EPDCHK(A1,A2,A3,A4)  CCALLSFSUB4(EPDCHK,epdchk,FLOATV,FLOATV,FLOATV,INT,A1,A2,A3,A4)
0884 
0885 PROTOCCALLSFSUB2(EPDCHN,epdchn,FLOAT,FLOAT)
0886 #define EPDCHN(A1,A2)  CCALLSFSUB2(EPDCHN,epdchn,FLOAT,FLOAT,A1,A2)
0887 
0888 PROTOCCALLSFSUB4(EPDCJ,epdcj,PFLOAT,FLOATV,PINT,PFLOAT)
0889 #define EPDCJ(A1,A2,A3,A4)  CCALLSFSUB4(EPDCJ,epdcj,PFLOAT,FLOATV,PINT,PFLOAT,A1,A2,A3,A4)
0890 
0891 PROTOCCALLSFSUB0(EPDE1,epde1)
0892 #define EPDE1() CCALLSFSUB0(EPDE1,epde1)
0893 
0894 PROTOCCALLSFSUB0(EPDECC,epdecc)
0895 #define EPDECC() CCALLSFSUB0(EPDECC,epdecc)
0896 
0897 PROTOCCALLSFSUB2(EPDFIX,epdfix,INT,PINT)
0898 #define EPDFIX(A1,A2)  CCALLSFSUB2(EPDFIX,epdfix,INT,PINT,A1,A2)
0899 
0900 PROTOCCALLSFSUB4(EPDIN,epdin,FLOATV,FLOATV,PINT,PFLOAT)
0901 #define EPDIN(A1,A2,A3,A4)  CCALLSFSUB4(EPDIN,epdin,FLOATV,FLOATV,PINT,PFLOAT,A1,A2,A3,A4)
0902 
0903 PROTOCCALLSFSUB5(EPDITR,epditr,FLOAT,PFLOAT,PFLOAT,PINT,PFLOAT)
0904 #define EPDITR(A1,A2,A3,A4,A5)  CCALLSFSUB5(EPDITR,epditr,FLOAT,PFLOAT,PFLOAT,PINT,PFLOAT,A1,A2,A3,A4,A5)
0905 
0906 PROTOCCALLSFSUB4(EPDJE,epdje,PFLOAT,FLOATV,PINT,PFLOAT)
0907 #define EPDJE(A1,A2,A3,A4)  CCALLSFSUB4(EPDJE,epdje,PFLOAT,FLOATV,PINT,PFLOAT,A1,A2,A3,A4)
0908 
0909 PROTOCCALLSFSUB11(EPDLOC,epdloc,INT,FLOAT,PFLOAT,INTV,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PINT,FLOAT)
0910 #define EPDLOC(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)  CCALLSFSUB11(EPDLOC,epdloc,INT,FLOAT,PFLOAT,INTV,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PINT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
0911 
0912 PROTOCCALLSFSUB4(EPDSRT,epdsrt,INT,INTV,PFLOAT,PFLOAT)
0913 #define EPDSRT(A1,A2,A3,A4)  CCALLSFSUB4(EPDSRT,epdsrt,INT,INTV,PFLOAT,PFLOAT,A1,A2,A3,A4)
0914 
0915 PROTOCCALLSFSUB5(EPDTAB,epdtab,INT,PFLOAT,FLOAT,INT,PINT)
0916 #define EPDTAB(A1,A2,A3,A4,A5)  CCALLSFSUB5(EPDTAB,epdtab,INT,PFLOAT,FLOAT,INT,PINT,A1,A2,A3,A4,A5)
0917 
0918 PROTOCCALLSFSUB5(EPSILO,epsilo,PDOUBLE,INT,INT,INT,PFLOAT)
0919 #define EPSILO(A1,A2,A3,A4,A5)  CCALLSFSUB5(EPSILO,epsilo,PDOUBLE,INT,INT,INT,PFLOAT,A1,A2,A3,A4,A5)
0920 
0921 PROTOCCALLSFSUB4(ERPRIP,erprip,FLOATV,FLOATV,FLOATV,FLOATV)
0922 #define ERPRIP(A1,A2,A3,A4)  CCALLSFSUB4(ERPRIP,erprip,FLOATV,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4)
0923 
0924 PROTOCCALLSFSUB1(ERRORF,errorf,INT)
0925 #define ERRORF(A1)  CCALLSFSUB1(ERRORF,errorf,INT,A1)
0926 
0927 PROTOCCALLSFSUB13(ESOLVE,esolve,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,INT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,INT)
0928 #define ESOLVE(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)  CCALLSFSUB13(ESOLVE,esolve,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,INT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)
0929 
0930 PROTOCCALLSFSUB9(FCN1,fcn1,INT,INT,FLOATV,FLOATV,INT,INT,FLOATV,INT,INT)
0931 #define FCN1(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(FCN1,fcn1,INT,INT,FLOATV,FLOATV,INT,INT,FLOATV,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0932 
0933 PROTOCCALLSFSUB11(FEASMV,feasmv,INT,INT,INTV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLE,PDOUBLE,PINT,PINT)
0934 #define FEASMV(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)  CCALLSFSUB11(FEASMV,feasmv,INT,INT,INTV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLE,PDOUBLE,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
0935 
0936 PROTOCCALLSFSUB4(FEQN,feqn,INT,DOUBLEV,DOUBLE,PDOUBLE)
0937 #define FEQN(A1,A2,A3,A4)  CCALLSFSUB4(FEQN,feqn,INT,DOUBLEV,DOUBLE,PDOUBLE,A1,A2,A3,A4)
0938 
0939 PROTOCCALLSFSUB6(FFTRC,fftrc,FLOATV,FLOATV,INT,FLOATV,FLOATV,INT)
0940 #define FFTRC(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(FFTRC,fftrc,FLOATV,FLOATV,INT,FLOATV,FLOATV,INT,A1,A2,A3,A4,A5,A6)
0941 
0942 PROTOCCALLSFSUB7(FIGI,figi,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PINT)
0943 #define FIGI(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(FIGI,figi,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7)
0944 
0945 PROTOCCALLSFSUB7(FIGI2,figi2,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PINT)
0946 #define FIGI2(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(FIGI2,figi2,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7)
0947 
0948 PROTOCCALLSFSUB3(FINDEM,findem,FLOAT,INT,PFLOAT)
0949 #define FINDEM(A1,A2,A3)  CCALLSFSUB3(FINDEM,findem,FLOAT,INT,PFLOAT,A1,A2,A3)
0950 
0951 PROTOCCALLSFSUB19(FINDPC,findpc,PDOUBLE,DOUBLEV,DOUBLEV,DOUBLE,INT,INT,INT,INTV,INTV,PINT,INTV,INTV,INT,PINT,INT,PDOUBLE,PDOUBLE,FLOAT,INT)
0952 #define FINDPC(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19)  CCALLSFSUB19(FINDPC,findpc,PDOUBLE,DOUBLEV,DOUBLEV,DOUBLE,INT,INT,INT,INTV,INTV,PINT,INTV,INTV,INT,PINT,INT,PDOUBLE,PDOUBLE,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19)
0953 
0954 PROTOCCALLSFSUB4(FRAME,frame,FLOAT,FLOAT,FLOAT,FLOAT)
0955 #define FRAME(A1,A2,A3,A4)  CCALLSFSUB4(FRAME,frame,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4)
0956 
0957 PROTOCCALLSFSUB7(FRED1,fred1,FLOAT,FLOAT,FLOAT,FLOAT,INT,PFLOAT,INT)
0958 #define FRED1(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(FRED1,fred1,FLOAT,FLOAT,FLOAT,FLOAT,INT,PFLOAT,INT,A1,A2,A3,A4,A5,A6,A7)
0959 
0960 PROTOCCALLSFSUB10(FUMILI,fumili,PFLOAT,INT,INT,INT,INT,FLOAT,PFLOAT,PFLOAT,INT,PINT)
0961 #define FUMILI(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)  CCALLSFSUB10(FUMILI,fumili,PFLOAT,INT,INT,INT,INT,FLOAT,PFLOAT,PFLOAT,INT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
0962 
0963 PROTOCCALLSFSUB4(FUNPRE,funpre,FLOAT,PFLOAT,FLOAT,FLOAT)
0964 #define FUNPRE(A1,A2,A3,A4)  CCALLSFSUB4(FUNPRE,funpre,FLOAT,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4)
0965 
0966 PROTOCCALLSFSUB2(FUNRAN,funran,FLOATV,PFLOAT)
0967 #define FUNRAN(A1,A2)  CCALLSFSUB2(FUNRAN,funran,FLOATV,PFLOAT,A1,A2)
0968 
0969 PROTOCCALLSFSUB5(FUNZER,funzer,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT)
0970 #define FUNZER(A1,A2,A3,A4,A5)  CCALLSFSUB5(FUNZER,funzer,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5)
0971 
0972 PROTOCCALLSFSUB4(GATHER,gather,INT,PFLOAT,FLOATV,INTV)
0973 #define GATHER(A1,A2,A3,A4)  CCALLSFSUB4(GATHER,gather,INT,PFLOAT,FLOATV,INTV,A1,A2,A3,A4)
0974 
0975 PROTOCCALLSFSUB3(GENPNT,genpnt,INT,FLOATV,FLOAT)
0976 #define GENPNT(A1,A2,A3)  CCALLSFSUB3(GENPNT,genpnt,INT,FLOATV,FLOAT,A1,A2,A3)
0977 
0978 PROTOCCALLSFSUB1(GENT,gent,INT)
0979 #define GENT(A1)  CCALLSFSUB1(GENT,gent,INT,A1)
0980 
0981 PROTOCCALLSFSUB6(GETSCH,getsch,BYTE,BYTE,BYTE,INT,PBYTE,PINT)
0982 #define GETSCH(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(GETSCH,getsch,BYTE,BYTE,BYTE,INT,PBYTE,PINT,A1,A2,A3,A4,A5,A6)
0983 
0984 PROTOCCALLSFSUB6(GETSST,getsst,INTV,INT,INT,INT,INTV,PINT)
0985 #define GETSST(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(GETSST,getsst,INTV,INT,INT,INT,INTV,PINT,A1,A2,A3,A4,A5,A6)
0986 
0987 PROTOCCALLSFSUB6(GRAPH,graph,PINT,INT,INT,PINT,PINT,PINT)
0988 #define GRAPH(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(GRAPH,graph,PINT,INT,INT,PINT,PINT,PINT,A1,A2,A3,A4,A5,A6)
0989 
0990 PROTOCCALLSFSUB9(GRDCMP,grdcmp,INT,INT,INTV,DOUBLEV,DOUBLE,DOUBLE,DOUBLEV,PDOUBLE,PDOUBLE)
0991 #define GRDCMP(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(GRDCMP,grdcmp,INT,INT,INTV,DOUBLEV,DOUBLE,DOUBLE,DOUBLEV,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0992 
0993 PROTOCCALLSFSUB12(H101S1,h101s1,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,INT,INT,INT,INT,INT,PINT,INT,PDOUBLE)
0994 #define H101S1(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(H101S1,h101s1,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,INT,INT,INT,INT,INT,PINT,INT,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
0995 
0996 PROTOCCALLSFSUB15(H101S2,h101s2,PDOUBLE,DOUBLEV,DOUBLEV,INT,INT,INT,INT,PINT,INT,PINT,INT,PDOUBLE,PDOUBLE,DOUBLE,INT)
0997 #define H101S2(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)  CCALLSFSUB15(H101S2,h101s2,PDOUBLE,DOUBLEV,DOUBLEV,INT,INT,INT,INT,PINT,INT,PINT,INT,PDOUBLE,PDOUBLE,DOUBLE,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)
0998 
0999 PROTOCCALLSFSUB9(ASSNDX,assndx,INT,PFLOAT,INT,INT,INT,PINT,PFLOAT,PINT,INT)
1000 #define ASSNDX(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(ASSNDX,assndx,INT,PFLOAT,INT,INT,INT,PINT,PFLOAT,PINT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9)
1001 
1002 PROTOCCALLSFSUB5(HISRAN,hisran,FLOATV,INT,FLOAT,FLOAT,FLOAT)
1003 #define HISRAN(A1,A2,A3,A4,A5)  CCALLSFSUB5(HISRAN,hisran,FLOATV,INT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
1004 
1005 PROTOCCALLSFSUB8(HQR,hqr,INT,INT,INT,INT,PFLOAT,PFLOAT,PFLOAT,PINT)
1006 #define HQR(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(HQR,hqr,INT,INT,INT,INT,PFLOAT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8)
1007 
1008 PROTOCCALLSFSUB9(HQR2,hqr2,INT,INT,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PINT)
1009 #define HQR2(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(HQR2,hqr2,INT,INT,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9)
1010 
1011 PROTOCCALLSFSUB8(HTRIBK,htribk,INT,INT,PFLOAT,PFLOAT,PFLOAT,INT,PFLOAT,PFLOAT)
1012 #define HTRIBK(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(HTRIBK,htribk,INT,INT,PFLOAT,PFLOAT,PFLOAT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
1013 
1014 PROTOCCALLSFSUB8(HTRIDI,htridi,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT)
1015 #define HTRIDI(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(HTRIDI,htridi,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
1016 
1017 PROTOCCALLSFSUB6(I128,i128,FLOATV,FLOATV,INT,FLOATV,FLOATV,INT)
1018 #define I128(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(I128,i128,FLOATV,FLOATV,INT,FLOATV,FLOATV,INT,A1,A2,A3,A4,A5,A6)
1019 
1020 PROTOCCALLSFSUB6(I32,i32,FLOATV,FLOATV,INT,FLOATV,FLOATV,INT)
1021 #define I32(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(I32,i32,FLOATV,FLOATV,INT,FLOATV,FLOATV,INT,A1,A2,A3,A4,A5,A6)
1022 
1023 PROTOCCALLSFSUB6(I64,i64,FLOATV,FLOATV,INT,FLOATV,FLOATV,INT)
1024 #define I64(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(I64,i64,FLOATV,FLOATV,INT,FLOATV,FLOATV,INT,A1,A2,A3,A4,A5,A6)
1025 
1026 PROTOCCALLSFSUB4(IMTQL1,imtql1,INT,PFLOAT,PFLOAT,PINT)
1027 #define IMTQL1(A1,A2,A3,A4)  CCALLSFSUB4(IMTQL1,imtql1,INT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4)
1028 
1029 PROTOCCALLSFSUB6(IMTQL2,imtql2,INT,INT,PFLOAT,PFLOAT,PFLOAT,PINT)
1030 #define IMTQL2(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(IMTQL2,imtql2,INT,INT,PFLOAT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6)
1031 
1032 PROTOCCALLSFSUB5(INTGRL,intgrl,INT,INT,INT,PFLOAT,PFLOAT)
1033 #define INTGRL(A1,A2,A3,A4,A5)  CCALLSFSUB5(INTGRL,intgrl,INT,INT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5)
1034 
1035 PROTOCCALLSFSUB13(INVIT,invit,INT,INT,PFLOAT,PFLOAT,FLOATV,LOGICALV,INT,PINT,PFLOAT,PINT,PFLOAT,PFLOAT,PFLOAT)
1036 #define INVIT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)  CCALLSFSUB13(INVIT,invit,INT,INT,PFLOAT,PFLOAT,FLOATV,LOGICALV,INT,PINT,PFLOAT,PINT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)
1037 
1038 PROTOCCALLSFSUB0(J509BD,j509bd)
1039 #define J509BD() CCALLSFSUB0(J509BD,j509bd)
1040 
1041 PROTOCCALLSFSUB5(LDLSOL,ldlsol,INT,INT,PDOUBLE,DOUBLEV,PDOUBLE)
1042 #define LDLSOL(A1,A2,A3,A4,A5)  CCALLSFSUB5(LDLSOL,ldlsol,INT,INT,PDOUBLE,DOUBLEV,PDOUBLE,A1,A2,A3,A4,A5)
1043 
1044 PROTOCCALLSFSUB0(LEG1,leg1)
1045 #define LEG1() CCALLSFSUB0(LEG1,leg1)
1046 
1047 PROTOCCALLSFSUB0(LEGOR,legor)
1048 #define LEGOR() CCALLSFSUB0(LEGOR,legor)
1049 
1050 PROTOCCALLSFSUB0(LEGV,legv)
1051 #define LEGV() CCALLSFSUB0(LEGV,legv)
1052 
1053 PROTOCCALLSFSUB0(LEGZ,legz)
1054 #define LEGZ() CCALLSFSUB0(LEGZ,legz)
1055 
1056 PROTOCCALLSFSUB7(LFIT,lfit,FLOATV,FLOATV,INT,INT,PFLOAT,PFLOAT,PFLOAT)
1057 #define LFIT(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(LFIT,lfit,FLOATV,FLOATV,INT,INT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
1058 
1059 PROTOCCALLSFSUB8(LFITW,lfitw,FLOATV,FLOATV,FLOATV,INT,INT,PFLOAT,PFLOAT,PFLOAT)
1060 #define LFITW(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(LFITW,lfitw,FLOATV,FLOATV,FLOATV,INT,INT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
1061 
1062 PROTOCCALLSFSUB12(LIHOIN,lihoin,PFLOAT,INT,INT,INT,INT,PFLOAT,INT,PINT,FLOAT,INT,PFLOAT,PINT)
1063 #define LIHOIN(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(LIHOIN,lihoin,PFLOAT,INT,INT,INT,INT,PFLOAT,INT,PINT,FLOAT,INT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
1064 
1065 PROTOCCALLSFSUB12(DLHOIN,dlhoin,PDOUBLE,INT,INT,INT,INT,PDOUBLE,INT,PINT,DOUBLE,INT,PDOUBLE,PINT)
1066 #define DLHOIN(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(DLHOIN,dlhoin,PDOUBLE,INT,INT,INT,INT,PDOUBLE,INT,PINT,DOUBLE,INT,PDOUBLE,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
1067 
1068 PROTOCCALLSFSUB12(LINSQ,linsq,INT,INT,INT,PFLOAT,PFLOAT,FLOATV,FLOATV,PFLOAT,PDOUBLE,FLOAT,FLOAT,PFLOAT)
1069 #define LINSQ(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(LINSQ,linsq,INT,INT,INT,PFLOAT,PFLOAT,FLOATV,FLOATV,PFLOAT,PDOUBLE,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
1070 
1071 PROTOCCALLSFSUB8(D508R1,d508r1,PDOUBLE,INT,INT,INT,INT,PINT,PINT,PDOUBLE)
1072 #define D508R1(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(D508R1,d508r1,PDOUBLE,INT,INT,INT,INT,PINT,PINT,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8)
1073 
1074 PROTOCCALLSFSUB8(D508R2,d508r2,PDOUBLE,INT,INT,FLOAT,INT,INTV,PINT,PDOUBLE)
1075 #define D508R2(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(D508R2,d508r2,PDOUBLE,INT,INT,FLOAT,INT,INTV,PINT,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8)
1076 
1077 PROTOCCALLSFSUB16(LOCSCH,locsch,INT,INT,INT,INTV,DOUBLEV,DOUBLE,DOUBLEV,DOUBLEV,DOUBLE,DOUBLE,PINT,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE)
1078 #define LOCSCH(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16)  CCALLSFSUB16(LOCSCH,locsch,INT,INT,INT,INTV,DOUBLEV,DOUBLE,DOUBLEV,DOUBLEV,DOUBLE,DOUBLE,PINT,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16)
1079 
1080 PROTOCCALLSFSUB9(LRCH,lrch,INT,INT,PFLOAT,FLOAT,INT,PFLOAT,INT,INT,PFLOAT)
1081 #define LRCH(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(LRCH,lrch,INT,INT,PFLOAT,FLOAT,INT,PFLOAT,INT,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9)
1082 
1083 PROTOCCALLSFSUB10(LSQQR,lsqqr,PFLOAT,PFLOAT,PFLOAT,INT,INT,INT,INT,INT,PLOGICAL,PFLOAT)
1084 #define LSQQR(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)  CCALLSFSUB10(LSQQR,lsqqr,PFLOAT,PFLOAT,PFLOAT,INT,INT,INT,INT,INT,PLOGICAL,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
1085 
1086 PROTOCCALLSFSUB4(MAP,map,FLOAT,FLOAT,FLOAT,FLOAT)
1087 #define MAP(A1,A2,A3,A4)  CCALLSFSUB4(MAP,map,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4)
1088 
1089 PROTOCCALLSFSUB1(MCONV,mconv,INT)
1090 #define MCONV(A1)  CCALLSFSUB1(MCONV,mconv,INT,A1)
1091 
1092 PROTOCCALLSFSUB6(MFT,mft,INT,INT,PFLOAT,PFLOAT,PFLOAT,INT)
1093 #define MFT(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(MFT,mft,INT,INT,PFLOAT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4,A5,A6)
1094 
1095 PROTOCCALLSFSUB8(RMINFC,rminfc,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,PLOGICAL)
1096 #define RMINFC(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(RMINFC,rminfc,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,PLOGICAL,A1,A2,A3,A4,A5,A6,A7,A8)
1097 
1098 PROTOCCALLSFSUB8(DMINFC,dminfc,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PLOGICAL)
1099 #define DMINFC(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(DMINFC,dminfc,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PLOGICAL,A1,A2,A3,A4,A5,A6,A7,A8)
1100 
1101 PROTOCCALLSFSUB11(MINSQ,minsq,INT,INT,PFLOAT,PFLOAT,FLOATV,INT,INT,INT,PFLOAT,FLOAT,FLOAT)
1102 #define MINSQ(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)  CCALLSFSUB11(MINSQ,minsq,INT,INT,PFLOAT,PFLOAT,FLOATV,INT,INT,INT,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
1103 
1104 PROTOCCALLSFSUB6(MODCHL,modchl,INT,INT,PDOUBLE,DOUBLE,PDOUBLE,PINT)
1105 #define MODCHL(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(MODCHL,modchl,INT,INT,PDOUBLE,DOUBLE,PDOUBLE,PINT,A1,A2,A3,A4,A5,A6)
1106 
1107 PROTOCCALLSFSUB8(MONITO,monito,FLOAT,INT,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT)
1108 #define MONITO(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(MONITO,monito,FLOAT,INT,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
1109 
1110 PROTOCCALLSFSUB3(MTLPRT,mtlprt,STRING,STRING,STRING)
1111 #define MTLPRT(A1,A2,A3)  CCALLSFSUB3(MTLPRT,mtlprt,STRING,STRING,STRING,A1,A2,A3)
1112 
1113 PROTOCCALLSFSUB4(MTLSET,mtlset,STRING,INT,INT,INT)
1114 #define MTLSET(A1,A2,A3,A4)  CCALLSFSUB4(MTLSET,mtlset,STRING,INT,INT,INT,A1,A2,A3,A4)
1115 
1116 PROTOCCALLSFSUB14(MULCHK,mulchk,INT,INT,INTV,INT,DOUBLE,DOUBLEV,DOUBLEV,DOUBLE,DOUBLE,DOUBLEV,PDOUBLE,PLOGICAL,PINT,PINT)
1117 #define MULCHK(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14)  CCALLSFSUB14(MULCHK,mulchk,INT,INT,INTV,INT,DOUBLE,DOUBLEV,DOUBLEV,DOUBLE,DOUBLE,DOUBLEV,PDOUBLE,PLOGICAL,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14)
1118 
1119 PROTOCCALLSFSUB5(MUNOMI,munomi,INT,INT,PFLOAT,PINT,PINT)
1120 #define MUNOMI(A1,A2,A3,A4,A5)  CCALLSFSUB5(MUNOMI,munomi,INT,INT,PFLOAT,PINT,PINT,A1,A2,A3,A4,A5)
1121 
1122 PROTOCCALLSFSUB10(MXDIPR,mxdipr,PFLOAT,PFLOAT,PFLOAT,INT,INT,INT,INT,INT,INT,INT)
1123 #define MXDIPR(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)  CCALLSFSUB10(MXDIPR,mxdipr,PFLOAT,PFLOAT,PFLOAT,INT,INT,INT,INT,INT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
1124 
1125 PROTOCCALLSFSUB6(MXSTEP,mxstep,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE)
1126 #define MXSTEP(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(MXSTEP,mxstep,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6)
1127 
1128 PROTOCCALLSFSUB2(NAMES,names,INT,INT)
1129 #define NAMES(A1,A2)  CCALLSFSUB2(NAMES,names,INT,INT,A1,A2)
1130 
1131 PROTOCCALLSFSUB3(NAMEZB,namezb,FLOAT,INT,INT)
1132 #define NAMEZB(A1,A2,A3)  CCALLSFSUB3(NAMEZB,namezb,FLOAT,INT,INT,A1,A2,A3)
1133 
1134 PROTOCCALLSFSUB29(NEWPTQ,newptq,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PINT,PINT)
1135 #define NEWPTQ(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)  CCALLSFSUB29(NEWPTQ,newptq,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PINT,PINT,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)
1136 
1137 PROTOCCALLSFSUB9(NEWRO,newro,INT,INT,INT,FLOAT,PFLOAT,FLOATV,FLOATV,FLOATV,FLOATV)
1138 #define NEWRO(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(NEWRO,newro,INT,INT,INT,FLOAT,PFLOAT,FLOATV,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
1139 
1140 PROTOCCALLSFSUB6(NMDCHL,nmdchl,INT,INT,PDOUBLE,DOUBLE,PDOUBLE,PDOUBLE)
1141 #define NMDCHL(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(NMDCHL,nmdchl,INT,INT,PDOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6)
1142 
1143 PROTOCCALLSFSUB8(NOCUT,nocut,INT,DOUBLEV,DOUBLEV,PDOUBLE,PINT,PINT,PDOUBLE,PINT)
1144 #define NOCUT(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(NOCUT,nocut,INT,DOUBLEV,DOUBLEV,PDOUBLE,PINT,PINT,PDOUBLE,PINT,A1,A2,A3,A4,A5,A6,A7,A8)
1145 
1146 PROTOCCALLSFSUB5(NODAUD,nodaud,PINT,INT,INT,INT,PINT)
1147 #define NODAUD(A1,A2,A3,A4,A5)  CCALLSFSUB5(NODAUD,nodaud,PINT,INT,INT,INT,PINT,A1,A2,A3,A4,A5)
1148 
1149 PROTOCCALLSFSUB7(NORMCO,normco,PFLOAT,PFLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
1150 #define NORMCO(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(NORMCO,normco,PFLOAT,PFLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7)
1151 
1152 PROTOCCALLSFSUB2(NRAN,nran,PFLOAT,INT)
1153 #define NRAN(A1,A2)  CCALLSFSUB2(NRAN,nran,PFLOAT,INT,A1,A2)
1154 
1155 PROTOCCALLSFSUB0(MINNEW,minnew)
1156 #define MINNEW() CCALLSFSUB0(MINNEW,minnew)
1157 
1158 PROTOCCALLSFSUB3(ORDRE2,ordre2,PFLOAT,PFLOAT,INT)
1159 #define ORDRE2(A1,A2,A3)  CCALLSFSUB3(ORDRE2,ordre2,PFLOAT,PFLOAT,INT,A1,A2,A3)
1160 
1161 PROTOCCALLSFSUB7(ORTBAK,ortbak,INT,INT,INT,PFLOAT,PFLOAT,INT,PFLOAT)
1162 #define ORTBAK(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(ORTBAK,ortbak,INT,INT,INT,PFLOAT,PFLOAT,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
1163 
1164 PROTOCCALLSFSUB6(ORTHES,orthes,INT,INT,INT,INT,PFLOAT,PFLOAT)
1165 #define ORTHES(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(ORTHES,orthes,INT,INT,INT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
1166 
1167 PROTOCCALLSFSUB12(ORTHVC,orthvc,INT,INT,INTV,DOUBLEV,DOUBLE,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE)
1168 #define ORTHVC(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(ORTHVC,orthvc,INT,INT,INTV,DOUBLEV,DOUBLE,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
1169 
1170 PROTOCCALLSFSUB7(ORTRAN,ortran,INT,INT,INT,INT,PFLOAT,PFLOAT,PFLOAT)
1171 #define ORTRAN(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(ORTRAN,ortran,INT,INT,INT,INT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
1172 
1173 PROTOCCALLSFSUB2(PAPER,paper,INT,INT)
1174 #define PAPER(A1,A2)  CCALLSFSUB2(PAPER,paper,INT,INT,A1,A2)
1175 
1176 PROTOCCALLSFSUB5(PARLSQ,parlsq,FLOATV,FLOATV,INT,PFLOAT,PFLOAT)
1177 #define PARLSQ(A1,A2,A3,A4,A5)  CCALLSFSUB5(PARLSQ,parlsq,FLOATV,FLOATV,INT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5)
1178 
1179 PROTOCCALLSFSUB5(PARTN,partn,INT,FLOATV,FLOATV,FLOAT,INT)
1180 #define PARTN(A1,A2,A3,A4,A5)  CCALLSFSUB5(PARTN,partn,INT,FLOATV,FLOATV,FLOAT,INT,A1,A2,A3,A4,A5)
1181 
1182 PROTOCCALLSFSUB2(PERMU,permu,PINT,INT)
1183 #define PERMU(A1,A2)  CCALLSFSUB2(PERMU,permu,PINT,INT,A1,A2)
1184 
1185 PROTOCCALLSFSUB6(PGRAPH,pgraph,PINT,INT,INT,PINT,INT,PINT)
1186 #define PGRAPH(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(PGRAPH,pgraph,PINT,INT,INT,PINT,INT,PINT,A1,A2,A3,A4,A5,A6)
1187 
1188 PROTOCCALLSFSUB12(PIVOT,pivot,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,INT,INT,INT,INT,INT,PINT,PINT,FLOAT)
1189 #define PIVOT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(PIVOT,pivot,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,INT,INT,INT,INT,INT,PINT,PINT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
1190 
1191 PROTOCCALLSFSUB3(POISSN,poissn,FLOAT,PINT,PINT)
1192 #define POISSN(A1,A2,A3)  CCALLSFSUB3(POISSN,poissn,FLOAT,PINT,PINT,A1,A2,A3)
1193 
1194 PROTOCCALLSFSUB7(POLROT,polrot,FLOAT,FLOAT,PFLOAT,PFLOAT,FLOAT,FLOAT,FLOAT)
1195 #define POLROT(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(POLROT,polrot,FLOAT,FLOAT,PFLOAT,PFLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7)
1196 
1197 PROTOCCALLSFSUB3(PRIPAR,pripar,FLOATV,FLOATV,PFLOAT)
1198 #define PRIPAR(A1,A2,A3)  CCALLSFSUB3(PRIPAR,pripar,FLOATV,FLOATV,PFLOAT,A1,A2,A3)
1199 
1200 PROTOCCALLSFSUB5(PROC1,proc1,PFLOAT,PFLOAT,INT,INT,INT)
1201 #define PROC1(A1,A2,A3,A4,A5)  CCALLSFSUB5(PROC1,proc1,PFLOAT,PFLOAT,INT,INT,INT,A1,A2,A3,A4,A5)
1202 
1203 PROTOCCALLSFSUB3(QFUNCT,qfunct,FLOAT,PFLOAT,PFLOAT)
1204 #define QFUNCT(A1,A2,A3)  CCALLSFSUB3(QFUNCT,qfunct,FLOAT,PFLOAT,PFLOAT,A1,A2,A3)
1205 
1206 PROTOCCALLSFSUB4(QUASI,quasi,PFLOAT,INT,INT,INT)
1207 #define QUASI(A1,A2,A3,A4)  CCALLSFSUB4(QUASI,quasi,PFLOAT,INT,INT,INT,A1,A2,A3,A4)
1208 
1209 PROTOCCALLSFSUB4(RAN3D,ran3d,PFLOAT,PFLOAT,PFLOAT,FLOAT)
1210 #define RAN3D(A1,A2,A3,A4)  CCALLSFSUB4(RAN3D,ran3d,PFLOAT,PFLOAT,PFLOAT,FLOAT,A1,A2,A3,A4)
1211 
1212 PROTOCCALLSFSUB2(RANUMS,ranums,PFLOAT,INT)
1213 #define RANUMS(A1,A2)  CCALLSFSUB2(RANUMS,ranums,PFLOAT,INT,A1,A2)
1214 
1215 PROTOCCALLSFSUB12(RATQR,ratqr,INT,FLOAT,FLOATV,FLOATV,PFLOAT,INT,PFLOAT,PINT,PFLOAT,LOGICAL,INT,PINT)
1216 #define RATQR(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(RATQR,ratqr,INT,FLOAT,FLOATV,FLOATV,PFLOAT,INT,PFLOAT,PINT,PFLOAT,LOGICAL,INT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
1217 
1218 PROTOCCALLSFSUB5(RCA,rca,INT,FLOATV,INT,PFLOAT,INT)
1219 #define RCA(A1,A2,A3,A4,A5)  CCALLSFSUB5(RCA,rca,INT,FLOATV,INT,PFLOAT,INT,A1,A2,A3,A4,A5)
1220 
1221 PROTOCCALLSFSUB3(RCHPWS,rchpws,INT,FLOAT,FLOAT)
1222 #define RCHPWS(A1,A2,A3)  CCALLSFSUB3(RCHPWS,rchpws,INT,FLOAT,FLOAT,A1,A2,A3)
1223 
1224 PROTOCCALLSFSUB10(RCSPLN,rcspln,INT,FLOAT,INT,FLOAT,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT)
1225 #define RCSPLN(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)  CCALLSFSUB10(RCSPLN,rcspln,INT,FLOAT,INT,FLOAT,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
1226 
1227 PROTOCCALLSFSUB10(DCSPLN,dcspln,INT,DOUBLEV,INT,PDOUBLE,INT,INT,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE)
1228 #define DCSPLN(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)  CCALLSFSUB10(DCSPLN,dcspln,INT,DOUBLEV,INT,PDOUBLE,INT,INT,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
1229 
1230 PROTOCCALLSFSUB12(RECPAR,recpar,INT,PFLOAT,PFLOAT,FLOAT,FLOAT,INT,PINT,PINT,FLOATV,PINT,FLOATV,INT)
1231 #define RECPAR(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(RECPAR,recpar,INT,PFLOAT,PFLOAT,FLOAT,FLOAT,INT,PINT,PINT,FLOATV,PINT,FLOATV,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
1232 
1233 PROTOCCALLSFSUB8(RFRDH1,rfrdh1,FLOAT,FLOAT,INT,FLOAT,INT,FLOAT,INT,INT)
1234 #define RFRDH1(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(RFRDH1,rfrdh1,FLOAT,FLOAT,INT,FLOAT,INT,FLOAT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8)
1235 
1236 PROTOCCALLSFSUB8(DFRDH1,dfrdh1,DOUBLE,DOUBLE,INT,DOUBLEV,INTV,PDOUBLE,INT,PINT)
1237 #define DFRDH1(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(DFRDH1,dfrdh1,DOUBLE,DOUBLE,INT,DOUBLEV,INTV,PDOUBLE,INT,PINT,A1,A2,A3,A4,A5,A6,A7,A8)
1238 
1239 PROTOCCALLSFSUB6(RFT,rft,INT,FLOATV,INT,FLOATV,INT,INT)
1240 #define RFT(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(RFT,rft,INT,FLOATV,INT,FLOATV,INT,INT,A1,A2,A3,A4,A5,A6)
1241 
1242 PROTOCCALLSFSUB1(RIWIAD,riwiad,DOUBLE)
1243 #define RIWIAD(A1)  CCALLSFSUB1(RIWIAD,riwiad,DOUBLE,A1)
1244 
1245 PROTOCCALLSFSUB0(RIWIBD,riwibd)
1246 #define RIWIBD() CCALLSFSUB0(RIWIBD,riwibd)
1247 
1248 PROTOCCALLSFSUB7(DRKNYS,drknys,INT,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLE,PDOUBLE)
1249 #define DRKNYS(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(DRKNYS,drknys,INT,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7)
1250 
1251 PROTOCCALLSFSUB7(RKNYS,rknys,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
1252 #define RKNYS(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(RKNYS,rknys,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7)
1253 
1254 PROTOCCALLSFSUB6(RKSTP,rkstp,INT,FLOAT,PFLOAT,PFLOAT,FLOAT,PFLOAT)
1255 #define RKSTP(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(RKSTP,rkstp,INT,FLOAT,PFLOAT,PFLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
1256 
1257 PROTOCCALLSFSUB6(DRKSTP,drkstp,INT,DOUBLE,PDOUBLE,PDOUBLE,DOUBLE,PDOUBLE)
1258 #define DRKSTP(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(DRKSTP,drkstp,INT,DOUBLE,PDOUBLE,PDOUBLE,DOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6)
1259 
1260 PROTOCCALLSFSUB3(RLEN,rlen,INT,DOUBLEV,PDOUBLE)
1261 #define RLEN(A1,A2,A3)  CCALLSFSUB3(RLEN,rlen,INT,DOUBLEV,PDOUBLE,A1,A2,A3)
1262 
1263 PROTOCCALLSFSUB4(RMULLZ,rmullz,FLOAT,INT,INT,FLOAT)
1264 #define RMULLZ(A1,A2,A3,A4)  CCALLSFSUB4(RMULLZ,rmullz,FLOAT,INT,INT,FLOAT,A1,A2,A3,A4)
1265 
1266 PROTOCCALLSFSUB5(DGSET,dgset,DOUBLE,DOUBLE,INT,DOUBLEV,DOUBLEV)
1267 #define DGSET(A1,A2,A3,A4,A5)  CCALLSFSUB5(DGSET,dgset,DOUBLE,DOUBLE,INT,DOUBLEV,DOUBLEV,A1,A2,A3,A4,A5)
1268 
1269 PROTOCCALLSFSUB5(ROTATE,rotate,PFLOAT,PFLOAT,FLOAT,FLOAT,INT)
1270 #define ROTATE(A1,A2,A3,A4,A5)  CCALLSFSUB5(ROTATE,rotate,PFLOAT,PFLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5)
1271 
1272 PROTOCCALLSFSUB5(RPA,rpa,INT,FLOATV,INT,PFLOAT,INT)
1273 #define RPA(A1,A2,A3,A4,A5)  CCALLSFSUB5(RPA,rpa,INT,FLOATV,INT,PFLOAT,INT,A1,A2,A3,A4,A5)
1274 
1275 PROTOCCALLSFSUB5(RPS,rps,INT,FLOATV,INT,PFLOAT,INT)
1276 #define RPS(A1,A2,A3,A4,A5)  CCALLSFSUB5(RPS,rps,INT,FLOATV,INT,PFLOAT,INT,A1,A2,A3,A4,A5)
1277 
1278 PROTOCCALLSFSUB5(RSA,rsa,INT,FLOATV,INT,PFLOAT,INT)
1279 #define RSA(A1,A2,A3,A4,A5)  CCALLSFSUB5(RSA,rsa,INT,FLOATV,INT,PFLOAT,INT,A1,A2,A3,A4,A5)
1280 
1281 PROTOCCALLSFSUB15(RSMPLX,rsmplx,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,INT,INT,INT,INT,INT,FLOAT,FLOAT,FLOAT,INT)
1282 #define RSMPLX(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)  CCALLSFSUB15(RSMPLX,rsmplx,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,INT,INT,INT,INT,INT,FLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)
1283 
1284 PROTOCCALLSFSUB9(RSRTNT,rsrtnt,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,LOGICAL)
1285 #define RSRTNT(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(RSRTNT,rsrtnt,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,LOGICAL,A1,A2,A3,A4,A5,A6,A7,A8,A9)
1286 
1287 PROTOCCALLSFSUB9(DSRTNT,dsrtnt,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PLOGICAL)
1288 #define DSRTNT(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(DSRTNT,dsrtnt,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PLOGICAL,A1,A2,A3,A4,A5,A6,A7,A8,A9)
1289 
1290 PROTOCCALLSFSUB5(RTEQ3,rteq3,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
1291 #define RTEQ3(A1,A2,A3,A4,A5)  CCALLSFSUB5(RTEQ3,rteq3,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
1292 
1293 PROTOCCALLSFSUB5(DRTEQ3,drteq3,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE)
1294 #define DRTEQ3(A1,A2,A3,A4,A5)  CCALLSFSUB5(DRTEQ3,drteq3,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5)
1295 
1296 PROTOCCALLSFSUB7(RTEQ4,rteq4,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT)
1297 #define RTEQ4(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(RTEQ4,rteq4,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7)
1298 
1299 PROTOCCALLSFSUB2(S128,s128,FLOATV,PFLOAT)
1300 #define S128(A1,A2)  CCALLSFSUB2(S128,s128,FLOATV,PFLOAT,A1,A2)
1301 
1302 PROTOCCALLSFSUB2(S256,s256,FLOATV,PFLOAT)
1303 #define S256(A1,A2)  CCALLSFSUB2(S256,s256,FLOATV,PFLOAT,A1,A2)
1304 
1305 PROTOCCALLSFSUB2(S512,s512,FLOATV,PFLOAT)
1306 #define S512(A1,A2)  CCALLSFSUB2(S512,s512,FLOATV,PFLOAT,A1,A2)
1307 
1308 PROTOCCALLSFSUB2(S64,s64,FLOATV,PFLOAT)
1309 #define S64(A1,A2)  CCALLSFSUB2(S64,s64,FLOATV,PFLOAT,A1,A2)
1310 
1311 PROTOCCALLSFSUB2(SCAL,scal,INT,PFLOAT)
1312 #define SCAL(A1,A2)  CCALLSFSUB2(SCAL,scal,INT,PFLOAT,A1,A2)
1313 
1314 PROTOCCALLSFSUB4(SCATTER,scatter,INT,PFLOAT,INTV,FLOATV)
1315 #define SCATTER(A1,A2,A3,A4)  CCALLSFSUB4(SCATTER,scatter,INT,PFLOAT,INTV,FLOATV,A1,A2,A3,A4)
1316 
1317 PROTOCCALLSFSUB8(SETTOL,settol,INT,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PINT,PINT)
1318 #define SETTOL(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(SETTOL,settol,INT,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8)
1319 
1320 PROTOCCALLSFSUB8(SETUP,setup,FLOAT,INT,FLOAT,INT,FLOAT,INT,FLOAT,INT)
1321 #define SETUP(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(SETUP,setup,FLOAT,INT,FLOAT,INT,FLOAT,INT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8)
1322 
1323 PROTOCCALLSFSUB2(SGZ,sgz,INT,PFLOAT)
1324 #define SGZ(A1,A2)  CCALLSFSUB2(SGZ,sgz,INT,PFLOAT,A1,A2)
1325 
1326 PROTOCCALLSFSUB5(SHRNK,shrnk,INT,INT,PDOUBLE,INT,PDOUBLE)
1327 #define SHRNK(A1,A2,A3,A4,A5)  CCALLSFSUB5(SHRNK,shrnk,INT,INT,PDOUBLE,INT,PDOUBLE,A1,A2,A3,A4,A5)
1328 
1329 PROTOCCALLSFSUB12(SIMPLE,simple,PDOUBLE,DOUBLEV,DOUBLEV,DOUBLE,INTV,INT,INTV,INTV,INTV,PDOUBLE,INT,INT)
1330 #define SIMPLE(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(SIMPLE,simple,PDOUBLE,DOUBLEV,DOUBLEV,DOUBLE,INTV,INT,INTV,INTV,INTV,PDOUBLE,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
1331 
1332 PROTOCCALLSFSUB8(SLV,slv,INT,INT,PFLOAT,FLOATV,INTV,PFLOAT,PFLOAT,PFLOAT)
1333 #define SLV(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(SLV,slv,INT,INT,PFLOAT,FLOATV,INTV,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
1334 
1335 PROTOCCALLSFSUB10(SNLEQ,snleq,INT,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,INT,FLOAT,FLOAT)
1336 #define SNLEQ(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)  CCALLSFSUB10(SNLEQ,snleq,INT,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,INT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
1337 
1338 PROTOCCALLSFSUB10(DSNLEQ,dsnleq,INT,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,INT,INT,PINT,DOUBLE,PDOUBLE)
1339 #define DSNLEQ(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)  CCALLSFSUB10(DSNLEQ,dsnleq,INT,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,INT,INT,PINT,DOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
1340 
1341 PROTOCCALLSFSUB4(SORTDQ,sortdq,PDOUBLE,INT,INT,INT)
1342 #define SORTDQ(A1,A2,A3,A4)  CCALLSFSUB4(SORTDQ,sortdq,PDOUBLE,INT,INT,INT,A1,A2,A3,A4)
1343 
1344 PROTOCCALLSFSUB4(SORTIQ,sortiq,PINT,INT,INT,INT)
1345 #define SORTIQ(A1,A2,A3,A4)  CCALLSFSUB4(SORTIQ,sortiq,PINT,INT,INT,INT,A1,A2,A3,A4)
1346 
1347 PROTOCCALLSFSUB4(SORTRQ,sortrq,PFLOAT,INT,INT,INT)
1348 #define SORTRQ(A1,A2,A3,A4)  CCALLSFSUB4(SORTRQ,sortrq,PFLOAT,INT,INT,INT,A1,A2,A3,A4)
1349 
1350 PROTOCCALLSFSUB5(SPLAN0,splan0,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,INT)
1351 #define SPLAN0(A1,A2,A3,A4,A5)  CCALLSFSUB5(SPLAN0,splan0,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,A1,A2,A3,A4,A5)
1352 
1353 PROTOCCALLSFSUB6(SPLAN1,splan1,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT)
1354 #define SPLAN1(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(SPLAN1,splan1,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,A1,A2,A3,A4,A5,A6)
1355 
1356 PROTOCCALLSFSUB7(SPLAN2,splan2,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT)
1357 #define SPLAN2(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(SPLAN2,splan2,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,A1,A2,A3,A4,A5,A6,A7)
1358 
1359 PROTOCCALLSFSUB8(SPLAN3,splan3,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT)
1360 #define SPLAN3(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(SPLAN3,splan3,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,A1,A2,A3,A4,A5,A6,A7,A8)
1361 
1362 PROTOCCALLSFSUB15(SPLAS1,splas1,INT,INT,INT,INT,DOUBLEV,DOUBLEV,INT,PDOUBLE,PDOUBLE,DOUBLEV,PDOUBLE,PDOUBLE,INT,DOUBLEV,PINT)
1363 #define SPLAS1(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)  CCALLSFSUB15(SPLAS1,splas1,INT,INT,INT,INT,DOUBLEV,DOUBLEV,INT,PDOUBLE,PDOUBLE,DOUBLEV,PDOUBLE,PDOUBLE,INT,DOUBLEV,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)
1364 
1365 PROTOCCALLSFSUB26(SPLAS2,splas2,INT,INT,INT,INT,INT,INT,INT,INT,INT,INT,INT,INT,DOUBLEV,DOUBLEV,PDOUBLE,INT,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,INT,PDOUBLE,INT)
1366 #define SPLAS2(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)  CCALLSFSUB26(SPLAS2,splas2,INT,INT,INT,INT,INT,INT,INT,INT,INT,INT,INT,INT,DOUBLEV,DOUBLEV,PDOUBLE,INT,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,INT,PDOUBLE,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)
1367 
1368 PROTOCCALLSFSUB11(SPLIN3,splin3,FLOATV,FLOATV,PFLOAT,INT,INT,FLOATV,PFLOAT,PFLOAT,INT,INT,INT)
1369 #define SPLIN3(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)  CCALLSFSUB11(SPLIN3,splin3,FLOATV,FLOATV,PFLOAT,INT,INT,FLOATV,PFLOAT,PFLOAT,INT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
1370 
1371 PROTOCCALLSFSUB10(SPLIT,split,INT,FLOATV,FLOATV,FLOAT,FLOAT,PLOGICAL,PINT,PFLOAT,PFLOAT,INT)
1372 #define SPLIT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)  CCALLSFSUB10(SPLIT,split,INT,FLOATV,FLOATV,FLOAT,FLOAT,PLOGICAL,PINT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
1373 
1374 PROTOCCALLSFSUB17(SPLX,splx,PDOUBLE,DOUBLEV,DOUBLEV,DOUBLE,INT,INT,INT,INT,INT,PINT,PINT,PINT,PINT,PINT,DOUBLEV,DOUBLEV,PINT)
1375 #define SPLX(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17)  CCALLSFSUB17(SPLX,splx,PDOUBLE,DOUBLEV,DOUBLEV,DOUBLE,INT,INT,INT,INT,INT,PINT,PINT,PINT,PINT,PINT,DOUBLEV,DOUBLEV,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17)
1376 
1377 PROTOCCALLSFSUB3(SPXINV,spxinv,PFLOAT,INT,PINT)
1378 #define SPXINV(A1,A2,A3)  CCALLSFSUB3(SPXINV,spxinv,PFLOAT,INT,PINT,A1,A2,A3)
1379 
1380 PROTOCCALLSFSUB10(SVD,svd,PFLOAT,PFLOAT,PFLOAT,INT,INT,INT,INT,INT,LOGICAL,LOGICAL)
1381 #define SVD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)  CCALLSFSUB10(SVD,svd,PFLOAT,PFLOAT,PFLOAT,INT,INT,INT,INT,INT,LOGICAL,LOGICAL,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
1382 
1383 PROTOCCALLSFSUB4(SYNT,synt,INT,INT,INT,PFLOAT)
1384 #define SYNT(A1,A2,A3,A4)  CCALLSFSUB4(SYNT,synt,INT,INT,INT,PFLOAT,A1,A2,A3,A4)
1385 
1386 PROTOCCALLSFSUB7(TAYCHD,taychd,DOUBLE,DOUBLE,DOUBLEV,PDOUBLE,INT,INT,PDOUBLE)
1387 #define TAYCHD(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(TAYCHD,taychd,DOUBLE,DOUBLE,DOUBLEV,PDOUBLE,INT,INT,PDOUBLE,A1,A2,A3,A4,A5,A6,A7)
1388 
1389 PROTOCCALLSFSUB15(TINVIT,tinvit,INT,INT,FLOATV,FLOATV,FLOATV,INT,FLOATV,INTV,PFLOAT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT)
1390 #define TINVIT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)  CCALLSFSUB15(TINVIT,tinvit,INT,INT,FLOATV,FLOATV,FLOATV,INT,FLOATV,INTV,PFLOAT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)
1391 
1392 PROTOCCALLSFSUB5(TKOLMO,tkolmo,FLOATV,INT,FLOATV,INT,PFLOAT)
1393 #define TKOLMO(A1,A2,A3,A4,A5)  CCALLSFSUB5(TKOLMO,tkolmo,FLOATV,INT,FLOATV,INT,PFLOAT,A1,A2,A3,A4,A5)
1394 
1395 PROTOCCALLSFSUB4(TQL1,tql1,INT,PFLOAT,PFLOAT,PINT)
1396 #define TQL1(A1,A2,A3,A4)  CCALLSFSUB4(TQL1,tql1,INT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4)
1397 
1398 PROTOCCALLSFSUB6(TQL2,tql2,INT,INT,PFLOAT,PFLOAT,PFLOAT,PINT)
1399 #define TQL2(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(TQL2,tql2,INT,INT,PFLOAT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6)
1400 
1401 PROTOCCALLSFSUB4(TRANSD,transd,DOUBLEV,PDOUBLE,INT,DOUBLEV)
1402 #define TRANSD(A1,A2,A3,A4)  CCALLSFSUB4(TRANSD,transd,DOUBLEV,PDOUBLE,INT,DOUBLEV,A1,A2,A3,A4)
1403 
1404 PROTOCCALLSFSUB8(TRAPER,traper,FLOATV,FLOATV,FLOATV,INT,FLOAT,FLOAT,PFLOAT,PFLOAT)
1405 #define TRAPER(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(TRAPER,traper,FLOATV,FLOATV,FLOATV,INT,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
1406 
1407 PROTOCCALLSFSUB6(TRBAK1,trbak1,INT,INT,PFLOAT,FLOATV,INT,PFLOAT)
1408 #define TRBAK1(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(TRBAK1,trbak1,INT,INT,PFLOAT,FLOATV,INT,PFLOAT,A1,A2,A3,A4,A5,A6)
1409 
1410 PROTOCCALLSFSUB0(TRDZ,trdz)
1411 #define TRDZ() CCALLSFSUB0(TRDZ,trdz)
1412 
1413 PROTOCCALLSFSUB5(TREAUD,treaud,PINT,INT,PINT,INT,PINT)
1414 #define TREAUD(A1,A2,A3,A4,A5)  CCALLSFSUB5(TREAUD,treaud,PINT,INT,PINT,INT,PINT,A1,A2,A3,A4,A5)
1415 
1416 PROTOCCALLSFSUB6(TRED1,tred1,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT)
1417 #define TRED1(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(TRED1,tred1,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
1418 
1419 PROTOCCALLSFSUB6(TRED2,tred2,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT)
1420 #define TRED2(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(TRED2,tred2,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
1421 
1422 PROTOCCALLSFSUB1(TREDMP,tredmp,INT)
1423 #define TREDMP(A1)  CCALLSFSUB1(TREDMP,tredmp,INT,A1)
1424 
1425 PROTOCCALLSFSUB5(TREVNI,trevni,INTV,INT,PINT,INT,PINT)
1426 #define TREVNI(A1,A2,A3,A4,A5)  CCALLSFSUB5(TREVNI,trevni,INTV,INT,PINT,INT,PINT,A1,A2,A3,A4,A5)
1427 
1428 PROTOCCALLSFSUB7(TRICOF,tricof,PFLOAT,INT,PFLOAT,INT,PFLOAT,INT,INT)
1429 #define TRICOF(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(TRICOF,tricof,PFLOAT,INT,PFLOAT,INT,PFLOAT,INT,INT,A1,A2,A3,A4,A5,A6,A7)
1430 
1431 PROTOCCALLSFSUB11(TSTEXT,tstext,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLE,DOUBLE,PINT,INT,PINT,PDOUBLE,PDOUBLE)
1432 #define TSTEXT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)  CCALLSFSUB11(TSTEXT,tstext,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLE,DOUBLE,PINT,INT,PINT,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
1433 
1434 PROTOCCALLSFSUB19(TSTURM,tsturm,INT,INT,FLOAT,FLOATV,FLOATV,PFLOAT,PFLOAT,PFLOAT,INT,PINT,PFLOAT,PFLOAT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT)
1435 #define TSTURM(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19)  CCALLSFSUB19(TSTURM,tsturm,INT,INT,FLOAT,FLOATV,FLOATV,PFLOAT,PFLOAT,PFLOAT,INT,PINT,PFLOAT,PFLOAT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19)
1436 
1437 PROTOCCALLSFSUB3(TUP,tup,INTV,INT,INT)
1438 #define TUP(A1,A2,A3)  CCALLSFSUB3(TUP,tup,INTV,INT,INT,A1,A2,A3)
1439 
1440 PROTOCCALLSFSUB3(U100DV,u100dv,INTV,INTV,PINT)
1441 #define U100DV(A1,A2,A3)  CCALLSFSUB3(U100DV,u100dv,INTV,INTV,PINT,A1,A2,A3)
1442 
1443 PROTOCCALLSFSUB2(U100FC,u100fc,INT,PINT)
1444 #define U100FC(A1,A2)  CCALLSFSUB2(U100FC,u100fc,INT,PINT,A1,A2)
1445 
1446 PROTOCCALLSFSUB3(U100PM,u100pm,INTV,PINT,PINT)
1447 #define U100PM(A1,A2,A3)  CCALLSFSUB3(U100PM,u100pm,INTV,PINT,PINT,A1,A2,A3)
1448 
1449 PROTOCCALLSFSUB3(U100PR,u100pr,PINT,PINT,PINT)
1450 #define U100PR(A1,A2,A3)  CCALLSFSUB3(U100PR,u100pr,PINT,PINT,PINT,A1,A2,A3)
1451 
1452 PROTOCCALLSFSUB6(USRINT,usrint,FLOAT,FLOAT,INT,FLOAT,INT,FLOAT)
1453 #define USRINT(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(USRINT,usrint,FLOAT,FLOAT,INT,FLOAT,INT,FLOAT,A1,A2,A3,A4,A5,A6)
1454 
1455 PROTOCCALLSFSUB3(VAVSET,vavset,FLOAT,FLOAT,INT)
1456 #define VAVSET(A1,A2,A3)  CCALLSFSUB3(VAVSET,vavset,FLOAT,FLOAT,INT,A1,A2,A3)
1457 
1458 PROTOCCALLSFSUB6(VAVZRO,vavzro,FLOAT,FLOAT,PFLOAT,FLOAT,FLOAT,INT)
1459 #define VAVZRO(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(VAVZRO,vavzro,FLOAT,FLOAT,PFLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6)
1460 
1461 PROTOCCALLSFSUB7(VD01A,vd01a,PINT,PFLOAT,PFLOAT,INT,FLOAT,FLOAT,FLOAT)
1462 #define VD01A(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(VD01A,vd01a,PINT,PFLOAT,PFLOAT,INT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7)
1463 
1464 PROTOCCALLSFSUB5(VVISET,vviset,FLOAT,FLOAT,INT,PFLOAT,PFLOAT)
1465 #define VVISET(A1,A2,A3,A4,A5)  CCALLSFSUB5(VVISET,vviset,FLOAT,FLOAT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5)
1466 
1467 PROTOCCALLSFSUB6(WHENEQ,wheneq,INT,INTV,INT,INT,PINT,PINT)
1468 #define WHENEQ(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(WHENEQ,wheneq,INT,INTV,INT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6)
1469 
1470 PROTOCCALLSFSUB6(WHENFGE,whenfge,INT,FLOATV,INT,FLOAT,PINT,PINT)
1471 #define WHENFGE(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(WHENFGE,whenfge,INT,FLOATV,INT,FLOAT,PINT,PINT,A1,A2,A3,A4,A5,A6)
1472 
1473 PROTOCCALLSFSUB6(WHENFGT,whenfgt,INT,FLOATV,INT,FLOAT,PINT,PINT)
1474 #define WHENFGT(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(WHENFGT,whenfgt,INT,FLOATV,INT,FLOAT,PINT,PINT,A1,A2,A3,A4,A5,A6)
1475 
1476 PROTOCCALLSFSUB6(WHENFLE,whenfle,INT,FLOATV,INT,FLOAT,PINT,PINT)
1477 #define WHENFLE(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(WHENFLE,whenfle,INT,FLOATV,INT,FLOAT,PINT,PINT,A1,A2,A3,A4,A5,A6)
1478 
1479 PROTOCCALLSFSUB6(WHENFLT,whenflt,INT,FLOATV,INT,FLOAT,PINT,PINT)
1480 #define WHENFLT(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(WHENFLT,whenflt,INT,FLOATV,INT,FLOAT,PINT,PINT,A1,A2,A3,A4,A5,A6)
1481 
1482 PROTOCCALLSFSUB6(WHENIGE,whenige,INT,INTV,INT,INT,PINT,PINT)
1483 #define WHENIGE(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(WHENIGE,whenige,INT,INTV,INT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6)
1484 
1485 PROTOCCALLSFSUB6(WHENIGT,whenigt,INT,INTV,INT,INT,PINT,PINT)
1486 #define WHENIGT(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(WHENIGT,whenigt,INT,INTV,INT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6)
1487 
1488 PROTOCCALLSFSUB6(WHENILE,whenile,INT,INTV,INT,INT,PINT,PINT)
1489 #define WHENILE(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(WHENILE,whenile,INT,INTV,INT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6)
1490 
1491 PROTOCCALLSFSUB6(WHENILT,whenilt,INT,INTV,INT,INT,PINT,PINT)
1492 #define WHENILT(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(WHENILT,whenilt,INT,INTV,INT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6)
1493 
1494 PROTOCCALLSFSUB6(WHENNE,whenne,INT,INTV,INT,INT,PINT,PINT)
1495 #define WHENNE(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(WHENNE,whenne,INT,INTV,INT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6)
1496 
1497 PROTOCCALLSFSUB6(ZEROX,zerox,FLOAT,FLOAT,FLOAT,INT,FLOAT,INT)
1498 #define ZEROX(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(ZEROX,zerox,FLOAT,FLOAT,FLOAT,INT,FLOAT,INT,A1,A2,A3,A4,A5,A6)
1499 #ifdef __cplusplus
1500 } /* extern "C" */
1501 #endif
1502 
1503 #endif /* #ifndef _GEN_H */
[ Source navigation ] [ Diff markup ] [ Identifier search ] [ general search ]

This page was automatically generated by the 2.3.7 LXR engine.

The LXR team
Valid CSS 2.1! Valid HTML 4.01!