Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Normal
Revision Log

gen.h@ 3005

Visit:

Last change on this file since 3005 was 2403, checked in by cmv, 22 years ago
Creation du module de code source de MINUIT (CERNLIB) extrait par CMV cmv 11/06/2003
File size: 90.4 KB

Rev	Line
[2403]	1	/* Subroutines/Functions with COMPLEX not supported ***
	2
	3	#define CBSJA(A1,A2,A3,A4,A5) CCALLSFSUB5(CBSJA,cbsja,COMPLEX,FLOAT,INT,INT,PCOMPLEX,A1,A2,A3,A4,A5)
	4	#define WBSJA(A1,A2,A3,A4,A5) CCALLSFSUB5(WBSJA,wbsja,COMPLEX,DOUBLE,INT,INT,PCOMPLEX,A1,A2,A3,A4,A5)
	5	PROTOCCALLSFFUN1(COMPLEX,CDIGAM,cdigam,COMPLEX)
	6	#define CDIGAM(A2) CCALLSFFUN1(CDIGAM,cdigam,COMPLEX,A2)
	7	PROTOCCALLSFFUN1(COMPLEX,WDIGAM,wdigam,COMPLEX)
	8	#define WDIGAM(A2) CCALLSFFUN1(WDIGAM,wdigam,COMPLEX,A2)
	9	#define CELFUN(A1,A2,A3,A4,A5) CCALLSFSUB5(CELFUN,celfun,COMPLEX,FLOAT,PCOMPLEX,PCOMPLEX,PCOMPLEX,A1,A2,A3,A4,A5)
	10	#define WELFUN(A1,A2,A3,A4,A5) CCALLSFSUB5(WELFUN,welfun,COMPLEX,DOUBLE,PCOMPLEX,PCOMPLEX,PCOMPLEX,A1,A2,A3,A4,A5)
	11	PROTOCCALLSFFUN4(COMPLEX,CELINT,celint,COMPLEX,FLOAT,FLOAT,FLOAT)
	12	#define CELINT(A2,A3,A4,A5) CCALLSFFUN4(CELINT,celint,COMPLEX,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5)
	13	PROTOCCALLSFFUN4(COMPLEX,WELINT,welint,COMPLEX,DOUBLE,DOUBLE,DOUBLE)
	14	#define WELINT(A2,A3,A4,A5) CCALLSFFUN4(WELINT,welint,COMPLEX,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5)
	15	PROTOCCALLSFFUN1(COMPLEX,CEXPIN,cexpin,COMPLEX)
	16	#define CEXPIN(A2) CCALLSFFUN1(CEXPIN,cexpin,COMPLEX,A2)
	17	PROTOCCALLSFFUN1(COMPLEX,WEXPIN,wexpin,COMPLEX)
	18	#define WEXPIN(A2) CCALLSFFUN1(WEXPIN,wexpin,COMPLEX,A2)
	19	PROTOCCALLSFFUN1(COMPLEX,CGAMMA,cgamma,COMPLEX)
	20	#define CGAMMA(A2) CCALLSFFUN1(CGAMMA,cgamma,COMPLEX,A2)
	21	PROTOCCALLSFFUN1(COMPLEX,WGAMMA,wgamma,COMPLEX)
	22	#define WGAMMA(A2) CCALLSFFUN1(WGAMMA,wgamma,COMPLEX,A2)
	23	PROTOCCALLSFFUN4(COMPLEX,CGAUSS,cgauss,ROUTINE,COMPLEX,COMPLEX,FLOAT)
	24	#define CGAUSS(A2,A3,A4,A5) CCALLSFFUN4(CGAUSS,cgauss,ROUTINE,COMPLEX,COMPLEX,FLOAT,A2,A3,A4,A5)
	25	PROTOCCALLSFFUN4(COMPLEX,WGAUSS,wgauss,ROUTINE,COMPLEX,COMPLEX,DOUBLE)
	26	#define WGAUSS(A2,A3,A4,A5) CCALLSFFUN4(WGAUSS,wgauss,ROUTINE,COMPLEX,COMPLEX,DOUBLE,A2,A3,A4,A5)
	27	PROTOCCALLSFFUN3(COMPLEX,CGPLG,cgplg,INT,INT,FLOAT)
	28	#define CGPLG(A2,A3,A4) CCALLSFFUN3(CGPLG,cgplg,INT,INT,FLOAT,A2,A3,A4)
	29	PROTOCCALLSFFUN3(COMPLEX,WGPLG,wgplg,INT,INT,DOUBLE)
	30	#define WGPLG(A2,A3,A4) CCALLSFFUN3(WGPLG,wgplg,INT,INT,DOUBLE,A2,A3,A4)
	31	PROTOCCALLSFFUN1(COMPLEX,CLGAMA,clgama,COMPLEX)
	32	#define CLGAMA(A2) CCALLSFFUN1(CLGAMA,clgama,COMPLEX,A2)
	33	PROTOCCALLSFFUN1(COMPLEX,WLGAMA,wlgama,COMPLEX)
	34	#define WLGAMA(A2) CCALLSFFUN1(WLGAMA,wlgama,COMPLEX,A2)
	35	#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)
	36	PROTOCCALLSFFUN3(COMPLEX,CLOGOK,clogok,COMPLEX,INT,INT)
	37	#define CLOGOK(A2,A3,A4) CCALLSFFUN3(CLOGOK,clogok,COMPLEX,INT,INT,A2,A3,A4)
	38	#define WPOLYZ(A1,A2,A3,A4,A5) CCALLSFSUB5(WPOLYZ,wpolyz,COMPLEXV,INT,INT,PCOMPLEX,PDOUBLE,A1,A2,A3,A4,A5)
	39	#define CPSC(A1,A2,A3,A4,A5) CCALLSFSUB5(CPSC,cpsc,COMPLEX,COMPLEX,INT,PCOMPLEX,PFLOAT,A1,A2,A3,A4,A5)
	40	PROTOCCALLSFFUN3(FLOAT,CRIT,crit,COMPLEX,COMPLEX,FLOAT)
	41	#define CRIT(A2,A3,A4) CCALLSFFUN3(CRIT,crit,COMPLEX,COMPLEX,FLOAT,A2,A3,A4)
	42	PROTOCCALLSFFUN3(COMPLEX,CSQRTK,csqrtk,COMPLEX,INT,INT)
	43	#define CSQRTK(A2,A3,A4) CCALLSFFUN3(CSQRTK,csqrtk,COMPLEX,INT,INT,A2,A3,A4)
	44	PROTOCCALLSFFUN1(COMPLEX,CWERF,cwerf,COMPLEX)
	45	#define CWERF(A2) CCALLSFFUN1(CWERF,cwerf,COMPLEX,A2)
	46	PROTOCCALLSFFUN1(COMPLEX,WWERF,wwerf,COMPLEX)
	47	#define WWERF(A2) CCALLSFFUN1(WWERF,wwerf,COMPLEX,A2)
	48	PROTOCCALLSFFUN3(COMPLEX,CWHITM,cwhitm,COMPLEX,COMPLEX,COMPLEX)
	49	#define CWHITM(A2,A3,A4) CCALLSFFUN3(CWHITM,cwhitm,COMPLEX,COMPLEX,COMPLEX,A2,A3,A4)
	50	PROTOCCALLSFFUN3(COMPLEX,WWHITM,wwhitm,COMPLEX,COMPLEX,COMPLEX)
	51	#define WWHITM(A2,A3,A4) CCALLSFFUN3(WWHITM,wwhitm,COMPLEX,COMPLEX,COMPLEX,A2,A3,A4)
	52	#define DEFLAT(A1,A2,A3) CCALLSFSUB3(DEFLAT,deflat,PCOMPLEX,PINT,COMPLEX,A1,A2,A3)
	53	#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)
	54	#define LEGFN(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(LEGFN,legfn,COMPLEX,COMPLEX,PCOMPLEX,PCOMPLEX,PINT,INT,A1,A2,A3,A4,A5,A6)
	55	PROTOCCALLSFFUN3(INT,NZERFZ,nzerfz,COMPLEX,COMPLEXV,INT)
	56	#define NZERFZ(A2,A3,A4) CCALLSFFUN3(NZERFZ,nzerfz,COMPLEX,COMPLEXV,INT,A2,A3,A4)
	57	#define NZEROS(A1,A2,A3,A4) CCALLSFSUB4(NZEROS,nzeros,PINT,COMPLEX,FLOAT,COMPLEX,A1,A2,A3,A4)
	58	#define POLY2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(POLY2,poly2,COMPLEXV,INT,PCOMPLEX,PFLOAT,INT,INT,A1,A2,A3,A4,A5,A6)
	59	#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)
	60	PROTOCCALLSFFUN13(COMPLEX,C309R1,c309r1,COMPLEX,COMPLEX,COMPLEX,COMPLEX,DOUBLE,INT,PDOUBLE,PINT,DOUBLE,DOUBLE,LOGICAL,DOUBLE,COMPLEX)
	61	#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)
	62	PROTOCCALLSFFUN12(COMPLEX,C309R2,c309r2,COMPLEX,COMPLEX,COMPLEX,COMPLEX,DOUBLE,INT,INT,PDOUBLE,PINT,DOUBLE,DOUBLE,DOUBLE)
	63	#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)
	64	PROTOCCALLSFFUN9(COMPLEX,C309R3,c309r3,COMPLEX,COMPLEX,COMPLEX,DOUBLE,INT,PDOUBLE,DOUBLE,PINT,PCOMPLEX)
	65	#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)
	66	PROTOCCALLSFFUN13(COMPLEX,C309R5,c309r5,COMPLEX,COMPLEX,COMPLEX,DOUBLE,PCOMPLEX,PCOMPLEX,LOGICAL,INT,PDOUBLE,PINT,DOUBLE,DOUBLE,LOGICAL)
	67	#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)
	68	PROTOCCALLSFFUN13(COMPLEX,C309R6,c309r6,COMPLEX,COMPLEX,COMPLEX,COMPLEX,DOUBLE,INT,PINT,PCOMPLEX,PDOUBLE,DOUBLE,PCOMPLEX,PCOMPLEX,COMPLEXV)
	69	#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)
	70	#define C309R7(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(C309R7,c309r7,COMPLEXV,PCOMPLEX,INT,PINT,PCOMPLEX,DOUBLE,A1,A2,A3,A4,A5,A6)
	71	PROTOCCALLSFFUN2(COMPLEX,C309R8,c309r8,COMPLEX,DOUBLE)
	72	#define C309R8(A2,A3) CCALLSFFUN2(C309R8,c309r8,COMPLEX,DOUBLE,A2,A3)
	73	PROTOCCALLSFFUN3(COMPLEX,RGAM,rgam,COMPLEX,COMPLEX,COMPLEX)
	74	#define RGAM(A2,A3,A4) CCALLSFFUN3(RGAM,rgam,COMPLEX,COMPLEX,COMPLEX,A2,A3,A4)
	75	#define DMULLZ(A1,A2,A3,A4) CCALLSFSUB4(DMULLZ,dmullz,DOUBLEV,INT,INT,PCOMPLEX,A1,A2,A3,A4)
	76	#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)
	77	#define VP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(VP,vp,PCOMPLEX,COMPLEX,COMPLEXV,INT,PINT,INT,A1,A2,A3,A4,A5,A6)
	78	#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)
	79
	80	*** End Subroutines/Functions using COMPLEX */
	81
	82	PROTOCCALLSFFUN1(FLOAT,ADIGAM,adigam,FLOAT)
	83	#define ADIGAM(A2) CCALLSFFUN1(ADIGAM,adigam,FLOAT,A2)
	84
	85	PROTOCCALLSFFUN1(FLOAT,ALGAMA,algama,FLOAT)
	86	#define ALGAMA(A2) CCALLSFFUN1(ALGAMA,algama,FLOAT,A2)
	87
	88	PROTOCCALLSFFUN1(FLOAT,QLGAMA,qlgama,FLOAT)
	89	#define QLGAMA(A2) CCALLSFFUN1(QLGAMA,qlgama,FLOAT,A2)
	90
	91	PROTOCCALLSFFUN1(DOUBLE,DLGAMA,dlgama,DOUBLE)
	92	#define DLGAMA(A2) CCALLSFFUN1(DLGAMA,dlgama,DOUBLE,A2)
	93
	94	PROTOCCALLSFFUN1(FLOAT,ASINH,asinh,FLOAT)
	95	#define ASINH(A2) CCALLSFFUN1(ASINH,asinh,FLOAT,A2)
	96
	97	PROTOCCALLSFFUN1(DOUBLE,DASINH,dasinh,DOUBLE)
	98	#define DASINH(A2) CCALLSFFUN1(DASINH,dasinh,DOUBLE,A2)
	99
	100	PROTOCCALLSFFUN1(FLOAT,ATANI,atani,FLOAT)
	101	#define ATANI(A2) CCALLSFFUN1(ATANI,atani,FLOAT,A2)
	102
	103	PROTOCCALLSFFUN1(DOUBLE,DATANI,datani,DOUBLE)
	104	#define DATANI(A2) CCALLSFFUN1(DATANI,datani,DOUBLE,A2)
	105
	106	PROTOCCALLSFFUN2(FLOAT,ATG,atg,FLOAT,FLOAT)
	107	#define ATG(A2,A3) CCALLSFFUN2(ATG,atg,FLOAT,FLOAT,A2,A3)
	108
	109	PROTOCCALLSFFUN1(FLOAT,BESI0,besi0,FLOAT)
	110	#define BESI0(A2) CCALLSFFUN1(BESI0,besi0,FLOAT,A2)
	111
	112	PROTOCCALLSFFUN1(DOUBLE,DBESI0,dbesi0,DOUBLE)
	113	#define DBESI0(A2) CCALLSFFUN1(DBESI0,dbesi0,DOUBLE,A2)
	114
	115	PROTOCCALLSFFUN1(FLOAT,BESJ0,besj0,FLOAT)
	116	#define BESJ0(A2) CCALLSFFUN1(BESJ0,besj0,FLOAT,A2)
	117
	118	PROTOCCALLSFFUN1(DOUBLE,DBESJ0,dbesj0,DOUBLE)
	119	#define DBESJ0(A2) CCALLSFFUN1(DBESJ0,dbesj0,DOUBLE,A2)
	120
	121	PROTOCCALLSFFUN2(FLOAT,BINOM,binom,FLOAT,INT)
	122	#define BINOM(A2,A3) CCALLSFFUN2(BINOM,binom,FLOAT,INT,A2,A3)
	123
	124	PROTOCCALLSFFUN2(DOUBLE,DBINOM,dbinom,DOUBLE,INT)
	125	#define DBINOM(A2,A3) CCALLSFFUN2(DBINOM,dbinom,DOUBLE,INT,A2,A3)
	126
	127	PROTOCCALLSFFUN2(FLOAT,BSIR3,bsir3,FLOAT,INT)
	128	#define BSIR3(A2,A3) CCALLSFFUN2(BSIR3,bsir3,FLOAT,INT,A2,A3)
	129
	130	PROTOCCALLSFFUN2(DOUBLE,DBSIR3,dbsir3,DOUBLE,INT)
	131	#define DBSIR3(A2,A3) CCALLSFFUN2(DBSIR3,dbsir3,DOUBLE,INT,A2,A3)
	132
	133	PROTOCCALLSFFUN2(FLOAT,BSIR4,bsir4,FLOAT,INT)
	134	#define BSIR4(A2,A3) CCALLSFFUN2(BSIR4,bsir4,FLOAT,INT,A2,A3)
	135
	136	PROTOCCALLSFFUN2(DOUBLE,DBSIR4,dbsir4,DOUBLE,INT)
	137	#define DBSIR4(A2,A3) CCALLSFFUN2(DBSIR4,dbsir4,DOUBLE,INT,A2,A3)
	138
	139	PROTOCCALLSFFUN5(FLOAT,CAUCHY,cauchy,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
	140	#define CAUCHY(A2,A3,A4,A5,A6) CCALLSFFUN5(CAUCHY,cauchy,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5,A6)
	141
	142	PROTOCCALLSFFUN5(DOUBLE,DCAUCH,dcauch,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE)
	143	#define DCAUCH(A2,A3,A4,A5,A6) CCALLSFFUN5(DCAUCH,dcauch,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5,A6)
	144
	145	PROTOCCALLSFFUN6(DOUBLE,CHEBQU,chebqu,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,INT,DOUBLE)
	146	#define CHEBQU(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(CHEBQU,chebqu,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,INT,DOUBLE,A2,A3,A4,A5,A6,A7)
	147
	148	PROTOCCALLSFFUN2(FLOAT,CHISIN,chisin,FLOAT,INT)
	149	#define CHISIN(A2,A3) CCALLSFFUN2(CHISIN,chisin,FLOAT,INT,A2,A3)
	150
	151	PROTOCCALLSFFUN4(FLOAT,CHSUM,chsum,INT,FLOATV,INT,FLOAT)
	152	#define CHSUM(A2,A3,A4,A5) CCALLSFFUN4(CHSUM,chsum,INT,FLOATV,INT,FLOAT,A2,A3,A4,A5)
	153
	154	PROTOCCALLSFFUN4(DOUBLE,DCHSUM,dchsum,INT,DOUBLEV,INT,DOUBLE)
	155	#define DCHSUM(A2,A3,A4,A5) CCALLSFFUN4(DCHSUM,dchsum,INT,DOUBLEV,INT,DOUBLE,A2,A3,A4,A5)
	156
	157	PROTOCCALLSFFUN9(FLOAT,CLEBSG,clebsg,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
	158	#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)
	159
	160	PROTOCCALLSFFUN1(FLOAT,DAWSON,dawson,FLOAT)
	161	#define DAWSON(A2) CCALLSFFUN1(DAWSON,dawson,FLOAT,A2)
	162
	163	PROTOCCALLSFFUN1(DOUBLE,DDAWSN,ddawsn,DOUBLE)
	164	#define DDAWSN(A2) CCALLSFFUN1(DDAWSN,ddawsn,DOUBLE,A2)
	165
	166	PROTOCCALLSFFUN1(FLOAT,DENLAN,denlan,FLOAT)
	167	#define DENLAN(A2) CCALLSFFUN1(DENLAN,denlan,FLOAT,A2)
	168
	169	PROTOCCALLSFFUN1(FLOAT,DIFLAN,diflan,FLOAT)
	170	#define DIFLAN(A2) CCALLSFFUN1(DIFLAN,diflan,FLOAT,A2)
	171
	172	PROTOCCALLSFFUN1(FLOAT,DILOG,dilog,FLOAT)
	173	#define DILOG(A2) CCALLSFFUN1(DILOG,dilog,FLOAT,A2)
	174
	175	PROTOCCALLSFFUN1(DOUBLE,DDILOG,ddilog,DOUBLE)
	176	#define DDILOG(A2) CCALLSFFUN1(DDILOG,ddilog,DOUBLE,A2)
	177
	178	PROTOCCALLSFFUN1(FLOAT,DINVAV,dinvav,FLOAT)
	179	#define DINVAV(A2) CCALLSFFUN1(DINVAV,dinvav,FLOAT,A2)
	180
	181	PROTOCCALLSFFUN1(FLOAT,DISLAN,dislan,FLOAT)
	182	#define DISLAN(A2) CCALLSFFUN1(DISLAN,dislan,FLOAT,A2)
	183
	184	PROTOCCALLSFFUN2(FLOAT,DISVAV,disvav,FLOAT,INT)
	185	#define DISVAV(A2,A3) CCALLSFFUN2(DISVAV,disvav,FLOAT,INT,A2,A3)
	186
	187	PROTOCCALLSFFUN4(FLOAT,DJMNB,djmnb,FLOAT,FLOAT,FLOAT,FLOAT)
	188	#define DJMNB(A2,A3,A4,A5) CCALLSFFUN4(DJMNB,djmnb,FLOAT,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5)
	189
	190	PROTOCCALLSFFUN4(DOUBLE,DDJMNB,ddjmnb,DOUBLE,DOUBLE,DOUBLE,DOUBLE)
	191	#define DDJMNB(A2,A3,A4,A5) CCALLSFFUN4(DDJMNB,ddjmnb,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5)
	192
	193	PROTOCCALLSFFUN7(DOUBLE,DSPNB1,dspnb1,INT,INT,INT,INT,DOUBLE,DOUBLEV,PINT)
	194	#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)
	195
	196	PROTOCCALLSFFUN13(DOUBLE,DSPNB2,dspnb2,INT,INT,INT,INT,INT,INT,INT,INT,DOUBLE,DOUBLE,DOUBLEV,DOUBLEV,PINT)
	197	#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)
	198
	199	PROTOCCALLSFFUN7(DOUBLE,DSPPS1,dspps1,INT,INT,INT,DOUBLE,DOUBLEV,DOUBLEV,PINT)
	200	#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)
	201
	202	PROTOCCALLSFFUN14(DOUBLE,DSPPS2,dspps2,INT,INT,INT,INT,INT,INT,DOUBLE,DOUBLE,DOUBLEV,DOUBLEV,PDOUBLE,INT,PDOUBLE,PINT)
	203	#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)
	204
	205	PROTOCCALLSFFUN3(DOUBLE,DVDOT,dvdot,INT,DOUBLEV,DOUBLEV)
	206	#define DVDOT(A2,A3,A4) CCALLSFFUN3(DVDOT,dvdot,INT,DOUBLEV,DOUBLEV,A2,A3,A4)
	207
	208	PROTOCCALLSFFUN2(DOUBLE,E401BD,e401bd,DOUBLE,DOUBLE)
	209	#define E401BD(A2,A3) CCALLSFFUN2(E401BD,e401bd,DOUBLE,DOUBLE,A2,A3)
	210
	211	PROTOCCALLSFFUN2(FLOAT,ELIN1,elin1,FLOAT,FLOAT)
	212	#define ELIN1(A2,A3) CCALLSFFUN2(ELIN1,elin1,FLOAT,FLOAT,A2,A3)
	213
	214	PROTOCCALLSFFUN1(FLOAT,ERF,erf,FLOAT)
	215	#define ERF(A2) CCALLSFFUN1(ERF,erf,FLOAT,A2)
	216
	217	PROTOCCALLSFFUN1(DOUBLE,DERF,derf,DOUBLE)
	218	#define DERF(A2) CCALLSFFUN1(DERF,derf,DOUBLE,A2)
	219
	220	PROTOCCALLSFFUN7(INT,EXMBUC,exmbuc,INT,INT,FLOATV,FLOAT,INT,PINT,INT)
	221	#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)
	222
	223	PROTOCCALLSFFUN3(FLOAT,FCONC,fconc,FLOAT,FLOAT,INT)
	224	#define FCONC(A2,A3,A4) CCALLSFFUN3(FCONC,fconc,FLOAT,FLOAT,INT,A2,A3,A4)
	225
	226	PROTOCCALLSFFUN3(DOUBLE,DFCONC,dfconc,DOUBLE,DOUBLE,INT)
	227	#define DFCONC(A2,A3,A4) CCALLSFFUN3(DFCONC,dfconc,DOUBLE,DOUBLE,INT,A2,A3,A4)
	228
	229	PROTOCCALLSFFUN2(FLOAT,FERDR,ferdr,FLOAT,INT)
	230	#define FERDR(A2,A3) CCALLSFFUN2(FERDR,ferdr,FLOAT,INT,A2,A3)
	231
	232	PROTOCCALLSFFUN2(DOUBLE,DFERDR,dferdr,DOUBLE,INT)
	233	#define DFERDR(A2,A3) CCALLSFFUN2(DFERDR,dferdr,DOUBLE,INT,A2,A3)
	234
	235	PROTOCCALLSFFUN2(FLOAT,FINARG,finarg,INT,INT)
	236	#define FINARG(A2,A3) CCALLSFFUN2(FINARG,finarg,INT,INT,A2,A3)
	237
	238	PROTOCCALLSFFUN2(FLOAT,FREARG,frearg,FLOAT,FLOAT)
	239	#define FREARG(A2,A3) CCALLSFFUN2(FREARG,frearg,FLOAT,FLOAT,A2,A3)
	240
	241	PROTOCCALLSFFUN3(FLOAT,FRED2,fred2,FLOAT,FLOAT,FLOAT)
	242	#define FRED2(A2,A3,A4) CCALLSFFUN3(FRED2,fred2,FLOAT,FLOAT,FLOAT,A2,A3,A4)
	243
	244	PROTOCCALLSFFUN1(FLOAT,FRED3,fred3,FLOAT)
	245	#define FRED3(A2) CCALLSFFUN1(FRED3,fred3,FLOAT,A2)
	246
	247	PROTOCCALLSFFUN1(FLOAT,FREQ,freq,FLOAT)
	248	#define FREQ(A2) CCALLSFFUN1(FREQ,freq,FLOAT,A2)
	249
	250	PROTOCCALLSFFUN1(DOUBLE,DFREQ,dfreq,DOUBLE)
	251	#define DFREQ(A2) CCALLSFFUN1(DFREQ,dfreq,DOUBLE,A2)
	252
	253	PROTOCCALLSFFUN1(FLOAT,FRSIN,frsin,FLOAT)
	254	#define FRSIN(A2) CCALLSFFUN1(FRSIN,frsin,FLOAT,A2)
	255
	256	PROTOCCALLSFFUN1(DOUBLE,DFRSIN,dfrsin,DOUBLE)
	257	#define DFRSIN(A2) CCALLSFFUN1(DFRSIN,dfrsin,DOUBLE,A2)
	258
	259	PROTOCCALLSFFUN2(FLOAT,FUN,fun,INT,FLOATV)
	260	#define FUN(A2,A3) CCALLSFFUN2(FUN,fun,INT,FLOATV,A2,A3)
	261
	262	PROTOCCALLSFFUN1(FLOAT,G116F1,g116f1,FLOAT)
	263	#define G116F1(A2) CCALLSFFUN1(G116F1,g116f1,FLOAT,A2)
	264
	265	PROTOCCALLSFFUN2(DOUBLE,DGAGNC,dgagnc,DOUBLE,DOUBLE)
	266	#define DGAGNC(A2,A3) CCALLSFFUN2(DGAGNC,dgagnc,DOUBLE,DOUBLE,A2,A3)
	267
	268	PROTOCCALLSFFUN2(FLOAT,GAMDIS,gamdis,FLOAT,FLOAT)
	269	#define GAMDIS(A2,A3) CCALLSFFUN2(GAMDIS,gamdis,FLOAT,FLOAT,A2,A3)
	270
	271	PROTOCCALLSFFUN1(FLOAT,GAMMA,gamma,FLOAT)
	272	#define GAMMA(A2) CCALLSFFUN1(GAMMA,gamma,FLOAT,A2)
	273
	274	PROTOCCALLSFFUN1(FLOAT,QGAMMA,qgamma,FLOAT)
	275	#define QGAMMA(A2) CCALLSFFUN1(QGAMMA,qgamma,FLOAT,A2)
	276
	277	PROTOCCALLSFFUN1(DOUBLE,DGAMMA,dgamma,DOUBLE)
	278	#define DGAMMA(A2) CCALLSFFUN1(DGAMMA,dgamma,DOUBLE,A2)
	279
	280	PROTOCCALLSFFUN1(FLOAT,GAMMF,gammf,FLOAT)
	281	#define GAMMF(A2) CCALLSFFUN1(GAMMF,gammf,FLOAT,A2)
	282
	283	PROTOCCALLSFFUN1(DOUBLE,DGAMMF,dgammf,DOUBLE)
	284	#define DGAMMF(A2) CCALLSFFUN1(DGAMMF,dgammf,DOUBLE,A2)
	285
	286	PROTOCCALLSFFUN2(FLOAT,GAPNC,gapnc,FLOAT,FLOAT)
	287	#define GAPNC(A2,A3) CCALLSFFUN2(GAPNC,gapnc,FLOAT,FLOAT,A2,A3)
	288
	289	PROTOCCALLSFFUN2(DOUBLE,DGAPNC,dgapnc,DOUBLE,DOUBLE)
	290	#define DGAPNC(A2,A3) CCALLSFFUN2(DGAPNC,dgapnc,DOUBLE,DOUBLE,A2,A3)
	291
	292	PROTOCCALLSFFUN1(FLOAT,GAUSIN,gausin,FLOAT)
	293	#define GAUSIN(A2) CCALLSFFUN1(GAUSIN,gausin,FLOAT,A2)
	294
	295	PROTOCCALLSFFUN1(DOUBLE,DGAUSN,dgausn,DOUBLE)
	296	#define DGAUSN(A2) CCALLSFFUN1(DGAUSN,dgausn,DOUBLE,A2)
	297
	298	PROTOCCALLSFFUN4(FLOAT,GAUSS,gauss,ROUTINE,FLOAT,FLOAT,FLOAT)
	299	#define GAUSS(A2,A3,A4,A5) CCALLSFFUN4(GAUSS,gauss,ROUTINE,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5)
	300
	301	PROTOCCALLSFFUN4(FLOAT,QGAUSS,qgauss,ROUTINE,FLOAT,FLOAT,FLOAT)
	302	#define QGAUSS(A2,A3,A4,A5) CCALLSFFUN4(QGAUSS,qgauss,ROUTINE,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5)
	303
	304	PROTOCCALLSFFUN4(DOUBLE,DGAUSS,dgauss,ROUTINE,DOUBLE,DOUBLE,DOUBLE)
	305	#define DGAUSS(A2,A3,A4,A5) CCALLSFFUN4(DGAUSS,dgauss,ROUTINE,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5)
	306
	307	PROTOCCALLSFFUN6(DOUBLE,GPINDP,gpindp,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,DOUBLE,INT)
	308	#define GPINDP(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(GPINDP,gpindp,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,DOUBLE,INT,A2,A3,A4,A5,A6,A7)
	309
	310	PROTOCCALLSFFUN2(INT,IGET,iget,INTV,INT)
	311	#define IGET(A2,A3) CCALLSFFUN2(IGET,iget,INTV,INT,A2,A3)
	312
	313	PROTOCCALLSFFUN3(INT,IILZ,iilz,INT,INTV,INT)
	314	#define IILZ(A2,A3,A4) CCALLSFFUN3(IILZ,iilz,INT,INTV,INT,A2,A3,A4)
	315
	316	PROTOCCALLSFFUN3(INT,ILSUM,ilsum,INT,LOGICALV,INT)
	317	#define ILSUM(A2,A3,A4) CCALLSFFUN3(ILSUM,ilsum,INT,LOGICALV,INT,A2,A3,A4)
	318
	319	PROTOCCALLSFFUN10(FLOAT,QLINSQ,qlinsq,INT,INT,INT,FLOATV,PFLOAT,FLOATV,FLOATV,FLOATV,PDOUBLE,INT)
	320	#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)
	321
	322	PROTOCCALLSFFUN3(INT,LKKSPL,lkkspl,DOUBLE,DOUBLEV,INT)
	323	#define LKKSPL(A2,A3,A4) CCALLSFFUN3(LKKSPL,lkkspl,DOUBLE,DOUBLEV,INT,A2,A3,A4)
	324
	325	PROTOCCALLSFFUN4(INT,LOCHAR,lochar,INTV,INT,INTV,INT)
	326	#define LOCHAR(A2,A3,A4,A5) CCALLSFFUN4(LOCHAR,lochar,INTV,INT,INTV,INT,A2,A3,A4,A5)
	327
	328	PROTOCCALLSFFUN2(INT,MAXFZE,maxfze,FLOATV,INT)
	329	#define MAXFZE(A2,A3) CCALLSFFUN2(MAXFZE,maxfze,FLOATV,INT,A2,A3)
	330
	331	PROTOCCALLSFFUN2(INT,MAXIZE,maxize,INTV,INT)
	332	#define MAXIZE(A2,A3) CCALLSFFUN2(MAXIZE,maxize,INTV,INT,A2,A3)
	333
	334	PROTOCCALLSFFUN2(INT,MINFZE,minfze,FLOATV,INT)
	335	#define MINFZE(A2,A3) CCALLSFFUN2(MINFZE,minfze,FLOATV,INT,A2,A3)
	336
	337	PROTOCCALLSFFUN2(INT,MINIZE,minize,INTV,INT)
	338	#define MINIZE(A2,A3) CCALLSFFUN2(MINIZE,minize,INTV,INT,A2,A3)
	339
	340	PROTOCCALLSFFUN2(INT,NDIGIT,ndigit,DOUBLE,DOUBLE)
	341	#define NDIGIT(A2,A3) CCALLSFFUN2(NDIGIT,ndigit,DOUBLE,DOUBLE,A2,A3)
	342
	343	PROTOCCALLSFFUN1(INT,NEAR1,near1,FLOAT)
	344	#define NEAR1(A2) CCALLSFFUN1(NEAR1,near1,FLOAT,A2)
	345
	346	PROTOCCALLSFFUN1(INT,NIC311,nic311,FLOAT)
	347	#define NIC311(A2) CCALLSFFUN1(NIC311,nic311,FLOAT,A2)
	348
	349	PROTOCCALLSFFUN1(INT,NORRAN,norran,PFLOAT)
	350	#define NORRAN(A2) CCALLSFFUN1(NORRAN,norran,PFLOAT,A2)
	351
	352	PROTOCCALLSFFUN2(FLOAT,PROB,prob,FLOAT,INT)
	353	#define PROB(A2,A3) CCALLSFFUN2(PROB,prob,FLOAT,INT,A2,A3)
	354
	355	PROTOCCALLSFFUN1(FLOAT,PROBKL,probkl,FLOAT)
	356	#define PROBKL(A2) CCALLSFFUN1(PROBKL,probkl,FLOAT,A2)
	357
	358	PROTOCCALLSFFUN4(FLOAT,PROD1,prod1,FLOATV,FLOATV,INT,INT)
	359	#define PROD1(A2,A3,A4,A5) CCALLSFFUN4(PROD1,prod1,FLOATV,FLOATV,INT,INT,A2,A3,A4,A5)
	360
	361	PROTOCCALLSFFUN7(FLOAT,PROD2,prod2,PFLOAT,FLOATV,INT,INT,INT,INT,FLOAT)
	362	#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)
	363
	364	PROTOCCALLSFFUN5(FLOAT,QUAD,quad,INT,INT,FLOATV,FLOATV,FLOAT)
	365	#define QUAD(A2,A3,A4,A5,A6) CCALLSFFUN5(QUAD,quad,INT,INT,FLOATV,FLOATV,FLOAT,A2,A3,A4,A5,A6)
	366
	367	PROTOCCALLSFFUN13(DOUBLE,C309R4,c309r4,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,LOGICAL,INT,PDOUBLE,PINT,DOUBLE,DOUBLE,LOGICAL)
	368	#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)
	369
	370	PROTOCCALLSFFUN1(FLOAT,RANGAM,rangam,FLOAT)
	371	#define RANGAM(A2) CCALLSFFUN1(RANGAM,rangam,FLOAT,A2)
	372
	373	PROTOCCALLSFFUN1(FLOAT,RANLAN,ranlan,FLOAT)
	374	#define RANLAN(A2) CCALLSFFUN1(RANLAN,ranlan,FLOAT,A2)
	375
	376	PROTOCCALLSFFUN2(FLOAT,RELI1,reli1,FLOAT,FLOAT)
	377	#define RELI1(A2,A3) CCALLSFFUN2(RELI1,reli1,FLOAT,FLOAT,A2,A3)
	378
	379	PROTOCCALLSFFUN2(DOUBLE,DELI1,deli1,DOUBLE,DOUBLE)
	380	#define DELI1(A2,A3) CCALLSFFUN2(DELI1,deli1,DOUBLE,DOUBLE,A2,A3)
	381
	382	PROTOCCALLSFFUN1(FLOAT,RELI1C,reli1c,FLOAT)
	383	#define RELI1C(A2) CCALLSFFUN1(RELI1C,reli1c,FLOAT,A2)
	384
	385	PROTOCCALLSFFUN1(DOUBLE,DELI1C,deli1c,DOUBLE)
	386	#define DELI1C(A2) CCALLSFFUN1(DELI1C,deli1c,DOUBLE,A2)
	387
	388	PROTOCCALLSFFUN5(DOUBLE,DELI2,deli2,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT)
	389	#define DELI2(A2,A3,A4,A5,A6) CCALLSFFUN5(DELI2,deli2,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,A2,A3,A4,A5,A6)
	390
	391	PROTOCCALLSFFUN3(DOUBLE,DELI3,deli3,DOUBLE,DOUBLE,DOUBLE)
	392	#define DELI3(A2,A3,A4) CCALLSFFUN3(DELI3,deli3,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4)
	393
	394	PROTOCCALLSFFUN4(DOUBLE,DELIGC,deligc,DOUBLE,DOUBLE,DOUBLE,DOUBLE)
	395	#define DELIGC(A2,A3,A4,A5) CCALLSFFUN4(DELIGC,deligc,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5)
	396
	397	PROTOCCALLSFFUN1(DOUBLE,DELIKC,delikc,DOUBLE)
	398	#define DELIKC(A2) CCALLSFFUN1(DELIKC,delikc,DOUBLE,A2)
	399
	400	PROTOCCALLSFFUN1(FLOAT,REXPIN,rexpin,FLOAT)
	401	#define REXPIN(A2) CCALLSFFUN1(REXPIN,rexpin,FLOAT,A2)
	402
	403	PROTOCCALLSFFUN1(DOUBLE,DEXPIN,dexpin,DOUBLE)
	404	#define DEXPIN(A2) CCALLSFFUN1(DEXPIN,dexpin,DOUBLE,A2)
	405
	406	PROTOCCALLSFFUN6(DOUBLE,DFRDH2,dfrdh2,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,INT,INT)
	407	#define DFRDH2(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(DFRDH2,dfrdh2,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,INT,INT,A2,A3,A4,A5,A6,A7)
	408
	409	PROTOCCALLSFFUN1(FLOAT,RG32,rg32,INT)
	410	#define RG32(A2) CCALLSFFUN1(RG32,rg32,INT,A2)
	411
	412	PROTOCCALLSFFUN6(FLOAT,RGMLT1,rgmlt1,FLOAT,FLOAT,FLOAT,INT,INT,FLOAT)
	413	#define RGMLT1(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(RGMLT1,rgmlt1,FLOAT,FLOAT,FLOAT,INT,INT,FLOAT,A2,A3,A4,A5,A6,A7)
	414
	415	PROTOCCALLSFFUN6(DOUBLE,DGMLT1,dgmlt1,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV)
	416	#define DGMLT1(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(DGMLT1,dgmlt1,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV,A2,A3,A4,A5,A6,A7)
	417
	418	PROTOCCALLSFFUN6(DOUBLE,DGMLT2,dgmlt2,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV)
	419	#define DGMLT2(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(DGMLT2,dgmlt2,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV,A2,A3,A4,A5,A6,A7)
	420
	421	PROTOCCALLSFFUN6(DOUBLE,DGMLT3,dgmlt3,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV)
	422	#define DGMLT3(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(DGMLT3,dgmlt3,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV,A2,A3,A4,A5,A6,A7)
	423
	424	PROTOCCALLSFFUN6(DOUBLE,DGMLT4,dgmlt4,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV)
	425	#define DGMLT4(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(DGMLT4,dgmlt4,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV,A2,A3,A4,A5,A6,A7)
	426
	427	PROTOCCALLSFFUN6(DOUBLE,DGMLT5,dgmlt5,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV)
	428	#define DGMLT5(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(DGMLT5,dgmlt5,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV,A2,A3,A4,A5,A6,A7)
	429
	430	PROTOCCALLSFFUN6(DOUBLE,DGMLT6,dgmlt6,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV)
	431	#define DGMLT6(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(DGMLT6,dgmlt6,DOUBLE,DOUBLE,DOUBLE,INT,INT,DOUBLEV,A2,A3,A4,A5,A6,A7)
	432
	433	PROTOCCALLSFFUN4(DOUBLE,DGQUAD,dgquad,DOUBLE,DOUBLE,DOUBLE,INT)
	434	#define DGQUAD(A2,A3,A4,A5) CCALLSFFUN4(DGQUAD,dgquad,DOUBLE,DOUBLE,DOUBLE,INT,A2,A3,A4,A5)
	435
	436	PROTOCCALLSFFUN1(FLOAT,RN32,rn32,INT)
	437	#define RN32(A2) CCALLSFFUN1(RN32,rn32,INT,A2)
	438
	439	PROTOCCALLSFFUN1(FLOAT,RNDM2,rndm2,FLOAT)
	440	#define RNDM2(A2) CCALLSFFUN1(RNDM2,rndm2,FLOAT,A2)
	441
	442	PROTOCCALLSFFUN1(FLOAT,RNORTH,rnorth,INT)
	443	#define RNORTH(A2) CCALLSFFUN1(RNORTH,rnorth,INT,A2)
	444
	445	PROTOCCALLSFFUN2(FLOAT,RPSIPG,rpsipg,FLOAT,INT)
	446	#define RPSIPG(A2,A3) CCALLSFFUN2(RPSIPG,rpsipg,FLOAT,INT,A2,A3)
	447
	448	PROTOCCALLSFFUN2(DOUBLE,DPSIPG,dpsipg,DOUBLE,INT)
	449	#define DPSIPG(A2,A3) CCALLSFFUN2(DPSIPG,dpsipg,DOUBLE,INT,A2,A3)
	450
	451	PROTOCCALLSFFUN1(FLOAT,RRIZET,rrizet,FLOAT)
	452	#define RRIZET(A2) CCALLSFFUN1(RRIZET,rrizet,FLOAT,A2)
	453
	454	PROTOCCALLSFFUN1(DOUBLE,DRIZET,drizet,DOUBLE)
	455	#define DRIZET(A2) CCALLSFFUN1(DRIZET,drizet,DOUBLE,A2)
	456
	457	PROTOCCALLSFFUN3(FLOAT,RTHETA,rtheta,INT,FLOAT,FLOAT)
	458	#define RTHETA(A2,A3,A4) CCALLSFFUN3(RTHETA,rtheta,INT,FLOAT,FLOAT,A2,A3,A4)
	459
	460	PROTOCCALLSFFUN3(DOUBLE,DTHETA,dtheta,INT,DOUBLE,DOUBLE)
	461	#define DTHETA(A2,A3,A4) CCALLSFFUN3(DTHETA,dtheta,INT,DOUBLE,DOUBLE,A2,A3,A4)
	462
	463	PROTOCCALLSFFUN3(FLOAT,RVNSPC,rvnspc,FLOAT,FLOAT,FLOAT)
	464	#define RVNSPC(A2,A3,A4) CCALLSFFUN3(RVNSPC,rvnspc,FLOAT,FLOAT,FLOAT,A2,A3,A4)
	465
	466	PROTOCCALLSFFUN3(DOUBLE,DVNSPC,dvnspc,DOUBLE,DOUBLE,DOUBLE)
	467	#define DVNSPC(A2,A3,A4) CCALLSFFUN3(DVNSPC,dvnspc,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4)
	468
	469	PROTOCCALLSFFUN4(FLOAT,SIMPS,simps,FLOATV,FLOAT,FLOAT,INT)
	470	#define SIMPS(A2,A3,A4,A5) CCALLSFFUN4(SIMPS,simps,FLOATV,FLOAT,FLOAT,INT,A2,A3,A4,A5)
	471
	472	PROTOCCALLSFFUN4(DOUBLE,DSIMPS,dsimps,DOUBLEV,DOUBLE,DOUBLE,INT)
	473	#define DSIMPS(A2,A3,A4,A5) CCALLSFFUN4(DSIMPS,dsimps,DOUBLEV,DOUBLE,DOUBLE,INT,A2,A3,A4,A5)
	474
	475	PROTOCCALLSFFUN1(FLOAT,SININT,sinint,FLOAT)
	476	#define SININT(A2) CCALLSFFUN1(SININT,sinint,FLOAT,A2)
	477
	478	PROTOCCALLSFFUN1(DOUBLE,DSININ,dsinin,DOUBLE)
	479	#define DSININ(A2) CCALLSFFUN1(DSININ,dsinin,DOUBLE,A2)
	480
	481	PROTOCCALLSFFUN2(FLOAT,STRAG,strag,FLOAT,FLOAT)
	482	#define STRAG(A2,A3) CCALLSFFUN2(STRAG,strag,FLOAT,FLOAT,A2,A3)
	483
	484	PROTOCCALLSFFUN1(FLOAT,STRH0,strh0,FLOAT)
	485	#define STRH0(A2) CCALLSFFUN1(STRH0,strh0,FLOAT,A2)
	486
	487	PROTOCCALLSFFUN1(DOUBLE,DSTRH0,dstrh0,DOUBLE)
	488	#define DSTRH0(A2) CCALLSFFUN1(DSTRH0,dstrh0,DOUBLE,A2)
	489
	490	PROTOCCALLSFFUN2(FLOAT,STUDIN,studin,FLOAT,INT)
	491	#define STUDIN(A2,A3) CCALLSFFUN2(STUDIN,studin,FLOAT,INT,A2,A3)
	492
	493	PROTOCCALLSFFUN2(FLOAT,STUDIS,studis,FLOAT,INT)
	494	#define STUDIS(A2,A3) CCALLSFFUN2(STUDIS,studis,FLOAT,INT,A2,A3)
	495
	496	PROTOCCALLSFFUN2(FLOAT,THETA1,theta1,FLOAT,FLOAT)
	497	#define THETA1(A2,A3) CCALLSFFUN2(THETA1,theta1,FLOAT,FLOAT,A2,A3)
	498
	499	PROTOCCALLSFFUN10(FLOAT,TRIINT,triint,FLOAT,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
	500	#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)
	501
	502	PROTOCCALLSFFUN10(DOUBLE,DTRINT,dtrint,DOUBLE,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE)
	503	#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)
	504
	505	PROTOCCALLSFFUN6(FLOAT,TRISUM,trisum,FLOAT,FLOATV,INT,FLOATV,INT,INT)
	506	#define TRISUM(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(TRISUM,trisum,FLOAT,FLOATV,INT,FLOATV,INT,INT,A2,A3,A4,A5,A6,A7)
	507
	508	PROTOCCALLSFFUN1(LOGICAL,USRTRM,usrtrm,INT)
	509	#define USRTRM(A2) CCALLSFFUN1(USRTRM,usrtrm,INT,A2)
	510
	511	PROTOCCALLSFFUN1(FLOAT,VAVDEN,vavden,FLOAT)
	512	#define VAVDEN(A2) CCALLSFFUN1(VAVDEN,vavden,FLOAT,A2)
	513
	514	PROTOCCALLSFFUN3(FLOAT,VAVFCN,vavfcn,FLOAT,FLOAT,FLOAT)
	515	#define VAVFCN(A2,A3,A4) CCALLSFFUN3(VAVFCN,vavfcn,FLOAT,FLOAT,FLOAT,A2,A3,A4)
	516
	517	PROTOCCALLSFFUN3(FLOAT,VAVRAN,vavran,FLOAT,FLOAT,FLOAT)
	518	#define VAVRAN(A2,A3,A4) CCALLSFFUN3(VAVRAN,vavran,FLOAT,FLOAT,FLOAT,A2,A3,A4)
	519
	520	PROTOCCALLSFFUN1(INT,VOMAS,vomas,INT)
	521	#define VOMAS(A2) CCALLSFFUN1(VOMAS,vomas,INT,A2)
	522
	523	PROTOCCALLSFFUN1(FLOAT,VVIDEN,vviden,FLOAT)
	524	#define VVIDEN(A2) CCALLSFFUN1(VVIDEN,vviden,FLOAT,A2)
	525
	526	PROTOCCALLSFFUN1(FLOAT,XM1LAN,xm1lan,FLOAT)
	527	#define XM1LAN(A2) CCALLSFFUN1(XM1LAN,xm1lan,FLOAT,A2)
	528
	529	PROTOCCALLSFFUN1(FLOAT,XM2LAN,xm2lan,FLOAT)
	530	#define XM2LAN(A2) CCALLSFFUN1(XM2LAN,xm2lan,FLOAT,A2)
	531
	532	PROTOCCALLSFFUN6(DOUBLE,DZEROX,dzerox,DOUBLE,DOUBLE,DOUBLE,INT,DOUBLE,INT)
	533	#define DZEROX(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(DZEROX,dzerox,DOUBLE,DOUBLE,DOUBLE,INT,DOUBLE,INT,A2,A3,A4,A5,A6,A7)
	534
	535	PROTOCCALLSFSUB12(ADDBND,addbnd,INT,PINT,INTV,PINT,PINT,INT,INT,INT,PDOUBLE,DOUBLEV,PDOUBLE,PDOUBLE)
	536	#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)
	537
	538	PROTOCCALLSFSUB1(ARITHM,arithm,PFLOAT)
	539	#define ARITHM(A1) CCALLSFSUB1(ARITHM,arithm,PFLOAT,A1)
	540
	541	PROTOCCALLSFSUB5(ASLGF,aslgf,INT,FLOAT,INT,INT,PFLOAT)
	542	#define ASLGF(A1,A2,A3,A4,A5) CCALLSFSUB5(ASLGF,aslgf,INT,FLOAT,INT,INT,PFLOAT,A1,A2,A3,A4,A5)
	543
	544	PROTOCCALLSFSUB5(DASLGF,daslgf,INT,DOUBLE,INT,INT,PDOUBLE)
	545	#define DASLGF(A1,A2,A3,A4,A5) CCALLSFSUB5(DASLGF,daslgf,INT,DOUBLE,INT,INT,PDOUBLE,A1,A2,A3,A4,A5)
	546
	547	PROTOCCALLSFSUB7(ASSIGN,assign,PFLOAT,INT,INT,INT,PINT,PFLOAT,INT)
	548	#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)
	549
	550	PROTOCCALLSFSUB7(BAKVEC,bakvec,INT,INT,PFLOAT,PFLOAT,INT,PFLOAT,PINT)
	551	#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)
	552
	553	PROTOCCALLSFSUB6(BALANC,balanc,INT,INT,PFLOAT,PINT,PINT,PFLOAT)
	554	#define BALANC(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(BALANC,balanc,INT,INT,PFLOAT,PINT,PINT,PFLOAT,A1,A2,A3,A4,A5,A6)
	555
	556	PROTOCCALLSFSUB7(BALBAK,balbak,INT,INT,INT,INT,FLOATV,INT,PFLOAT)
	557	#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)
	558
	559	PROTOCCALLSFSUB9(BFGS,bfgs,INT,INT,PDOUBLE,DOUBLE,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLE,PDOUBLE)
	560	#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)
	561
	562	PROTOCCALLSFSUB4(BINOMI,binomi,INT,FLOAT,PINT,PINT)
	563	#define BINOMI(A1,A2,A3,A4) CCALLSFSUB4(BINOMI,binomi,INT,FLOAT,PINT,PINT,A1,A2,A3,A4)
	564
	565	PROTOCCALLSFSUB14(BISECT,bisect,INT,FLOAT,FLOATV,FLOATV,PFLOAT,PFLOAT,PFLOAT,INT,PINT,PFLOAT,PINT,PINT,PFLOAT,PFLOAT)
	566	#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)
	567
	568	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)
	569	#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)
	570
	571	PROTOCCALLSFSUB10(BNDTST,bndtst,INT,PDOUBLE,DOUBLEV,DOUBLEV,DOUBLE,PINT,PINT,PINT,PINT,PLOGICAL)
	572	#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)
	573
	574	PROTOCCALLSFSUB6(BOUNDS,bounds,INT,PINT,PINT,FLOATV,PFLOAT,PFLOAT)
	575	#define BOUNDS(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(BOUNDS,bounds,INT,PINT,PINT,FLOATV,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
	576
	577	PROTOCCALLSFSUB5(BSJA,bsja,FLOAT,FLOAT,INT,INT,FLOATV)
	578	#define BSJA(A1,A2,A3,A4,A5) CCALLSFSUB5(BSJA,bsja,FLOAT,FLOAT,INT,INT,FLOATV,A1,A2,A3,A4,A5)
	579
	580	PROTOCCALLSFSUB5(QBSJA,qbsja,FLOAT,FLOAT,INT,INT,FLOATV)
	581	#define QBSJA(A1,A2,A3,A4,A5) CCALLSFSUB5(QBSJA,qbsja,FLOAT,FLOAT,INT,INT,FLOATV,A1,A2,A3,A4,A5)
	582
	583	PROTOCCALLSFSUB5(DBSJA,dbsja,DOUBLE,DOUBLE,INT,INT,DOUBLEV)
	584	#define DBSJA(A1,A2,A3,A4,A5) CCALLSFSUB5(DBSJA,dbsja,DOUBLE,DOUBLE,INT,INT,DOUBLEV,A1,A2,A3,A4,A5)
	585
	586	PROTOCCALLSFSUB7(BUCMVE,bucmve,INT,INT,INT,PFLOAT,PFLOAT,INT,INT)
	587	#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)
	588
	589	PROTOCCALLSFSUB15(BUFOPT,bufopt,INT,PFLOAT,PFLOAT,FLOATV,FLOATV,PFLOAT,PFLOAT,FLOAT,FLOAT,PDOUBLE,INT,INTV,INT,INT,INT)
	590	#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)
	591
	592	PROTOCCALLSFSUB5(BZEJY,bzejy,FLOAT,INT,INT,FLOAT,PFLOAT)
	593	#define BZEJY(A1,A2,A3,A4,A5) CCALLSFSUB5(BZEJY,bzejy,FLOAT,INT,INT,FLOAT,PFLOAT,A1,A2,A3,A4,A5)
	594
	595	PROTOCCALLSFSUB5(DBZEJY,dbzejy,DOUBLE,INT,INT,DOUBLE,PDOUBLE)
	596	#define DBZEJY(A1,A2,A3,A4,A5) CCALLSFSUB5(DBZEJY,dbzejy,DOUBLE,INT,INT,DOUBLE,PDOUBLE,A1,A2,A3,A4,A5)
	597
	598	PROTOCCALLSFSUB2(C128,c128,FLOATV,PFLOAT)
	599	#define C128(A1,A2) CCALLSFSUB2(C128,c128,FLOATV,PFLOAT,A1,A2)
	600
	601	PROTOCCALLSFSUB2(C256,c256,FLOATV,PFLOAT)
	602	#define C256(A1,A2) CCALLSFSUB2(C256,c256,FLOATV,PFLOAT,A1,A2)
	603
	604	PROTOCCALLSFSUB0(C311BD,c311bd)
	605	#define C311BD() CCALLSFSUB0(C311BD,c311bd)
	606
	607	PROTOCCALLSFSUB2(C512,c512,FLOATV,PFLOAT)
	608	#define C512(A1,A2) CCALLSFSUB2(C512,c512,FLOATV,PFLOAT,A1,A2)
	609
	610	PROTOCCALLSFSUB2(C64,c64,FLOATV,PFLOAT)
	611	#define C64(A1,A2) CCALLSFSUB2(C64,c64,FLOATV,PFLOAT,A1,A2)
	612
	613	PROTOCCALLSFSUB8(CBABK2,cbabk2,INT,INT,INT,INT,FLOATV,INT,PFLOAT,PFLOAT)
	614	#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)
	615
	616	PROTOCCALLSFSUB7(CBAL,cbal,INT,INT,PFLOAT,PFLOAT,PINT,PINT,PFLOAT)
	617	#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)
	618
	619	PROTOCCALLSFSUB6(CFT,cft,PFLOAT,PFLOAT,INT,INT,INT,PINT)
	620	#define CFT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CFT,cft,PFLOAT,PFLOAT,INT,INT,INT,PINT,A1,A2,A3,A4,A5,A6)
	621
	622	PROTOCCALLSFSUB13(CHEB,cheb,INT,INT,INT,INT,PFLOAT,PFLOAT,FLOAT,PFLOAT,PFLOAT,PINT,PFLOAT,PINT,PINT)
	623	#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)
	624
	625	PROTOCCALLSFSUB3(CHEB02,cheb02,PDOUBLE,INT,INT)
	626	#define CHEB02(A1,A2,A3) CCALLSFSUB3(CHEB02,cheb02,PDOUBLE,INT,INT,A1,A2,A3)
	627
	628	PROTOCCALLSFSUB7(CHECF,checf,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,FLOAT)
	629	#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)
	630
	631	PROTOCCALLSFSUB7(QCHECF,qchecf,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PINT,PFLOAT)
	632	#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)
	633
	634	PROTOCCALLSFSUB7(DCHECF,dchecf,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PINT,PDOUBLE)
	635	#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)
	636
	637	PROTOCCALLSFSUB5(CHMOVE,chmove,STRING,INT,PSTRING,INT,INT)
	638	#define CHMOVE(A1,A2,A3,A4,A5) CCALLSFSUB5(CHMOVE,chmove,STRING,INT,PSTRING,INT,INT,A1,A2,A3,A4,A5)
	639
	640	PROTOCCALLSFSUB16(CINVIT,cinvit,INT,INT,PFLOAT,PFLOAT,PFLOAT,FLOATV,LOGICALV,INT,PINT,PFLOAT,PFLOAT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT)
	641	#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)
	642
	643	PROTOCCALLSFSUB8(CLEBS,clebs,INT,INT,INT,INT,INT,INT,PINT,PINT)
	644	#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)
	645
	646	PROTOCCALLSFSUB3(COEDIN,coedin,FLOAT,FLOAT,INT)
	647	#define COEDIN(A1,A2,A3) CCALLSFSUB3(COEDIN,coedin,FLOAT,FLOAT,INT,A1,A2,A3)
	648
	649	PROTOCCALLSFSUB4(COEDIS,coedis,FLOAT,FLOAT,INT,INT)
	650	#define COEDIS(A1,A2,A3,A4) CCALLSFSUB4(COEDIS,coedis,FLOAT,FLOAT,INT,INT,A1,A2,A3,A4)
	651
	652	PROTOCCALLSFSUB9(COMBAK,combak,INT,INT,INT,PFLOAT,PFLOAT,INTV,INT,PFLOAT,PFLOAT)
	653	#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)
	654
	655	PROTOCCALLSFSUB7(COMHES,comhes,INT,INT,INT,INT,PFLOAT,PFLOAT,PINT)
	656	#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)
	657
	658	PROTOCCALLSFSUB9(COMLR,comlr,INT,INT,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PINT)
	659	#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)
	660
	661	PROTOCCALLSFSUB12(COMLR2,comlr2,INT,INT,INT,INT,INTV,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PINT)
	662	#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)
	663
	664	PROTOCCALLSFSUB8(CONPRT,conprt,PFLOAT,INT,INT,INT,INT,INT,FLOAT,FLOAT)
	665	#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)
	666
	667	PROTOCCALLSFSUB3(CONT,cont,FLOAT,INT,FLOATV)
	668	#define CONT(A1,A2,A3) CCALLSFSUB3(CONT,cont,FLOAT,INT,FLOATV,A1,A2,A3)
	669
	670	PROTOCCALLSFSUB5(CPOLYZ,cpolyz,FLOAT,INT,INT,FLOAT,FLOAT)
	671	#define CPOLYZ(A1,A2,A3,A4,A5) CCALLSFSUB5(CPOLYZ,cpolyz,FLOAT,INT,INT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
	672
	673	PROTOCCALLSFSUB7(D107S1,d107s1,INT,DOUBLE,DOUBLE,DOUBLE,INT,PDOUBLE,PDOUBLE)
	674	#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)
	675
	676	PROTOCCALLSFSUB1(D115BD,d115bd,PINT)
	677	#define D115BD(A1) CCALLSFSUB1(D115BD,d115bd,PINT,A1)
	678
	679	/*
	680	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,ERRORV,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLEV,PDOUBLE,INTV,PINT)
	681	#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,ERRORV,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)
	682
	683	PROTOCCALLSFSUB27(D501L2,d501l2,INT,INT,DOUBLEV,INT,INT,DOUBLE,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,INTV,INT,DOUBLEV,PDOUBLE,ERRORV,DOUBLEV,DOUBLEV,PDOUBLE,DOUBLEV,PDOUBLE,PDOUBLE,DOUBLE,PINT)
	684	#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,ERRORV,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)
	685
	686	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)
	687	#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)
	688
	689	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)
	690	#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)
	691
	692	PROTOCCALLSFSUB18(D501P1,d501p1,INT,INT,INT,DOUBLEV,INT,DOUBLEV,DOUBLEV,INT,DOUBLE,DOUBLE,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,PINT,BYTE)
	693	#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)
	694
	695	PROTOCCALLSFSUB12(D501P2,d501p2,PLOGICAL,INT,DOUBLEV,DOUBLEV,DOUBLEV,ERRORV,DOUBLE,DOUBLE,INT,LOGICAL,INT,BYTE)
	696	#define D501P2(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12) CCALLSFSUB12(D501P2,d501p2,PLOGICAL,INT,DOUBLEV,DOUBLEV,DOUBLEV,ERRORV,DOUBLE,DOUBLE,INT,LOGICAL,INT,BYTE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
	697
	698	PROTOCCALLSFSUB15(D501SF,d501sf,BYTE,DOUBLE,INT,INT,DOUBLEV,INT,PDOUBLE,PDOUBLE,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,PINT)
	699	#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)
	700	*/
	701	PROTOCCALLSFSUB0(D700SU,d700su)
	702	#define D700SU() CCALLSFSUB0(D700SU,d700su)
	703
	704	PROTOCCALLSFSUB0(D701BD,d701bd)
	705	#define D701BD() CCALLSFSUB0(D701BD,d701bd)
	706
	707	PROTOCCALLSFSUB3(DCHPWS,dchpws,INT,DOUBLEV,PDOUBLE)
	708	#define DCHPWS(A1,A2,A3) CCALLSFSUB3(DCHPWS,dchpws,INT,DOUBLEV,PDOUBLE,A1,A2,A3)
	709
	710	PROTOCCALLSFSUB8(DECOMP,decomp,INT,INT,PFLOAT,PFLOAT,PINT,PLOGICAL,PFLOAT,PFLOAT)
	711	#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)
	712
	713	PROTOCCALLSFSUB12(DELBND,delbnd,INT,PINT,INTV,PINT,PINT,INT,PINT,DOUBLEV,INT,PDOUBLE,PDOUBLE,PDOUBLE)
	714	#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)
	715
	716	PROTOCCALLSFSUB4(DELETE,delete,INT,PINT,INT,PINT)
	717	#define DELETE(A1,A2,A3,A4) CCALLSFSUB4(DELETE,delete,INT,PINT,INT,PINT,A1,A2,A3,A4)
	718
	719	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)
	720	#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)
	721
	722	PROTOCCALLSFSUB8(DEQBS,deqbs,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
	723	#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)
	724
	725	PROTOCCALLSFSUB8(DDEQBS,ddeqbs,INT,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,PDOUBLE)
	726	#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)
	727
	728	PROTOCCALLSFSUB8(DEQMR,deqmr,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
	729	#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)
	730
	731	PROTOCCALLSFSUB8(DDEQMR,ddeqmr,INT,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,PDOUBLE)
	732	#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)
	733
	734	PROTOCCALLSFSUB5(DERIV,deriv,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
	735	#define DERIV(A1,A2,A3,A4,A5) CCALLSFSUB5(DERIV,deriv,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
	736
	737	PROTOCCALLSFSUB5(DDERIV,dderiv,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE)
	738	#define DDERIV(A1,A2,A3,A4,A5) CCALLSFSUB5(DDERIV,dderiv,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5)
	739
	740	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)
	741	#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)
	742
	743	PROTOCCALLSFSUB2(DIRCOS,dircos,FLOATV,FLOATV)
	744	#define DIRCOS(A1,A2) CCALLSFSUB2(DIRCOS,dircos,FLOATV,FLOATV,A1,A2)
	745
	746	PROTOCCALLSFSUB7(DIVON,divon,INT,FLOATV,FLOATV,FLOAT,INT,PFLOAT,PFLOAT)
	747	#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)
	748
	749	PROTOCCALLSFSUB19(DMAXLK,dmaxlk,DOUBLE,INT,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,INT,DOUBLE,INT,INT,INT,INTV,DOUBLE,DOUBLEV,DOUBLEV,INT)
	750	#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)
	751
	752	PROTOCCALLSFSUB15(DSMPLX,dsmplx,PDOUBLE,DOUBLEV,DOUBLEV,DOUBLE,INT,INT,INT,INT,INT,PINT,INT,DOUBLEV,PDOUBLE,PDOUBLE,PINT)
	753	#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)
	754
	755	PROTOCCALLSFSUB11(DSPAP1,dspap1,INT,INT,INT,DOUBLEV,DOUBLEV,INT,DOUBLEV,DOUBLEV,DOUBLEV,INT,PINT)
	756	#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)
	757
	758	PROTOCCALLSFSUB18(DSPAP2,dspap2,INT,INT,INT,INT,INT,INT,DOUBLEV,DOUBLEV,PDOUBLE,INT,INT,DOUBLEV,DOUBLEV,PDOUBLE,INT,DOUBLEV,INT,PINT)
	759	#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)
	760
	761	PROTOCCALLSFSUB7(DSPCD1,dspcd1,INT,INT,INT,DOUBLEV,DOUBLEV,PDOUBLE,PINT)
	762	#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)
	763
	764	PROTOCCALLSFSUB12(DSPCD2,dspcd2,INT,INT,INT,INT,INT,INT,DOUBLEV,DOUBLEV,PDOUBLE,INT,PDOUBLE,PINT)
	765	#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)
	766
	767	PROTOCCALLSFSUB10(DSPIN1,dspin1,INT,INT,DOUBLEV,DOUBLEV,INT,PDOUBLE,DOUBLEV,DOUBLEV,PINT,PINT)
	768	#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)
	769
	770	PROTOCCALLSFSUB16(DSPIN2,dspin2,INT,INT,INT,INT,DOUBLEV,DOUBLEV,PDOUBLE,INT,INT,PDOUBLE,PDOUBLE,PDOUBLE,INT,PDOUBLE,PINT,PINT)
	771	#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)
	772
	773	PROTOCCALLSFSUB6(DSPKN1,dspkn1,INT,INT,DOUBLE,DOUBLE,PDOUBLE,PINT)
	774	#define DSPKN1(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(DSPKN1,dspkn1,INT,INT,DOUBLE,DOUBLE,PDOUBLE,PINT,A1,A2,A3,A4,A5,A6)
	775
	776	PROTOCCALLSFSUB11(DSPKN2,dspkn2,INT,INT,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PINT)
	777	#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)
	778
	779	PROTOCCALLSFSUB6(DSPVD1,dspvd1,DOUBLE,INT,INT,DOUBLEV,PDOUBLE,PINT)
	780	#define DSPVD1(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(DSPVD1,dspvd1,DOUBLE,INT,INT,DOUBLEV,PDOUBLE,PINT,A1,A2,A3,A4,A5,A6)
	781
	782	PROTOCCALLSFSUB10(DSPVD2,dspvd2,DOUBLE,INT,INT,INT,INT,DOUBLEV,DOUBLEV,PDOUBLE,INT,PINT)
	783	#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)
	784
	785	PROTOCCALLSFSUB19(DSUMSQ,dsumsq,DOUBLE,INT,INT,INT,DOUBLEV,DOUBLEV,DOUBLEV,INT,DOUBLE,INT,INT,INT,INTV,DOUBLE,DOUBLEV,PDOUBLE,DOUBLEV,DOUBLEV,INT)
	786	#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)
	787
	788	PROTOCCALLSFSUB3(DVCOPY,dvcopy,INT,DOUBLEV,PDOUBLE)
	789	#define DVCOPY(A1,A2,A3) CCALLSFSUB3(DVCOPY,dvcopy,INT,DOUBLEV,PDOUBLE,A1,A2,A3)
	790
	791	PROTOCCALLSFSUB0(DVNBKD,dvnbkd)
	792	#define DVNBKD() CCALLSFSUB0(DVNBKD,dvnbkd)
	793
	794	PROTOCCALLSFSUB0(DVNOPT,dvnopt)
	795	#define DVNOPT() CCALLSFSUB0(DVNOPT,dvnopt)
	796
	797	PROTOCCALLSFSUB11(ECONDE,econde,DOUBLEV,PDOUBLE,INT,PINT,DOUBLE,DOUBLE,DOUBLE,INT,DOUBLEV,DOUBLEV,DOUBLEV)
	798	#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)
	799
	800	PROTOCCALLSFSUB8(ECTRAD,ectrad,DOUBLEV,INT,DOUBLEV,PINT,DOUBLE,DOUBLE,DOUBLE,INT)
	801	#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)
	802
	803	PROTOCCALLSFSUB10(EISCG1,eiscg1,INT,INT,PFLOAT,PFLOAT,FLOATV,FLOATV,PFLOAT,PFLOAT,INT,FLOATV)
	804	#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)
	805
	806	PROTOCCALLSFSUB7(EISCG2,eiscg2,INT,INT,PFLOAT,PFLOAT,FLOATV,FLOATV,INT)
	807	#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)
	808
	809	PROTOCCALLSFSUB9(EISCH1,eisch1,INT,INT,PFLOAT,PFLOAT,FLOATV,PFLOAT,PFLOAT,INT,FLOATV)
	810	#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)
	811
	812	PROTOCCALLSFSUB7(EISCH2,eisch2,INT,INT,PFLOAT,PFLOAT,FLOATV,INT,FLOATV)
	813	#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)
	814
	815	PROTOCCALLSFSUB13(EISCH3,eisch3,INT,INT,PFLOAT,PFLOAT,FLOAT,FLOAT,INT,INT,FLOATV,PFLOAT,PFLOAT,INT,FLOATV)
	816	#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)
	817
	818	PROTOCCALLSFSUB11(EISCH4,eisch4,INT,INT,PFLOAT,PFLOAT,FLOAT,FLOAT,INT,INT,FLOATV,INT,FLOATV)
	819	#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)
	820
	821	PROTOCCALLSFSUB8(EISRG1,eisrg1,INT,INT,PFLOAT,FLOATV,FLOATV,PFLOAT,INT,FLOATV)
	822	#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)
	823
	824	PROTOCCALLSFSUB6(EISRG2,eisrg2,INT,INT,PFLOAT,FLOATV,FLOATV,INT)
	825	#define EISRG2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(EISRG2,eisrg2,INT,INT,PFLOAT,FLOATV,FLOATV,INT,A1,A2,A3,A4,A5,A6)
	826
	827	PROTOCCALLSFSUB7(EISRS1,eisrs1,INT,INT,PFLOAT,FLOATV,PFLOAT,INT,FLOATV)
	828	#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)
	829
	830	PROTOCCALLSFSUB6(EISRS2,eisrs2,INT,INT,PFLOAT,FLOATV,INT,FLOATV)
	831	#define EISRS2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(EISRS2,eisrs2,INT,INT,PFLOAT,FLOATV,INT,FLOATV,A1,A2,A3,A4,A5,A6)
	832
	833	PROTOCCALLSFSUB11(EISRS3,eisrs3,INT,INT,PFLOAT,FLOAT,FLOAT,INT,INT,FLOATV,PFLOAT,INT,FLOATV)
	834	#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)
	835
	836	PROTOCCALLSFSUB10(EISRS4,eisrs4,INT,INT,PFLOAT,FLOAT,FLOAT,INT,INT,FLOATV,INT,FLOATV)
	837	#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)
	838
	839	PROTOCCALLSFSUB7(EISST1,eisst1,INT,INT,PFLOAT,PFLOAT,PFLOAT,INT,PFLOAT)
	840	#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)
	841
	842	PROTOCCALLSFSUB6(EISST2,eisst2,INT,INT,PFLOAT,PFLOAT,INT,PFLOAT)
	843	#define EISST2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(EISST2,eisst2,INT,INT,PFLOAT,PFLOAT,INT,PFLOAT,A1,A2,A3,A4,A5,A6)
	844
	845	PROTOCCALLSFSUB11(EISST3,eisst3,INT,INT,PFLOAT,FLOAT,FLOAT,INT,INT,FLOATV,PFLOAT,INT,PFLOAT)
	846	#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)
	847
	848	PROTOCCALLSFSUB10(EISST4,eisst4,INT,INT,PFLOAT,FLOAT,FLOAT,INT,INT,FLOATV,INT,PFLOAT)
	849	#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)
	850
	851	PROTOCCALLSFSUB8(ELANAL,elanal,INT,INT,INT,PFLOAT,FLOATV,FLOATV,FLOATV,FLOATV)
	852	#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)
	853
	854	PROTOCCALLSFSUB5(ELFUN,elfun,FLOAT,FLOAT,PFLOAT,PFLOAT,PFLOAT)
	855	#define ELFUN(A1,A2,A3,A4,A5) CCALLSFSUB5(ELFUN,elfun,FLOAT,FLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5)
	856
	857	PROTOCCALLSFSUB5(DELFUN,delfun,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE)
	858	#define DELFUN(A1,A2,A3,A4,A5) CCALLSFSUB5(DELFUN,delfun,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5)
	859
	860	PROTOCCALLSFSUB7(ELMBAK,elmbak,INT,INT,INT,PFLOAT,INTV,INT,PFLOAT)
	861	#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)
	862
	863	PROTOCCALLSFSUB6(ELMHES,elmhes,INT,INT,INT,INT,PFLOAT,PINT)
	864	#define ELMHES(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(ELMHES,elmhes,INT,INT,INT,INT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6)
	865
	866	PROTOCCALLSFSUB12(ELPAHY,elpahy,PFLOAT,INT,INT,FLOAT,FLOAT,FLOATV,INT,FLOATV,FLOATV,INT,FLOATV,FLOATV)
	867	#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)
	868
	869	PROTOCCALLSFSUB7(ELTRAN,eltran,INT,INT,INT,INT,PFLOAT,INTV,PFLOAT)
	870	#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)
	871
	872	PROTOCCALLSFSUB13(EPDBPS,epdbps,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,FLOAT,PINT,PFLOAT,PFLOAT,PINT)
	873	#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)
	874
	875	PROTOCCALLSFSUB4(EPDCHK,epdchk,FLOATV,FLOATV,FLOATV,INT)
	876	#define EPDCHK(A1,A2,A3,A4) CCALLSFSUB4(EPDCHK,epdchk,FLOATV,FLOATV,FLOATV,INT,A1,A2,A3,A4)
	877
	878	PROTOCCALLSFSUB2(EPDCHN,epdchn,FLOAT,FLOAT)
	879	#define EPDCHN(A1,A2) CCALLSFSUB2(EPDCHN,epdchn,FLOAT,FLOAT,A1,A2)
	880
	881	PROTOCCALLSFSUB4(EPDCJ,epdcj,PFLOAT,FLOATV,PINT,PFLOAT)
	882	#define EPDCJ(A1,A2,A3,A4) CCALLSFSUB4(EPDCJ,epdcj,PFLOAT,FLOATV,PINT,PFLOAT,A1,A2,A3,A4)
	883
	884	PROTOCCALLSFSUB0(EPDE1,epde1)
	885	#define EPDE1() CCALLSFSUB0(EPDE1,epde1)
	886
	887	PROTOCCALLSFSUB0(EPDECC,epdecc)
	888	#define EPDECC() CCALLSFSUB0(EPDECC,epdecc)
	889
	890	PROTOCCALLSFSUB2(EPDFIX,epdfix,INT,PINT)
	891	#define EPDFIX(A1,A2) CCALLSFSUB2(EPDFIX,epdfix,INT,PINT,A1,A2)
	892
	893	PROTOCCALLSFSUB4(EPDIN,epdin,FLOATV,FLOATV,PINT,PFLOAT)
	894	#define EPDIN(A1,A2,A3,A4) CCALLSFSUB4(EPDIN,epdin,FLOATV,FLOATV,PINT,PFLOAT,A1,A2,A3,A4)
	895
	896	PROTOCCALLSFSUB5(EPDITR,epditr,FLOAT,PFLOAT,PFLOAT,PINT,PFLOAT)
	897	#define EPDITR(A1,A2,A3,A4,A5) CCALLSFSUB5(EPDITR,epditr,FLOAT,PFLOAT,PFLOAT,PINT,PFLOAT,A1,A2,A3,A4,A5)
	898
	899	PROTOCCALLSFSUB4(EPDJE,epdje,PFLOAT,FLOATV,PINT,PFLOAT)
	900	#define EPDJE(A1,A2,A3,A4) CCALLSFSUB4(EPDJE,epdje,PFLOAT,FLOATV,PINT,PFLOAT,A1,A2,A3,A4)
	901
	902	PROTOCCALLSFSUB11(EPDLOC,epdloc,INT,FLOAT,PFLOAT,INTV,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PINT,FLOAT)
	903	#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)
	904
	905	PROTOCCALLSFSUB4(EPDSRT,epdsrt,INT,INTV,PFLOAT,PFLOAT)
	906	#define EPDSRT(A1,A2,A3,A4) CCALLSFSUB4(EPDSRT,epdsrt,INT,INTV,PFLOAT,PFLOAT,A1,A2,A3,A4)
	907
	908	PROTOCCALLSFSUB5(EPDTAB,epdtab,INT,PFLOAT,FLOAT,INT,PINT)
	909	#define EPDTAB(A1,A2,A3,A4,A5) CCALLSFSUB5(EPDTAB,epdtab,INT,PFLOAT,FLOAT,INT,PINT,A1,A2,A3,A4,A5)
	910
	911	PROTOCCALLSFSUB5(EPSILO,epsilo,PDOUBLE,INT,INT,INT,PFLOAT)
	912	#define EPSILO(A1,A2,A3,A4,A5) CCALLSFSUB5(EPSILO,epsilo,PDOUBLE,INT,INT,INT,PFLOAT,A1,A2,A3,A4,A5)
	913
	914	PROTOCCALLSFSUB4(ERPRIP,erprip,FLOATV,FLOATV,FLOATV,FLOATV)
	915	#define ERPRIP(A1,A2,A3,A4) CCALLSFSUB4(ERPRIP,erprip,FLOATV,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4)
	916
	917	PROTOCCALLSFSUB1(ERRORF,errorf,INT)
	918	#define ERRORF(A1) CCALLSFSUB1(ERRORF,errorf,INT,A1)
	919
	920	PROTOCCALLSFSUB13(ESOLVE,esolve,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,INT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,INT)
	921	#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)
	922
	923	PROTOCCALLSFSUB9(FCN1,fcn1,INT,INT,FLOATV,FLOATV,INT,INT,FLOATV,INT,INT)
	924	#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)
	925
	926	PROTOCCALLSFSUB11(FEASMV,feasmv,INT,INT,INTV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLE,PDOUBLE,PINT,PINT)
	927	#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)
	928
	929	PROTOCCALLSFSUB4(FEQN,feqn,INT,DOUBLEV,DOUBLE,PDOUBLE)
	930	#define FEQN(A1,A2,A3,A4) CCALLSFSUB4(FEQN,feqn,INT,DOUBLEV,DOUBLE,PDOUBLE,A1,A2,A3,A4)
	931
	932	PROTOCCALLSFSUB6(FFTRC,fftrc,FLOATV,FLOATV,INT,FLOATV,FLOATV,INT)
	933	#define FFTRC(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(FFTRC,fftrc,FLOATV,FLOATV,INT,FLOATV,FLOATV,INT,A1,A2,A3,A4,A5,A6)
	934
	935	PROTOCCALLSFSUB7(FIGI,figi,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PINT)
	936	#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)
	937
	938	PROTOCCALLSFSUB7(FIGI2,figi2,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PINT)
	939	#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)
	940
	941	PROTOCCALLSFSUB3(FINDEM,findem,FLOAT,INT,PFLOAT)
	942	#define FINDEM(A1,A2,A3) CCALLSFSUB3(FINDEM,findem,FLOAT,INT,PFLOAT,A1,A2,A3)
	943
	944	PROTOCCALLSFSUB19(FINDPC,findpc,PDOUBLE,DOUBLEV,DOUBLEV,DOUBLE,INT,INT,INT,INTV,INTV,PINT,INTV,INTV,INT,PINT,INT,PDOUBLE,PDOUBLE,FLOAT,INT)
	945	#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)
	946
	947	PROTOCCALLSFSUB4(FRAME,frame,FLOAT,FLOAT,FLOAT,FLOAT)
	948	#define FRAME(A1,A2,A3,A4) CCALLSFSUB4(FRAME,frame,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4)
	949
	950	PROTOCCALLSFSUB7(FRED1,fred1,FLOAT,FLOAT,FLOAT,FLOAT,INT,PFLOAT,INT)
	951	#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)
	952
	953	PROTOCCALLSFSUB10(FUMILI,fumili,PFLOAT,INT,INT,INT,INT,FLOAT,PFLOAT,PFLOAT,INT,PINT)
	954	#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)
	955
	956	PROTOCCALLSFSUB4(FUNPRE,funpre,FLOAT,PFLOAT,FLOAT,FLOAT)
	957	#define FUNPRE(A1,A2,A3,A4) CCALLSFSUB4(FUNPRE,funpre,FLOAT,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4)
	958
	959	PROTOCCALLSFSUB2(FUNRAN,funran,FLOATV,PFLOAT)
	960	#define FUNRAN(A1,A2) CCALLSFSUB2(FUNRAN,funran,FLOATV,PFLOAT,A1,A2)
	961
	962	PROTOCCALLSFSUB5(FUNZER,funzer,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT)
	963	#define FUNZER(A1,A2,A3,A4,A5) CCALLSFSUB5(FUNZER,funzer,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5)
	964
	965	PROTOCCALLSFSUB4(GATHER,gather,INT,PFLOAT,FLOATV,INTV)
	966	#define GATHER(A1,A2,A3,A4) CCALLSFSUB4(GATHER,gather,INT,PFLOAT,FLOATV,INTV,A1,A2,A3,A4)
	967
	968	PROTOCCALLSFSUB3(GENPNT,genpnt,INT,FLOATV,FLOAT)
	969	#define GENPNT(A1,A2,A3) CCALLSFSUB3(GENPNT,genpnt,INT,FLOATV,FLOAT,A1,A2,A3)
	970
	971	PROTOCCALLSFSUB1(GENT,gent,INT)
	972	#define GENT(A1) CCALLSFSUB1(GENT,gent,INT,A1)
	973
	974	PROTOCCALLSFSUB6(GETSCH,getsch,BYTE,BYTE,BYTE,INT,PBYTE,PINT)
	975	#define GETSCH(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GETSCH,getsch,BYTE,BYTE,BYTE,INT,PBYTE,PINT,A1,A2,A3,A4,A5,A6)
	976
	977	PROTOCCALLSFSUB6(GETSST,getsst,INTV,INT,INT,INT,INTV,PINT)
	978	#define GETSST(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GETSST,getsst,INTV,INT,INT,INT,INTV,PINT,A1,A2,A3,A4,A5,A6)
	979
	980	PROTOCCALLSFSUB6(GRAPH,graph,PINT,INT,INT,PINT,PINT,PINT)
	981	#define GRAPH(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GRAPH,graph,PINT,INT,INT,PINT,PINT,PINT,A1,A2,A3,A4,A5,A6)
	982
	983	PROTOCCALLSFSUB9(GRDCMP,grdcmp,INT,INT,INTV,DOUBLEV,DOUBLE,DOUBLE,DOUBLEV,PDOUBLE,PDOUBLE)
	984	#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)
	985
	986	PROTOCCALLSFSUB12(H101S1,h101s1,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,INT,INT,INT,INT,INT,PINT,INT,PDOUBLE)
	987	#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)
	988
	989	PROTOCCALLSFSUB15(H101S2,h101s2,PDOUBLE,DOUBLEV,DOUBLEV,INT,INT,INT,INT,PINT,INT,PINT,INT,PDOUBLE,PDOUBLE,DOUBLE,INT)
	990	#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)
	991
	992	PROTOCCALLSFSUB9(ASSNDX,assndx,INT,PFLOAT,INT,INT,INT,PINT,PFLOAT,PINT,INT)
	993	#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)
	994
	995	PROTOCCALLSFSUB5(HISRAN,hisran,FLOATV,INT,FLOAT,FLOAT,FLOAT)
	996	#define HISRAN(A1,A2,A3,A4,A5) CCALLSFSUB5(HISRAN,hisran,FLOATV,INT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
	997
	998	PROTOCCALLSFSUB8(HQR,hqr,INT,INT,INT,INT,PFLOAT,PFLOAT,PFLOAT,PINT)
	999	#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)
	1000
	1001	PROTOCCALLSFSUB9(HQR2,hqr2,INT,INT,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PINT)
	1002	#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)
	1003
	1004	PROTOCCALLSFSUB8(HTRIBK,htribk,INT,INT,PFLOAT,PFLOAT,PFLOAT,INT,PFLOAT,PFLOAT)
	1005	#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)
	1006
	1007	PROTOCCALLSFSUB8(HTRIDI,htridi,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT)
	1008	#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)
	1009
	1010	PROTOCCALLSFSUB6(I128,i128,FLOATV,FLOATV,INT,FLOATV,FLOATV,INT)
	1011	#define I128(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(I128,i128,FLOATV,FLOATV,INT,FLOATV,FLOATV,INT,A1,A2,A3,A4,A5,A6)
	1012
	1013	PROTOCCALLSFSUB6(I32,i32,FLOATV,FLOATV,INT,FLOATV,FLOATV,INT)
	1014	#define I32(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(I32,i32,FLOATV,FLOATV,INT,FLOATV,FLOATV,INT,A1,A2,A3,A4,A5,A6)
	1015
	1016	PROTOCCALLSFSUB6(I64,i64,FLOATV,FLOATV,INT,FLOATV,FLOATV,INT)
	1017	#define I64(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(I64,i64,FLOATV,FLOATV,INT,FLOATV,FLOATV,INT,A1,A2,A3,A4,A5,A6)
	1018
	1019	PROTOCCALLSFSUB4(IMTQL1,imtql1,INT,PFLOAT,PFLOAT,PINT)
	1020	#define IMTQL1(A1,A2,A3,A4) CCALLSFSUB4(IMTQL1,imtql1,INT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4)
	1021
	1022	PROTOCCALLSFSUB6(IMTQL2,imtql2,INT,INT,PFLOAT,PFLOAT,PFLOAT,PINT)
	1023	#define IMTQL2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(IMTQL2,imtql2,INT,INT,PFLOAT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6)
	1024
	1025	PROTOCCALLSFSUB5(INTGRL,intgrl,INT,INT,INT,PFLOAT,PFLOAT)
	1026	#define INTGRL(A1,A2,A3,A4,A5) CCALLSFSUB5(INTGRL,intgrl,INT,INT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5)
	1027
	1028	PROTOCCALLSFSUB13(INVIT,invit,INT,INT,PFLOAT,PFLOAT,FLOATV,LOGICALV,INT,PINT,PFLOAT,PINT,PFLOAT,PFLOAT,PFLOAT)
	1029	#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)
	1030
	1031	PROTOCCALLSFSUB0(J509BD,j509bd)
	1032	#define J509BD() CCALLSFSUB0(J509BD,j509bd)
	1033
	1034	PROTOCCALLSFSUB5(LDLSOL,ldlsol,INT,INT,PDOUBLE,DOUBLEV,PDOUBLE)
	1035	#define LDLSOL(A1,A2,A3,A4,A5) CCALLSFSUB5(LDLSOL,ldlsol,INT,INT,PDOUBLE,DOUBLEV,PDOUBLE,A1,A2,A3,A4,A5)
	1036
	1037	PROTOCCALLSFSUB0(LEG1,leg1)
	1038	#define LEG1() CCALLSFSUB0(LEG1,leg1)
	1039
	1040	PROTOCCALLSFSUB0(LEGOR,legor)
	1041	#define LEGOR() CCALLSFSUB0(LEGOR,legor)
	1042
	1043	PROTOCCALLSFSUB0(LEGV,legv)
	1044	#define LEGV() CCALLSFSUB0(LEGV,legv)
	1045
	1046	PROTOCCALLSFSUB0(LEGZ,legz)
	1047	#define LEGZ() CCALLSFSUB0(LEGZ,legz)
	1048
	1049	PROTOCCALLSFSUB7(LFIT,lfit,FLOATV,FLOATV,INT,INT,PFLOAT,PFLOAT,PFLOAT)
	1050	#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)
	1051
	1052	PROTOCCALLSFSUB8(LFITW,lfitw,FLOATV,FLOATV,FLOATV,INT,INT,PFLOAT,PFLOAT,PFLOAT)
	1053	#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)
	1054
	1055	PROTOCCALLSFSUB12(LIHOIN,lihoin,PFLOAT,INT,INT,INT,INT,PFLOAT,INT,PINT,FLOAT,INT,PFLOAT,PINT)
	1056	#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)
	1057
	1058	PROTOCCALLSFSUB12(DLHOIN,dlhoin,PDOUBLE,INT,INT,INT,INT,PDOUBLE,INT,PINT,DOUBLE,INT,PDOUBLE,PINT)
	1059	#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)
	1060
	1061	PROTOCCALLSFSUB12(LINSQ,linsq,INT,INT,INT,PFLOAT,PFLOAT,FLOATV,FLOATV,PFLOAT,PDOUBLE,FLOAT,FLOAT,PFLOAT)
	1062	#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)
	1063
	1064	PROTOCCALLSFSUB8(D508R1,d508r1,PDOUBLE,INT,INT,INT,INT,PINT,PINT,PDOUBLE)
	1065	#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)
	1066
	1067	PROTOCCALLSFSUB8(D508R2,d508r2,PDOUBLE,INT,INT,FLOAT,INT,INTV,PINT,PDOUBLE)
	1068	#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)
	1069
	1070	PROTOCCALLSFSUB16(LOCSCH,locsch,INT,INT,INT,INTV,DOUBLEV,DOUBLE,DOUBLEV,DOUBLEV,DOUBLE,DOUBLE,PINT,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE)
	1071	#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)
	1072
	1073	PROTOCCALLSFSUB9(LRCH,lrch,INT,INT,PFLOAT,FLOAT,INT,PFLOAT,INT,INT,PFLOAT)
	1074	#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)
	1075
	1076	PROTOCCALLSFSUB10(LSQQR,lsqqr,PFLOAT,PFLOAT,PFLOAT,INT,INT,INT,INT,INT,PLOGICAL,PFLOAT)
	1077	#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)
	1078
	1079	PROTOCCALLSFSUB4(MAP,map,FLOAT,FLOAT,FLOAT,FLOAT)
	1080	#define MAP(A1,A2,A3,A4) CCALLSFSUB4(MAP,map,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4)
	1081
	1082	PROTOCCALLSFSUB1(MCONV,mconv,INT)
	1083	#define MCONV(A1) CCALLSFSUB1(MCONV,mconv,INT,A1)
	1084
	1085	PROTOCCALLSFSUB6(MFT,mft,INT,INT,PFLOAT,PFLOAT,PFLOAT,INT)
	1086	#define MFT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(MFT,mft,INT,INT,PFLOAT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4,A5,A6)
	1087
	1088	PROTOCCALLSFSUB8(RMINFC,rminfc,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,PLOGICAL)
	1089	#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)
	1090
	1091	PROTOCCALLSFSUB8(DMINFC,dminfc,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PLOGICAL)
	1092	#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)
	1093
	1094	PROTOCCALLSFSUB11(MINSQ,minsq,INT,INT,PFLOAT,PFLOAT,FLOATV,INT,INT,INT,PFLOAT,FLOAT,FLOAT)
	1095	#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)
	1096
	1097	PROTOCCALLSFSUB6(MODCHL,modchl,INT,INT,PDOUBLE,DOUBLE,PDOUBLE,PINT)
	1098	#define MODCHL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(MODCHL,modchl,INT,INT,PDOUBLE,DOUBLE,PDOUBLE,PINT,A1,A2,A3,A4,A5,A6)
	1099
	1100	PROTOCCALLSFSUB8(MONITO,monito,FLOAT,INT,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT)
	1101	#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)
	1102
	1103	PROTOCCALLSFSUB3(MTLPRT,mtlprt,STRING,STRING,STRING)
	1104	#define MTLPRT(A1,A2,A3) CCALLSFSUB3(MTLPRT,mtlprt,STRING,STRING,STRING,A1,A2,A3)
	1105
	1106	PROTOCCALLSFSUB4(MTLSET,mtlset,STRING,INT,INT,INT)
	1107	#define MTLSET(A1,A2,A3,A4) CCALLSFSUB4(MTLSET,mtlset,STRING,INT,INT,INT,A1,A2,A3,A4)
	1108
	1109	PROTOCCALLSFSUB14(MULCHK,mulchk,INT,INT,INTV,INT,DOUBLE,DOUBLEV,DOUBLEV,DOUBLE,DOUBLE,DOUBLEV,PDOUBLE,PLOGICAL,PINT,PINT)
	1110	#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)
	1111
	1112	PROTOCCALLSFSUB5(MUNOMI,munomi,INT,INT,PFLOAT,PINT,PINT)
	1113	#define MUNOMI(A1,A2,A3,A4,A5) CCALLSFSUB5(MUNOMI,munomi,INT,INT,PFLOAT,PINT,PINT,A1,A2,A3,A4,A5)
	1114
	1115	PROTOCCALLSFSUB10(MXDIPR,mxdipr,PFLOAT,PFLOAT,PFLOAT,INT,INT,INT,INT,INT,INT,INT)
	1116	#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)
	1117
	1118	PROTOCCALLSFSUB6(MXSTEP,mxstep,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE)
	1119	#define MXSTEP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(MXSTEP,mxstep,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6)
	1120
	1121	PROTOCCALLSFSUB2(NAMES,names,INT,INT)
	1122	#define NAMES(A1,A2) CCALLSFSUB2(NAMES,names,INT,INT,A1,A2)
	1123
	1124	PROTOCCALLSFSUB3(NAMEZB,namezb,FLOAT,INT,INT)
	1125	#define NAMEZB(A1,A2,A3) CCALLSFSUB3(NAMEZB,namezb,FLOAT,INT,INT,A1,A2,A3)
	1126
	1127	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)
	1128	#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)
	1129
	1130	PROTOCCALLSFSUB9(NEWRO,newro,INT,INT,INT,FLOAT,PFLOAT,FLOATV,FLOATV,FLOATV,FLOATV)
	1131	#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)
	1132
	1133	PROTOCCALLSFSUB6(NMDCHL,nmdchl,INT,INT,PDOUBLE,DOUBLE,PDOUBLE,PDOUBLE)
	1134	#define NMDCHL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(NMDCHL,nmdchl,INT,INT,PDOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6)
	1135
	1136	PROTOCCALLSFSUB8(NOCUT,nocut,INT,DOUBLEV,DOUBLEV,PDOUBLE,PINT,PINT,PDOUBLE,PINT)
	1137	#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)
	1138
	1139	PROTOCCALLSFSUB5(NODAUD,nodaud,PINT,INT,INT,INT,PINT)
	1140	#define NODAUD(A1,A2,A3,A4,A5) CCALLSFSUB5(NODAUD,nodaud,PINT,INT,INT,INT,PINT,A1,A2,A3,A4,A5)
	1141
	1142	PROTOCCALLSFSUB7(NORMCO,normco,PFLOAT,PFLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
	1143	#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)
	1144
	1145	PROTOCCALLSFSUB2(NRAN,nran,PFLOAT,INT)
	1146	#define NRAN(A1,A2) CCALLSFSUB2(NRAN,nran,PFLOAT,INT,A1,A2)
	1147
	1148	PROTOCCALLSFSUB0(MINNEW,minnew)
	1149	#define MINNEW() CCALLSFSUB0(MINNEW,minnew)
	1150
	1151	PROTOCCALLSFSUB3(ORDRE2,ordre2,PFLOAT,PFLOAT,INT)
	1152	#define ORDRE2(A1,A2,A3) CCALLSFSUB3(ORDRE2,ordre2,PFLOAT,PFLOAT,INT,A1,A2,A3)
	1153
	1154	PROTOCCALLSFSUB7(ORTBAK,ortbak,INT,INT,INT,PFLOAT,PFLOAT,INT,PFLOAT)
	1155	#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)
	1156
	1157	PROTOCCALLSFSUB6(ORTHES,orthes,INT,INT,INT,INT,PFLOAT,PFLOAT)
	1158	#define ORTHES(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(ORTHES,orthes,INT,INT,INT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
	1159
	1160	PROTOCCALLSFSUB12(ORTHVC,orthvc,INT,INT,INTV,DOUBLEV,DOUBLE,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE)
	1161	#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)
	1162
	1163	PROTOCCALLSFSUB7(ORTRAN,ortran,INT,INT,INT,INT,PFLOAT,PFLOAT,PFLOAT)
	1164	#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)
	1165
	1166	PROTOCCALLSFSUB2(PAPER,paper,INT,INT)
	1167	#define PAPER(A1,A2) CCALLSFSUB2(PAPER,paper,INT,INT,A1,A2)
	1168
	1169	PROTOCCALLSFSUB5(PARLSQ,parlsq,FLOATV,FLOATV,INT,PFLOAT,PFLOAT)
	1170	#define PARLSQ(A1,A2,A3,A4,A5) CCALLSFSUB5(PARLSQ,parlsq,FLOATV,FLOATV,INT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5)
	1171
	1172	PROTOCCALLSFSUB5(PARTN,partn,INT,FLOATV,FLOATV,FLOAT,INT)
	1173	#define PARTN(A1,A2,A3,A4,A5) CCALLSFSUB5(PARTN,partn,INT,FLOATV,FLOATV,FLOAT,INT,A1,A2,A3,A4,A5)
	1174
	1175	PROTOCCALLSFSUB2(PERMU,permu,PINT,INT)
	1176	#define PERMU(A1,A2) CCALLSFSUB2(PERMU,permu,PINT,INT,A1,A2)
	1177
	1178	PROTOCCALLSFSUB6(PGRAPH,pgraph,PINT,INT,INT,PINT,INT,PINT)
	1179	#define PGRAPH(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(PGRAPH,pgraph,PINT,INT,INT,PINT,INT,PINT,A1,A2,A3,A4,A5,A6)
	1180
	1181	PROTOCCALLSFSUB12(PIVOT,pivot,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,INT,INT,INT,INT,INT,PINT,PINT,FLOAT)
	1182	#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)
	1183
	1184	PROTOCCALLSFSUB3(POISSN,poissn,FLOAT,PINT,PINT)
	1185	#define POISSN(A1,A2,A3) CCALLSFSUB3(POISSN,poissn,FLOAT,PINT,PINT,A1,A2,A3)
	1186
	1187	PROTOCCALLSFSUB7(POLROT,polrot,FLOAT,FLOAT,PFLOAT,PFLOAT,FLOAT,FLOAT,FLOAT)
	1188	#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)
	1189
	1190	PROTOCCALLSFSUB3(PRIPAR,pripar,FLOATV,FLOATV,PFLOAT)
	1191	#define PRIPAR(A1,A2,A3) CCALLSFSUB3(PRIPAR,pripar,FLOATV,FLOATV,PFLOAT,A1,A2,A3)
	1192
	1193	PROTOCCALLSFSUB5(PROC1,proc1,PFLOAT,PFLOAT,INT,INT,INT)
	1194	#define PROC1(A1,A2,A3,A4,A5) CCALLSFSUB5(PROC1,proc1,PFLOAT,PFLOAT,INT,INT,INT,A1,A2,A3,A4,A5)
	1195
	1196	PROTOCCALLSFSUB3(QFUNCT,qfunct,FLOAT,PFLOAT,PFLOAT)
	1197	#define QFUNCT(A1,A2,A3) CCALLSFSUB3(QFUNCT,qfunct,FLOAT,PFLOAT,PFLOAT,A1,A2,A3)
	1198
	1199	PROTOCCALLSFSUB4(QUASI,quasi,PFLOAT,INT,INT,INT)
	1200	#define QUASI(A1,A2,A3,A4) CCALLSFSUB4(QUASI,quasi,PFLOAT,INT,INT,INT,A1,A2,A3,A4)
	1201
	1202	PROTOCCALLSFSUB4(RAN3D,ran3d,PFLOAT,PFLOAT,PFLOAT,FLOAT)
	1203	#define RAN3D(A1,A2,A3,A4) CCALLSFSUB4(RAN3D,ran3d,PFLOAT,PFLOAT,PFLOAT,FLOAT,A1,A2,A3,A4)
	1204
	1205	PROTOCCALLSFSUB2(RANUMS,ranums,PFLOAT,INT)
	1206	#define RANUMS(A1,A2) CCALLSFSUB2(RANUMS,ranums,PFLOAT,INT,A1,A2)
	1207
	1208	PROTOCCALLSFSUB12(RATQR,ratqr,INT,FLOAT,FLOATV,FLOATV,PFLOAT,INT,PFLOAT,PINT,PFLOAT,LOGICAL,INT,PINT)
	1209	#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)
	1210
	1211	PROTOCCALLSFSUB5(RCA,rca,INT,FLOATV,INT,PFLOAT,INT)
	1212	#define RCA(A1,A2,A3,A4,A5) CCALLSFSUB5(RCA,rca,INT,FLOATV,INT,PFLOAT,INT,A1,A2,A3,A4,A5)
	1213
	1214	PROTOCCALLSFSUB3(RCHPWS,rchpws,INT,FLOAT,FLOAT)
	1215	#define RCHPWS(A1,A2,A3) CCALLSFSUB3(RCHPWS,rchpws,INT,FLOAT,FLOAT,A1,A2,A3)
	1216
	1217	PROTOCCALLSFSUB10(RCSPLN,rcspln,INT,FLOAT,INT,FLOAT,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT)
	1218	#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)
	1219
	1220	PROTOCCALLSFSUB10(DCSPLN,dcspln,INT,DOUBLEV,INT,PDOUBLE,INT,INT,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE)
	1221	#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)
	1222
	1223	PROTOCCALLSFSUB12(RECPAR,recpar,INT,PFLOAT,PFLOAT,FLOAT,FLOAT,INT,PINT,PINT,FLOATV,PINT,FLOATV,INT)
	1224	#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)
	1225
	1226	PROTOCCALLSFSUB8(RFRDH1,rfrdh1,FLOAT,FLOAT,INT,FLOAT,INT,FLOAT,INT,INT)
	1227	#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)
	1228
	1229	PROTOCCALLSFSUB8(DFRDH1,dfrdh1,DOUBLE,DOUBLE,INT,DOUBLEV,INTV,PDOUBLE,INT,PINT)
	1230	#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)
	1231
	1232	PROTOCCALLSFSUB6(RFT,rft,INT,FLOATV,INT,FLOATV,INT,INT)
	1233	#define RFT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(RFT,rft,INT,FLOATV,INT,FLOATV,INT,INT,A1,A2,A3,A4,A5,A6)
	1234
	1235	PROTOCCALLSFSUB1(RIWIAD,riwiad,DOUBLE)
	1236	#define RIWIAD(A1) CCALLSFSUB1(RIWIAD,riwiad,DOUBLE,A1)
	1237
	1238	PROTOCCALLSFSUB0(RIWIBD,riwibd)
	1239	#define RIWIBD() CCALLSFSUB0(RIWIBD,riwibd)
	1240
	1241	PROTOCCALLSFSUB7(DRKNYS,drknys,INT,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLE,PDOUBLE)
	1242	#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)
	1243
	1244	PROTOCCALLSFSUB7(RKNYS,rknys,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
	1245	#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)
	1246
	1247	PROTOCCALLSFSUB6(RKSTP,rkstp,INT,FLOAT,PFLOAT,PFLOAT,FLOAT,PFLOAT)
	1248	#define RKSTP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(RKSTP,rkstp,INT,FLOAT,PFLOAT,PFLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
	1249
	1250	PROTOCCALLSFSUB6(DRKSTP,drkstp,INT,DOUBLE,PDOUBLE,PDOUBLE,DOUBLE,PDOUBLE)
	1251	#define DRKSTP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(DRKSTP,drkstp,INT,DOUBLE,PDOUBLE,PDOUBLE,DOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6)
	1252
	1253	PROTOCCALLSFSUB3(RLEN,rlen,INT,DOUBLEV,PDOUBLE)
	1254	#define RLEN(A1,A2,A3) CCALLSFSUB3(RLEN,rlen,INT,DOUBLEV,PDOUBLE,A1,A2,A3)
	1255
	1256	PROTOCCALLSFSUB4(RMULLZ,rmullz,FLOAT,INT,INT,FLOAT)
	1257	#define RMULLZ(A1,A2,A3,A4) CCALLSFSUB4(RMULLZ,rmullz,FLOAT,INT,INT,FLOAT,A1,A2,A3,A4)
	1258
	1259	PROTOCCALLSFSUB5(DGSET,dgset,DOUBLE,DOUBLE,INT,DOUBLEV,DOUBLEV)
	1260	#define DGSET(A1,A2,A3,A4,A5) CCALLSFSUB5(DGSET,dgset,DOUBLE,DOUBLE,INT,DOUBLEV,DOUBLEV,A1,A2,A3,A4,A5)
	1261
	1262	PROTOCCALLSFSUB5(ROTATE,rotate,PFLOAT,PFLOAT,FLOAT,FLOAT,INT)
	1263	#define ROTATE(A1,A2,A3,A4,A5) CCALLSFSUB5(ROTATE,rotate,PFLOAT,PFLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5)
	1264
	1265	PROTOCCALLSFSUB5(RPA,rpa,INT,FLOATV,INT,PFLOAT,INT)
	1266	#define RPA(A1,A2,A3,A4,A5) CCALLSFSUB5(RPA,rpa,INT,FLOATV,INT,PFLOAT,INT,A1,A2,A3,A4,A5)
	1267
	1268	PROTOCCALLSFSUB5(RPS,rps,INT,FLOATV,INT,PFLOAT,INT)
	1269	#define RPS(A1,A2,A3,A4,A5) CCALLSFSUB5(RPS,rps,INT,FLOATV,INT,PFLOAT,INT,A1,A2,A3,A4,A5)
	1270
	1271	PROTOCCALLSFSUB5(RSA,rsa,INT,FLOATV,INT,PFLOAT,INT)
	1272	#define RSA(A1,A2,A3,A4,A5) CCALLSFSUB5(RSA,rsa,INT,FLOATV,INT,PFLOAT,INT,A1,A2,A3,A4,A5)
	1273
	1274	PROTOCCALLSFSUB15(RSMPLX,rsmplx,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,INT,INT,INT,INT,INT,FLOAT,FLOAT,FLOAT,INT)
	1275	#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)
	1276
	1277	PROTOCCALLSFSUB9(RSRTNT,rsrtnt,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,LOGICAL)
	1278	#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)
	1279
	1280	PROTOCCALLSFSUB9(DSRTNT,dsrtnt,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PLOGICAL)
	1281	#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)
	1282
	1283	PROTOCCALLSFSUB5(RTEQ3,rteq3,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
	1284	#define RTEQ3(A1,A2,A3,A4,A5) CCALLSFSUB5(RTEQ3,rteq3,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
	1285
	1286	PROTOCCALLSFSUB5(DRTEQ3,drteq3,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE)
	1287	#define DRTEQ3(A1,A2,A3,A4,A5) CCALLSFSUB5(DRTEQ3,drteq3,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5)
	1288
	1289	PROTOCCALLSFSUB7(RTEQ4,rteq4,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT)
	1290	#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)
	1291
	1292	PROTOCCALLSFSUB2(S128,s128,FLOATV,PFLOAT)
	1293	#define S128(A1,A2) CCALLSFSUB2(S128,s128,FLOATV,PFLOAT,A1,A2)
	1294
	1295	PROTOCCALLSFSUB2(S256,s256,FLOATV,PFLOAT)
	1296	#define S256(A1,A2) CCALLSFSUB2(S256,s256,FLOATV,PFLOAT,A1,A2)
	1297
	1298	PROTOCCALLSFSUB2(S512,s512,FLOATV,PFLOAT)
	1299	#define S512(A1,A2) CCALLSFSUB2(S512,s512,FLOATV,PFLOAT,A1,A2)
	1300
	1301	PROTOCCALLSFSUB2(S64,s64,FLOATV,PFLOAT)
	1302	#define S64(A1,A2) CCALLSFSUB2(S64,s64,FLOATV,PFLOAT,A1,A2)
	1303
	1304	PROTOCCALLSFSUB2(SCAL,scal,INT,PFLOAT)
	1305	#define SCAL(A1,A2) CCALLSFSUB2(SCAL,scal,INT,PFLOAT,A1,A2)
	1306
	1307	PROTOCCALLSFSUB4(SCATTER,scatter,INT,PFLOAT,INTV,FLOATV)
	1308	#define SCATTER(A1,A2,A3,A4) CCALLSFSUB4(SCATTER,scatter,INT,PFLOAT,INTV,FLOATV,A1,A2,A3,A4)
	1309
	1310	PROTOCCALLSFSUB8(SETTOL,settol,INT,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PINT,PINT)
	1311	#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)
	1312
	1313	PROTOCCALLSFSUB8(SETUP,setup,FLOAT,INT,FLOAT,INT,FLOAT,INT,FLOAT,INT)
	1314	#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)
	1315
	1316	PROTOCCALLSFSUB2(SGZ,sgz,INT,PFLOAT)
	1317	#define SGZ(A1,A2) CCALLSFSUB2(SGZ,sgz,INT,PFLOAT,A1,A2)
	1318
	1319	PROTOCCALLSFSUB5(SHRNK,shrnk,INT,INT,PDOUBLE,INT,PDOUBLE)
	1320	#define SHRNK(A1,A2,A3,A4,A5) CCALLSFSUB5(SHRNK,shrnk,INT,INT,PDOUBLE,INT,PDOUBLE,A1,A2,A3,A4,A5)
	1321
	1322	PROTOCCALLSFSUB12(SIMPLE,simple,PDOUBLE,DOUBLEV,DOUBLEV,DOUBLE,INTV,INT,INTV,INTV,INTV,PDOUBLE,INT,INT)
	1323	#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)
	1324
	1325	PROTOCCALLSFSUB8(SLV,slv,INT,INT,PFLOAT,FLOATV,INTV,PFLOAT,PFLOAT,PFLOAT)
	1326	#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)
	1327
	1328	PROTOCCALLSFSUB10(SNLEQ,snleq,INT,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,INT,FLOAT,FLOAT)
	1329	#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)
	1330
	1331	PROTOCCALLSFSUB10(DSNLEQ,dsnleq,INT,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,INT,INT,PINT,DOUBLE,PDOUBLE)
	1332	#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)
	1333
	1334	PROTOCCALLSFSUB4(SORTDQ,sortdq,PDOUBLE,INT,INT,INT)
	1335	#define SORTDQ(A1,A2,A3,A4) CCALLSFSUB4(SORTDQ,sortdq,PDOUBLE,INT,INT,INT,A1,A2,A3,A4)
	1336
	1337	PROTOCCALLSFSUB4(SORTIQ,sortiq,PINT,INT,INT,INT)
	1338	#define SORTIQ(A1,A2,A3,A4) CCALLSFSUB4(SORTIQ,sortiq,PINT,INT,INT,INT,A1,A2,A3,A4)
	1339
	1340	PROTOCCALLSFSUB4(SORTRQ,sortrq,PFLOAT,INT,INT,INT)
	1341	#define SORTRQ(A1,A2,A3,A4) CCALLSFSUB4(SORTRQ,sortrq,PFLOAT,INT,INT,INT,A1,A2,A3,A4)
	1342
	1343	PROTOCCALLSFSUB5(SPLAN0,splan0,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,INT)
	1344	#define SPLAN0(A1,A2,A3,A4,A5) CCALLSFSUB5(SPLAN0,splan0,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,A1,A2,A3,A4,A5)
	1345
	1346	PROTOCCALLSFSUB6(SPLAN1,splan1,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT)
	1347	#define SPLAN1(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(SPLAN1,splan1,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,A1,A2,A3,A4,A5,A6)
	1348
	1349	PROTOCCALLSFSUB7(SPLAN2,splan2,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT)
	1350	#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)
	1351
	1352	PROTOCCALLSFSUB8(SPLAN3,splan3,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT)
	1353	#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)
	1354
	1355	PROTOCCALLSFSUB15(SPLAS1,splas1,INT,INT,INT,INT,DOUBLEV,DOUBLEV,INT,PDOUBLE,PDOUBLE,DOUBLEV,PDOUBLE,PDOUBLE,INT,DOUBLEV,PINT)
	1356	#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)
	1357
	1358	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)
	1359	#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)
	1360
	1361	PROTOCCALLSFSUB11(SPLIN3,splin3,FLOATV,FLOATV,PFLOAT,INT,INT,FLOATV,PFLOAT,PFLOAT,INT,INT,INT)
	1362	#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)
	1363
	1364	PROTOCCALLSFSUB10(SPLIT,split,INT,FLOATV,FLOATV,FLOAT,FLOAT,PLOGICAL,PINT,PFLOAT,PFLOAT,INT)
	1365	#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)
	1366
	1367	PROTOCCALLSFSUB17(SPLX,splx,PDOUBLE,DOUBLEV,DOUBLEV,DOUBLE,INT,INT,INT,INT,INT,PINT,PINT,PINT,PINT,PINT,DOUBLEV,DOUBLEV,PINT)
	1368	#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)
	1369
	1370	PROTOCCALLSFSUB3(SPXINV,spxinv,PFLOAT,INT,PINT)
	1371	#define SPXINV(A1,A2,A3) CCALLSFSUB3(SPXINV,spxinv,PFLOAT,INT,PINT,A1,A2,A3)
	1372
	1373	PROTOCCALLSFSUB10(SVD,svd,PFLOAT,PFLOAT,PFLOAT,INT,INT,INT,INT,INT,LOGICAL,LOGICAL)
	1374	#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)
	1375
	1376	PROTOCCALLSFSUB4(SYNT,synt,INT,INT,INT,PFLOAT)
	1377	#define SYNT(A1,A2,A3,A4) CCALLSFSUB4(SYNT,synt,INT,INT,INT,PFLOAT,A1,A2,A3,A4)
	1378
	1379	PROTOCCALLSFSUB7(TAYCHD,taychd,DOUBLE,DOUBLE,DOUBLEV,PDOUBLE,INT,INT,PDOUBLE)
	1380	#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)
	1381
	1382	PROTOCCALLSFSUB15(TINVIT,tinvit,INT,INT,FLOATV,FLOATV,FLOATV,INT,FLOATV,INTV,PFLOAT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT)
	1383	#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)
	1384
	1385	PROTOCCALLSFSUB5(TKOLMO,tkolmo,FLOATV,INT,FLOATV,INT,PFLOAT)
	1386	#define TKOLMO(A1,A2,A3,A4,A5) CCALLSFSUB5(TKOLMO,tkolmo,FLOATV,INT,FLOATV,INT,PFLOAT,A1,A2,A3,A4,A5)
	1387
	1388	PROTOCCALLSFSUB4(TQL1,tql1,INT,PFLOAT,PFLOAT,PINT)
	1389	#define TQL1(A1,A2,A3,A4) CCALLSFSUB4(TQL1,tql1,INT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4)
	1390
	1391	PROTOCCALLSFSUB6(TQL2,tql2,INT,INT,PFLOAT,PFLOAT,PFLOAT,PINT)
	1392	#define TQL2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(TQL2,tql2,INT,INT,PFLOAT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6)
	1393
	1394	PROTOCCALLSFSUB4(TRANSD,transd,DOUBLEV,PDOUBLE,INT,DOUBLEV)
	1395	#define TRANSD(A1,A2,A3,A4) CCALLSFSUB4(TRANSD,transd,DOUBLEV,PDOUBLE,INT,DOUBLEV,A1,A2,A3,A4)
	1396
	1397	PROTOCCALLSFSUB8(TRAPER,traper,FLOATV,FLOATV,FLOATV,INT,FLOAT,FLOAT,PFLOAT,PFLOAT)
	1398	#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)
	1399
	1400	PROTOCCALLSFSUB6(TRBAK1,trbak1,INT,INT,PFLOAT,FLOATV,INT,PFLOAT)
	1401	#define TRBAK1(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(TRBAK1,trbak1,INT,INT,PFLOAT,FLOATV,INT,PFLOAT,A1,A2,A3,A4,A5,A6)
	1402
	1403	PROTOCCALLSFSUB0(TRDZ,trdz)
	1404	#define TRDZ() CCALLSFSUB0(TRDZ,trdz)
	1405
	1406	PROTOCCALLSFSUB5(TREAUD,treaud,PINT,INT,PINT,INT,PINT)
	1407	#define TREAUD(A1,A2,A3,A4,A5) CCALLSFSUB5(TREAUD,treaud,PINT,INT,PINT,INT,PINT,A1,A2,A3,A4,A5)
	1408
	1409	PROTOCCALLSFSUB6(TRED1,tred1,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT)
	1410	#define TRED1(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(TRED1,tred1,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
	1411
	1412	PROTOCCALLSFSUB6(TRED2,tred2,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT)
	1413	#define TRED2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(TRED2,tred2,INT,INT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
	1414
	1415	PROTOCCALLSFSUB1(TREDMP,tredmp,INT)
	1416	#define TREDMP(A1) CCALLSFSUB1(TREDMP,tredmp,INT,A1)
	1417
	1418	PROTOCCALLSFSUB5(TREVNI,trevni,INTV,INT,PINT,INT,PINT)
	1419	#define TREVNI(A1,A2,A3,A4,A5) CCALLSFSUB5(TREVNI,trevni,INTV,INT,PINT,INT,PINT,A1,A2,A3,A4,A5)
	1420
	1421	PROTOCCALLSFSUB7(TRICOF,tricof,PFLOAT,INT,PFLOAT,INT,PFLOAT,INT,INT)
	1422	#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)
	1423
	1424	PROTOCCALLSFSUB11(TSTEXT,tstext,INT,DOUBLEV,DOUBLEV,DOUBLEV,DOUBLE,DOUBLE,PINT,INT,PINT,PDOUBLE,PDOUBLE)
	1425	#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)
	1426
	1427	PROTOCCALLSFSUB19(TSTURM,tsturm,INT,INT,FLOAT,FLOATV,FLOATV,PFLOAT,PFLOAT,PFLOAT,INT,PINT,PFLOAT,PFLOAT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT)
	1428	#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)
	1429
	1430	PROTOCCALLSFSUB3(TUP,tup,INTV,INT,INT)
	1431	#define TUP(A1,A2,A3) CCALLSFSUB3(TUP,tup,INTV,INT,INT,A1,A2,A3)
	1432
	1433	PROTOCCALLSFSUB3(U100DV,u100dv,INTV,INTV,PINT)
	1434	#define U100DV(A1,A2,A3) CCALLSFSUB3(U100DV,u100dv,INTV,INTV,PINT,A1,A2,A3)
	1435
	1436	PROTOCCALLSFSUB2(U100FC,u100fc,INT,PINT)
	1437	#define U100FC(A1,A2) CCALLSFSUB2(U100FC,u100fc,INT,PINT,A1,A2)
	1438
	1439	PROTOCCALLSFSUB3(U100PM,u100pm,INTV,PINT,PINT)
	1440	#define U100PM(A1,A2,A3) CCALLSFSUB3(U100PM,u100pm,INTV,PINT,PINT,A1,A2,A3)
	1441
	1442	PROTOCCALLSFSUB3(U100PR,u100pr,PINT,PINT,PINT)
	1443	#define U100PR(A1,A2,A3) CCALLSFSUB3(U100PR,u100pr,PINT,PINT,PINT,A1,A2,A3)
	1444
	1445	PROTOCCALLSFSUB6(USRINT,usrint,FLOAT,FLOAT,INT,FLOAT,INT,FLOAT)
	1446	#define USRINT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(USRINT,usrint,FLOAT,FLOAT,INT,FLOAT,INT,FLOAT,A1,A2,A3,A4,A5,A6)
	1447
	1448	PROTOCCALLSFSUB3(VAVSET,vavset,FLOAT,FLOAT,INT)
	1449	#define VAVSET(A1,A2,A3) CCALLSFSUB3(VAVSET,vavset,FLOAT,FLOAT,INT,A1,A2,A3)
	1450
	1451	PROTOCCALLSFSUB6(VAVZRO,vavzro,FLOAT,FLOAT,PFLOAT,FLOAT,FLOAT,INT)
	1452	#define VAVZRO(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(VAVZRO,vavzro,FLOAT,FLOAT,PFLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6)
	1453
	1454	PROTOCCALLSFSUB7(VD01A,vd01a,PINT,PFLOAT,PFLOAT,INT,FLOAT,FLOAT,FLOAT)
	1455	#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)
	1456
	1457	PROTOCCALLSFSUB5(VVISET,vviset,FLOAT,FLOAT,INT,PFLOAT,PFLOAT)
	1458	#define VVISET(A1,A2,A3,A4,A5) CCALLSFSUB5(VVISET,vviset,FLOAT,FLOAT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5)
	1459
	1460	PROTOCCALLSFSUB6(WHENEQ,wheneq,INT,INTV,INT,INT,PINT,PINT)
	1461	#define WHENEQ(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(WHENEQ,wheneq,INT,INTV,INT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6)
	1462
	1463	PROTOCCALLSFSUB6(WHENFGE,whenfge,INT,FLOATV,INT,FLOAT,PINT,PINT)
	1464	#define WHENFGE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(WHENFGE,whenfge,INT,FLOATV,INT,FLOAT,PINT,PINT,A1,A2,A3,A4,A5,A6)
	1465
	1466	PROTOCCALLSFSUB6(WHENFGT,whenfgt,INT,FLOATV,INT,FLOAT,PINT,PINT)
	1467	#define WHENFGT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(WHENFGT,whenfgt,INT,FLOATV,INT,FLOAT,PINT,PINT,A1,A2,A3,A4,A5,A6)
	1468
	1469	PROTOCCALLSFSUB6(WHENFLE,whenfle,INT,FLOATV,INT,FLOAT,PINT,PINT)
	1470	#define WHENFLE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(WHENFLE,whenfle,INT,FLOATV,INT,FLOAT,PINT,PINT,A1,A2,A3,A4,A5,A6)
	1471
	1472	PROTOCCALLSFSUB6(WHENFLT,whenflt,INT,FLOATV,INT,FLOAT,PINT,PINT)
	1473	#define WHENFLT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(WHENFLT,whenflt,INT,FLOATV,INT,FLOAT,PINT,PINT,A1,A2,A3,A4,A5,A6)
	1474
	1475	PROTOCCALLSFSUB6(WHENIGE,whenige,INT,INTV,INT,INT,PINT,PINT)
	1476	#define WHENIGE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(WHENIGE,whenige,INT,INTV,INT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6)
	1477
	1478	PROTOCCALLSFSUB6(WHENIGT,whenigt,INT,INTV,INT,INT,PINT,PINT)
	1479	#define WHENIGT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(WHENIGT,whenigt,INT,INTV,INT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6)
	1480
	1481	PROTOCCALLSFSUB6(WHENILE,whenile,INT,INTV,INT,INT,PINT,PINT)
	1482	#define WHENILE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(WHENILE,whenile,INT,INTV,INT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6)
	1483
	1484	PROTOCCALLSFSUB6(WHENILT,whenilt,INT,INTV,INT,INT,PINT,PINT)
	1485	#define WHENILT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(WHENILT,whenilt,INT,INTV,INT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6)
	1486
	1487	PROTOCCALLSFSUB6(WHENNE,whenne,INT,INTV,INT,INT,PINT,PINT)
	1488	#define WHENNE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(WHENNE,whenne,INT,INTV,INT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6)
	1489
	1490	PROTOCCALLSFSUB6(ZEROX,zerox,FLOAT,FLOAT,FLOAT,INT,FLOAT,INT)
	1491	#define ZEROX(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(ZEROX,zerox,FLOAT,FLOAT,FLOAT,INT,FLOAT,INT,A1,A2,A3,A4,A5,A6)

Note: See TracBrowser for help on using the repository browser.

Context Navigation

source: Sophya/trunk/SophyaExt/CodeMinuit/cfortran/gen.h@ 3005

Download in other formats: