source/include/kernlib.h

0001 #ifndef _KERNLIB_H
0002 #define _KERNLIB_H
0003 #include <cfortran/cfortran.h>
0004
0005 #ifdef __cplusplus
0006 extern "C" {
0007 #endif
0008 PROTOCCALLSFFUN1(FLOAT,ALOGAM,alogam,FLOAT)
0009 #define ALOGAM(A2)  CCALLSFFUN1(ALOGAM,alogam,FLOAT,A2)
0010
0011 PROTOCCALLSFFUN1(FLOAT,BESI0,besi0,FLOAT)
0012 #define BESI0(A2)  CCALLSFFUN1(BESI0,besi0,FLOAT,A2)
0013
0014 PROTOCCALLSFFUN1(FLOAT,BESI1,besi1,FLOAT)
0015 #define BESI1(A2)  CCALLSFFUN1(BESI1,besi1,FLOAT,A2)
0016
0017 PROTOCCALLSFFUN1(FLOAT,BESJ0,besj0,FLOAT)
0018 #define BESJ0(A2)  CCALLSFFUN1(BESJ0,besj0,FLOAT,A2)
0019
0020 PROTOCCALLSFFUN1(FLOAT,BESJ1,besj1,FLOAT)
0021 #define BESJ1(A2)  CCALLSFFUN1(BESJ1,besj1,FLOAT,A2)
0022
0023 PROTOCCALLSFFUN1(FLOAT,BESK0,besk0,FLOAT)
0024 #define BESK0(A2)  CCALLSFFUN1(BESK0,besk0,FLOAT,A2)
0025
0026 PROTOCCALLSFFUN1(FLOAT,BESK1,besk1,FLOAT)
0027 #define BESK1(A2)  CCALLSFFUN1(BESK1,besk1,FLOAT,A2)
0028
0029 PROTOCCALLSFFUN1(FLOAT,BESY0,besy0,FLOAT)
0030 #define BESY0(A2)  CCALLSFFUN1(BESY0,besy0,FLOAT,A2)
0031
0032 PROTOCCALLSFFUN1(FLOAT,BESY1,besy1,FLOAT)
0033 #define BESY1(A2)  CCALLSFFUN1(BESY1,besy1,FLOAT,A2)
0034
0035 PROTOCCALLSFFUN1(FLOAT,COSINT,cosint,FLOAT)
0036 #define COSINT(A2)  CCALLSFFUN1(COSINT,cosint,FLOAT,A2)
0037
0038 PROTOCCALLSFFUN1(DOUBLE,DERF,derf,DOUBLE)
0039 #define DERF(A2)  CCALLSFFUN1(DERF,derf,DOUBLE,A2)
0040
0041 PROTOCCALLSFFUN1(DOUBLE,DFREQ,dfreq,DOUBLE)
0042 #define DFREQ(A2)  CCALLSFFUN1(DFREQ,dfreq,DOUBLE,A2)
0043
0044 PROTOCCALLSFFUN1(DOUBLE,DGAMMA,dgamma,DOUBLE)
0045 #define DGAMMA(A2)  CCALLSFFUN1(DGAMMA,dgamma,DOUBLE,A2)
0046
0047 PROTOCCALLSFFUN4(DOUBLE,DGAUSS,dgauss,ROUTINE,DOUBLE,DOUBLE,DOUBLE)
0048 #define DGAUSS(A2,A3,A4,A5)  CCALLSFFUN4(DGAUSS,dgauss,ROUTINE,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5)
0049
0050 PROTOCCALLSFFUN5(FLOAT,DIVDIF,divdif,FLOATV,FLOATV,INT,FLOAT,INT)
0051 #define DIVDIF(A2,A3,A4,A5,A6)  CCALLSFFUN5(DIVDIF,divdif,FLOATV,FLOATV,INT,FLOAT,INT,A2,A3,A4,A5,A6)
0052
0053 PROTOCCALLSFFUN8(DOUBLE,DMBIL,dmbil,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV)
0054 #define DMBIL(A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFFUN8(DMBIL,dmbil,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,A2,A3,A4,A5,A6,A7,A8,A9)
0055
0056 PROTOCCALLSFFUN6(DOUBLE,DVMPA,dvmpa,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLE)
0057 #define DVMPA(A2,A3,A4,A5,A6,A7)  CCALLSFFUN6(DVMPA,dvmpa,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLE,A2,A3,A4,A5,A6,A7)
0058
0059 PROTOCCALLSFFUN5(DOUBLE,DVMPY,dvmpy,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV)
0060 #define DVMPY(A2,A3,A4,A5,A6)  CCALLSFFUN5(DVMPY,dvmpy,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,A2,A3,A4,A5,A6)
0061
0062 PROTOCCALLSFFUN3(DOUBLE,DVSUM,dvsum,INT,DOUBLEV,DOUBLEV)
0063 #define DVSUM(A2,A3,A4)  CCALLSFFUN3(DVSUM,dvsum,INT,DOUBLEV,DOUBLEV,A2,A3,A4)
0064
0065 PROTOCCALLSFFUN1(FLOAT,ELLICE,ellice,FLOAT)
0066 #define ELLICE(A2)  CCALLSFFUN1(ELLICE,ellice,FLOAT,A2)
0067
0068 PROTOCCALLSFFUN1(FLOAT,ELLICK,ellick,FLOAT)
0069 #define ELLICK(A2)  CCALLSFFUN1(ELLICK,ellick,FLOAT,A2)
0070
0071 PROTOCCALLSFFUN1(FLOAT,ERF,erf,FLOAT)
0072 #define ERF(A2)  CCALLSFFUN1(ERF,erf,FLOAT,A2)
0073
0074 PROTOCCALLSFFUN1(FLOAT,EXPINT,expint,FLOAT)
0075 #define EXPINT(A2)  CCALLSFFUN1(EXPINT,expint,FLOAT,A2)
0076
0077 PROTOCCALLSFFUN5(FLOAT,FINT,fint,INT,FLOATV,INTV,FLOATV,FLOATV)
0078 #define FINT(A2,A3,A4,A5,A6)  CCALLSFFUN5(FINT,fint,INT,FLOATV,INTV,FLOATV,FLOATV,A2,A3,A4,A5,A6)
0079
0080 PROTOCCALLSFFUN1(FLOAT,FREQ,freq,FLOAT)
0081 #define FREQ(A2)  CCALLSFFUN1(FREQ,freq,FLOAT,A2)
0082
0083 PROTOCCALLSFFUN1(FLOAT,GAMMA,gamma,FLOAT)
0084 #define GAMMA(A2)  CCALLSFFUN1(GAMMA,gamma,FLOAT,A2)
0085
0086 PROTOCCALLSFFUN4(FLOAT,GAUSS,gauss,ROUTINE,FLOAT,FLOAT,FLOAT)
0087 #define GAUSS(A2,A3,A4,A5)  CCALLSFFUN4(GAUSS,gauss,ROUTINE,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5)
0088
0089 PROTOCCALLSFFUN4(FLOAT,GQUAD,gquad,FLOAT,FLOAT,FLOAT,INT)
0090 #define GQUAD(A2,A3,A4,A5)  CCALLSFFUN4(GQUAD,gquad,FLOAT,FLOAT,FLOAT,INT,A2,A3,A4,A5)
0091
0092 PROTOCCALLSFFUN3(INT,LOCATF,locatf,FLOATV,INT,FLOAT)
0093 #define LOCATF(A2,A3,A4)  CCALLSFFUN3(LOCATF,locatf,FLOATV,INT,FLOAT,A2,A3,A4)
0094
0095 PROTOCCALLSFFUN3(INT,LOCATI,locati,INTV,INT,INT)
0096 #define LOCATI(A2,A3,A4)  CCALLSFFUN3(LOCATI,locati,INTV,INT,INT,A2,A3,A4)
0097
0098 PROTOCCALLSFFUN2(FLOAT,PROB,prob,FLOAT,INT)
0099 #define PROB(A2,A3)  CCALLSFFUN2(PROB,prob,FLOAT,INT,A2,A3)
0100
0101 PROTOCCALLSFFUN0(FLOAT,RANF,ranf)
0102 #define RANF() CCALLSFFUN0(RANF,ranf)
0103
0104 PROTOCCALLSFFUN8(FLOAT,RMBIL,rmbil,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV)
0105 #define RMBIL(A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFFUN8(RMBIL,rmbil,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,A2,A3,A4,A5,A6,A7,A8,A9)
0106
0107 PROTOCCALLSFFUN6(FLOAT,RVMPA,rvmpa,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOAT)
0108 #define RVMPA(A2,A3,A4,A5,A6,A7)  CCALLSFFUN6(RVMPA,rvmpa,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOAT,A2,A3,A4,A5,A6,A7)
0109
0110 PROTOCCALLSFFUN5(FLOAT,RVMPY,rvmpy,INT,FLOATV,FLOATV,FLOATV,FLOATV)
0111 #define RVMPY(A2,A3,A4,A5,A6)  CCALLSFFUN5(RVMPY,rvmpy,INT,FLOATV,FLOATV,FLOATV,FLOATV,A2,A3,A4,A5,A6)
0112
0113 PROTOCCALLSFFUN3(FLOAT,RVSUM,rvsum,INT,FLOATV,FLOATV)
0114 #define RVSUM(A2,A3,A4)  CCALLSFFUN3(RVSUM,rvsum,INT,FLOATV,FLOATV,A2,A3,A4)
0115
0116 PROTOCCALLSFFUN1(FLOAT,SININT,sinint,FLOAT)
0117 #define SININT(A2)  CCALLSFFUN1(SININT,sinint,FLOAT,A2)
0118
0119 PROTOCCALLSFFUN2(LOGICAL,ACCESSF,accessf,STRING,INT)
0120 #define ACCESSF(A2,A3)  CCALLSFFUN2(ACCESSF,accessf,STRING,INT,A2,A3)
0121
0122 PROTOCCALLSFFUN4(FLOAT,AMAXMU,amaxmu,FLOATV,INT,INT,INT)
0123 #define AMAXMU(A2,A3,A4,A5)  CCALLSFFUN4(AMAXMU,amaxmu,FLOATV,INT,INT,INT,A2,A3,A4,A5)
0124
0125 PROTOCCALLSFFUN2(FLOAT,ATG,atg,FLOAT,FLOAT)
0126 #define ATG(A2,A3)  CCALLSFFUN2(ATG,atg,FLOAT,FLOAT,A2,A3)
0127
0128 PROTOCCALLSFFUN1(STRING,CFROMI,cfromi,INT)
0129 #define CFROMI(A2)  CCALLSFFUN1(CFROMI,cfromi,INT,A2)
0130
0131 PROTOCCALLSFFUN1(INT,CHDIRF,chdirf,BYTE)
0132 #define CHDIRF(A2)  CCALLSFFUN1(CHDIRF,chdirf,BYTE,A2)
0133
0134 PROTOCCALLSFFUN2(FLOAT,DOTI,doti,FLOATV,FLOATV)
0135 #define DOTI(A2,A3)  CCALLSFFUN2(DOTI,doti,FLOATV,FLOATV,A2,A3)
0136
0137 PROTOCCALLSFFUN1(FLOAT,FLOARG,floarg,FLOATV)
0138 #define FLOARG(A2)  CCALLSFFUN1(FLOARG,floarg,FLOATV,A2)
0139
0140 PROTOCCALLSFFUN3(INT,ICDECI,icdeci,BYTE,INTV,INTV)
0141 #define ICDECI(A2,A3,A4)  CCALLSFFUN3(ICDECI,icdeci,BYTE,INTV,INTV,A2,A3,A4)
0142
0143 PROTOCCALLSFFUN3(INT,ICEQU,icequ,BYTEV,BYTEV,INT)
0144 #define ICEQU(A2,A3,A4)  CCALLSFFUN3(ICEQU,icequ,BYTEV,BYTEV,INT,A2,A3,A4)
0145
0146 PROTOCCALLSFFUN4(INT,ICFILA,icfila,BYTE,BYTE,INTV,INTV)
0147 #define ICFILA(A2,A3,A4,A5)  CCALLSFFUN4(ICFILA,icfila,BYTE,BYTE,INTV,INTV,A2,A3,A4,A5)
0148
0149 PROTOCCALLSFFUN4(INT,ICFIND,icfind,BYTE,BYTE,INTV,INTV)
0150 #define ICFIND(A2,A3,A4,A5)  CCALLSFFUN4(ICFIND,icfind,BYTE,BYTE,INTV,INTV,A2,A3,A4,A5)
0151
0152 PROTOCCALLSFFUN4(INT,ICFMUL,icfmul,BYTE,BYTE,INTV,INTV)
0153 #define ICFMUL(A2,A3,A4,A5)  CCALLSFFUN4(ICFMUL,icfmul,BYTE,BYTE,INTV,INTV,A2,A3,A4,A5)
0154
0155 PROTOCCALLSFFUN3(INT,ICFNBL,icfnbl,BYTE,INTV,INTV)
0156 #define ICFNBL(A2,A3,A4)  CCALLSFFUN3(ICFNBL,icfnbl,BYTE,INTV,INTV,A2,A3,A4)
0157
0158 PROTOCCALLSFFUN3(INT,ICHEXI,ichexi,BYTE,INTV,INTV)
0159 #define ICHEXI(A2,A3,A4)  CCALLSFFUN3(ICHEXI,ichexi,BYTE,INTV,INTV,A2,A3,A4)
0160
0161 PROTOCCALLSFFUN3(INT,ICINQ,icinq,STRING,STRINGV,INT)
0162 #define ICINQ(A2,A3,A4)  CCALLSFFUN3(ICINQ,icinq,STRING,STRINGV,INT,A2,A3,A4)
0163
0164 PROTOCCALLSFFUN3(INT,ICINQL,icinql,STRING,STRINGV,INT)
0165 #define ICINQL(A2,A3,A4)  CCALLSFFUN3(ICINQL,icinql,STRING,STRINGV,INT,A2,A3,A4)
0166
0167 PROTOCCALLSFFUN3(INT,ICINQU,icinqu,STRING,STRINGV,INT)
0168 #define ICINQU(A2,A3,A4)  CCALLSFFUN3(ICINQU,icinqu,STRING,STRINGV,INT,A2,A3,A4)
0169
0170 PROTOCCALLSFFUN5(INT,ICLOC,icloc,BYTE,INT,BYTE,INT,INT)
0171 #define ICLOC(A2,A3,A4,A5,A6)  CCALLSFFUN5(ICLOC,icloc,BYTE,INT,BYTE,INT,INT,A2,A3,A4,A5,A6)
0172
0173 PROTOCCALLSFFUN5(INT,ICLOCL,iclocl,BYTE,INT,BYTE,INT,INT)
0174 #define ICLOCL(A2,A3,A4,A5,A6)  CCALLSFFUN5(ICLOCL,iclocl,BYTE,INT,BYTE,INT,INT,A2,A3,A4,A5,A6)
0175
0176 PROTOCCALLSFFUN5(INT,ICLOCU,iclocu,BYTE,INT,BYTE,INT,INT)
0177 #define ICLOCU(A2,A3,A4,A5,A6)  CCALLSFFUN5(ICLOCU,iclocu,BYTE,INT,BYTE,INT,INT,A2,A3,A4,A5,A6)
0178
0179 PROTOCCALLSFFUN3(INT,ICLUNS,icluns,BYTE,INT,INT)
0180 #define ICLUNS(A2,A3,A4)  CCALLSFFUN3(ICLUNS,icluns,BYTE,INT,INT,A2,A3,A4)
0181
0182 PROTOCCALLSFFUN2(INT,ICMPCH,icmpch,INT,INT)
0183 #define ICMPCH(A2,A3)  CCALLSFFUN2(ICMPCH,icmpch,INT,INT,A2,A3)
0184
0185 PROTOCCALLSFFUN3(INT,ICNEXT,icnext,BYTE,INTV,INTV)
0186 #define ICNEXT(A2,A3,A4)  CCALLSFFUN3(ICNEXT,icnext,BYTE,INTV,INTV,A2,A3,A4)
0187
0188 PROTOCCALLSFFUN3(INT,ICNTH,icnth,STRING,STRINGV,INT)
0189 #define ICNTH(A2,A3,A4)  CCALLSFFUN3(ICNTH,icnth,STRING,STRINGV,INT,A2,A3,A4)
0190
0191 PROTOCCALLSFFUN3(INT,ICNTHL,icnthl,STRING,STRINGV,INT)
0192 #define ICNTHL(A2,A3,A4)  CCALLSFFUN3(ICNTHL,icnthl,STRING,STRINGV,INT,A2,A3,A4)
0193
0194 PROTOCCALLSFFUN3(INT,ICNTHU,icnthu,STRING,STRINGV,INT)
0195 #define ICNTHU(A2,A3,A4)  CCALLSFFUN3(ICNTHU,icnthu,STRING,STRINGV,INT,A2,A3,A4)
0196
0197 PROTOCCALLSFFUN3(INT,ICNUM,icnum,BYTE,INTV,INTV)
0198 #define ICNUM(A2,A3,A4)  CCALLSFFUN3(ICNUM,icnum,BYTE,INTV,INTV,A2,A3,A4)
0199
0200 PROTOCCALLSFFUN3(INT,ICNUMA,icnuma,BYTE,INTV,INTV)
0201 #define ICNUMA(A2,A3,A4)  CCALLSFFUN3(ICNUMA,icnuma,BYTE,INTV,INTV,A2,A3,A4)
0202
0203 PROTOCCALLSFFUN3(INT,ICNUMU,icnumu,BYTE,INTV,INTV)
0204 #define ICNUMU(A2,A3,A4)  CCALLSFFUN3(ICNUMU,icnumu,BYTE,INTV,INTV,A2,A3,A4)
0205
0206 PROTOCCALLSFFUN3(INT,ICOCTI,icocti,BYTE,INTV,INTV)
0207 #define ICOCTI(A2,A3,A4)  CCALLSFFUN3(ICOCTI,icocti,BYTE,INTV,INTV,A2,A3,A4)
0208
0209 PROTOCCALLSFFUN1(INT,ICTYPE,ictype,BYTE)
0210 #define ICTYPE(A2)  CCALLSFFUN1(ICTYPE,ictype,BYTE,A2)
0211
0212 PROTOCCALLSFFUN1(INT,IFROMC,ifromc,STRING)
0213 #define IFROMC(A2)  CCALLSFFUN1(IFROMC,ifromc,STRING,A2)
0214
0215 PROTOCCALLSFFUN4(INT,INCBYT,incbyt,INTV,PINT,INTV,INTV)
0216 #define INCBYT(A2,A3,A4,A5)  CCALLSFFUN4(INCBYT,incbyt,INTV,PINT,INTV,INTV,A2,A3,A4,A5)
0217
0218 PROTOCCALLSFFUN1(INT,INTARG,intarg,FLOATV)
0219 #define INTARG(A2)  CCALLSFFUN1(INTARG,intarg,FLOATV,A2)
0220
0221 PROTOCCALLSFFUN1(LOGICAL,INTRAC,intrac,FLOAT)
0222 #define INTRAC(A2)  CCALLSFFUN1(INTRAC,intrac,FLOAT,A2)
0223
0224 PROTOCCALLSFFUN3(INT,IUBACK,iuback,INTV,INT,INT)
0225 #define IUBACK(A2,A3,A4)  CCALLSFFUN3(IUBACK,iuback,INTV,INT,INT,A2,A3,A4)
0226
0227 PROTOCCALLSFFUN3(INT,IUBIN,iubin,FLOAT,FLOATV,PLOGICAL)
0228 #define IUBIN(A2,A3,A4)  CCALLSFFUN3(IUBIN,iubin,FLOAT,FLOATV,PLOGICAL,A2,A3,A4)
0229
0230 PROTOCCALLSFFUN4(INT,IUCHAN,iuchan,FLOAT,FLOAT,FLOAT,INT)
0231 #define IUCHAN(A2,A3,A4,A5)  CCALLSFFUN4(IUCHAN,iuchan,FLOAT,FLOAT,FLOAT,INT,A2,A3,A4,A5)
0232
0233 PROTOCCALLSFFUN3(INT,IUCOLA,iucola,INT,INTV,INT)
0234 #define IUCOLA(A2,A3,A4)  CCALLSFFUN3(IUCOLA,iucola,INT,INTV,INT,A2,A3,A4)
0235
0236 PROTOCCALLSFFUN3(INT,IUCOMP,iucomp,INT,INTV,INT)
0237 #define IUCOMP(A2,A3,A4)  CCALLSFFUN3(IUCOMP,iucomp,INT,INTV,INT,A2,A3,A4)
0238
0239 PROTOCCALLSFFUN1(INT,IUEND,iuend,PINT)
0240 #define IUEND(A2)  CCALLSFFUN1(IUEND,iuend,PINT,A2)
0241
0242 PROTOCCALLSFFUN4(INT,IUFILA,iufila,INT,INTV,INT,INT)
0243 #define IUFILA(A2,A3,A4,A5)  CCALLSFFUN4(IUFILA,iufila,INT,INTV,INT,INT,A2,A3,A4,A5)
0244
0245 PROTOCCALLSFFUN4(INT,IUFIND,iufind,INT,INTV,INT,INT)
0246 #define IUFIND(A2,A3,A4,A5)  CCALLSFFUN4(IUFIND,iufind,INT,INTV,INT,INT,A2,A3,A4,A5)
0247
0248 PROTOCCALLSFFUN3(INT,IUFNBL,iufnbl,INTV,INT,INT)
0249 #define IUFNBL(A2,A3,A4)  CCALLSFFUN3(IUFNBL,iufnbl,INTV,INT,INT,A2,A3,A4)
0250
0251 PROTOCCALLSFFUN3(INT,IUFORW,iuforw,INTV,INT,INT)
0252 #define IUFORW(A2,A3,A4)  CCALLSFFUN3(IUFORW,iuforw,INTV,INT,INT,A2,A3,A4)
0253
0254 PROTOCCALLSFFUN3(INT,IUHIST,iuhist,FLOAT,FLOATV,PLOGICAL)
0255 #define IUHIST(A2,A3,A4)  CCALLSFFUN3(IUHIST,iuhist,FLOAT,FLOATV,PLOGICAL,A2,A3,A4)
0256
0257 PROTOCCALLSFFUN4(INT,IUHUNT,iuhunt,INT,INTV,INT,INT)
0258 #define IUHUNT(A2,A3,A4,A5)  CCALLSFFUN4(IUHUNT,iuhunt,INT,INTV,INT,INT,A2,A3,A4,A5)
0259
0260 PROTOCCALLSFFUN3(INT,IULAST,iulast,INT,INTV,INT)
0261 #define IULAST(A2,A3,A4)  CCALLSFFUN3(IULAST,iulast,INT,INTV,INT,A2,A3,A4)
0262
0263 PROTOCCALLSFFUN4(INT,IULOOK,iulook,INT,INTV,INT,INT)
0264 #define IULOOK(A2,A3,A4,A5)  CCALLSFFUN4(IULOOK,iulook,INT,INTV,INT,INT,A2,A3,A4,A5)
0265
0266 PROTOCCALLSFFUN1(INT,IUMODE,iumode,INT)
0267 #define IUMODE(A2)  CCALLSFFUN1(IUMODE,iumode,INT,A2)
0268
0269 PROTOCCALLSFFUN2(INT,IUNEXT,iunext,INTV,INT)
0270 #define IUNEXT(A2,A3)  CCALLSFFUN2(IUNEXT,iunext,INTV,INT,A2,A3)
0271
0272 PROTOCCALLSFFUN5(INT,IUSAME,iusame,INTV,INT,INT,INT,PINT)
0273 #define IUSAME(A2,A3,A4,A5,A6)  CCALLSFFUN5(IUSAME,iusame,INTV,INT,INT,INT,PINT,A2,A3,A4,A5,A6)
0274
0275 PROTOCCALLSFFUN2(INT,IUWEED,iuweed,INTV,INT)
0276 #define IUWEED(A2,A3)  CCALLSFFUN2(IUWEED,iuweed,INTV,INT,A2,A3)
0277
0278 PROTOCCALLSFFUN2(INT,JBIT,jbit,INT,INT)
0279 #define JBIT(A2,A3)  CCALLSFFUN2(JBIT,jbit,INT,INT,A2,A3)
0280
0281 PROTOCCALLSFFUN3(INT,JBYT,jbyt,INT,INT,INT)
0282 #define JBYT(A2,A3,A4)  CCALLSFFUN3(JBYT,jbyt,INT,INT,INT,A2,A3,A4)
0283
0284 PROTOCCALLSFFUN4(INT,JBYTET,jbytet,INT,INT,INT,INT)
0285 #define JBYTET(A2,A3,A4,A5)  CCALLSFFUN4(JBYTET,jbytet,INT,INT,INT,INT,A2,A3,A4,A5)
0286
0287 PROTOCCALLSFFUN4(INT,JBYTOR,jbytor,INT,INT,INT,INT)
0288 #define JBYTOR(A2,A3,A4,A5)  CCALLSFFUN4(JBYTOR,jbytor,INT,INT,INT,INT,A2,A3,A4,A5)
0289
0290 PROTOCCALLSFFUN3(INT,JBYTPK,jbytpk,INTV,INT,INTV)
0291 #define JBYTPK(A2,A3,A4)  CCALLSFFUN3(JBYTPK,jbytpk,INTV,INT,INTV,A2,A3,A4)
0292
0293 PROTOCCALLSFFUN4(INT,JRSBYT,jrsbyt,INT,PINT,INT,INT)
0294 #define JRSBYT(A2,A3,A4,A5)  CCALLSFFUN4(JRSBYT,jrsbyt,INT,PINT,INT,INT,A2,A3,A4,A5)
0295
0296 PROTOCCALLSFFUN1(INT,JUMPAD,jumpad,INT)
0297 #define JUMPAD(A2)  CCALLSFFUN1(JUMPAD,jumpad,INT,A2)
0298
0299 PROTOCCALLSFFUN1(INT,LOCB,locb,FLOATV)
0300 #define LOCB(A2)  CCALLSFFUN1(LOCB,locb,FLOATV,A2)
0301
0302 PROTOCCALLSFFUN6(INT,LOCBYT,locbyt,INT,INTV,INT,INT,INT,INT)
0303 #define LOCBYT(A2,A3,A4,A5,A6,A7)  CCALLSFFUN6(LOCBYT,locbyt,INT,INTV,INT,INT,INT,INT,A2,A3,A4,A5,A6,A7)
0304
0305 PROTOCCALLSFFUN1(INT,LOCF,locf,FLOATV)
0306 #define LOCF(A2)  CCALLSFFUN1(LOCF,locf,FLOATV,A2)
0307
0308 PROTOCCALLSFFUN2(INT,LSTATF,lstatf,STRING,INTV)
0309 #define LSTATF(A2,A3)  CCALLSFFUN2(LSTATF,lstatf,STRING,INTV,A2,A3)
0310
0311 PROTOCCALLSFFUN2(INT,LVMAX,lvmax,FLOATV,INT)
0312 #define LVMAX(A2,A3)  CCALLSFFUN2(LVMAX,lvmax,FLOATV,INT,A2,A3)
0313
0314 PROTOCCALLSFFUN2(INT,LVMAXA,lvmaxa,FLOATV,INT)
0315 #define LVMAXA(A2,A3)  CCALLSFFUN2(LVMAXA,lvmaxa,FLOATV,INT,A2,A3)
0316
0317 PROTOCCALLSFFUN2(INT,LVMIN,lvmin,FLOATV,INT)
0318 #define LVMIN(A2,A3)  CCALLSFFUN2(LVMIN,lvmin,FLOATV,INT,A2,A3)
0319
0320 PROTOCCALLSFFUN2(INT,LVMINA,lvmina,FLOATV,INT)
0321 #define LVMINA(A2,A3)  CCALLSFFUN2(LVMINA,lvmina,FLOATV,INT,A2,A3)
0322
0323 PROTOCCALLSFFUN3(INT,LVSDMI,lvsdmi,DOUBLEV,INT,INT)
0324 #define LVSDMI(A2,A3,A4)  CCALLSFFUN3(LVSDMI,lvsdmi,DOUBLEV,INT,INT,A2,A3,A4)
0325
0326 PROTOCCALLSFFUN3(INT,LVSDMX,lvsdmx,DOUBLEV,INT,INT)
0327 #define LVSDMX(A2,A3,A4)  CCALLSFFUN3(LVSDMX,lvsdmx,DOUBLEV,INT,INT,A2,A3,A4)
0328
0329 PROTOCCALLSFFUN3(INT,LVSIMI,lvsimi,INTV,INT,INT)
0330 #define LVSIMI(A2,A3,A4)  CCALLSFFUN3(LVSIMI,lvsimi,INTV,INT,INT,A2,A3,A4)
0331
0332 PROTOCCALLSFFUN3(INT,LVSIMX,lvsimx,INTV,INT,INT)
0333 #define LVSIMX(A2,A3,A4)  CCALLSFFUN3(LVSIMX,lvsimx,INTV,INT,INT,A2,A3,A4)
0334
0335 PROTOCCALLSFFUN3(INT,LVSMI,lvsmi,FLOATV,INT,INT)
0336 #define LVSMI(A2,A3,A4)  CCALLSFFUN3(LVSMI,lvsmi,FLOATV,INT,INT,A2,A3,A4)
0337
0338 PROTOCCALLSFFUN3(INT,LVSMX,lvsmx,FLOATV,INT,INT)
0339 #define LVSMX(A2,A3,A4)  CCALLSFFUN3(LVSMX,lvsmx,FLOATV,INT,INT,A2,A3,A4)
0340
0341 PROTOCCALLSFFUN4(INT,MBYTET,mbytet,INT,INT,INT,INT)
0342 #define MBYTET(A2,A3,A4,A5)  CCALLSFFUN4(MBYTET,mbytet,INT,INT,INT,INT,A2,A3,A4,A5)
0343
0344 PROTOCCALLSFFUN4(INT,MBYTOR,mbytor,INT,INT,INT,INT)
0345 #define MBYTOR(A2,A3,A4,A5)  CCALLSFFUN4(MBYTOR,mbytor,INT,INT,INT,INT,A2,A3,A4,A5)
0346
0347 PROTOCCALLSFFUN5(INT,MCBYT,mcbyt,INT,INT,INT,INT,INT)
0348 #define MCBYT(A2,A3,A4,A5,A6)  CCALLSFFUN5(MCBYT,mcbyt,INT,INT,INT,INT,INT,A2,A3,A4,A5,A6)
0349
0350 PROTOCCALLSFFUN3(INT,MSBIT,msbit,INT,INT,INT)
0351 #define MSBIT(A2,A3,A4)  CCALLSFFUN3(MSBIT,msbit,INT,INT,INT,A2,A3,A4)
0352
0353 PROTOCCALLSFFUN2(INT,MSBIT0,msbit0,INT,INT)
0354 #define MSBIT0(A2,A3)  CCALLSFFUN2(MSBIT0,msbit0,INT,INT,A2,A3)
0355
0356 PROTOCCALLSFFUN2(INT,MSBIT1,msbit1,INT,INT)
0357 #define MSBIT1(A2,A3)  CCALLSFFUN2(MSBIT1,msbit1,INT,INT,A2,A3)
0358
0359 PROTOCCALLSFFUN4(INT,MSBYT,msbyt,INT,INT,INT,INT)
0360 #define MSBYT(A2,A3,A4,A5)  CCALLSFFUN4(MSBYT,msbyt,INT,INT,INT,INT,A2,A3,A4,A5)
0361
0362 PROTOCCALLSFFUN1(INT,NCDECI,ncdeci,BYTE)
0363 #define NCDECI(A2)  CCALLSFFUN1(NCDECI,ncdeci,BYTE,A2)
0364
0365 PROTOCCALLSFFUN1(INT,NCHEXI,nchexi,BYTE)
0366 #define NCHEXI(A2)  CCALLSFFUN1(NCHEXI,nchexi,BYTE,A2)
0367
0368 PROTOCCALLSFFUN1(INT,NCOCTI,ncocti,BYTE)
0369 #define NCOCTI(A2)  CCALLSFFUN1(NCOCTI,ncocti,BYTE,A2)
0370
0371 PROTOCCALLSFFUN2(FLOAT,PROXIM,proxim,FLOAT,FLOAT)
0372 #define PROXIM(A2,A3)  CCALLSFFUN2(PROXIM,proxim,FLOAT,FLOAT,A2,A3)
0373
0374 PROTOCCALLSFFUN4(FLOAT,PSCALE,pscale,PINT,INT,FLOAT,INT)
0375 #define PSCALE(A2,A3,A4,A5)  CCALLSFFUN4(PSCALE,pscale,PINT,INT,FLOAT,INT,A2,A3,A4,A5)
0376
0377 PROTOCCALLSFFUN2(INT,READLNF,readlnf,STRING,STRING)
0378 #define READLNF(A2,A3)  CCALLSFFUN2(READLNF,readlnf,STRING,STRING,A2,A3)
0379
0380 PROTOCCALLSFFUN2(INT,RENAMEF,renamef,STRING,STRING)
0381 #define RENAMEF(A2,A3)  CCALLSFFUN2(RENAMEF,renamef,STRING,STRING,A2,A3)
0382
0383 PROTOCCALLSFFUN1(FLOAT,RNDM,rndm,INT)
0384 #define RNDM(A2)  CCALLSFFUN1(RNDM,rndm,INT,A2)
0385
0386 PROTOCCALLSFFUN2(INT,SETENVF,setenvf,STRING,STRING)
0387 #define SETENVF(A2,A3)  CCALLSFFUN2(SETENVF,setenvf,STRING,STRING,A2,A3)
0388
0389 PROTOCCALLSFFUN2(INT,STATF,statf,STRING,INTV)
0390 #define STATF(A2,A3)  CCALLSFFUN2(STATF,statf,STRING,INTV,A2,A3)
0391
0392 PROTOCCALLSFFUN1(INT,SYSTEMF,systemf,BYTE)
0393 #define SYSTEMF(A2)  CCALLSFFUN1(SYSTEMF,systemf,BYTE,A2)
0394
0395 PROTOCCALLSFFUN1(INT,UNLINKF,unlinkf,BYTE)
0396 #define UNLINKF(A2)  CCALLSFFUN1(UNLINKF,unlinkf,BYTE,A2)
0397
0398 PROTOCCALLSFFUN2(FLOAT,VASUM,vasum,FLOATV,INT)
0399 #define VASUM(A2,A3)  CCALLSFFUN2(VASUM,vasum,FLOATV,INT,A2,A3)
0400
0401 PROTOCCALLSFFUN3(FLOAT,VDIST,vdist,FLOATV,FLOATV,INT)
0402 #define VDIST(A2,A3,A4)  CCALLSFFUN3(VDIST,vdist,FLOATV,FLOATV,INT,A2,A3,A4)
0403
0404 PROTOCCALLSFFUN3(FLOAT,VDIST2,vdist2,FLOATV,FLOATV,INT)
0405 #define VDIST2(A2,A3,A4)  CCALLSFFUN3(VDIST2,vdist2,FLOATV,FLOATV,INT,A2,A3,A4)
0406
0407 PROTOCCALLSFFUN3(FLOAT,VDOT,vdot,FLOATV,FLOATV,INT)
0408 #define VDOT(A2,A3,A4)  CCALLSFFUN3(VDOT,vdot,FLOATV,FLOATV,INT,A2,A3,A4)
0409
0410 PROTOCCALLSFFUN3(FLOAT,VDOTN,vdotn,FLOATV,FLOATV,INT)
0411 #define VDOTN(A2,A3,A4)  CCALLSFFUN3(VDOTN,vdotn,FLOATV,FLOATV,INT,A2,A3,A4)
0412
0413 PROTOCCALLSFFUN3(FLOAT,VDOTN2,vdotn2,FLOATV,FLOATV,INT)
0414 #define VDOTN2(A2,A3,A4)  CCALLSFFUN3(VDOTN2,vdotn2,FLOATV,FLOATV,INT,A2,A3,A4)
0415
0416 PROTOCCALLSFFUN2(FLOAT,VMAX,vmax,FLOATV,INT)
0417 #define VMAX(A2,A3)  CCALLSFFUN2(VMAX,vmax,FLOATV,INT,A2,A3)
0418
0419 PROTOCCALLSFFUN2(FLOAT,VMAXA,vmaxa,FLOATV,INT)
0420 #define VMAXA(A2,A3)  CCALLSFFUN2(VMAXA,vmaxa,FLOATV,INT,A2,A3)
0421
0422 PROTOCCALLSFFUN2(FLOAT,VMIN,vmin,FLOATV,INT)
0423 #define VMIN(A2,A3)  CCALLSFFUN2(VMIN,vmin,FLOATV,INT,A2,A3)
0424
0425 PROTOCCALLSFFUN2(FLOAT,VMINA,vmina,FLOATV,INT)
0426 #define VMINA(A2,A3)  CCALLSFFUN2(VMINA,vmina,FLOATV,INT,A2,A3)
0427
0428 PROTOCCALLSFFUN2(FLOAT,VMOD,vmod,FLOATV,INT)
0429 #define VMOD(A2,A3)  CCALLSFFUN2(VMOD,vmod,FLOATV,INT,A2,A3)
0430
0431 PROTOCCALLSFFUN2(FLOAT,VSUM,vsum,FLOATV,INT)
0432 #define VSUM(A2,A3)  CCALLSFFUN2(VSUM,vsum,FLOATV,INT,A2,A3)
0433
0434 PROTOCCALLSFFUN1(STRING,CHARN,charn,INT)
0435 #define CHARN(A2)  CCALLSFFUN1(CHARN,charn,INT,A2)
0436
0437 PROTOCCALLSFFUN1(INT,CLEAP,cleap,INT)
0438 #define CLEAP(A2)  CCALLSFFUN1(CLEAP,cleap,INT,A2)
0439
0440 PROTOCCALLSFFUN1(INT,CYEAR4,cyear4,INT)
0441 #define CYEAR4(A2)  CCALLSFFUN1(CYEAR4,cyear4,INT,A2)
0442
0443 PROTOCCALLSFFUN1(INT,ICHARN,icharn,STRING)
0444 #define ICHARN(A2)  CCALLSFFUN1(ICHARN,icharn,STRING,A2)
0445
0446 PROTOCCALLSFFUN1(INT,INDEXA,indexa,STRING)
0447 #define INDEXA(A2)  CCALLSFFUN1(INDEXA,indexa,STRING,A2)
0448
0449 PROTOCCALLSFFUN2(INT,INDEXB,indexb,STRING,STRING)
0450 #define INDEXB(A2,A3)  CCALLSFFUN2(INDEXB,indexb,STRING,STRING,A2,A3)
0451
0452 PROTOCCALLSFFUN2(INT,INDEXC,indexc,STRING,STRING)
0453 #define INDEXC(A2,A3)  CCALLSFFUN2(INDEXC,indexc,STRING,STRING,A2,A3)
0454
0455 PROTOCCALLSFFUN1(INT,INDEXN,indexn,STRING)
0456 #define INDEXN(A2)  CCALLSFFUN1(INDEXN,indexn,STRING,A2)
0457
0458 PROTOCCALLSFFUN1(INT,INDEXS,indexs,STRING)
0459 #define INDEXS(A2)  CCALLSFFUN1(INDEXS,indexs,STRING,A2)
0460
0461 PROTOCCALLSFFUN1(INT,INDXAC,indxac,STRING)
0462 #define INDXAC(A2)  CCALLSFFUN1(INDXAC,indxac,STRING,A2)
0463
0464 PROTOCCALLSFFUN2(INT,INDXBC,indxbc,STRING,STRING)
0465 #define INDXBC(A2,A3)  CCALLSFFUN2(INDXBC,indxbc,STRING,STRING,A2,A3)
0466
0467 PROTOCCALLSFFUN1(INT,INDXNC,indxnc,STRING)
0468 #define INDXNC(A2)  CCALLSFFUN1(INDXNC,indxnc,STRING,A2)
0469
0470 PROTOCCALLSFFUN2(INT,ISCAN,iscan,STRING,STRING)
0471 #define ISCAN(A2,A3)  CCALLSFFUN2(ISCAN,iscan,STRING,STRING,A2,A3)
0472
0473 PROTOCCALLSFFUN1(INT,NUMBIT,numbit,INT)
0474 #define NUMBIT(A2)  CCALLSFFUN1(NUMBIT,numbit,INT,A2)
0475
0476 PROTOCCALLSFFUN0(LOGICAL,RALPH,ralph)
0477 #define RALPH() CCALLSFFUN0(RALPH,ralph)
0478
0479 PROTOCCALLSFFUN1(FLOAT,RCHAR,rchar,STRING)
0480 #define RCHAR(A2)  CCALLSFFUN1(RCHAR,rchar,STRING,A2)
0481
0482 PROTOCCALLSFFUN0(LOGICAL,RDENDB,rdendb)
0483 #define RDENDB() CCALLSFFUN0(RDENDB,rdendb)
0484
0485 PROTOCCALLSFFUN0(LOGICAL,RDIGI,rdigi)
0486 #define RDIGI() CCALLSFFUN0(RDIGI,rdigi)
0487
0488 PROTOCCALLSFFUN1(STRING,RDUPCH,rdupch,STRING)
0489 #define RDUPCH(A2)  CCALLSFFUN1(RDUPCH,rdupch,STRING,A2)
0490
0491 PROTOCCALLSFFUN2(STRING,REPEAT,repeat,STRING,INT)
0492 #define REPEAT(A2,A3)  CCALLSFFUN2(REPEAT,repeat,STRING,INT,A2,A3)
0493
0494 PROTOCCALLSFFUN2(STRING,SPACES,spaces,STRING,INT)
0495 #define SPACES(A2,A3)  CCALLSFFUN2(SPACES,spaces,STRING,INT,A2,A3)
0496
0497 PROTOCCALLSFFUN3(STRING,STRIP,strip,STRING,STRING,STRING)
0498 #define STRIP(A2,A3,A4)  CCALLSFFUN3(STRIP,strip,STRING,STRING,STRING,A2,A3,A4)
0499
0500 PROTOCCALLSFFUN3(STRING,SUBWORD,subword,STRING,INT,INT)
0501 #define SUBWORD(A2,A3,A4)  CCALLSFFUN3(SUBWORD,subword,STRING,INT,INT,A2,A3,A4)
0502
0503 PROTOCCALLSFFUN2(INT,VERIFY,verify,STRING,STRING)
0504 #define VERIFY(A2,A3)  CCALLSFFUN2(VERIFY,verify,STRING,STRING,A2,A3)
0505
0506 PROTOCCALLSFFUN2(STRING,WORD,word,STRING,INT)
0507 #define WORD(A2,A3)  CCALLSFFUN2(WORD,word,STRING,INT,A2,A3)
0508
0509 PROTOCCALLSFFUN1(INT,WORDS,words,STRING)
0510 #define WORDS(A2)  CCALLSFFUN1(WORDS,words,STRING,A2)
0511
0512
0513 /* Subroutines/Functions with COMPLEX not supported ***
0514
0515 #define CCMMPY(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(CCMMPY,ccmmpy,INT,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0516 #define CCUMPY(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(CCUMPY,ccumpy,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8)
0517 #define CEQINV(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(CEQINV,ceqinv,INT,COMPLEXVV,INT,FLOATV,PINT,INT,COMPLEXV,A1,A2,A3,A4,A5,A6,A7)
0518 #define CEQN(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(CEQN,ceqn,INT,COMPLEXVV,INT,FLOATV,PINT,INT,COMPLEXV,A1,A2,A3,A4,A5,A6,A7)
0519 #define CFACT(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(CFACT,cfact,INT,PCOMPLEX,INT,PINT,PINT,PCOMPLEX,PINT,A1,A2,A3,A4,A5,A6,A7)
0520 #define CFEQN(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(CFEQN,cfeqn,INT,PCOMPLEX,INT,INTV,INT,PCOMPLEX,A1,A2,A3,A4,A5,A6)
0521 #define CFFT(A1,A2)  CCALLSFSUB2(CFFT,cfft,PCOMPLEX,INT,A1,A2)
0522 #define CFINV(A1,A2,A3,A4)  CCALLSFSUB4(CFINV,cfinv,INT,PCOMPLEX,INT,INTV,A1,A2,A3,A4)
0523 #define CINV(A1,A2,A3,A4,A5)  CCALLSFSUB5(CINV,cinv,INT,COMPLEXVV,INT,FLOATV,PINT,A1,A2,A3,A4,A5)
0524 #define CMADD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)  CCALLSFSUB11(CMADD,cmadd,INT,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
0525 PROTOCCALLSFFUN8(COMPLEX,CMBIL,cmbil,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV)
0526 #define CMBIL(A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFFUN8(CMBIL,cmbil,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,A2,A3,A4,A5,A6,A7,A8,A9)
0527 #define CMCPY(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(CMCPY,cmcpy,INT,INT,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8)
0528 #define CMMLA(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(CMMLA,cmmla,INT,INT,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
0529 #define CMMLS(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(CMMLS,cmmls,INT,INT,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
0530 #define CMMLT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)  CCALLSFSUB13(CMMLT,cmmlt,INT,INT,INT,PCOMPLEX,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,COMPLEXV,PCOMPLEX,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)
0531 #define CMMLTC(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)  CCALLSFSUB13(CMMLTC,cmmltc,INT,INT,INT,PCOMPLEX,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,COMPLEXV,PCOMPLEX,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)
0532 #define CMMNA(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(CMMNA,cmmna,INT,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0533 #define CMMNS(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(CMMNS,cmmns,INT,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0534 #define CMMPA(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(CMMPA,cmmpa,INT,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0535 #define CMMPS(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(CMMPS,cmmps,INT,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0536 #define CMMPY(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(CMMPY,cmmpy,INT,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0537 #define CMMPYC(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(CMMPYC,cmmpyc,INT,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0538 #define CMNMA(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(CMNMA,cmnma,INT,INT,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
0539 #define CMNMS(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(CMNMS,cmnms,INT,INT,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
0540 #define CMRAN(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(CMRAN,cmran,INT,INT,COMPLEX,COMPLEX,PCOMPLEX,COMPLEXV,COMPLEXV,A1,A2,A3,A4,A5,A6,A7)
0541 #define CMSCL(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(CMSCL,cmscl,INT,INT,COMPLEX,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0542 #define CMSET(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(CMSET,cmset,INT,INT,COMPLEX,PCOMPLEX,COMPLEXV,COMPLEXV,A1,A2,A3,A4,A5,A6)
0543 #define CMSUB(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)  CCALLSFSUB11(CMSUB,cmsub,INT,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
0544 #define CMUTL(A1,A2,A3,A4)  CCALLSFSUB4(CMUTL,cmutl,INT,PCOMPLEX,COMPLEXV,COMPLEXV,A1,A2,A3,A4)
0545 #define CRSCL(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)  CCALLSFSUB10(CRSCL,crscl,INT,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
0546 #define CUMNA(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(CUMNA,cumna,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8)
0547 #define CUMNS(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(CUMNS,cumns,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8)
0548 #define CUMPA(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(CUMPA,cumpa,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8)
0549 #define CUMPS(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(CUMPS,cumps,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8)
0550 #define CUMPY(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(CUMPY,cumpy,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8)
0551 #define CUMPYC(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(CUMPYC,cumpyc,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8)
0552 #define CVADD(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(CVADD,cvadd,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5,A6,A7)
0553 #define CVCPY(A1,A2,A3,A4,A5)  CCALLSFSUB5(CVCPY,cvcpy,INT,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5)
0554 #define CVDIV(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(CVDIV,cvdiv,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,PINT,A1,A2,A3,A4,A5,A6,A7,A8)
0555 PROTOCCALLSFFUN6(COMPLEX,CVMPA,cvmpa,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEX)
0556 #define CVMPA(A2,A3,A4,A5,A6,A7)  CCALLSFFUN6(CVMPA,cvmpa,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEX,A2,A3,A4,A5,A6,A7)
0557 PROTOCCALLSFFUN6(COMPLEX,CVMPAC,cvmpac,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEX)
0558 #define CVMPAC(A2,A3,A4,A5,A6,A7)  CCALLSFFUN6(CVMPAC,cvmpac,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEX,A2,A3,A4,A5,A6,A7)
0559 PROTOCCALLSFFUN5(COMPLEX,CVMPY,cvmpy,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV)
0560 #define CVMPY(A2,A3,A4,A5,A6)  CCALLSFFUN5(CVMPY,cvmpy,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,A2,A3,A4,A5,A6)
0561 PROTOCCALLSFFUN5(COMPLEX,CVMPYC,cvmpyc,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV)
0562 #define CVMPYC(A2,A3,A4,A5,A6)  CCALLSFFUN5(CVMPYC,cvmpyc,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,A2,A3,A4,A5,A6)
0563 #define CVMUL(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(CVMUL,cvmul,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5,A6,A7)
0564 #define CVMULA(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(CVMULA,cvmula,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5,A6,A7)
0565 #define CVMUNA(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(CVMUNA,cvmuna,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5,A6,A7)
0566 #define CVRAN(A1,A2,A3,A4,A5)  CCALLSFSUB5(CVRAN,cvran,INT,COMPLEX,COMPLEX,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5)
0567 #define CVSCA(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(CVSCA,cvsca,INT,COMPLEX,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8)
0568 #define CVSCL(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(CVSCL,cvscl,INT,COMPLEX,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5,A6)
0569 #define CVSCS(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(CVSCS,cvscs,INT,COMPLEX,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5,A6,A7,A8)
0570 #define CVSET(A1,A2,A3,A4)  CCALLSFSUB4(CVSET,cvset,INT,COMPLEX,PCOMPLEX,COMPLEXV,A1,A2,A3,A4)
0571 #define CVSUB(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(CVSUB,cvsub,INT,COMPLEXV,COMPLEXV,COMPLEXV,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5,A6,A7)
0572 PROTOCCALLSFFUN3(COMPLEX,CVSUM,cvsum,INT,COMPLEXV,COMPLEXV)
0573 #define CVSUM(A2,A3,A4)  CCALLSFFUN3(CVSUM,cvsum,INT,COMPLEXV,COMPLEXV,A2,A3,A4)
0574 #define CVXCH(A1,A2,A3,A4,A5)  CCALLSFSUB5(CVXCH,cvxch,INT,PCOMPLEX,COMPLEXV,PCOMPLEX,COMPLEXV,A1,A2,A3,A4,A5)
0575 #define MULLER(A1,A2,A3)  CCALLSFSUB3(MULLER,muller,FLOATV,INT,PCOMPLEX,A1,A2,A3)
0576 #define RFFT(A1,A2)  CCALLSFSUB2(RFFT,rfft,PCOMPLEX,INT,A1,A2)
0577
0578 *** End Subroutines/Functions using COMPLEX */
0579
0580
0581 PROTOCCALLSFSUB7(D106XX,d106xx,INT,FLOAT,FLOAT,FLOAT,INT,PFLOAT,PFLOAT)
0582 #define D106XX(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(D106XX,d106xx,INT,FLOAT,FLOAT,FLOAT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
0583
0584 PROTOCCALLSFSUB14(D509HI,d509hi,PFLOAT,PFLOAT,FLOAT,FLOAT,PFLOAT,FLOAT,PINT,INT,FLOAT,PINT,FLOAT,FLOAT,PFLOAT,PFLOAT)
0585 #define D509HI(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14)  CCALLSFSUB14(D509HI,d509hi,PFLOAT,PFLOAT,FLOAT,FLOAT,PFLOAT,FLOAT,PINT,INT,FLOAT,PINT,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14)
0586
0587 PROTOCCALLSFSUB7(DBEQN,dbeqn,INT,INT,PDOUBLE,INT,PINT,INT,PDOUBLE)
0588 #define DBEQN(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(DBEQN,dbeqn,INT,INT,PDOUBLE,INT,PINT,INT,PDOUBLE,A1,A2,A3,A4,A5,A6,A7)
0589
0590 PROTOCCALLSFSUB7(DEQINV,deqinv,INT,DOUBLEVV,INT,FLOATV,PINT,INT,DOUBLEV)
0591 #define DEQINV(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(DEQINV,deqinv,INT,DOUBLEVV,INT,FLOATV,PINT,INT,DOUBLEV,A1,A2,A3,A4,A5,A6,A7)
0592
0593 PROTOCCALLSFSUB7(DEQN,deqn,INT,DOUBLEVV,INT,FLOATV,PINT,INT,DOUBLEV)
0594 #define DEQN(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(DEQN,deqn,INT,DOUBLEVV,INT,FLOATV,PINT,INT,DOUBLEV,A1,A2,A3,A4,A5,A6,A7)
0595
0596 PROTOCCALLSFSUB7(DFACT,dfact,INT,PDOUBLE,INT,PINT,PINT,PDOUBLE,PINT)
0597 #define DFACT(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(DFACT,dfact,INT,PDOUBLE,INT,PINT,PINT,PDOUBLE,PINT,A1,A2,A3,A4,A5,A6,A7)
0598
0599 PROTOCCALLSFSUB6(DFEQN,dfeqn,INT,PDOUBLE,INT,INTV,INT,PDOUBLE)
0600 #define DFEQN(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(DFEQN,dfeqn,INT,PDOUBLE,INT,INTV,INT,PDOUBLE,A1,A2,A3,A4,A5,A6)
0601
0602 PROTOCCALLSFSUB4(DFINV,dfinv,INT,PDOUBLE,INT,INTV)
0603 #define DFINV(A1,A2,A3,A4)  CCALLSFSUB4(DFINV,dfinv,INT,PDOUBLE,INT,INTV,A1,A2,A3,A4)
0604
0605 PROTOCCALLSFSUB5(DINV,dinv,INT,DOUBLEVV,INT,FLOATV,PINT)
0606 #define DINV(A1,A2,A3,A4,A5)  CCALLSFSUB5(DINV,dinv,INT,DOUBLEVV,INT,FLOATV,PINT,A1,A2,A3,A4,A5)
0607
0608 PROTOCCALLSFSUB11(DMADD,dmadd,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV)
0609 #define DMADD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)  CCALLSFSUB11(DMADD,dmadd,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
0610
0611 PROTOCCALLSFSUB8(DMCPY,dmcpy,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV)
0612 #define DMCPY(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(DMCPY,dmcpy,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,A1,A2,A3,A4,A5,A6,A7,A8)
0613
0614 PROTOCCALLSFSUB12(DMMLA,dmmla,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV)
0615 #define DMMLA(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(DMMLA,dmmla,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
0616
0617 PROTOCCALLSFSUB12(DMMLS,dmmls,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV)
0618 #define DMMLS(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(DMMLS,dmmls,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
0619
0620 PROTOCCALLSFSUB13(DMMLT,dmmlt,INT,INT,INT,PDOUBLE,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,PDOUBLE)
0621 #define DMMLT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)  CCALLSFSUB13(DMMLT,dmmlt,INT,INT,INT,PDOUBLE,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)
0622
0623 PROTOCCALLSFSUB9(DMMNA,dmmna,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV)
0624 #define DMMNA(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(DMMNA,dmmna,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0625
0626 PROTOCCALLSFSUB9(DMMNS,dmmns,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV)
0627 #define DMMNS(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(DMMNS,dmmns,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0628
0629 PROTOCCALLSFSUB9(DMMPA,dmmpa,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV)
0630 #define DMMPA(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(DMMPA,dmmpa,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0631
0632 PROTOCCALLSFSUB9(DMMPS,dmmps,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV)
0633 #define DMMPS(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(DMMPS,dmmps,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0634
0635 PROTOCCALLSFSUB9(DMMPY,dmmpy,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV)
0636 #define DMMPY(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(DMMPY,dmmpy,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0637
0638 PROTOCCALLSFSUB12(DMNMA,dmnma,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV)
0639 #define DMNMA(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(DMNMA,dmnma,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
0640
0641 PROTOCCALLSFSUB12(DMNMS,dmnms,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV)
0642 #define DMNMS(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(DMNMS,dmnms,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
0643
0644 PROTOCCALLSFSUB7(DMRAN,dmran,INT,INT,DOUBLE,DOUBLE,PDOUBLE,DOUBLEV,DOUBLEV)
0645 #define DMRAN(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(DMRAN,dmran,INT,INT,DOUBLE,DOUBLE,PDOUBLE,DOUBLEV,DOUBLEV,A1,A2,A3,A4,A5,A6,A7)
0646
0647 PROTOCCALLSFSUB9(DMSCL,dmscl,INT,INT,DOUBLE,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV)
0648 #define DMSCL(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(DMSCL,dmscl,INT,INT,DOUBLE,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0649
0650 PROTOCCALLSFSUB6(DMSET,dmset,INT,INT,DOUBLE,PDOUBLE,DOUBLEV,DOUBLEV)
0651 #define DMSET(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(DMSET,dmset,INT,INT,DOUBLE,PDOUBLE,DOUBLEV,DOUBLEV,A1,A2,A3,A4,A5,A6)
0652
0653 PROTOCCALLSFSUB11(DMSUB,dmsub,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV)
0654 #define DMSUB(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)  CCALLSFSUB11(DMSUB,dmsub,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
0655
0656 PROTOCCALLSFSUB4(DMUTL,dmutl,INT,PDOUBLE,DOUBLEV,DOUBLEV)
0657 #define DMUTL(A1,A2,A3,A4)  CCALLSFSUB4(DMUTL,dmutl,INT,PDOUBLE,DOUBLEV,DOUBLEV,A1,A2,A3,A4)
0658
0659 PROTOCCALLSFSUB6(DRKSTP,drkstp,INT,DOUBLE,PDOUBLE,PDOUBLE,FLOAT,PDOUBLE)
0660 #define DRKSTP(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(DRKSTP,drkstp,INT,DOUBLE,PDOUBLE,PDOUBLE,FLOAT,PDOUBLE,A1,A2,A3,A4,A5,A6)
0661
0662 PROTOCCALLSFSUB10(DRSCL,drscl,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV)
0663 #define DRSCL(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)  CCALLSFSUB10(DRSCL,drscl,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
0664
0665 PROTOCCALLSFSUB6(DSEQN,dseqn,INT,PDOUBLE,INT,PINT,INT,PDOUBLE)
0666 #define DSEQN(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(DSEQN,dseqn,INT,PDOUBLE,INT,PINT,INT,PDOUBLE,A1,A2,A3,A4,A5,A6)
0667
0668 PROTOCCALLSFSUB6(DSFACT,dsfact,INT,PDOUBLE,INT,PINT,PDOUBLE,PINT)
0669 #define DSFACT(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(DSFACT,dsfact,INT,PDOUBLE,INT,PINT,PDOUBLE,PINT,A1,A2,A3,A4,A5,A6)
0670
0671 PROTOCCALLSFSUB5(DSFEQN,dsfeqn,INT,PDOUBLE,INT,INT,PDOUBLE)
0672 #define DSFEQN(A1,A2,A3,A4,A5)  CCALLSFSUB5(DSFEQN,dsfeqn,INT,PDOUBLE,INT,INT,PDOUBLE,A1,A2,A3,A4,A5)
0673
0674 PROTOCCALLSFSUB3(DSFINV,dsfinv,INT,PDOUBLE,INT)
0675 #define DSFINV(A1,A2,A3)  CCALLSFSUB3(DSFINV,dsfinv,INT,PDOUBLE,INT,A1,A2,A3)
0676
0677 PROTOCCALLSFSUB4(DSINV,dsinv,INT,PDOUBLE,INT,PINT)
0678 #define DSINV(A1,A2,A3,A4)  CCALLSFSUB4(DSINV,dsinv,INT,PDOUBLE,INT,PINT,A1,A2,A3,A4)
0679
0680 PROTOCCALLSFSUB8(DUMNA,dumna,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV)
0681 #define DUMNA(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(DUMNA,dumna,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,A1,A2,A3,A4,A5,A6,A7,A8)
0682
0683 PROTOCCALLSFSUB8(DUMNS,dumns,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV)
0684 #define DUMNS(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(DUMNS,dumns,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,A1,A2,A3,A4,A5,A6,A7,A8)
0685
0686 PROTOCCALLSFSUB8(DUMPA,dumpa,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV)
0687 #define DUMPA(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(DUMPA,dumpa,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,A1,A2,A3,A4,A5,A6,A7,A8)
0688
0689 PROTOCCALLSFSUB8(DUMPS,dumps,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV)
0690 #define DUMPS(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(DUMPS,dumps,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,A1,A2,A3,A4,A5,A6,A7,A8)
0691
0692 PROTOCCALLSFSUB8(DUMPY,dumpy,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV)
0693 #define DUMPY(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(DUMPY,dumpy,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,A1,A2,A3,A4,A5,A6,A7,A8)
0694
0695 PROTOCCALLSFSUB7(DVADD,dvadd,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV)
0696 #define DVADD(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(DVADD,dvadd,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,A1,A2,A3,A4,A5,A6,A7)
0697
0698 PROTOCCALLSFSUB5(DVCPY,dvcpy,INT,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV)
0699 #define DVCPY(A1,A2,A3,A4,A5)  CCALLSFSUB5(DVCPY,dvcpy,INT,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,A1,A2,A3,A4,A5)
0700
0701 PROTOCCALLSFSUB8(DVDIV,dvdiv,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,PINT)
0702 #define DVDIV(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(DVDIV,dvdiv,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,PINT,A1,A2,A3,A4,A5,A6,A7,A8)
0703
0704 PROTOCCALLSFSUB7(DVMUL,dvmul,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV)
0705 #define DVMUL(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(DVMUL,dvmul,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,A1,A2,A3,A4,A5,A6,A7)
0706
0707 PROTOCCALLSFSUB7(DVMULA,dvmula,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV)
0708 #define DVMULA(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(DVMULA,dvmula,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,A1,A2,A3,A4,A5,A6,A7)
0709
0710 PROTOCCALLSFSUB7(DVMUNA,dvmuna,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV)
0711 #define DVMUNA(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(DVMUNA,dvmuna,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,A1,A2,A3,A4,A5,A6,A7)
0712
0713 PROTOCCALLSFSUB5(DVRAN,dvran,INT,DOUBLE,DOUBLE,PDOUBLE,DOUBLEV)
0714 #define DVRAN(A1,A2,A3,A4,A5)  CCALLSFSUB5(DVRAN,dvran,INT,DOUBLE,DOUBLE,PDOUBLE,DOUBLEV,A1,A2,A3,A4,A5)
0715
0716 PROTOCCALLSFSUB8(DVSCA,dvsca,INT,DOUBLE,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV)
0717 #define DVSCA(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(DVSCA,dvsca,INT,DOUBLE,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,A1,A2,A3,A4,A5,A6,A7,A8)
0718
0719 PROTOCCALLSFSUB6(DVSCL,dvscl,INT,DOUBLE,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV)
0720 #define DVSCL(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(DVSCL,dvscl,INT,DOUBLE,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,A1,A2,A3,A4,A5,A6)
0721
0722 PROTOCCALLSFSUB8(DVSCS,dvscs,INT,DOUBLE,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV)
0723 #define DVSCS(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(DVSCS,dvscs,INT,DOUBLE,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,A1,A2,A3,A4,A5,A6,A7,A8)
0724
0725 PROTOCCALLSFSUB4(DVSET,dvset,INT,DOUBLE,PDOUBLE,DOUBLEV)
0726 #define DVSET(A1,A2,A3,A4)  CCALLSFSUB4(DVSET,dvset,INT,DOUBLE,PDOUBLE,DOUBLEV,A1,A2,A3,A4)
0727
0728 PROTOCCALLSFSUB7(DVSUB,dvsub,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV)
0729 #define DVSUB(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(DVSUB,dvsub,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,A1,A2,A3,A4,A5,A6,A7)
0730
0731 PROTOCCALLSFSUB5(DVXCH,dvxch,INT,PDOUBLE,DOUBLEV,PDOUBLE,DOUBLEV)
0732 #define DVXCH(A1,A2,A3,A4,A5)  CCALLSFSUB5(DVXCH,dvxch,INT,PDOUBLE,DOUBLEV,PDOUBLE,DOUBLEV,A1,A2,A3,A4,A5)
0733
0734 PROTOCCALLSFSUB7(DZERO,dzero,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,DOUBLE,INT,DOUBLE)
0735 #define DZERO(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(DZERO,dzero,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,DOUBLE,INT,DOUBLE,A1,A2,A3,A4,A5,A6,A7)
0736
0737 PROTOCCALLSFSUB3(E208PR,e208pr,INT,PINT,INT)
0738 #define E208PR(A1,A2,A3)  CCALLSFSUB3(E208PR,e208pr,INT,PINT,INT,A1,A2,A3)
0739
0740 PROTOCCALLSFSUB5(F010PR,f010pr,STRING,INT,INT,INT,INT)
0741 #define F010PR(A1,A2,A3,A4,A5)  CCALLSFSUB5(F010PR,f010pr,STRING,INT,INT,INT,INT,A1,A2,A3,A4,A5)
0742
0743 PROTOCCALLSFSUB5(GSET,gset,FLOAT,FLOAT,INT,FLOATV,FLOATV)
0744 #define GSET(A1,A2,A3,A4,A5)  CCALLSFSUB5(GSET,gset,FLOAT,FLOAT,INT,FLOATV,FLOATV,A1,A2,A3,A4,A5)
0745
0746 PROTOCCALLSFSUB1(KERNNT,kernnt,INT)
0747 #define KERNNT(A1)  CCALLSFSUB1(KERNNT,kernnt,INT,A1)
0748
0749 PROTOCCALLSFSUB4(KERSET,kerset,STRING,INT,INT,INT)
0750 #define KERSET(A1,A2,A3,A4)  CCALLSFSUB4(KERSET,kerset,STRING,INT,INT,INT,A1,A2,A3,A4)
0751
0752 PROTOCCALLSFSUB6(LLSQ,llsq,INT,FLOATV,FLOATV,PFLOAT,PFLOAT,PINT)
0753 #define LLSQ(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(LLSQ,llsq,INT,FLOATV,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6)
0754
0755 PROTOCCALLSFSUB5(LSQ,lsq,INT,FLOATV,FLOATV,INT,PFLOAT)
0756 #define LSQ(A1,A2,A3,A4,A5)  CCALLSFSUB5(LSQ,lsq,INT,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4,A5)
0757
0758 PROTOCCALLSFSUB9(MINVAR,minvar,PFLOAT,PFLOAT,PFLOAT,FLOAT,FLOAT,INT,FLOAT,FLOAT,FLOAT)
0759 #define MINVAR(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(MINVAR,minvar,PFLOAT,PFLOAT,PFLOAT,FLOAT,FLOAT,INT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0760
0761 PROTOCCALLSFSUB5(POLINT,polint,FLOATV,FLOATV,INT,FLOAT,PFLOAT)
0762 #define POLINT(A1,A2,A3,A4,A5)  CCALLSFSUB5(POLINT,polint,FLOATV,FLOATV,INT,FLOAT,PFLOAT,A1,A2,A3,A4,A5)
0763
0764 PROTOCCALLSFSUB3(RAN2VS,ran2vs,FLOAT,PFLOAT,PFLOAT)
0765 #define RAN2VS(A1,A2,A3)  CCALLSFSUB3(RAN2VS,ran2vs,FLOAT,PFLOAT,PFLOAT,A1,A2,A3)
0766
0767 PROTOCCALLSFSUB4(RAN3VS,ran3vs,FLOAT,PFLOAT,PFLOAT,PFLOAT)
0768 #define RAN3VS(A1,A2,A3,A4)  CCALLSFSUB4(RAN3VS,ran3vs,FLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4)
0769
0770 PROTOCCALLSFSUB1(RANGET,ranget,PDOUBLE)
0771 #define RANGET(A1)  CCALLSFSUB1(RANGET,ranget,PDOUBLE,A1)
0772
0773 PROTOCCALLSFSUB7(RBEQN,rbeqn,INT,INT,PFLOAT,INT,PINT,INT,PFLOAT)
0774 #define RBEQN(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(RBEQN,rbeqn,INT,INT,PFLOAT,INT,PINT,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
0775
0776 PROTOCCALLSFSUB7(REQINV,reqinv,INT,FLOATVV,INT,FLOATV,PINT,INT,FLOATV)
0777 #define REQINV(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(REQINV,reqinv,INT,FLOATVV,INT,FLOATV,PINT,INT,FLOATV,A1,A2,A3,A4,A5,A6,A7)
0778
0779 PROTOCCALLSFSUB7(REQN,reqn,INT,FLOATVV,INT,FLOATV,PINT,INT,FLOATV)
0780 #define REQN(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(REQN,reqn,INT,FLOATVV,INT,FLOATV,PINT,INT,FLOATV,A1,A2,A3,A4,A5,A6,A7)
0781
0782 PROTOCCALLSFSUB7(RFACT,rfact,INT,PFLOAT,INT,PINT,PINT,PFLOAT,PINT)
0783 #define RFACT(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(RFACT,rfact,INT,PFLOAT,INT,PINT,PINT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7)
0784
0785 PROTOCCALLSFSUB6(RFEQN,rfeqn,INT,PFLOAT,INT,INTV,INT,PFLOAT)
0786 #define RFEQN(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(RFEQN,rfeqn,INT,PFLOAT,INT,INTV,INT,PFLOAT,A1,A2,A3,A4,A5,A6)
0787
0788 PROTOCCALLSFSUB4(RFINV,rfinv,INT,PFLOAT,INT,INTV)
0789 #define RFINV(A1,A2,A3,A4)  CCALLSFSUB4(RFINV,rfinv,INT,PFLOAT,INT,INTV,A1,A2,A3,A4)
0790
0791 PROTOCCALLSFSUB5(RINV,rinv,INT,FLOATVV,INT,FLOATV,PINT)
0792 #define RINV(A1,A2,A3,A4,A5)  CCALLSFSUB5(RINV,rinv,INT,FLOATVV,INT,FLOATV,PINT,A1,A2,A3,A4,A5)
0793
0794 PROTOCCALLSFSUB6(RKSTP,rkstp,INT,FLOAT,PFLOAT,PFLOAT,FLOAT,PFLOAT)
0795 #define RKSTP(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(RKSTP,rkstp,INT,FLOAT,PFLOAT,PFLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
0796
0797 PROTOCCALLSFSUB11(RMADD,rmadd,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,FLOATV)
0798 #define RMADD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)  CCALLSFSUB11(RMADD,rmadd,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
0799
0800 PROTOCCALLSFSUB8(RMCPY,rmcpy,INT,INT,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,FLOATV)
0801 #define RMCPY(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(RMCPY,rmcpy,INT,INT,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8)
0802
0803 PROTOCCALLSFSUB12(RMMLA,rmmla,INT,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,FLOATV)
0804 #define RMMLA(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(RMMLA,rmmla,INT,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
0805
0806 PROTOCCALLSFSUB12(RMMLS,rmmls,INT,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,FLOATV)
0807 #define RMMLS(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(RMMLS,rmmls,INT,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
0808
0809 PROTOCCALLSFSUB13(RMMLT,rmmlt,INT,INT,INT,PFLOAT,FLOATV,FLOATV,PFLOAT,FLOATV,FLOATV,PFLOAT,FLOATV,FLOATV,PFLOAT)
0810 #define RMMLT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)  CCALLSFSUB13(RMMLT,rmmlt,INT,INT,INT,PFLOAT,FLOATV,FLOATV,PFLOAT,FLOATV,FLOATV,PFLOAT,FLOATV,FLOATV,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)
0811
0812 PROTOCCALLSFSUB9(RMMNA,rmmna,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV)
0813 #define RMMNA(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(RMMNA,rmmna,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0814
0815 PROTOCCALLSFSUB9(RMMNS,rmmns,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV)
0816 #define RMMNS(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(RMMNS,rmmns,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0817
0818 PROTOCCALLSFSUB9(RMMPA,rmmpa,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV)
0819 #define RMMPA(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(RMMPA,rmmpa,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0820
0821 PROTOCCALLSFSUB9(RMMPS,rmmps,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV)
0822 #define RMMPS(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(RMMPS,rmmps,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0823
0824 PROTOCCALLSFSUB9(RMMPY,rmmpy,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV)
0825 #define RMMPY(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(RMMPY,rmmpy,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0826
0827 PROTOCCALLSFSUB12(RMNMA,rmnma,INT,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,FLOATV)
0828 #define RMNMA(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(RMNMA,rmnma,INT,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
0829
0830 PROTOCCALLSFSUB12(RMNMS,rmnms,INT,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,FLOATV)
0831 #define RMNMS(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)  CCALLSFSUB12(RMNMS,rmnms,INT,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
0832
0833 PROTOCCALLSFSUB7(RMRAN,rmran,INT,INT,FLOAT,FLOAT,PFLOAT,FLOATV,FLOATV)
0834 #define RMRAN(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(RMRAN,rmran,INT,INT,FLOAT,FLOAT,PFLOAT,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6,A7)
0835
0836 PROTOCCALLSFSUB9(RMSCL,rmscl,INT,INT,FLOAT,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,FLOATV)
0837 #define RMSCL(A1,A2,A3,A4,A5,A6,A7,A8,A9)  CCALLSFSUB9(RMSCL,rmscl,INT,INT,FLOAT,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9)
0838
0839 PROTOCCALLSFSUB6(RMSET,rmset,INT,INT,FLOAT,PFLOAT,FLOATV,FLOATV)
0840 #define RMSET(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(RMSET,rmset,INT,INT,FLOAT,PFLOAT,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6)
0841
0842 PROTOCCALLSFSUB11(RMSUB,rmsub,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,FLOATV)
0843 #define RMSUB(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)  CCALLSFSUB11(RMSUB,rmsub,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
0844
0845 PROTOCCALLSFSUB4(RMUTL,rmutl,INT,PFLOAT,FLOATV,FLOATV)
0846 #define RMUTL(A1,A2,A3,A4)  CCALLSFSUB4(RMUTL,rmutl,INT,PFLOAT,FLOATV,FLOATV,A1,A2,A3,A4)
0847
0848 PROTOCCALLSFSUB10(RRSCL,rrscl,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,FLOATV)
0849 #define RRSCL(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)  CCALLSFSUB10(RRSCL,rrscl,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
0850
0851 PROTOCCALLSFSUB6(RSEQN,rseqn,INT,PFLOAT,INT,PINT,INT,PFLOAT)
0852 #define RSEQN(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(RSEQN,rseqn,INT,PFLOAT,INT,PINT,INT,PFLOAT,A1,A2,A3,A4,A5,A6)
0853
0854 PROTOCCALLSFSUB6(RSFACT,rsfact,INT,PFLOAT,INT,PINT,PFLOAT,PINT)
0855 #define RSFACT(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(RSFACT,rsfact,INT,PFLOAT,INT,PINT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6)
0856
0857 PROTOCCALLSFSUB5(RSFEQN,rsfeqn,INT,PFLOAT,INT,INT,PFLOAT)
0858 #define RSFEQN(A1,A2,A3,A4,A5)  CCALLSFSUB5(RSFEQN,rsfeqn,INT,PFLOAT,INT,INT,PFLOAT,A1,A2,A3,A4,A5)
0859
0860 PROTOCCALLSFSUB3(RSFINV,rsfinv,INT,PFLOAT,INT)
0861 #define RSFINV(A1,A2,A3)  CCALLSFSUB3(RSFINV,rsfinv,INT,PFLOAT,INT,A1,A2,A3)
0862
0863 PROTOCCALLSFSUB4(RSINV,rsinv,INT,PFLOAT,INT,PINT)
0864 #define RSINV(A1,A2,A3,A4)  CCALLSFSUB4(RSINV,rsinv,INT,PFLOAT,INT,PINT,A1,A2,A3,A4)
0865
0866 PROTOCCALLSFSUB8(RUMNA,rumna,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV)
0867 #define RUMNA(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(RUMNA,rumna,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8)
0868
0869 PROTOCCALLSFSUB8(RUMNS,rumns,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV)
0870 #define RUMNS(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(RUMNS,rumns,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8)
0871
0872 PROTOCCALLSFSUB8(RUMPA,rumpa,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV)
0873 #define RUMPA(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(RUMPA,rumpa,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8)
0874
0875 PROTOCCALLSFSUB8(RUMPS,rumps,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV)
0876 #define RUMPS(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(RUMPS,rumps,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8)
0877
0878 PROTOCCALLSFSUB8(RUMPY,rumpy,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV)
0879 #define RUMPY(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(RUMPY,rumpy,INT,FLOATV,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8)
0880
0881 PROTOCCALLSFSUB7(RVADD,rvadd,INT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV)
0882 #define RVADD(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(RVADD,rvadd,INT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6,A7)
0883
0884 PROTOCCALLSFSUB5(RVCPY,rvcpy,INT,FLOATV,FLOATV,PFLOAT,FLOATV)
0885 #define RVCPY(A1,A2,A3,A4,A5)  CCALLSFSUB5(RVCPY,rvcpy,INT,FLOATV,FLOATV,PFLOAT,FLOATV,A1,A2,A3,A4,A5)
0886
0887 PROTOCCALLSFSUB8(RVDIV,rvdiv,INT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,PINT)
0888 #define RVDIV(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(RVDIV,rvdiv,INT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,PINT,A1,A2,A3,A4,A5,A6,A7,A8)
0889
0890 PROTOCCALLSFSUB7(RVMUL,rvmul,INT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV)
0891 #define RVMUL(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(RVMUL,rvmul,INT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6,A7)
0892
0893 PROTOCCALLSFSUB7(RVMULA,rvmula,INT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV)
0894 #define RVMULA(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(RVMULA,rvmula,INT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6,A7)
0895
0896 PROTOCCALLSFSUB7(RVMUNA,rvmuna,INT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV)
0897 #define RVMUNA(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(RVMUNA,rvmuna,INT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6,A7)
0898
0899 PROTOCCALLSFSUB5(RVRAN,rvran,INT,FLOAT,FLOAT,PFLOAT,FLOATV)
0900 #define RVRAN(A1,A2,A3,A4,A5)  CCALLSFSUB5(RVRAN,rvran,INT,FLOAT,FLOAT,PFLOAT,FLOATV,A1,A2,A3,A4,A5)
0901
0902 PROTOCCALLSFSUB8(RVSCA,rvsca,INT,FLOAT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV)
0903 #define RVSCA(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(RVSCA,rvsca,INT,FLOAT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8)
0904
0905 PROTOCCALLSFSUB6(RVSCL,rvscl,INT,FLOAT,FLOATV,FLOATV,PFLOAT,FLOATV)
0906 #define RVSCL(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(RVSCL,rvscl,INT,FLOAT,FLOATV,FLOATV,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6)
0907
0908 PROTOCCALLSFSUB8(RVSCS,rvscs,INT,FLOAT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV)
0909 #define RVSCS(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(RVSCS,rvscs,INT,FLOAT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8)
0910
0911 PROTOCCALLSFSUB4(RVSET,rvset,INT,FLOAT,PFLOAT,FLOATV)
0912 #define RVSET(A1,A2,A3,A4)  CCALLSFSUB4(RVSET,rvset,INT,FLOAT,PFLOAT,FLOATV,A1,A2,A3,A4)
0913
0914 PROTOCCALLSFSUB7(RVSUB,rvsub,INT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV)
0915 #define RVSUB(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(RVSUB,rvsub,INT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6,A7)
0916
0917 PROTOCCALLSFSUB5(RVXCH,rvxch,INT,PFLOAT,FLOATV,PFLOAT,FLOATV)
0918 #define RVXCH(A1,A2,A3,A4,A5)  CCALLSFSUB5(RVXCH,rvxch,INT,PFLOAT,FLOATV,PFLOAT,FLOATV,A1,A2,A3,A4,A5)
0919
0920 PROTOCCALLSFSUB7(RZERO,rzero,FLOAT,FLOAT,PFLOAT,PFLOAT,FLOAT,INT,FLOAT)
0921 #define RZERO(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(RZERO,rzero,FLOAT,FLOAT,PFLOAT,PFLOAT,FLOAT,INT,FLOAT,A1,A2,A3,A4,A5,A6,A7)
0922
0923 PROTOCCALLSFSUB4(TMPRNT,tmprnt,STRING,INT,INT,INT)
0924 #define TMPRNT(A1,A2,A3,A4)  CCALLSFSUB4(TMPRNT,tmprnt,STRING,INT,INT,INT,A1,A2,A3,A4)
0925
0926 PROTOCCALLSFSUB5(VRAN2S,vran2s,FLOAT,INT,PFLOAT,PFLOAT,PFLOAT)
0927 #define VRAN2S(A1,A2,A3,A4,A5)  CCALLSFSUB5(VRAN2S,vran2s,FLOAT,INT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5)
0928
0929 PROTOCCALLSFSUB6(VRAN3S,vran3s,FLOAT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT)
0930 #define VRAN3S(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(VRAN3S,vran3s,FLOAT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
0931
0932 PROTOCCALLSFSUB0(ABEND,abend)
0933 #define ABEND() CCALLSFSUB0(ABEND,abend)
0934
0935 PROTOCCALLSFSUB4(BITPOS,bitpos,INTV,INT,PINT,PINT)
0936 #define BITPOS(A1,A2,A3,A4)  CCALLSFSUB4(BITPOS,bitpos,INTV,INT,PINT,PINT,A1,A2,A3,A4)
0937
0938 PROTOCCALLSFSUB4(BLOW,blow,FLOATV,INTV,INTV,INT)
0939 #define BLOW(A1,A2,A3,A4)  CCALLSFSUB4(BLOW,blow,FLOATV,INTV,INTV,INT,A1,A2,A3,A4)
0940
0941 PROTOCCALLSFSUB4(BUNCH,bunch,INTV,FLOATV,INTV,INT)
0942 #define BUNCH(A1,A2,A3,A4)  CCALLSFSUB4(BUNCH,bunch,INTV,FLOATV,INTV,INT,A1,A2,A3,A4)
0943
0944 PROTOCCALLSFSUB5(CBYT,cbyt,INT,INT,PINT,INT,INT)
0945 #define CBYT(A1,A2,A3,A4,A5)  CCALLSFSUB5(CBYT,cbyt,INT,INT,PINT,INT,INT,A1,A2,A3,A4,A5)
0946
0947 PROTOCCALLSFSUB3(CCOPIV,ccopiv,BYTEV,PBYTE,INT)
0948 #define CCOPIV(A1,A2,A3)  CCALLSFSUB3(CCOPIV,ccopiv,BYTEV,PBYTE,INT,A1,A2,A3)
0949
0950 PROTOCCALLSFSUB3(CCOPYL,ccopyl,BYTEV,PBYTE,INT)
0951 #define CCOPYL(A1,A2,A3)  CCALLSFSUB3(CCOPYL,ccopyl,BYTEV,PBYTE,INT,A1,A2,A3)
0952
0953 PROTOCCALLSFSUB3(CCOPYR,ccopyr,BYTEV,PBYTE,INT)
0954 #define CCOPYR(A1,A2,A3)  CCALLSFSUB3(CCOPYR,ccopyr,BYTEV,PBYTE,INT,A1,A2,A3)
0955
0956 PROTOCCALLSFSUB6(CCOSUB,ccosub,BYTE,PBYTE,INT,INT,BYTE,BYTE)
0957 #define CCOSUB(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(CCOSUB,ccosub,BYTE,PBYTE,INT,INT,BYTE,BYTE,A1,A2,A3,A4,A5,A6)
0958
0959 PROTOCCALLSFSUB6(CENVIR,cenvir,BYTE,INT,PBYTE,INT,INT,INT)
0960 #define CENVIR(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(CENVIR,cenvir,BYTE,INT,PBYTE,INT,INT,INT,A1,A2,A3,A4,A5,A6)
0961
0962 PROTOCCALLSFSUB4(CFILL,cfill,BYTE,PBYTE,INT,INT)
0963 #define CFILL(A1,A2,A3,A4)  CCALLSFSUB4(CFILL,cfill,BYTE,PBYTE,INT,INT,A1,A2,A3,A4)
0964
0965 PROTOCCALLSFSUB7(CFOPEN,cfopen,PINT,INT,INT,BYTE,INT,BYTE,PINT)
0966 #define CFOPEN(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(CFOPEN,cfopen,PINT,INT,INT,BYTE,INT,BYTE,PINT,A1,A2,A3,A4,A5,A6,A7)
0967
0968 PROTOCCALLSFSUB3(CFWEOF,cfweof,INT,INT,PINT)
0969 #define CFWEOF(A1,A2,A3)  CCALLSFSUB3(CFWEOF,cfweof,INT,INT,PINT,A1,A2,A3)
0970
0971 PROTOCCALLSFSUB2(CHTOI,chtoi,FLOAT,INT)
0972 #define CHTOI(A1,A2)  CCALLSFSUB2(CHTOI,chtoi,FLOAT,INT,A1,A2)
0973
0974 PROTOCCALLSFSUB4(CIOPEN,ciopen,PINT,BYTE,BYTE,PINT)
0975 #define CIOPEN(A1,A2,A3,A4)  CCALLSFSUB4(CIOPEN,ciopen,PINT,BYTE,BYTE,PINT,A1,A2,A3,A4)
0976
0977 PROTOCCALLSFSUB4(CKRACK,ckrack,BYTEV,INTV,INTV,INT)
0978 #define CKRACK(A1,A2,A3,A4)  CCALLSFSUB4(CKRACK,ckrack,BYTEV,INTV,INTV,INT,A1,A2,A3,A4)
0979
0980 PROTOCCALLSFSUB3(CLEFT,cleft,PBYTE,INTV,INTV)
0981 #define CLEFT(A1,A2,A3)  CCALLSFSUB3(CLEFT,cleft,PBYTE,INTV,INTV,A1,A2,A3)
0982
0983 PROTOCCALLSFSUB1(CLTOU,cltou,PBYTE)
0984 #define CLTOU(A1)  CCALLSFSUB1(CLTOU,cltou,PBYTE,A1)
0985
0986 PROTOCCALLSFSUB3(CRIGHT,cright,PBYTE,INTV,INTV)
0987 #define CRIGHT(A1,A2,A3)  CCALLSFSUB3(CRIGHT,cright,PBYTE,INTV,INTV,A1,A2,A3)
0988
0989 PROTOCCALLSFSUB3(CROSS,cross,FLOATV,FLOATV,PFLOAT)
0990 #define CROSS(A1,A2,A3)  CCALLSFSUB3(CROSS,cross,FLOATV,FLOATV,PFLOAT,A1,A2,A3)
0991
0992 PROTOCCALLSFSUB4(CSETDI,csetdi,INTV,PBYTE,INTV,INTV)
0993 #define CSETDI(A1,A2,A3,A4)  CCALLSFSUB4(CSETDI,csetdi,INTV,PBYTE,INTV,INTV,A1,A2,A3,A4)
0994
0995 PROTOCCALLSFSUB4(CSETHI,csethi,INTV,PBYTE,INTV,INTV)
0996 #define CSETHI(A1,A2,A3,A4)  CCALLSFSUB4(CSETHI,csethi,INTV,PBYTE,INTV,INTV,A1,A2,A3,A4)
0997
0998 PROTOCCALLSFSUB4(CSETOI,csetoi,INTV,PBYTE,INTV,INTV)
0999 #define CSETOI(A1,A2,A3,A4)  CCALLSFSUB4(CSETOI,csetoi,INTV,PBYTE,INTV,INTV,A1,A2,A3,A4)
1000
1001 PROTOCCALLSFSUB8(CSETVI,csetvi,INTV,INTV,INTV,BYTE,INTV,INTV,INTV,INTV)
1002 #define CSETVI(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(CSETVI,csetvi,INTV,INTV,INTV,BYTE,INTV,INTV,INTV,INTV,A1,A2,A3,A4,A5,A6,A7,A8)
1003
1004 PROTOCCALLSFSUB8(CSETVM,csetvm,INTV,INTV,INTV,BYTE,INTV,INTV,INTV,INTV)
1005 #define CSETVM(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(CSETVM,csetvm,INTV,INTV,INTV,BYTE,INTV,INTV,INTV,INTV,A1,A2,A3,A4,A5,A6,A7,A8)
1006
1007 PROTOCCALLSFSUB3(CSQMBL,csqmbl,PBYTE,INTV,INTV)
1008 #define CSQMBL(A1,A2,A3)  CCALLSFSUB3(CSQMBL,csqmbl,PBYTE,INTV,INTV,A1,A2,A3)
1009
1010 PROTOCCALLSFSUB4(CSQMCH,csqmch,STRING,PBYTE,INTV,INTV)
1011 #define CSQMCH(A1,A2,A3,A4)  CCALLSFSUB4(CSQMCH,csqmch,STRING,PBYTE,INTV,INTV,A1,A2,A3,A4)
1012
1013 PROTOCCALLSFSUB5(CTRANS,ctrans,STRING,STRING,STRING,INT,INT)
1014 #define CTRANS(A1,A2,A3,A4,A5)  CCALLSFSUB5(CTRANS,ctrans,STRING,STRING,STRING,INT,INT,A1,A2,A3,A4,A5)
1015
1016 PROTOCCALLSFSUB1(CUTOL,cutol,PBYTE)
1017 #define CUTOL(A1)  CCALLSFSUB1(CUTOL,cutol,PBYTE,A1)
1018
1019 PROTOCCALLSFSUB2(DATIME,datime,PINT,PINT)
1020 #define DATIME(A1,A2)  CCALLSFSUB2(DATIME,datime,PINT,PINT,A1,A2)
1021
1022 PROTOCCALLSFSUB2(DATIMH,datimh,INTV,INTV)
1023 #define DATIMH(A1,A2)  CCALLSFSUB2(DATIMH,datimh,INTV,INTV,A1,A2)
1024
1025 PROTOCCALLSFSUB4(FFSIZE,ffsize,INT,INT,PINT,PINT)
1026 #define FFSIZE(A1,A2,A3,A4)  CCALLSFSUB4(FFSIZE,ffsize,INT,INT,PINT,PINT,A1,A2,A3,A4)
1027
1028 PROTOCCALLSFSUB2(FLPSOR,flpsor,PFLOAT,INT)
1029 #define FLPSOR(A1,A2)  CCALLSFSUB2(FLPSOR,flpsor,PFLOAT,INT,A1,A2)
1030
1031 PROTOCCALLSFSUB2(GETENVF,getenvf,STRING,STRING)
1032 #define GETENVF(A1,A2)  CCALLSFSUB2(GETENVF,getenvf,STRING,STRING,A1,A2)
1033
1034 PROTOCCALLSFSUB1(GETWDF,getwdf,BYTE)
1035 #define GETWDF(A1)  CCALLSFSUB1(GETWDF,getwdf,BYTE,A1)
1036
1037 PROTOCCALLSFSUB1(GSHOW,gshow,INT)
1038 #define GSHOW(A1)  CCALLSFSUB1(GSHOW,gshow,INT,A1)
1039
1040 PROTOCCALLSFSUB1(GSHOWF,gshowf,INT)
1041 #define GSHOWF(A1)  CCALLSFSUB1(GSHOWF,gshowf,INT,A1)
1042
1043 PROTOCCALLSFSUB4(IE3FOD,ie3fod,INTV,INTV,INT,PINT)
1044 #define IE3FOD(A1,A2,A3,A4)  CCALLSFSUB4(IE3FOD,ie3fod,INTV,INTV,INT,PINT,A1,A2,A3,A4)
1045
1046 PROTOCCALLSFSUB4(IE3FOS,ie3fos,INTV,INTV,INT,PINT)
1047 #define IE3FOS(A1,A2,A3,A4)  CCALLSFSUB4(IE3FOS,ie3fos,INTV,INTV,INT,PINT,A1,A2,A3,A4)
1048
1049 PROTOCCALLSFSUB4(IE3TOD,ie3tod,INTV,INTV,INT,PINT)
1050 #define IE3TOD(A1,A2,A3,A4)  CCALLSFSUB4(IE3TOD,ie3tod,INTV,INTV,INT,PINT,A1,A2,A3,A4)
1051
1052 PROTOCCALLSFSUB4(IE3TOS,ie3tos,INTV,INTV,INT,PINT)
1053 #define IE3TOS(A1,A2,A3,A4)  CCALLSFSUB4(IE3TOS,ie3tos,INTV,INTV,INT,PINT,A1,A2,A3,A4)
1054
1055 PROTOCCALLSFSUB2(INTSOR,intsor,PINT,INT)
1056 #define INTSOR(A1,A2)  CCALLSFSUB2(INTSOR,intsor,PINT,INT,A1,A2)
1057
1058 PROTOCCALLSFSUB2(ITOCH,itoch,INT,FLOAT)
1059 #define ITOCH(A1,A2)  CCALLSFSUB2(ITOCH,itoch,INT,FLOAT,A1,A2)
1060
1061 PROTOCCALLSFSUB1(JOBNAM,jobnam,PINT)
1062 #define JOBNAM(A1)  CCALLSFSUB1(JOBNAM,jobnam,PINT,A1)
1063
1064 PROTOCCALLSFSUB2(JUMPX2,jumpx2,INTV,INTV)
1065 #define JUMPX2(A1,A2)  CCALLSFSUB2(JUMPX2,jumpx2,INTV,INTV,A1,A2)
1066
1067 PROTOCCALLSFSUB3(JUMPY2,jumpy2,FLOAT,INTV,INTV)
1068 #define JUMPY2(A1,A2,A3)  CCALLSFSUB3(JUMPY2,jumpy2,FLOAT,INTV,INTV,A1,A2,A3)
1069
1070 PROTOCCALLSFSUB1(KERNGT,kerngt,INT)
1071 #define KERNGT(A1)  CCALLSFSUB1(KERNGT,kerngt,INT,A1)
1072
1073 PROTOCCALLSFSUB3(LOREN4,loren4,FLOATV,FLOATV,PFLOAT)
1074 #define LOREN4(A1,A2,A3)  CCALLSFSUB3(LOREN4,loren4,FLOATV,FLOATV,PFLOAT,A1,A2,A3)
1075
1076 PROTOCCALLSFSUB4(LORENB,lorenb,FLOAT,FLOATV,FLOATV,PFLOAT)
1077 #define LORENB(A1,A2,A3,A4)  CCALLSFSUB4(LORENB,lorenb,FLOAT,FLOATV,FLOATV,PFLOAT,A1,A2,A3,A4)
1078
1079 PROTOCCALLSFSUB4(LORENF,lorenf,FLOAT,FLOATV,FLOATV,PFLOAT)
1080 #define LORENF(A1,A2,A3,A4)  CCALLSFSUB4(LORENF,lorenf,FLOAT,FLOATV,FLOATV,PFLOAT,A1,A2,A3,A4)
1081
1082 PROTOCCALLSFSUB8(MATIN1,matin1,PFLOAT,INT,INT,INT,INT,PINT,PINT,PFLOAT)
1083 #define MATIN1(A1,A2,A3,A4,A5,A6,A7,A8)  CCALLSFSUB8(MATIN1,matin1,PFLOAT,INT,INT,INT,INT,PINT,PINT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
1084
1085 PROTOCCALLSFSUB5(MVBITS,mvbits,INT,INT,INT,PINT,INT)
1086 #define MVBITS(A1,A2,A3,A4,A5)  CCALLSFSUB5(MVBITS,mvbits,INT,INT,INT,PINT,INT,A1,A2,A3,A4,A5)
1087
1088 PROTOCCALLSFSUB4(MXEQU,mxequ,PFLOAT,FLOATV,INT,INT)
1089 #define MXEQU(A1,A2,A3,A4)  CCALLSFSUB4(MXEQU,mxequ,PFLOAT,FLOATV,INT,INT,A1,A2,A3,A4)
1090
1091 PROTOCCALLSFSUB6(MXMAD,mxmad,FLOATV,FLOATV,FLOATV,INT,INT,INT)
1092 #define MXMAD(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(MXMAD,mxmad,FLOATV,FLOATV,FLOATV,INT,INT,INT,A1,A2,A3,A4,A5,A6)
1093
1094 PROTOCCALLSFSUB5(MXMLRT,mxmlrt,FLOATV,FLOATV,FLOATV,INT,INT)
1095 #define MXMLRT(A1,A2,A3,A4,A5)  CCALLSFSUB5(MXMLRT,mxmlrt,FLOATV,FLOATV,FLOATV,INT,INT,A1,A2,A3,A4,A5)
1096
1097 PROTOCCALLSFSUB4(MXTRP,mxtrp,FLOATV,PFLOAT,INT,INT)
1098 #define MXTRP(A1,A2,A3,A4)  CCALLSFSUB4(MXTRP,mxtrp,FLOATV,PFLOAT,INT,INT,A1,A2,A3,A4)
1099
1100 PROTOCCALLSFSUB2(MXUTY,mxuty,PFLOAT,INT)
1101 #define MXUTY(A1,A2)  CCALLSFSUB2(MXUTY,mxuty,PFLOAT,INT,A1,A2)
1102
1103 PROTOCCALLSFSUB1(NOARG,noarg,INT)
1104 #define NOARG(A1)  CCALLSFSUB1(NOARG,noarg,INT,A1)
1105
1106 PROTOCCALLSFSUB1(PERRORF,perrorf,BYTE)
1107 #define PERRORF(A1)  CCALLSFSUB1(PERRORF,perrorf,BYTE,A1)
1108
1109 PROTOCCALLSFSUB5(PKBYT,pkbyt,INTV,PINT,INTV,INTV,INTV)
1110 #define PKBYT(A1,A2,A3,A4,A5)  CCALLSFSUB5(PKBYT,pkbyt,INTV,PINT,INTV,INTV,INTV,A1,A2,A3,A4,A5)
1111
1112 PROTOCCALLSFSUB4(PKCHAR,pkchar,INTV,PINT,INT,INTV)
1113 #define PKCHAR(A1,A2,A3,A4)  CCALLSFSUB4(PKCHAR,pkchar,INTV,PINT,INT,INTV,A1,A2,A3,A4)
1114
1115 PROTOCCALLSFSUB3(POWEZE,poweze,FLOAT,PFLOAT,INT)
1116 #define POWEZE(A1,A2,A3)  CCALLSFSUB3(POWEZE,poweze,FLOAT,PFLOAT,INT,A1,A2,A3)
1117
1118 PROTOCCALLSFSUB4(RANECQ,ranecq,PINT,PINT,INT,STRING)
1119 #define RANECQ(A1,A2,A3,A4)  CCALLSFSUB4(RANECQ,ranecq,PINT,PINT,INT,STRING,A1,A2,A3,A4)
1120
1121 PROTOCCALLSFSUB3(RANECU,ranecu,PFLOAT,INT,INT)
1122 #define RANECU(A1,A2,A3)  CCALLSFSUB3(RANECU,ranecu,PFLOAT,INT,INT,A1,A2,A3)
1123
1124 PROTOCCALLSFSUB2(RANMAR,ranmar,PFLOAT,INT)
1125 #define RANMAR(A1,A2)  CCALLSFSUB2(RANMAR,ranmar,PFLOAT,INT,A1,A2)
1126
1127 PROTOCCALLSFSUB2(RANNOR,rannor,PFLOAT,PFLOAT)
1128 #define RANNOR(A1,A2)  CCALLSFSUB2(RANNOR,rannor,PFLOAT,PFLOAT,A1,A2)
1129
1130 PROTOCCALLSFSUB3(RMMAQ,rmmaq,PINT,PINT,BYTE)
1131 #define RMMAQ(A1,A2,A3)  CCALLSFSUB3(RMMAQ,rmmaq,PINT,PINT,BYTE,A1,A2,A3)
1132
1133 PROTOCCALLSFSUB3(RMMAR,rmmar,PFLOAT,INT,INT)
1134 #define RMMAR(A1,A2,A3)  CCALLSFSUB3(RMMAR,rmmar,PFLOAT,INT,INT,A1,A2,A3)
1135
1136 PROTOCCALLSFSUB3(ROT,rot,FLOATV,FLOAT,PFLOAT)
1137 #define ROT(A1,A2,A3)  CCALLSFSUB3(ROT,rot,FLOATV,FLOAT,PFLOAT,A1,A2,A3)
1138
1139 PROTOCCALLSFSUB3(SBIT,sbit,INT,PINT,INT)
1140 #define SBIT(A1,A2,A3)  CCALLSFSUB3(SBIT,sbit,INT,PINT,INT,A1,A2,A3)
1141
1142 PROTOCCALLSFSUB2(SBIT0,sbit0,PINT,INT)
1143 #define SBIT0(A1,A2)  CCALLSFSUB2(SBIT0,sbit0,PINT,INT,A1,A2)
1144
1145 PROTOCCALLSFSUB2(SBIT1,sbit1,PINT,INT)
1146 #define SBIT1(A1,A2)  CCALLSFSUB2(SBIT1,sbit1,PINT,INT,A1,A2)
1147
1148 PROTOCCALLSFSUB4(SBYT,sbyt,INT,PINT,INT,INT)
1149 #define SBYT(A1,A2,A3,A4)  CCALLSFSUB4(SBYT,sbyt,INT,PINT,INT,INT,A1,A2,A3,A4)
1150
1151 PROTOCCALLSFSUB4(SBYTOR,sbytor,INT,PINT,INT,INT)
1152 #define SBYTOR(A1,A2,A3,A4)  CCALLSFSUB4(SBYTOR,sbytor,INT,PINT,INT,INT,A1,A2,A3,A4)
1153
1154 PROTOCCALLSFSUB4(SBYTPK,sbytpk,INT,FLOATV,INT,INTV)
1155 #define SBYTPK(A1,A2,A3,A4)  CCALLSFSUB4(SBYTPK,sbytpk,INT,FLOATV,INT,INTV,A1,A2,A3,A4)
1156
1157 PROTOCCALLSFSUB5(SETFMT,setfmt,PINT,PINT,INT,FLOATV,INT)
1158 #define SETFMT(A1,A2,A3,A4,A5)  CCALLSFSUB5(SETFMT,setfmt,PINT,PINT,INT,FLOATV,INT,A1,A2,A3,A4,A5)
1159
1160 PROTOCCALLSFSUB3(SMXINV,smxinv,PFLOAT,INT,PINT)
1161 #define SMXINV(A1,A2,A3)  CCALLSFSUB3(SMXINV,smxinv,PFLOAT,INT,PINT,A1,A2,A3)
1162
1163 PROTOCCALLSFSUB5(SORCHA,sorcha,PSTRINGV,INT,INT,INT,INT)
1164 #define SORCHA(A1,A2,A3,A4,A5)  CCALLSFSUB5(SORCHA,sorcha,PSTRINGV,INT,INT,INT,INT,A1,A2,A3,A4,A5)
1165
1166 PROTOCCALLSFSUB4(SORTD,sortd,PDOUBLE,INT,INT,INT)
1167 #define SORTD(A1,A2,A3,A4)  CCALLSFSUB4(SORTD,sortd,PDOUBLE,INT,INT,INT,A1,A2,A3,A4)
1168
1169 PROTOCCALLSFSUB4(SORTI,sorti,PINT,INT,INT,INT)
1170 #define SORTI(A1,A2,A3,A4)  CCALLSFSUB4(SORTI,sorti,PINT,INT,INT,INT,A1,A2,A3,A4)
1171
1172 PROTOCCALLSFSUB4(SORTR,sortr,PFLOAT,INT,INT,INT)
1173 #define SORTR(A1,A2,A3,A4)  CCALLSFSUB4(SORTR,sortr,PFLOAT,INT,INT,INT,A1,A2,A3,A4)
1174
1175 PROTOCCALLSFSUB3(SORTTC,sorttc,INTV,PINT,INT)
1176 #define SORTTC(A1,A2,A3)  CCALLSFSUB3(SORTTC,sorttc,INTV,PINT,INT,A1,A2,A3)
1177
1178 PROTOCCALLSFSUB3(SORTTF,sorttf,FLOATV,PINT,INT)
1179 #define SORTTF(A1,A2,A3)  CCALLSFSUB3(SORTTF,sorttf,FLOATV,PINT,INT,A1,A2,A3)
1180
1181 PROTOCCALLSFSUB3(SORTTI,sortti,INTV,PINT,INT)
1182 #define SORTTI(A1,A2,A3)  CCALLSFSUB3(SORTTI,sortti,INTV,PINT,INT,A1,A2,A3)
1183
1184 PROTOCCALLSFSUB5(SORTX,sortx,PINT,INT,INT,INT,PINT)
1185 #define SORTX(A1,A2,A3,A4,A5)  CCALLSFSUB5(SORTX,sortx,PINT,INT,INT,INT,PINT,A1,A2,A3,A4,A5)
1186
1187 PROTOCCALLSFSUB6(SORTZV,sortzv,FLOATV,PINT,INT,INT,INT,INT)
1188 #define SORTZV(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(SORTZV,sortzv,FLOATV,PINT,INT,INT,INT,INT,A1,A2,A3,A4,A5,A6)
1189
1190 PROTOCCALLSFSUB4(TCDUMP,tcdump,INT,INTV,INT,INT)
1191 #define TCDUMP(A1,A2,A3,A4)  CCALLSFSUB4(TCDUMP,tcdump,INT,INTV,INT,INT,A1,A2,A3,A4)
1192
1193 PROTOCCALLSFSUB4(TLERR,tlerr,PFLOAT,PFLOAT,PFLOAT,PINT)
1194 #define TLERR(A1,A2,A3,A4)  CCALLSFSUB4(TLERR,tlerr,PFLOAT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4)
1195
1196 PROTOCCALLSFSUB7(TLPIV,tlpiv,FLOATV,FLOATV,INT,INT,INT,PFLOAT,PFLOAT)
1197 #define TLPIV(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(TLPIV,tlpiv,FLOATV,FLOATV,INT,INT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
1198
1199 PROTOCCALLSFSUB3(TLRES,tlres,FLOATV,PFLOAT,FLOATV)
1200 #define TLRES(A1,A2,A3)  CCALLSFSUB3(TLRES,tlres,FLOATV,PFLOAT,FLOATV,A1,A2,A3)
1201
1202 PROTOCCALLSFSUB6(TLS,tls,FLOATV,FLOATV,PFLOAT,PINT,FLOAT,PFLOAT)
1203 #define TLS(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(TLS,tls,FLOATV,FLOATV,PFLOAT,PINT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
1204
1205 PROTOCCALLSFSUB6(TLSC,tlsc,PFLOAT,PFLOAT,PFLOAT,PINT,FLOAT,PFLOAT)
1206 #define TLSC(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(TLSC,tlsc,PFLOAT,PFLOAT,PFLOAT,PINT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
1207
1208 PROTOCCALLSFSUB4(TLSMSQ,tlsmsq,FLOATV,INT,INT,PFLOAT)
1209 #define TLSMSQ(A1,A2,A3,A4)  CCALLSFSUB4(TLSMSQ,tlsmsq,FLOATV,INT,INT,PFLOAT,A1,A2,A3,A4)
1210
1211 PROTOCCALLSFSUB7(TLSTEP,tlstep,FLOATV,PFLOAT,INT,INT,INT,INT,FLOAT)
1212 #define TLSTEP(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(TLSTEP,tlstep,FLOATV,PFLOAT,INT,INT,INT,INT,FLOAT,A1,A2,A3,A4,A5,A6,A7)
1213
1214 PROTOCCALLSFSUB4(TLSWOP,tlswop,PFLOAT,PFLOAT,INT,INT)
1215 #define TLSWOP(A1,A2,A3,A4)  CCALLSFSUB4(TLSWOP,tlswop,PFLOAT,PFLOAT,INT,INT,A1,A2,A3,A4)
1216
1217 PROTOCCALLSFSUB5(TLUK,tluk,PFLOAT,INT,PINT,PFLOAT,PFLOAT)
1218 #define TLUK(A1,A2,A3,A4,A5)  CCALLSFSUB5(TLUK,tluk,PFLOAT,INT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5)
1219
1220 PROTOCCALLSFSUB1(TMPRO,tmpro,BYTE)
1221 #define TMPRO(A1)  CCALLSFSUB1(TMPRO,tmpro,BYTE,A1)
1222
1223 PROTOCCALLSFSUB2(TOSLAT,toslat,INT,INT)
1224 #define TOSLAT(A1,A2)  CCALLSFSUB2(TOSLAT,toslat,INT,INT,A1,A2)
1225
1226 PROTOCCALLSFSUB4(TRAAT,traat,FLOATV,PFLOAT,INT,INT)
1227 #define TRAAT(A1,A2,A3,A4)  CCALLSFSUB4(TRAAT,traat,FLOATV,PFLOAT,INT,INT,A1,A2,A3,A4)
1228
1229 PROTOCCALLSFSUB2(TRACEQ,traceq,INT,INT)
1230 #define TRACEQ(A1,A2)  CCALLSFSUB2(TRACEQ,traceq,INT,INT,A1,A2)
1231
1232 PROTOCCALLSFSUB5(TRAL,tral,FLOATV,FLOATV,PFLOAT,INT,INT)
1233 #define TRAL(A1,A2,A3,A4,A5)  CCALLSFSUB5(TRAL,tral,FLOATV,FLOATV,PFLOAT,INT,INT,A1,A2,A3,A4,A5)
1234
1235 PROTOCCALLSFSUB5(TRALT,tralt,FLOATV,FLOATV,PFLOAT,INT,INT)
1236 #define TRALT(A1,A2,A3,A4,A5)  CCALLSFSUB5(TRALT,tralt,FLOATV,FLOATV,PFLOAT,INT,INT,A1,A2,A3,A4,A5)
1237
1238 PROTOCCALLSFSUB5(TRAS,tras,FLOATV,FLOATV,PFLOAT,INT,INT)
1239 #define TRAS(A1,A2,A3,A4,A5)  CCALLSFSUB5(TRAS,tras,FLOATV,FLOATV,PFLOAT,INT,INT,A1,A2,A3,A4,A5)
1240
1241 PROTOCCALLSFSUB5(TRASAT,trasat,FLOATV,FLOATV,PFLOAT,INT,INT)
1242 #define TRASAT(A1,A2,A3,A4,A5)  CCALLSFSUB5(TRASAT,trasat,FLOATV,FLOATV,PFLOAT,INT,INT,A1,A2,A3,A4,A5)
1243
1244 PROTOCCALLSFSUB4(TRATA,trata,FLOATV,PFLOAT,INT,INT)
1245 #define TRATA(A1,A2,A3,A4)  CCALLSFSUB4(TRATA,trata,FLOATV,PFLOAT,INT,INT,A1,A2,A3,A4)
1246
1247 PROTOCCALLSFSUB5(TRATS,trats,FLOATV,FLOATV,PFLOAT,INT,INT)
1248 #define TRATS(A1,A2,A3,A4,A5)  CCALLSFSUB5(TRATS,trats,FLOATV,FLOATV,PFLOAT,INT,INT,A1,A2,A3,A4,A5)
1249
1250 PROTOCCALLSFSUB5(TRATSA,tratsa,FLOATV,FLOATV,PFLOAT,INT,INT)
1251 #define TRATSA(A1,A2,A3,A4,A5)  CCALLSFSUB5(TRATSA,tratsa,FLOATV,FLOATV,PFLOAT,INT,INT,A1,A2,A3,A4,A5)
1252
1253 PROTOCCALLSFSUB3(TRCHLU,trchlu,FLOATV,PFLOAT,INT)
1254 #define TRCHLU(A1,A2,A3)  CCALLSFSUB3(TRCHLU,trchlu,FLOATV,PFLOAT,INT,A1,A2,A3)
1255
1256 PROTOCCALLSFSUB3(TRCHUL,trchul,FLOATV,PFLOAT,INT)
1257 #define TRCHUL(A1,A2,A3)  CCALLSFSUB3(TRCHUL,trchul,FLOATV,PFLOAT,INT,A1,A2,A3)
1258
1259 PROTOCCALLSFSUB3(TRINV,trinv,FLOATV,PFLOAT,INT)
1260 #define TRINV(A1,A2,A3)  CCALLSFSUB3(TRINV,trinv,FLOATV,PFLOAT,INT,A1,A2,A3)
1261
1262 PROTOCCALLSFSUB5(TRLA,trla,FLOATV,FLOATV,PFLOAT,INT,INT)
1263 #define TRLA(A1,A2,A3,A4,A5)  CCALLSFSUB5(TRLA,trla,FLOATV,FLOATV,PFLOAT,INT,INT,A1,A2,A3,A4,A5)
1264
1265 PROTOCCALLSFSUB5(TRLTA,trlta,FLOATV,FLOATV,PFLOAT,INT,INT)
1266 #define TRLTA(A1,A2,A3,A4,A5)  CCALLSFSUB5(TRLTA,trlta,FLOATV,FLOATV,PFLOAT,INT,INT,A1,A2,A3,A4,A5)
1267
1268 PROTOCCALLSFSUB3(TRPCK,trpck,FLOATV,PFLOAT,INT)
1269 #define TRPCK(A1,A2,A3)  CCALLSFSUB3(TRPCK,trpck,FLOATV,PFLOAT,INT,A1,A2,A3)
1270
1271 PROTOCCALLSFSUB4(TRQSQ,trqsq,FLOATV,FLOATV,PFLOAT,INT)
1272 #define TRQSQ(A1,A2,A3,A4)  CCALLSFSUB4(TRQSQ,trqsq,FLOATV,FLOATV,PFLOAT,INT,A1,A2,A3,A4)
1273
1274 PROTOCCALLSFSUB5(TRSA,trsa,FLOATV,FLOATV,PFLOAT,INT,INT)
1275 #define TRSA(A1,A2,A3,A4,A5)  CCALLSFSUB5(TRSA,trsa,FLOATV,FLOATV,PFLOAT,INT,INT,A1,A2,A3,A4,A5)
1276
1277 PROTOCCALLSFSUB5(TRSAT,trsat,FLOATV,FLOATV,PFLOAT,INT,INT)
1278 #define TRSAT(A1,A2,A3,A4,A5)  CCALLSFSUB5(TRSAT,trsat,FLOATV,FLOATV,PFLOAT,INT,INT,A1,A2,A3,A4,A5)
1279
1280 PROTOCCALLSFSUB3(TRSINV,trsinv,FLOATV,FLOATV,INT)
1281 #define TRSINV(A1,A2,A3)  CCALLSFSUB3(TRSINV,trsinv,FLOATV,FLOATV,INT,A1,A2,A3)
1282
1283 PROTOCCALLSFSUB3(TRSMLU,trsmlu,FLOATV,PFLOAT,INT)
1284 #define TRSMLU(A1,A2,A3)  CCALLSFSUB3(TRSMLU,trsmlu,FLOATV,PFLOAT,INT,A1,A2,A3)
1285
1286 PROTOCCALLSFSUB3(TRSMUL,trsmul,FLOATV,PFLOAT,INT)
1287 #define TRSMUL(A1,A2,A3)  CCALLSFSUB3(TRSMUL,trsmul,FLOATV,PFLOAT,INT,A1,A2,A3)
1288
1289 PROTOCCALLSFSUB3(TRUPCK,trupck,FLOATV,PFLOAT,INT)
1290 #define TRUPCK(A1,A2,A3)  CCALLSFSUB3(TRUPCK,trupck,FLOATV,PFLOAT,INT,A1,A2,A3)
1291
1292 PROTOCCALLSFSUB4(UBITS,ubits,INTV,INT,PINT,PINT)
1293 #define UBITS(A1,A2,A3,A4)  CCALLSFSUB4(UBITS,ubits,INTV,INT,PINT,PINT,A1,A2,A3,A4)
1294
1295 PROTOCCALLSFSUB3(UBLANK,ublank,PINT,INT,INT)
1296 #define UBLANK(A1,A2,A3)  CCALLSFSUB3(UBLANK,ublank,PINT,INT,INT,A1,A2,A3)
1297
1298 PROTOCCALLSFSUB3(UBLOW,ublow,INTV,PINT,INTV)
1299 #define UBLOW(A1,A2,A3)  CCALLSFSUB3(UBLOW,ublow,INTV,PINT,INTV,A1,A2,A3)
1300
1301 PROTOCCALLSFSUB3(UBUNCH,ubunch,INTV,PINT,INTV)
1302 #define UBUNCH(A1,A2,A3)  CCALLSFSUB3(UBUNCH,ubunch,INTV,PINT,INTV,A1,A2,A3)
1303
1304 PROTOCCALLSFSUB6(UCOCOP,ucocop,FLOATV,PFLOAT,INT,INT,INT,INT)
1305 #define UCOCOP(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(UCOCOP,ucocop,FLOATV,PFLOAT,INT,INT,INT,INT,A1,A2,A3,A4,A5,A6)
1306
1307 PROTOCCALLSFSUB3(UCOPIV,ucopiv,FLOATV,PFLOAT,INT)
1308 #define UCOPIV(A1,A2,A3)  CCALLSFSUB3(UCOPIV,ucopiv,FLOATV,PFLOAT,INT,A1,A2,A3)
1309
1310 PROTOCCALLSFSUB3(UCOPY,ucopy,FLOATV,PFLOAT,INT)
1311 #define UCOPY(A1,A2,A3)  CCALLSFSUB3(UCOPY,ucopy,FLOATV,PFLOAT,INT,A1,A2,A3)
1312
1313 PROTOCCALLSFSUB3(UCOPY2,ucopy2,FLOATV,PFLOAT,INT)
1314 #define UCOPY2(A1,A2,A3)  CCALLSFSUB3(UCOPY2,ucopy2,FLOATV,PFLOAT,INT,A1,A2,A3)
1315
1316 PROTOCCALLSFSUB3(UCOPYN,ucopyn,INTV,PINT,INT)
1317 #define UCOPYN(A1,A2,A3)  CCALLSFSUB3(UCOPYN,ucopyn,INTV,PINT,INT,A1,A2,A3)
1318
1319 PROTOCCALLSFSUB4(UCTOH,uctoh,BYTE,PINT,INT,INT)
1320 #define UCTOH(A1,A2,A3,A4)  CCALLSFSUB4(UCTOH,uctoh,BYTE,PINT,INT,INT,A1,A2,A3,A4)
1321
1322 PROTOCCALLSFSUB3(UCTOH1,uctoh1,BYTE,PINT,INT)
1323 #define UCTOH1(A1,A2,A3)  CCALLSFSUB3(UCTOH1,uctoh1,BYTE,PINT,INT,A1,A2,A3)
1324
1325 PROTOCCALLSFSUB6(UDICOP,udicop,FLOATV,PFLOAT,INT,INT,INT,INT)
1326 #define UDICOP(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(UDICOP,udicop,FLOATV,PFLOAT,INT,INT,INT,INT,A1,A2,A3,A4,A5,A6)
1327
1328 PROTOCCALLSFSUB4(UFILL,ufill,PINT,INT,INT,INT)
1329 #define UFILL(A1,A2,A3,A4)  CCALLSFSUB4(UFILL,ufill,PINT,INT,INT,INT,A1,A2,A3,A4)
1330
1331 PROTOCCALLSFSUB3(UFLINT,uflint,PFLOAT,INTV,INTV)
1332 #define UFLINT(A1,A2,A3)  CCALLSFSUB3(UFLINT,uflint,PFLOAT,INTV,INTV,A1,A2,A3)
1333
1334 PROTOCCALLSFSUB3(UH1TOC,uh1toc,INTV,PBYTE,INT)
1335 #define UH1TOC(A1,A2,A3)  CCALLSFSUB3(UH1TOC,uh1toc,INTV,PBYTE,INT,A1,A2,A3)
1336
1337 PROTOCCALLSFSUB3(UHOLLR,uhollr,FLOATV,INT,FLOATV)
1338 #define UHOLLR(A1,A2,A3)  CCALLSFSUB3(UHOLLR,uhollr,FLOATV,INT,FLOATV,A1,A2,A3)
1339
1340 PROTOCCALLSFSUB4(UHTOC,uhtoc,INTV,INT,PBYTE,INT)
1341 #define UHTOC(A1,A2,A3,A4)  CCALLSFSUB4(UHTOC,uhtoc,INTV,INT,PBYTE,INT,A1,A2,A3,A4)
1342
1343 PROTOCCALLSFSUB3(ULEFT,uleft,PINT,INT,INT)
1344 #define ULEFT(A1,A2,A3)  CCALLSFSUB3(ULEFT,uleft,PINT,INT,INT,A1,A2,A3)
1345
1346 PROTOCCALLSFSUB4(UOPT,uopt,FLOATV,FLOATV,PINT,INT)
1347 #define UOPT(A1,A2,A3,A4)  CCALLSFSUB4(UOPT,uopt,FLOATV,FLOATV,PINT,INT,A1,A2,A3,A4)
1348
1349 PROTOCCALLSFSUB3(UOPTC,uoptc,STRING,STRING,PINT)
1350 #define UOPTC(A1,A2,A3)  CCALLSFSUB3(UOPTC,uoptc,STRING,STRING,PINT,A1,A2,A3)
1351
1352 PROTOCCALLSFSUB5(UPKBYT,upkbyt,INTV,INTV,PINT,INTV,INTV)
1353 #define UPKBYT(A1,A2,A3,A4,A5)  CCALLSFSUB5(UPKBYT,upkbyt,INTV,INTV,PINT,INTV,INTV,A1,A2,A3,A4,A5)
1354
1355 PROTOCCALLSFSUB4(UPKCH,upkch,INTV,PINT,INT,INTV)
1356 #define UPKCH(A1,A2,A3,A4)  CCALLSFSUB4(UPKCH,upkch,INTV,PINT,INT,INTV,A1,A2,A3,A4)
1357
1358 PROTOCCALLSFSUB3(URIGHT,uright,PINT,INT,INT)
1359 #define URIGHT(A1,A2,A3)  CCALLSFSUB3(URIGHT,uright,PINT,INT,INT,A1,A2,A3)
1360
1361 PROTOCCALLSFSUB4(USET,uset,INT,PINT,INT,INT)
1362 #define USET(A1,A2,A3,A4)  CCALLSFSUB4(USET,uset,INT,PINT,INT,INT,A1,A2,A3,A4)
1363
1364 PROTOCCALLSFSUB3(USWOP,uswop,PFLOAT,PFLOAT,INT)
1365 #define USWOP(A1,A2,A3)  CCALLSFSUB3(USWOP,uswop,PFLOAT,PFLOAT,INT,A1,A2,A3)
1366
1367 PROTOCCALLSFSUB5(UTRANS,utrans,FLOATV,FLOATV,INTV,INTV,INTV)
1368 #define UTRANS(A1,A2,A3,A4,A5)  CCALLSFSUB5(UTRANS,utrans,FLOATV,FLOATV,INTV,INTV,INTV,A1,A2,A3,A4,A5)
1369
1370 PROTOCCALLSFSUB3(UZERO,uzero,PINT,INT,INT)
1371 #define UZERO(A1,A2,A3)  CCALLSFSUB3(UZERO,uzero,PINT,INT,INT,A1,A2,A3)
1372
1373 PROTOCCALLSFSUB4(VADD,vadd,FLOATV,FLOATV,PFLOAT,INT)
1374 #define VADD(A1,A2,A3,A4)  CCALLSFSUB4(VADD,vadd,FLOATV,FLOATV,PFLOAT,INT,A1,A2,A3,A4)
1375
1376 PROTOCCALLSFSUB4(VBIAS,vbias,FLOATV,FLOAT,PFLOAT,INT)
1377 #define VBIAS(A1,A2,A3,A4)  CCALLSFSUB4(VBIAS,vbias,FLOATV,FLOAT,PFLOAT,INT,A1,A2,A3,A4)
1378
1379 PROTOCCALLSFSUB2(VBLANK,vblank,PINT,INT)
1380 #define VBLANK(A1,A2)  CCALLSFSUB2(VBLANK,vblank,PINT,INT,A1,A2)
1381
1382 PROTOCCALLSFSUB3(VCOPYN,vcopyn,FLOATV,PFLOAT,INT)
1383 #define VCOPYN(A1,A2,A3)  CCALLSFSUB3(VCOPYN,vcopyn,FLOATV,PFLOAT,INT,A1,A2,A3)
1384
1385 PROTOCCALLSFSUB3(VEXCUM,vexcum,FLOATV,PFLOAT,INT)
1386 #define VEXCUM(A1,A2,A3)  CCALLSFSUB3(VEXCUM,vexcum,FLOATV,PFLOAT,INT,A1,A2,A3)
1387
1388 PROTOCCALLSFSUB3(VFILL,vfill,PFLOAT,INT,FLOAT)
1389 #define VFILL(A1,A2,A3)  CCALLSFSUB3(VFILL,vfill,PFLOAT,INT,FLOAT,A1,A2,A3)
1390
1391 PROTOCCALLSFSUB3(VFIX,vfix,FLOATV,PINT,INT)
1392 #define VFIX(A1,A2,A3)  CCALLSFSUB3(VFIX,vfix,FLOATV,PINT,INT,A1,A2,A3)
1393
1394 PROTOCCALLSFSUB3(VFLOAT,vfloat,INTV,PFLOAT,INT)
1395 #define VFLOAT(A1,A2,A3)  CCALLSFSUB3(VFLOAT,vfloat,INTV,PFLOAT,INT,A1,A2,A3)
1396
1397 PROTOCCALLSFSUB2(VIZPRI,vizpri,INT,BYTE)
1398 #define VIZPRI(A1,A2)  CCALLSFSUB2(VIZPRI,vizpri,INT,BYTE,A1,A2)
1399
1400 PROTOCCALLSFSUB6(VLINCO,vlinco,FLOATV,FLOAT,FLOATV,FLOAT,PFLOAT,INT)
1401 #define VLINCO(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(VLINCO,vlinco,FLOATV,FLOAT,FLOATV,FLOAT,PFLOAT,INT,A1,A2,A3,A4,A5,A6)
1402
1403 PROTOCCALLSFSUB6(VLINE,vline,FLOATV,FLOAT,FLOATV,FLOAT,PFLOAT,INT)
1404 #define VLINE(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(VLINE,vline,FLOATV,FLOAT,FLOATV,FLOAT,PFLOAT,INT,A1,A2,A3,A4,A5,A6)
1405
1406 PROTOCCALLSFSUB5(VMATL,vmatl,PFLOAT,FLOATV,PFLOAT,INT,INT)
1407 #define VMATL(A1,A2,A3,A4,A5)  CCALLSFSUB5(VMATL,vmatl,PFLOAT,FLOATV,PFLOAT,INT,INT,A1,A2,A3,A4,A5)
1408
1409 PROTOCCALLSFSUB5(VMATR,vmatr,FLOATV,PFLOAT,PFLOAT,INT,INT)
1410 #define VMATR(A1,A2,A3,A4,A5)  CCALLSFSUB5(VMATR,vmatr,FLOATV,PFLOAT,PFLOAT,INT,INT,A1,A2,A3,A4,A5)
1411
1412 PROTOCCALLSFSUB4(VMUL,vmul,FLOATV,FLOATV,PFLOAT,INT)
1413 #define VMUL(A1,A2,A3,A4)  CCALLSFSUB4(VMUL,vmul,FLOATV,FLOATV,PFLOAT,INT,A1,A2,A3,A4)
1414
1415 PROTOCCALLSFSUB4(VSCALE,vscale,FLOATV,FLOAT,PFLOAT,INT)
1416 #define VSCALE(A1,A2,A3,A4)  CCALLSFSUB4(VSCALE,vscale,FLOATV,FLOAT,PFLOAT,INT,A1,A2,A3,A4)
1417
1418 PROTOCCALLSFSUB4(VSUB,vsub,FLOATV,FLOATV,PFLOAT,INT)
1419 #define VSUB(A1,A2,A3,A4)  CCALLSFSUB4(VSUB,vsub,FLOATV,FLOATV,PFLOAT,INT,A1,A2,A3,A4)
1420
1421 PROTOCCALLSFSUB3(VUNIT,vunit,FLOATV,PFLOAT,INT)
1422 #define VUNIT(A1,A2,A3)  CCALLSFSUB3(VUNIT,vunit,FLOATV,PFLOAT,INT,A1,A2,A3)
1423
1424 PROTOCCALLSFSUB2(VZERO,vzero,PINT,INT)
1425 #define VZERO(A1,A2)  CCALLSFSUB2(VZERO,vzero,PINT,INT,A1,A2)
1426
1427 PROTOCCALLSFSUB3(XINB,xinb,INT,FLOATV,PINT)
1428 #define XINB(A1,A2,A3)  CCALLSFSUB3(XINB,xinb,INT,FLOATV,PINT,A1,A2,A3)
1429
1430 PROTOCCALLSFSUB3(XINBF,xinbf,INT,FLOATV,PINT)
1431 #define XINBF(A1,A2,A3)  CCALLSFSUB3(XINBF,xinbf,INT,FLOATV,PINT,A1,A2,A3)
1432
1433 PROTOCCALLSFSUB5(XINBS,xinbs,INT,FLOATV,INT,FLOATV,PINT)
1434 #define XINBS(A1,A2,A3,A4,A5)  CCALLSFSUB5(XINBS,xinbs,INT,FLOATV,INT,FLOATV,PINT,A1,A2,A3,A4,A5)
1435
1436 PROTOCCALLSFSUB3(XINCF,xincf,INT,FLOATV,PINT)
1437 #define XINCF(A1,A2,A3)  CCALLSFSUB3(XINCF,xincf,INT,FLOATV,PINT,A1,A2,A3)
1438
1439 PROTOCCALLSFSUB3(XOUTB,xoutb,INT,FLOATV,INT)
1440 #define XOUTB(A1,A2,A3)  CCALLSFSUB3(XOUTB,xoutb,INT,FLOATV,INT,A1,A2,A3)
1441
1442 PROTOCCALLSFSUB3(XOUTBF,xoutbf,INT,FLOATV,INT)
1443 #define XOUTBF(A1,A2,A3)  CCALLSFSUB3(XOUTBF,xoutbf,INT,FLOATV,INT,A1,A2,A3)
1444
1445 PROTOCCALLSFSUB5(XOUTBS,xoutbs,INT,FLOATV,INT,FLOATV,INT)
1446 #define XOUTBS(A1,A2,A3,A4,A5)  CCALLSFSUB5(XOUTBS,xoutbs,INT,FLOATV,INT,FLOATV,INT,A1,A2,A3,A4,A5)
1447
1448 PROTOCCALLSFSUB3(XOUTCF,xoutcf,INT,FLOATV,INT)
1449 #define XOUTCF(A1,A2,A3)  CCALLSFSUB3(XOUTCF,xoutcf,INT,FLOATV,INT,A1,A2,A3)
1450
1451 PROTOCCALLSFSUB7(BINSIZ,binsiz,FLOAT,FLOAT,INT,PFLOAT,PFLOAT,PINT,PFLOAT)
1452 #define BINSIZ(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(BINSIZ,binsiz,FLOAT,FLOAT,INT,PFLOAT,PFLOAT,PINT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
1453
1454 PROTOCCALLSFSUB4(CALDAT,caldat,INT,PBYTE,PINT,PINT)
1455 #define CALDAT(A1,A2,A3,A4)  CCALLSFSUB4(CALDAT,caldat,INT,PBYTE,PINT,PINT,A1,A2,A3,A4)
1456
1457 PROTOCCALLSFSUB4(CDMON,cdmon,INT,INT,PINT,PINT)
1458 #define CDMON(A1,A2,A3,A4)  CCALLSFSUB4(CDMON,cdmon,INT,INT,PINT,PINT,A1,A2,A3,A4)
1459
1460 PROTOCCALLSFSUB4(CYDIY,cydiy,INT,PINT,PINT,PINT)
1461 #define CYDIY(A1,A2,A3,A4)  CCALLSFSUB4(CYDIY,cydiy,INT,PINT,PINT,PINT,A1,A2,A3,A4)
1462
1463 PROTOCCALLSFSUB3(GETBIT,getbit,INT,INTV,PINT)
1464 #define GETBIT(A1,A2,A3)  CCALLSFSUB3(GETBIT,getbit,INT,INTV,PINT,A1,A2,A3)
1465
1466 PROTOCCALLSFSUB4(GETBYT,getbyt,INTV,INT,INT,PINT)
1467 #define GETBYT(A1,A2,A3,A4)  CCALLSFSUB4(GETBYT,getbyt,INTV,INT,INT,PINT,A1,A2,A3,A4)
1468
1469 PROTOCCALLSFSUB0(INITC,initc)
1470 #define INITC() CCALLSFSUB0(INITC,initc)
1471
1472 PROTOCCALLSFSUB7(NAMEFD,namefd,INT,STRING,PSTRINGV,INT,PSTRINGV,INT,PINT)
1473 #define NAMEFD(A1,A2,A3,A4,A5,A6,A7)  CCALLSFSUB7(NAMEFD,namefd,INT,STRING,STRINGV,INT,PSTRINGV,INT,PINT,A1,A2,A3,A4,A5,A6,A7)
1474
1475 PROTOCCALLSFSUB1(RDINT,rdint,PINT)
1476 #define RDINT(A1)  CCALLSFSUB1(RDINT,rdint,PINT,A1)
1477
1478 PROTOCCALLSFSUB1(RDLOAD,rdload,STRING)
1479 #define RDLOAD(A1)  CCALLSFSUB1(RDLOAD,rdload,STRING,A1)
1480
1481 PROTOCCALLSFSUB2(RDMANT,rdmant,INT,PINT)
1482 #define RDMANT(A1,A2)  CCALLSFSUB2(RDMANT,rdmant,INT,PINT,A1,A2)
1483
1484 PROTOCCALLSFSUB1(RDMODE,rdmode,INT)
1485 #define RDMODE(A1)  CCALLSFSUB1(RDMODE,rdmode,INT,A1)
1486
1487 PROTOCCALLSFSUB1(RDNAME,rdname,PSTRING)
1488 #define RDNAME(A1)  CCALLSFSUB1(RDNAME,rdname,PSTRING,A1)
1489
1490 PROTOCCALLSFSUB0(RDNEXT,rdnext)
1491 #define RDNEXT() CCALLSFSUB0(RDNEXT,rdnext)
1492
1493 PROTOCCALLSFSUB0(RDSKIP,rdskip)
1494 #define RDSKIP() CCALLSFSUB0(RDSKIP,rdskip)
1495
1496 PROTOCCALLSFSUB0(RDSKPB,rdskpb)
1497 #define RDSKPB() CCALLSFSUB0(RDSKPB,rdskpb)
1498
1499 PROTOCCALLSFSUB1(RDUPST,rdupst,PSTRING)
1500 #define RDUPST(A1)  CCALLSFSUB1(RDUPST,rdupst,PSTRING,A1)
1501
1502 PROTOCCALLSFSUB4(RDWORD,rdword,PINT,PFLOAT,PSTRING,PINT)
1503 #define RDWORD(A1,A2,A3,A4)  CCALLSFSUB4(RDWORD,rdword,PINT,PFLOAT,PSTRING,PINT,A1,A2,A3,A4)
1504
1505 PROTOCCALLSFSUB3(SETBIT,setbit,INT,INTV,INT)
1506 #define SETBIT(A1,A2,A3)  CCALLSFSUB3(SETBIT,setbit,INT,INTV,INT,A1,A2,A3)
1507
1508 PROTOCCALLSFSUB4(SETBYT,setbyt,INTV,INT,INT,INT)
1509 #define SETBYT(A1,A2,A3,A4)  CCALLSFSUB4(SETBYT,setbyt,INTV,INT,INT,INT,A1,A2,A3,A4)
1510
1511 PROTOCCALLSFSUB3(UMCOM,umcom,STRING,STRING,STRING)
1512 #define UMCOM(A1,A2,A3)  CCALLSFSUB3(UMCOM,umcom,STRING,STRING,STRING,A1,A2,A3)
1513
1514 PROTOCCALLSFSUB2(WHICH,which,PINT,PINT)
1515 #define WHICH(A1,A2)  CCALLSFSUB2(WHICH,which,PINT,PINT,A1,A2)
1516
1517 PROTOCCALLSFSUB3(WHICHF,whichf,STRING,STRING,PSTRING)
1518 #define WHICHF(A1,A2,A3)  CCALLSFSUB3(WHICHF,whichf,STRING,STRING,PSTRING,A1,A2,A3)
1519
1520 PROTOCCALLSFSUB1(WORDSEP,wordsep,STRING)
1521 #define WORDSEP(A1)  CCALLSFSUB1(WORDSEP,wordsep,STRING,A1)
1522 #ifdef __cplusplus
1523 } /* extern "C" */
1524 #endif
1525
1526 #endif /* #ifndef _KERNLIB_H */