cfortran.h File Reference

#include <stdio.h>
#include <string.h>
#include <stdlib.h>

Include dependency graph for cfortran.h:

This graph shows which files directly or indirectly include this file:

Macros
#define	_(A, B)   AB
#define	_2(A, B)   AB
#define	_3(A, B, C)   ABC
#define	__SEP_0(TN, cfCOMMA)
#define	__SEP_1(TN, cfCOMMA)   _Icf(2,SEP,TN,cfCOMMA,0)
#define	_cf_free(P)   free(P)
#define	_cf_malloc(N)   (char *)malloc(N)
#define	_cfleft   1
#define	_cfleft_cfright   0
#define	_cfMIN(A, B)   (A<B?A:B)
#define	_cfright
#define	_Icf(N, T, I, X, Y)   _(I,_cfINT)(N,T,I,X,Y,0)
#define	_Icf4(N, T, I, X, Y, Z)   _(I,_cfINT)(N,T,I,X,Y,Z)
#define	_NUM_ELEM_ARG   -2
#define	_NUM_ELEMS   -1
#define	_SEP_(TN, C, cfCOMMA)   _(__SEP_,C)(TN,cfCOMMA)
#define	_Z
#define	AACF(TN, AI, I, C)   _SEP_(TN,C,cfCOMMA) _Icf(3,AA,TN,AI,_(B,I))
#define	AATRINGV_cfA( A, B, sA, filA, silA)    (B.s=_cf_malloc((sA)-(filA)),B.fs=c2fstrv(A,B.s,(B.flen=(silA)-1)+1,(sA)));
#define	ABSOFT_cf1(T0)
#define	ABSOFT_cf2(T0)
#define	ABSOFT_cf3(T0)
#define	ACF(NAME, TN, AI, I)   _(TN,_cfSTR)(4,A,NAME,I,AI,_(B,I),0)
#define	AcfCOLON   ;
#define	AcfCOMMA   ,
#define	ANSI_C_preprocessor   _cfleft_cfright
#define	APATRINGV_cfA( A, B, sA, filA, silA)    B.fs=c2fstrv(A,A,(B.flen=(silA)-1)+1,B.sizeofA=(sA));
#define	append_fcallsc(P, p, UN, LN)   CFC_(_(UN,P),_(LN,p))
#define	BCF(TN, AN, C)   _SEP_(TN,C,cfCOMMA) _Icf(2,B,TN,AN,0)
#define	BYTE_cfCCC(A, B)   &A
#define	BYTE_cfE   INTEGER_BYTE A0;
#define	BYTE_cfF(UN, LN)   BYTE_cfFZ(UN,LN)
#define	BYTE_cfFZ(UN, LN)   INTEGER_BYTE FCALLSC_QUALIFIER fcallsc(UN,LN)(
#define	BYTE_cfI   return A0;
#define	BYTE_cfINT(N, A, B, X, Y, Z)   DOUBLE_cfINT(N,A,B,X,Y,Z)
#define	BYTE_cfPU(A)   CFextern INTEGER_BYTE FCALLSC_QUALIFIER A
#define	BYTE_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	BYTE_cfT(M, I, A, B, D)   *A
#define	BYTE_cfVCF(A, B)
#define	BYTE_cfX   return A0;
#define	BYTEV_cfINT(N, A, B, X, Y, Z)   DOUBLEV_cfINT(N,A,B,X,Y,Z)
#define	BYTEV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	BYTEV_cfT(M, I, A, B, D)   A
#define	BYTEVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVV_cfINT(N,A,B,X,Y,Z)
#define	BYTEVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	BYTEVV_cfT(M, I, A, B, D)   (void *)A /* We have to cast to void *,*/
#define	BYTEVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVV_cfINT(N,A,B,X,Y,Z)
#define	BYTEVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	BYTEVVV_cfT(M, I, A, B, D)   (void *)A /* since we don't know the */
#define	BYTEVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVV_cfINT(N,A,B,X,Y,Z)
#define	BYTEVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	BYTEVVVV_cfT(M, I, A, B, D)   (void *)A /* dimensions of the array. */
#define	BYTEVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z)
#define	BYTEVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	BYTEVVVVV_cfT(M, I, A, B, D)   (void *)A /* i.e. Unfortunately, can't */
#define	BYTEVVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z)
#define	BYTEVVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	BYTEVVVVVV_cfT(M, I, A, B, D)   (void *)A /* check that the type */
#define	BYTEVVVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z)
#define	BYTEVVVVVVV_cfPP
#define	BYTEVVVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	BYTEVVVVVVV_cfT(M, I, A, B, D)   (void *)A /* matches the prototype. */
#define	BYTEVVVVVVV_cfTYPE   INTEGER_BYTE
#define	C2FCBSTR(CSTR, FSTR, DIM)
#define	C2FLOGICAL(L)   (L)
#define	C2FLOGICALV(A, I)    do {int __i; for(__i=0;__i<I;__i++) A[__i]=C2FLOGICAL(A[__i]); } while (0)
#define	C2FLOGICALV(A, I)
#define	C_FUNCTION(UN, LN)   fcallsc(UN,LN)
#define	CCALLSFFUN0(UN, LN)   CFFUN(UN)()
#define	CCALLSFFUN1(UN, LN, T1, A1)    CCALLSFFUN5 (UN,LN,T1,CF_0,CF_0,CF_0,CF_0,A1,0,0,0,0)
#define	CCALLSFFUN10(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA)    CCALLSFFUN14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,0,0,0,0)
#define	CCALLSFFUN11(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB)    CCALLSFFUN14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,0,0,0)
#define	CCALLSFFUN12(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC)    CCALLSFFUN14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,0,0)
#define	CCALLSFFUN13(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC, AD)    CCALLSFFUN14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,0)
#define	CCALLSFFUN14(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC, AD, AE)
#define	CCALLSFFUN2(UN, LN, T1, T2, A1, A2)    CCALLSFFUN5 (UN,LN,T1,T2,CF_0,CF_0,CF_0,A1,A2,0,0,0)
#define	CCALLSFFUN3(UN, LN, T1, T2, T3, A1, A2, A3)    CCALLSFFUN5 (UN,LN,T1,T2,T3,CF_0,CF_0,A1,A2,A3,0,0)
#define	CCALLSFFUN4(UN, LN, T1, T2, T3, T4, A1, A2, A3, A4)    CCALLSFFUN5 (UN,LN,T1,T2,T3,T4,CF_0,A1,A2,A3,A4,0)
#define	CCALLSFFUN5(UN, LN, T1, T2, T3, T4, T5, A1, A2, A3, A4, A5)    CCALLSFFUN10(UN,LN,T1,T2,T3,T4,T5,CF_0,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,0,0,0,0,0)
#define	CCALLSFFUN6(UN, LN, T1, T2, T3, T4, T5, T6, A1, A2, A3, A4, A5, A6)    CCALLSFFUN10(UN,LN,T1,T2,T3,T4,T5,T6,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,0,0,0,0)
#define	CCALLSFFUN7(UN, LN, T1, T2, T3, T4, T5, T6, T7, A1, A2, A3, A4, A5, A6, A7)    CCALLSFFUN10(UN,LN,T1,T2,T3,T4,T5,T6,T7,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,0,0,0)
#define	CCALLSFFUN8(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, A1, A2, A3, A4, A5, A6, A7, A8)    CCALLSFFUN10(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,0,0)
#define	CCALLSFFUN9(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, A1, A2, A3, A4, A5, A6, A7, A8, A9)    CCALLSFFUN10(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,0)
#define	CCALLSFSUB0(UN, LN)   do{CPPPROTOCLSFSUB0(UN,LN) CFC_(UN,LN)();}while(0)
#define	CCALLSFSUB1(UN, LN, T1, A1)    CCALLSFSUB5 (UN,LN,T1,CF_0,CF_0,CF_0,CF_0,A1,0,0,0,0)
#define	CCALLSFSUB10(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA)    CCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,0,0,0,0)
#define	CCALLSFSUB11(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB)    CCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,0,0,0)
#define	CCALLSFSUB12(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC)    CCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,0,0)
#define	CCALLSFSUB13(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC, AD)    CCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,0)
#define	CCALLSFSUB14(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC, AD, AE)
#define	CCALLSFSUB15(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC, AD, AE, AF)    CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,CF_0,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,0,0,0,0,0)
#define	CCALLSFSUB16(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC, AD, AE, AF, AG)    CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,0,0,0,0)
#define	CCALLSFSUB17(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC, AD, AE, AF, AG, AH)    CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,0,0,0)
#define	CCALLSFSUB18(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC, AD, AE, AF, AG, AH, AI)    CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,0,0)
#define	CCALLSFSUB19(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC, AD, AE, AF, AG, AH, AI, AJ)    CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,0)
#define	CCALLSFSUB2(UN, LN, T1, T2, A1, A2)    CCALLSFSUB5 (UN,LN,T1,T2,CF_0,CF_0,CF_0,A1,A2,0,0,0)
#define	CCALLSFSUB20(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC, AD, AE, AF, AG, AH, AI, AJ, AK)
#define	CCALLSFSUB21(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC, AD, AE, AF, AG, AH, AI, AJ, AK, AL)    CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,0,0,0,0,0,0)
#define	CCALLSFSUB22(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC, AD, AE, AF, AG, AH, AI, AJ, AK, AL, AM)    CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,CF_0,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,0,0,0,0,0)
#define	CCALLSFSUB23(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC, AD, AE, AF, AG, AH, AI, AJ, AK, AL, AM, AN)    CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,0,0,0,0)
#define	CCALLSFSUB24(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN, TO, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC, AD, AE, AF, AG, AH, AI, AJ, AK, AL, AM, AN, AO)    CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,0,0,0)
#define	CCALLSFSUB25(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN, TO, TP, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC, AD, AE, AF, AG, AH, AI, AJ, AK, AL, AM, AN, AO, AP)    CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,0,0)
#define	CCALLSFSUB26(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN, TO, TP, TQ, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC, AD, AE, AF, AG, AH, AI, AJ, AK, AL, AM, AN, AO, AP, AQ)    CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,AQ,0)
#define	CCALLSFSUB27(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN, TO, TP, TQ, TR, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC, AD, AE, AF, AG, AH, AI, AJ, AK, AL, AM, AN, AO, AP, AQ, AR)
#define	CCALLSFSUB3(UN, LN, T1, T2, T3, A1, A2, A3)    CCALLSFSUB5 (UN,LN,T1,T2,T3,CF_0,CF_0,A1,A2,A3,0,0)
#define	CCALLSFSUB4(UN, LN, T1, T2, T3, T4, A1, A2, A3, A4)    CCALLSFSUB5 (UN,LN,T1,T2,T3,T4,CF_0,A1,A2,A3,A4,0)
#define	CCALLSFSUB5(UN, LN, T1, T2, T3, T4, T5, A1, A2, A3, A4, A5)    CCALLSFSUB10(UN,LN,T1,T2,T3,T4,T5,CF_0,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,0,0,0,0,0)
#define	CCALLSFSUB6(UN, LN, T1, T2, T3, T4, T5, T6, A1, A2, A3, A4, A5, A6)    CCALLSFSUB10(UN,LN,T1,T2,T3,T4,T5,T6,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,0,0,0,0)
#define	CCALLSFSUB7(UN, LN, T1, T2, T3, T4, T5, T6, T7, A1, A2, A3, A4, A5, A6, A7)    CCALLSFSUB10(UN,LN,T1,T2,T3,T4,T5,T6,T7,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,0,0,0)
#define	CCALLSFSUB8(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, A1, A2, A3, A4, A5, A6, A7, A8)    CCALLSFSUB10(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,0,0)
#define	CCALLSFSUB9(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, A1, A2, A3, A4, A5, A6, A7, A8, A9)    CCALLSFSUB10(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,0)
#define	CCCF(TN, I, M)   _SEP_(TN,M,cfCOMMA) _Icf(3,CC,TN,_(A,I),_(B,I))
#define	CCF(NAME, TN, I)   _(TN,_cfSTR)(5,C,NAME,I,_(A,I),_(B,I),_(C,I))
#define	CF_0_cfINT(N, A, B, X, Y, Z)
#define	CF_0_cfSTR(N, T, A, B, C, D, E)
#define	CF_0_cfT(M, I, A, B, D)
#define	CF_DECLARE_GETARG
#define	CF_NULL_PROTO
#define	CF_SAME_NAMESPACE
#define	CF_SET_GETARG(ARGC, ARGV)
#define	CFARGS0(A, T, V, W, X, Y, Z)   _3(T,_cf,A)
#define	CFARGS1(A, T, V, W, X, Y, Z)   _3(T,_cf,A)(V)
#define	CFARGS2(A, T, V, W, X, Y, Z)   _3(T,_cf,A)(V,W)
#define	CFARGS3(A, T, V, W, X, Y, Z)   _3(T,_cf,A)(V,W,X)
#define	CFARGS4(A, T, V, W, X, Y, Z)   _3(T,_cf,A)(V,W,X,Y)
#define	CFARGS5(A, T, V, W, X, Y, Z)   _3(T,_cf,A)(V,W,X,Y,Z)
#define	CFARGT14(F, S, M, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE)
#define	CFARGT14FS(F, S, M, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE)
#define	CFARGT14S(S, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE)
#define	CFARGT20(F, S, M, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK)
#define	CFARGT27(F, S, M, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN, TO, TP, TQ, TR)
#define	CFARGT27FS(F, S, M, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN, TO, TP, TQ, TR)
#define	CFARGT27S(S, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN, TO, TP, TQ, TR)
#define	CFARGTA14(F, S, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC, AD, AE)
#define	CFARGTA20(F, S, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC, AD, AE, AF, AG, AH, AI, AJ, AK)
#define	CFARGTA27(F, S, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN, TO, TP, TQ, TR, A1, A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC, AD, AE, AF, AG, AH, AI, AJ, AK, AL, AM, AN, AO, AP, AQ, AR)
#define	CFC_(UN, LN)   LN /* Lowercase FORTRAN symbols. */
#define	cfDEREFERENCE0
#define	cfDEREFERENCE1   *
#define	cfDEREFERENCE2   **
#define	cfDEREFERENCE3   ***
#define	cfDEREFERENCE4   ****
#define	cfDEREFERENCE5   *****
#define	cfelementsof(A, D)   (sizeof(A)/sizeof(_(cfDEREFERENCE,D)(A)))
#define	CFextern   extern
#define	CFFUN(NAME)   _(__cf__,NAME)
#define	CFORTRAN_NON_CHAR   0x7F
#define	COMMON_BLOCK(UN, LN)   CFC_(UN,LN)
#define	COMMON_BLOCK_DEF(DEFINITION, NAME)   extern DEFINITION NAME
#define	CPPPROTOCLSFSUB0(UN, LN)    PROTOCCALLSFSUB0(UN,LN)
#define	CPPPROTOCLSFSUB14(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE)    PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)
#define	CPPPROTOCLSFSUB20(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK)    PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK)
#define	CPPPROTOCLSFSUB27(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN, TO, TP, TQ, TR)    PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)
#define	DCF(TN, I)   HCF(TN,I)
#define	DDCF(TN, I)   HHCF(TN,I)
#define	DDDCF(TN, I)   HHHCF(TN,I)
#define	DEFAULT_cfA(M, I, A, B)
#define	DEFAULT_cfC(M, I, A, B, C)
#define	DEFAULT_cfH(M, I, A)
#define	DEFAULT_cfJ(B)
#define	DEFAULT_cfKK(B)
#define	DEFAULT_cfQ(B)
#define	DEFAULT_cfR(A, B, D)
#define	DEFAULT_cfS(M, I, A)
#define	DEFAULT_cfW(A, B)
#define	DOUBLE_cfCCC(A, B)   &A
#define	DOUBLE_cfE   DOUBLE_PRECISION A0;
#define	DOUBLE_cfF(UN, LN)   DOUBLE_cfFZ(UN,LN)
#define	DOUBLE_cfFZ(UN, LN)   DOUBLE_PRECISION FCALLSC_QUALIFIER fcallsc(UN,LN)(
#define	DOUBLE_cfI   return A0;
#define	DOUBLE_cfINT(N, A, B, X, Y, Z)   _(CFARGS,N)(A,INT,B,X,Y,Z,0)
#define	DOUBLE_cfPU(A)   CFextern DOUBLE_PRECISION FCALLSC_QUALIFIER A
#define	DOUBLE_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	DOUBLE_cfT(M, I, A, B, D)   *A
#define	DOUBLE_cfVCF(A, B)
#define	DOUBLE_cfX   return A0;
#define	DOUBLE_PRECISION   double
#define	DOUBLEV_cfINT(N, A, B, X, Y, Z)   _(CFARGS,N)(A,INTV,B,X,Y,Z,0)
#define	DOUBLEV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	DOUBLEV_cfT(M, I, A, B, D)   A
#define	DOUBLEVV_cfINT(N, A, B, X, Y, Z)   _(CFARGS,N)(A,INTVV,B,X,Y,Z,0)
#define	DOUBLEVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	DOUBLEVV_cfT(M, I, A, B, D)   (void *)A
#define	DOUBLEVVV_cfINT(N, A, B, X, Y, Z)   _(CFARGS,N)(A,INTVVV,B,X,Y,Z,0)
#define	DOUBLEVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	DOUBLEVVV_cfT(M, I, A, B, D)   (void *)A
#define	DOUBLEVVVV_cfINT(N, A, B, X, Y, Z)   _(CFARGS,N)(A,INTVVVV,B,X,Y,Z,0)
#define	DOUBLEVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	DOUBLEVVVV_cfT(M, I, A, B, D)   (void *)A
#define	DOUBLEVVVVV_cfINT(N, A, B, X, Y, Z)   _(CFARGS,N)(A,INTVVVVV,B,X,Y,Z,0)
#define	DOUBLEVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	DOUBLEVVVVV_cfT(M, I, A, B, D)   (void *)A
#define	DOUBLEVVVVVV_cfINT(N, A, B, X, Y, Z)   _(CFARGS,N)(A,INTVVVVVV,B,X,Y,Z,0)
#define	DOUBLEVVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	DOUBLEVVVVVV_cfT(M, I, A, B, D)   (void *)A
#define	DOUBLEVVVVVVV_cfINT(N, A, B, X, Y, Z)   _(CFARGS,N)(A,INTVVVVVVV,B,X,Y,Z,0)
#define	DOUBLEVVVVVVV_cfPP
#define	DOUBLEVVVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	DOUBLEVVVVVVV_cfT(M, I, A, B, D)   (void *)A
#define	DOUBLEVVVVVVV_cfTYPE   DOUBLE_PRECISION
#define	F2CLOGICAL(L)   (L)
#define	F2CLOGICALV(A, I)    do {int __i; for(__i=0;__i<I;__i++) A[__i]=F2CLOGICAL(A[__i]); } while (0)
#define	F2CLOGICALV(A, I)
#define	fcallsc(UN, LN)   orig_fcallsc(UN,LN)
#define	FCALLSC_QUALIFIER
#define	FCALLSCFUN0(T0, CN, UN, LN)
#define	FCALLSCFUN1(T0, CN, UN, LN, T1)    FCALLSCFUN5 (T0,CN,UN,LN,T1,CF_0,CF_0,CF_0,CF_0)
#define	FCALLSCFUN10(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA)    FCALLSCFUN14(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,CF_0,CF_0,CF_0,CF_0)
#define	FCALLSCFUN11(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB)    FCALLSCFUN14(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,CF_0,CF_0,CF_0)
#define	FCALLSCFUN12(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC)    FCALLSCFUN14(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,CF_0,CF_0)
#define	FCALLSCFUN13(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD)    FCALLSCFUN14(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,CF_0)
#define	FCALLSCFUN14(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE)
#define	FCALLSCFUN15(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF)    FCALLSCFUN20(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,CF_0,CF_0,CF_0,CF_0,CF_0)
#define	FCALLSCFUN16(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG)    FCALLSCFUN20(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,CF_0,CF_0,CF_0,CF_0)
#define	FCALLSCFUN17(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH)    FCALLSCFUN20(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,CF_0,CF_0,CF_0)
#define	FCALLSCFUN18(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI)    FCALLSCFUN20(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,CF_0,CF_0)
#define	FCALLSCFUN19(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ)    FCALLSCFUN20(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,CF_0)
#define	FCALLSCFUN2(T0, CN, UN, LN, T1, T2)    FCALLSCFUN5 (T0,CN,UN,LN,T1,T2,CF_0,CF_0,CF_0)
#define	FCALLSCFUN20(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK)    FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
#define	FCALLSCFUN21(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL)    FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
#define	FCALLSCFUN22(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM)    FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,CF_0,CF_0,CF_0,CF_0,CF_0)
#define	FCALLSCFUN23(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN)    FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,CF_0,CF_0,CF_0,CF_0)
#define	FCALLSCFUN24(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN, TO)    FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,CF_0,CF_0,CF_0)
#define	FCALLSCFUN25(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN, TO, TP)    FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,CF_0,CF_0)
#define	FCALLSCFUN26(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN, TO, TP, TQ)    FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,CF_0)
#define	FCALLSCFUN27(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN, TO, TP, TQ, TR)
#define	FCALLSCFUN3(T0, CN, UN, LN, T1, T2, T3)    FCALLSCFUN5 (T0,CN,UN,LN,T1,T2,T3,CF_0,CF_0)
#define	FCALLSCFUN4(T0, CN, UN, LN, T1, T2, T3, T4)    FCALLSCFUN5 (T0,CN,UN,LN,T1,T2,T3,T4,CF_0)
#define	FCALLSCFUN5(T0, CN, UN, LN, T1, T2, T3, T4, T5)    FCALLSCFUN10(T0,CN,UN,LN,T1,T2,T3,T4,T5,CF_0,CF_0,CF_0,CF_0,CF_0)
#define	FCALLSCFUN6(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6)    FCALLSCFUN10(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,CF_0,CF_0,CF_0,CF_0)
#define	FCALLSCFUN7(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7)    FCALLSCFUN10(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,CF_0,CF_0,CF_0)
#define	FCALLSCFUN8(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8)    FCALLSCFUN10(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,CF_0,CF_0)
#define	FCALLSCFUN9(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9)    FCALLSCFUN10(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,CF_0)
#define	FCALLSCSUB0(CN, UN, LN)   FCALLSCFUN0(VOID,CN,UN,LN)
#define	FCALLSCSUB1(CN, UN, LN, T1)   FCALLSCFUN1(VOID,CN,UN,LN,T1)
#define	FCALLSCSUB10(CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA)    FCALLSCFUN10(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA)
#define	FCALLSCSUB11(CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB)    FCALLSCFUN11(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB)
#define	FCALLSCSUB12(CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC)    FCALLSCFUN12(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC)
#define	FCALLSCSUB13(CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD)    FCALLSCFUN13(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD)
#define	FCALLSCSUB14(CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE)    FCALLSCFUN14(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)
#define	FCALLSCSUB15(CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF)    FCALLSCFUN15(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF)
#define	FCALLSCSUB16(CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG)    FCALLSCFUN16(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG)
#define	FCALLSCSUB17(CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH)    FCALLSCFUN17(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH)
#define	FCALLSCSUB18(CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI)    FCALLSCFUN18(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI)
#define	FCALLSCSUB19(CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ)    FCALLSCFUN19(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ)
#define	FCALLSCSUB2(CN, UN, LN, T1, T2)   FCALLSCFUN2(VOID,CN,UN,LN,T1,T2)
#define	FCALLSCSUB20(CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK)    FCALLSCFUN20(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK)
#define	FCALLSCSUB21(CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL)    FCALLSCFUN21(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL)
#define	FCALLSCSUB22(CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM)    FCALLSCFUN22(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM)
#define	FCALLSCSUB23(CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN)    FCALLSCFUN23(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN)
#define	FCALLSCSUB24(CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN, TO)    FCALLSCFUN24(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO)
#define	FCALLSCSUB25(CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN, TO, TP)    FCALLSCFUN25(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP)
#define	FCALLSCSUB26(CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN, TO, TP, TQ)    FCALLSCFUN26(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ)
#define	FCALLSCSUB27(CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN, TO, TP, TQ, TR)    FCALLSCFUN27(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)
#define	FCALLSCSUB3(CN, UN, LN, T1, T2, T3)   FCALLSCFUN3(VOID,CN,UN,LN,T1,T2,T3)
#define	FCALLSCSUB4(CN, UN, LN, T1, T2, T3, T4)    FCALLSCFUN4(VOID,CN,UN,LN,T1,T2,T3,T4)
#define	FCALLSCSUB5(CN, UN, LN, T1, T2, T3, T4, T5)    FCALLSCFUN5(VOID,CN,UN,LN,T1,T2,T3,T4,T5)
#define	FCALLSCSUB6(CN, UN, LN, T1, T2, T3, T4, T5, T6)    FCALLSCFUN6(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6)
#define	FCALLSCSUB7(CN, UN, LN, T1, T2, T3, T4, T5, T6, T7)    FCALLSCFUN7(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7)
#define	FCALLSCSUB8(CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8)    FCALLSCFUN8(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8)
#define	FCALLSCSUB9(CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9)    FCALLSCFUN9(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9)
#define	FCB2CSTR(FSTR, CSTR, DIM)
#define	firstindexlength(A)   (sizeof(A[0])==1 ? 1 : (sizeof(A) / sizeof(A[0])) )
#define	FLOAT_cfCCC(A, B)   &A
#define	FLOAT_cfE   FORTRAN_REAL A0;
#define	FLOAT_cfF(UN, LN)   FORTRAN_REAL FCALLSC_QUALIFIER fcallsc(UN,LN)(
#define	FLOAT_cfFZ(UN, LN)   FORTRAN_REAL FCALLSC_QUALIFIER fcallsc(UN,LN)(void
#define	FLOAT_cfI   return A0;
#define	FLOAT_cfINT(N, A, B, X, Y, Z)   DOUBLE_cfINT(N,A,B,X,Y,Z)
#define	FLOAT_cfPU(A)   CFextern FORTRAN_REAL FCALLSC_QUALIFIER A
#define	FLOAT_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	FLOAT_cfT(M, I, A, B, D)   *A
#define	FLOAT_cfVCF(A, B)
#define	FLOAT_cfX   return A0;
#define	FLOATV_cfINT(N, A, B, X, Y, Z)   DOUBLEV_cfINT(N,A,B,X,Y,Z)
#define	FLOATV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	FLOATV_cfT(M, I, A, B, D)   VOIDP A
#define	FLOATVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVV_cfINT(N,A,B,X,Y,Z)
#define	FLOATVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	FLOATVV_cfT(M, I, A, B, D)   (void *)A
#define	FLOATVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVV_cfINT(N,A,B,X,Y,Z)
#define	FLOATVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	FLOATVVV_cfT(M, I, A, B, D)   (void *)A
#define	FLOATVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVV_cfINT(N,A,B,X,Y,Z)
#define	FLOATVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	FLOATVVVV_cfT(M, I, A, B, D)   (void *)A
#define	FLOATVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z)
#define	FLOATVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	FLOATVVVVV_cfT(M, I, A, B, D)   (void *)A
#define	FLOATVVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z)
#define	FLOATVVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	FLOATVVVVVV_cfT(M, I, A, B, D)   (void *)A
#define	FLOATVVVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z)
#define	FLOATVVVVVVV_cfPP
#define	FLOATVVVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	FLOATVVVVVVV_cfT(M, I, A, B, D)   (void *)A
#define	FLOATVVVVVVV_cfTYPE   FORTRAN_REAL
#define	FORTRAN_FUNCTION(UN, LN)   CFC_(UN,LN)
#define	FORTRAN_REAL   float
#define	H_CF_SPECIAL   unsigned
#define	HCF(TN, I)   _(TN,_cfSTR)(3,H,cfCOMMA, H,_(C,I),0,0)
#define	HH_CF_SPECIAL
#define	HHCF(TN, I)   _(TN,_cfSTR)(3,H,cfCOMMA,HH,_(C,I),0,0)
#define	HHHCF(TN, I)   _(TN,_cfSTR)(3,H,cfCOLON, H,_(C,I),0,0)
#define	INT_cfAA(T, A, B)   &B
#define	INT_cfB(T, A)   (_(T,VVVVVVV_cfTYPE)) A
#define	INT_cfCC(T, A, B)   _(T,_cfCCC)(A,B)
#define	INT_cfCCC(A, B)   &A
#define	INT_cfE   int A0;
#define	INT_cfF(UN, LN)   INT_cfFZ(UN,LN)
#define	INT_cfFF
#define	INT_cfFZ(UN, LN)   int FCALLSC_QUALIFIER fcallsc(UN,LN)(
#define	INT_cfG(T, UN, LN)   INT_cfGZ(T,UN,LN)
#define	INT_cfGZ(T, UN, LN)   A0=CFC_(UN,LN)(
#define	INT_cfI   return A0;
#define	INT_cfINT(N, A, B, X, Y, Z)   DOUBLE_cfINT(N,A,B,X,Y,Z)
#define	INT_cfK
#define	INT_cfL   A0=
#define	INT_cfN(T, A)   _(T,VVVVVVV_cfTYPE) * A
#define	INT_cfPU(A)   CFextern int FCALLSC_QUALIFIER A
#define	INT_cfSEP(T, B)   _(A,B)
#define	INT_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	INT_cfT(M, I, A, B, D)   *A
#define	INT_cfU(T, A)   _(T,VVVVVVV_cfTYPE) A
#define	INT_cfUU(T, A)   _(T,VVVVVVV_cfTYPE) A
#define	INT_cfV(T, A, B, F)   _(VCF_INT_,F)(T,A,B)
#define	INT_cfVCF(A, B)
#define	INT_cfX   return A0;
#define	INTEGER_BYTE   signed char /* default */
#define	INTV_cfAA(T, A, B)   _(T,VVVVVV_cfPP) A
#define	INTV_cfB(T, A)   A
#define	INTV_cfCC(T, A, B)   A
#define	INTV_cfINT(N, A, B, X, Y, Z)   DOUBLEV_cfINT(N,A,B,X,Y,Z)
#define	INTV_cfN(T, A)   _(T,VVVVVV_cfTYPE) * A
#define	INTV_cfSEP(T, B)   INT_cfSEP(T,B)
#define	INTV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	INTV_cfT(M, I, A, B, D)   A
#define	INTV_cfU(T, A)   _(T,VVVVVV_cfTYPE) * A
#define	INTV_cfV(T, A, B, F)
#define	INTVV_cfAA(T, A, B)   _(T,VVVVV_cfPP) A[0]
#define	INTVV_cfB(T, A)   (A)[0]
#define	INTVV_cfCC(T, A, B)   A
#define	INTVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVV_cfINT(N,A,B,X,Y,Z)
#define	INTVV_cfN(T, A)   _(T,VVVVV_cfTYPE) * A
#define	INTVV_cfSEP(T, B)   INT_cfSEP(T,B)
#define	INTVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	INTVV_cfT(M, I, A, B, D)   (void *)A
#define	INTVV_cfU(T, A)   _(T,VVVVV_cfTYPE) * A
#define	INTVV_cfV(T, A, B, F)
#define	INTVVV_cfAA(T, A, B)   _(T,VVVV_cfPP) A[0][0]
#define	INTVVV_cfB(T, A)   (A)[0][0]
#define	INTVVV_cfCC(T, A, B)   A
#define	INTVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVV_cfINT(N,A,B,X,Y,Z)
#define	INTVVV_cfN(T, A)   _(T,VVVV_cfTYPE) * A
#define	INTVVV_cfSEP(T, B)   INT_cfSEP(T,B)
#define	INTVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	INTVVV_cfT(M, I, A, B, D)   (void *)A
#define	INTVVV_cfU(T, A)   _(T,VVVV_cfTYPE) * A
#define	INTVVV_cfV(T, A, B, F)
#define	INTVVVV_cfAA(T, A, B)   _(T,VVV_cfPP) A[0][0][0]
#define	INTVVVV_cfB(T, A)   (A)[0][0][0]
#define	INTVVVV_cfCC(T, A, B)   A
#define	INTVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVV_cfINT(N,A,B,X,Y,Z)
#define	INTVVVV_cfN(T, A)   _(T,VVV_cfTYPE) * A
#define	INTVVVV_cfSEP(T, B)   INT_cfSEP(T,B)
#define	INTVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	INTVVVV_cfT(M, I, A, B, D)   (void *)A
#define	INTVVVV_cfU(T, A)   _(T,VVV_cfTYPE) * A
#define	INTVVVV_cfV(T, A, B, F)
#define	INTVVVVV_cfAA(T, A, B)   _(T,VV_cfPP) A[0][0][0][0]
#define	INTVVVVV_cfB(T, A)   (A)[0][0][0][0]
#define	INTVVVVV_cfCC(T, A, B)   A
#define	INTVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z)
#define	INTVVVVV_cfN(T, A)   _(T,VV_cfTYPE) * A
#define	INTVVVVV_cfSEP(T, B)   INT_cfSEP(T,B)
#define	INTVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	INTVVVVV_cfT(M, I, A, B, D)   (void *)A
#define	INTVVVVV_cfU(T, A)   _(T,VV_cfTYPE) * A
#define	INTVVVVV_cfV(T, A, B, F)
#define	INTVVVVVV_cfAA(T, A, B)   _(T,V_cfPP) A[0][0][0][0][0]
#define	INTVVVVVV_cfB(T, A)   (A)[0][0][0][0][0]
#define	INTVVVVVV_cfCC(T, A, B)   A
#define	INTVVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z)
#define	INTVVVVVV_cfN(T, A)   _(T,V_cfTYPE) * A
#define	INTVVVVVV_cfSEP(T, B)   INT_cfSEP(T,B)
#define	INTVVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	INTVVVVVV_cfT(M, I, A, B, D)   (void *)A
#define	INTVVVVVV_cfU(T, A)   _(T,V_cfTYPE) * A
#define	INTVVVVVV_cfV(T, A, B, F)
#define	INTVVVVVVV_cfAA(T, A, B)   _(T,_cfPP) A[0][0][0][0][0][0]
#define	INTVVVVVVV_cfB(T, A)   (A)[0][0][0][0][0][0]
#define	INTVVVVVVV_cfCC(T, A, B)   A
#define	INTVVVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z)
#define	INTVVVVVVV_cfN(T, A)   _(T,_cfTYPE) * A
#define	INTVVVVVVV_cfPP   /* These complement FLOATVVVVVVV_cfPP. */
#define	INTVVVVVVV_cfSEP(T, B)   INT_cfSEP(T,B)
#define	INTVVVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	INTVVVVVVV_cfT(M, I, A, B, D)   (void *)A
#define	INTVVVVVVV_cfTYPE   int
#define	INTVVVVVVV_cfU(T, A)   _(T,_cfTYPE) * A
#define	INTVVVVVVV_cfV(T, A, B, F)
#define	JCF(TN, I)   _(TN,_cfSTR)(1,J,_(B,I), 0,0,0,0)
#define	KCF(TN, I)   _(TN,_cfSTR)(1,KK,_(B,I), 0,0,0,0)
#define	LOGICAL_cfA(M, I, A, B)   B=C2FLOGICAL(B);
#define	LOGICAL_cfC(M, I, A, B, C)   A=C2FLOGICAL( A);
#define	LOGICAL_cfCCC(A, B)   &A
#define	LOGICAL_cfE   int A0;
#define	LOGICAL_cfF(UN, LN)   LOGICAL_cfFZ(UN,LN)
#define	LOGICAL_cfFZ(UN, LN)   int FCALLSC_QUALIFIER fcallsc(UN,LN)(
#define	LOGICAL_cfH(S, U, B)
#define	LOGICAL_cfI   return C2FLOGICAL(A0);
#define	LOGICAL_cfINT(N, A, B, X, Y, Z)   DOUBLE_cfINT(N,A,B,X,Y,Z)
#define	LOGICAL_cfJ(B)   DEFAULT_cfJ(B)
#define	LOGICAL_cfKK(B)   DEFAULT_cfKK(B)
#define	LOGICAL_cfPU(A)   CFextern int FCALLSC_QUALIFIER A
#define	LOGICAL_cfQ(B)
#define	LOGICAL_cfR(A, B, D)
#define	LOGICAL_cfS(M, I, A)
#define	LOGICAL_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,LOGICAL,A,B,C,D,E)
#define	LOGICAL_cfT(M, I, A, B, D)   F2CLOGICAL(*A)
#define	LOGICAL_cfVCF(A, B)
#define	LOGICAL_cfW(A, B)
#define	LOGICAL_cfX   return F2CLOGICAL(A0);
#define	LOGICALV_cfINT(N, A, B, X, Y, Z)   DOUBLEV_cfINT(N,A,B,X,Y,Z)
#define	LOGICALV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	LOGICALV_cfT(M, I, A, B, D)   A
#define	LOGICALVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVV_cfINT(N,A,B,X,Y,Z)
#define	LOGICALVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	LOGICALVV_cfT(M, I, A, B, D)   (void *)A
#define	LOGICALVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVV_cfINT(N,A,B,X,Y,Z)
#define	LOGICALVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	LOGICALVVV_cfT(M, I, A, B, D)   (void *)A
#define	LOGICALVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVV_cfINT(N,A,B,X,Y,Z)
#define	LOGICALVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	LOGICALVVVV_cfT(M, I, A, B, D)   (void *)A
#define	LOGICALVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z)
#define	LOGICALVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	LOGICALVVVVV_cfT(M, I, A, B, D)   (void *)A
#define	LOGICALVVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z)
#define	LOGICALVVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	LOGICALVVVVVV_cfT(M, I, A, B, D)   (void *)A
#define	LOGICALVVVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z)
#define	LOGICALVVVVVVV_cfPP
#define	LOGICALVVVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	LOGICALVVVVVVV_cfT(M, I, A, B, D)   (void *)A
#define	LOGICALVVVVVVV_cfTYPE   int
#define	LONG_cfCCC(A, B)   &A
#define	LONG_cfE   long A0;
#define	LONG_cfF(UN, LN)   LONG_cfFZ(UN,LN)
#define	LONG_cfFZ(UN, LN)   long FCALLSC_QUALIFIER fcallsc(UN,LN)(
#define	LONG_cfI   return A0;
#define	LONG_cfINT(N, A, B, X, Y, Z)   DOUBLE_cfINT(N,A,B,X,Y,Z)
#define	LONG_cfPU(A)   CFextern long FCALLSC_QUALIFIER A
#define	LONG_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	LONG_cfT(M, I, A, B, D)   *A
#define	LONG_cfVCF(A, B)
#define	LONG_cfX   return A0;
#define	LONGLONG_cfF(UN, LN)   LONGLONG_cfFZ(UN,LN) /* added by MR December 2005 */
#define	LONGLONG_cfFZ(UN, LN)   LONGLONG FCALLSC_QUALIFIER fcallsc(UN,LN)( /* added by MR December 2005 */
#define	LONGLONG_cfI   return A0; /* added by MR December 2005 */
#define	LONGLONG_cfINT(N, A, B, X, Y, Z)   DOUBLE_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
#define	LONGLONG_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
#define	LONGLONG_cfT(M, I, A, B, D)   *A /* added by MR December 2005 */
#define	LONGLONG_TYPE
#define	LONGLONGV_cfINT(N, A, B, X, Y, Z)   DOUBLEV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
#define	LONGLONGV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
#define	LONGLONGV_cfT(M, I, A, B, D)   A /* added by MR December 2005 */
#define	LONGLONGVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
#define	LONGLONGVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
#define	LONGLONGVV_cfT(M, I, A, B, D)   (void *)A /* added by MR December 2005 */
#define	LONGLONGVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
#define	LONGLONGVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
#define	LONGLONGVVV_cfT(M, I, A, B, D)   (void *)A /* added by MR December 2005 */
#define	LONGLONGVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
#define	LONGLONGVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
#define	LONGLONGVVVV_cfT(M, I, A, B, D)   (void *)A /* added by MR December 2005 */
#define	LONGLONGVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
#define	LONGLONGVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
#define	LONGLONGVVVVV_cfT(M, I, A, B, D)   (void *)A /* added by MR December 2005 */
#define	LONGLONGVVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
#define	LONGLONGVVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
#define	LONGLONGVVVVVV_cfT(M, I, A, B, D)   (void *)A /* added by MR December 2005 */
#define	LONGLONGVVVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
#define	LONGLONGVVVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
#define	LONGLONGVVVVVVV_cfT(M, I, A, B, D)   (void *)A /* added by MR December 2005 */
#define	LONGLONGVVVVVVV_cfTYPE   LONGLONG /* added by MR December 2005 */
#define	LONGV_cfINT(N, A, B, X, Y, Z)   DOUBLEV_cfINT(N,A,B,X,Y,Z)
#define	LONGV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	LONGV_cfT(M, I, A, B, D)   A
#define	LONGVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVV_cfINT(N,A,B,X,Y,Z)
#define	LONGVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	LONGVV_cfT(M, I, A, B, D)   (void *)A
#define	LONGVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVV_cfINT(N,A,B,X,Y,Z)
#define	LONGVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	LONGVVV_cfT(M, I, A, B, D)   (void *)A
#define	LONGVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVV_cfINT(N,A,B,X,Y,Z)
#define	LONGVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	LONGVVVV_cfT(M, I, A, B, D)   (void *)A
#define	LONGVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z)
#define	LONGVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	LONGVVVVV_cfT(M, I, A, B, D)   (void *)A
#define	LONGVVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z)
#define	LONGVVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	LONGVVVVVV_cfT(M, I, A, B, D)   (void *)A
#define	LONGVVVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z)
#define	LONGVVVVVVV_cfPP
#define	LONGVVVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	LONGVVVVVVV_cfT(M, I, A, B, D)   (void *)A
#define	LONGVVVVVVV_cfTYPE   long
#define	MAX_LEN_FORTRAN_FUNCTION_STRING   0x4FE
#define	MAX_PREPRO_ARGS   99
#define	NCF(TN, I, C)   _SEP_(TN,C,cfCOMMA) _Icf(2,N,TN,_(A,I),0)
#define	NNCF(TN, I, C)   UUCF(TN,I,C)
#define	NNNCF(TN, I, C)   _SEP_(TN,C,cfCOLON) _Icf(2,N,TN,_(A,I),0)
#define	NUM_ELEM_ARG(B)   *_2(A,B),_NUM_ELEM_ARG
#define	NUM_ELEMS(A)   A,_NUM_ELEMS
#define	orig_fcallsc(UN, LN)   CFC_(UN,LN)
#define	PBYTE_cfAAP(A, B)   &A
#define	PBYTE_cfCCC(A, B)   A
#define	PBYTE_cfINT(N, A, B, X, Y, Z)   PDOUBLE_cfINT(N,A,B,X,Y,Z)
#define	PBYTE_cfPP
#define	PBYTE_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	PBYTE_cfT(M, I, A, B, D)   A
#define	PBYTE_cfTYPE   INTEGER_BYTE
#define	PBYTE_cfVP(A, B)   PINT_cfVP(A,B)
#define	PDOUBLE_cfAAP(A, B)   &A
#define	PDOUBLE_cfCCC(A, B)   A
#define	PDOUBLE_cfINT(N, A, B, X, Y, Z)   _(CFARGS,N)(A,PINT,B,X,Y,Z,0)
#define	PDOUBLE_cfPP
#define	PDOUBLE_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	PDOUBLE_cfT(M, I, A, B, D)   A
#define	PDOUBLE_cfTYPE   DOUBLE_PRECISION
#define	PDOUBLE_cfVP(A, B)
#define	PFLOAT_cfAAP(A, B)   FLOATVVVVVVV_cfPP &A
#define	PFLOAT_cfCCC(A, B)   A
#define	PFLOAT_cfINT(N, A, B, X, Y, Z)   PDOUBLE_cfINT(N,A,B,X,Y,Z)
#define	PFLOAT_cfPP   FLOATVVVVVVV_cfPP
#define	PFLOAT_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	PFLOAT_cfT(M, I, A, B, D)   VOIDP A
#define	PFLOAT_cfTYPE   FORTRAN_REAL
#define	PFLOAT_cfVP(A, B)
#define	PINT_cfAA(T, A, B)   _(T,_cfAAP)(A,B)
#define	PINT_cfAAP(A, B)   &A
#define	PINT_cfB(T, A)   _(T,_cfPP)&A
#define	PINT_cfCC(T, A, B)   _(T,_cfCCC)(A,B)
#define	PINT_cfCCC(A, B)   A
#define	PINT_cfINT(N, A, B, X, Y, Z)   PDOUBLE_cfINT(N,A,B,X,Y,Z)
#define	PINT_cfN(T, A)   _(T,_cfTYPE) * A
#define	PINT_cfPP
#define	PINT_cfSEP(T, B)   INT_cfSEP(T,B)
#define	PINT_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	PINT_cfT(M, I, A, B, D)   A
#define	PINT_cfTYPE   int
#define	PINT_cfU(T, A)   _(T,_cfTYPE) * A
#define	PINT_cfV( T, A, B, F)   _(T,_cfVP)(A,B)
#define	PINT_cfVP(A, B)
#define	PLOGICAL_cfA(M, I, A, B)   A=C2FLOGICAL(A);
#define	PLOGICAL_cfAAP(A, B)   B= &A /* B used to keep a common W table. */
#define	PLOGICAL_cfC(M, I, A, B, C)   *A=C2FLOGICAL(*A);
#define	PLOGICAL_cfCCC(A, B)   B=A /* B used to keep a common W table. */
#define	PLOGICAL_cfH(S, U, B)
#define	PLOGICAL_cfINT(N, A, B, X, Y, Z)   PDOUBLE_cfINT(N,A,B,X,Y,Z)
#define	PLOGICAL_cfJ(B)   DEFAULT_cfJ(B)
#define	PLOGICAL_cfKK(B)   DEFAULT_cfKK(B)
#define	PLOGICAL_cfPP
#define	PLOGICAL_cfQ(B)
#define	PLOGICAL_cfR(A, B, D)   *A=C2FLOGICAL(*A);
#define	PLOGICAL_cfS(M, I, A)
#define	PLOGICAL_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,PLOGICAL,A,B,C,D,E)
#define	PLOGICAL_cfT(M, I, A, B, D)   ((*A=F2CLOGICAL(*A)),A)
#define	PLOGICAL_cfTYPE   int
#define	PLOGICAL_cfVP(A, B)   int *B; /* Returning LOGICAL in FUNn and SUBn */
#define	PLOGICAL_cfW(A, B)   *B=F2CLOGICAL(*B);
#define	PLONG_cfAAP(A, B)   &A
#define	PLONG_cfCCC(A, B)   A
#define	PLONG_cfINT(N, A, B, X, Y, Z)   PDOUBLE_cfINT(N,A,B,X,Y,Z)
#define	PLONG_cfPP
#define	PLONG_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	PLONG_cfT(M, I, A, B, D)   A
#define	PLONG_cfTYPE   long
#define	PLONG_cfVP(A, B)   PINT_cfVP(A,B)
#define	PLONGLONG_cfINT(N, A, B, X, Y, Z)   PDOUBLE_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
#define	PLONGLONG_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
#define	PLONGLONG_cfT(M, I, A, B, D)   A /* added by MR December 2005 */
#define	PLONGLONG_cfTYPE   LONGLONG /* added by MR December 2005 */
#define	PNSTRING_cfH(S, U, B)   STRING_cfH(S,U,B)
#define	PNSTRING_cfINT(N, A, B, X, Y, Z)   PVOID_cfINT(N,A,B,X,Y,Z)
#define	PNSTRING_cfN(T, A)   STRING_cfN(T,A) /* CRAY insists on arg.'s here. */
#define	PNSTRING_cfQ(B)   char *B=NULL;
#define	PNSTRING_cfR(A, B, D)   PSTRING_cfR(A,B,D)
#define	PNSTRING_cfSEP(T, B)   INT_cfSEP(T,B)
#define	PNSTRING_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,PNSTRING,A,B,C,D,E)
#define	PNSTRING_cfT(M, I, A, B, D)   STRING_cfT(M,I,A,B,D)
#define	PPSTRING_cfH(S, U, B)   STRING_cfH(S,U,B)
#define	PPSTRING_cfINT(N, A, B, X, Y, Z)   PVOID_cfINT(N,A,B,X,Y,Z)
#define	PPSTRING_cfN(T, A)   STRING_cfN(T,A) /* CRAY insists on arg.'s here. */
#define	PPSTRING_cfQ(B)
#define	PPSTRING_cfR(A, B, D)
#define	PPSTRING_cfSEP(T, B)   INT_cfSEP(T,B)
#define	PPSTRING_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,PPSTRING,A,B,C,D,E)
#define	PPSTRING_cfT(M, I, A, B, D)   A
#define	preface_fcallsc(P, p, UN, LN)   CFC_(_(P,UN),_(p,LN))
#define	PROTOCCALLSFFUN0(F, UN, LN)
#define	PROTOCCALLSFFUN1(T0, UN, LN, T1)    PROTOCCALLSFFUN5 (T0,UN,LN,T1,CF_0,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFFUN10(T0, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA)    PROTOCCALLSFFUN14(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,CF_0,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFFUN11(T0, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB)    PROTOCCALLSFFUN14(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFFUN12(T0, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC)    PROTOCCALLSFFUN14(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,CF_0,CF_0)
#define	PROTOCCALLSFFUN13(T0, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD)    PROTOCCALLSFFUN14(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,CF_0)
#define	PROTOCCALLSFFUN14(T0, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE)
#define	PROTOCCALLSFFUN2(T0, UN, LN, T1, T2)    PROTOCCALLSFFUN5 (T0,UN,LN,T1,T2,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFFUN3(T0, UN, LN, T1, T2, T3)    PROTOCCALLSFFUN5 (T0,UN,LN,T1,T2,T3,CF_0,CF_0)
#define	PROTOCCALLSFFUN4(T0, UN, LN, T1, T2, T3, T4)    PROTOCCALLSFFUN5 (T0,UN,LN,T1,T2,T3,T4,CF_0)
#define	PROTOCCALLSFFUN5(T0, UN, LN, T1, T2, T3, T4, T5)    PROTOCCALLSFFUN10(T0,UN,LN,T1,T2,T3,T4,T5,CF_0,CF_0,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFFUN6(T0, UN, LN, T1, T2, T3, T4, T5, T6)    PROTOCCALLSFFUN10(T0,UN,LN,T1,T2,T3,T4,T5,T6,CF_0,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFFUN7(T0, UN, LN, T1, T2, T3, T4, T5, T6, T7)    PROTOCCALLSFFUN10(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFFUN8(T0, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8)    PROTOCCALLSFFUN10(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,CF_0,CF_0)
#define	PROTOCCALLSFFUN9(T0, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9)    PROTOCCALLSFFUN10(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,CF_0)
#define	PROTOCCALLSFSUB0(UN, LN)   _(VOID,_cfPU)(CFC_(UN,LN))();
#define	PROTOCCALLSFSUB1(UN, LN, T1)    PROTOCCALLSFSUB14(UN,LN,T1,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFSUB10(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA)    PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,CF_0,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFSUB11(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB)    PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFSUB12(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC)    PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,CF_0,CF_0)
#define	PROTOCCALLSFSUB13(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD)    PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,CF_0)
#define	PROTOCCALLSFSUB14(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE)    _(VOID,_cfPU)(CFC_(UN,LN))( CFARGT14(NCF,KCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) );
#define	PROTOCCALLSFSUB15(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF)    PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,CF_0,CF_0,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFSUB16(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG)    PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,CF_0,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFSUB17(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH)    PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFSUB18(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI)    PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,CF_0,CF_0)
#define	PROTOCCALLSFSUB19(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ)    PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,CF_0)
#define	PROTOCCALLSFSUB2(UN, LN, T1, T2)    PROTOCCALLSFSUB14(UN,LN,T1,T2,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFSUB20(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK)    _(VOID,_cfPU)(CFC_(UN,LN))( CFARGT20(NCF,KCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK) );
#define	PROTOCCALLSFSUB21(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL)    PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFSUB22(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM)    PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,CF_0,CF_0,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFSUB23(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN)    PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,CF_0,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFSUB24(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN, TO)    PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFSUB25(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN, TO, TP)    PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,CF_0,CF_0)
#define	PROTOCCALLSFSUB26(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN, TO, TP, TQ)    PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,CF_0)
#define	PROTOCCALLSFSUB27(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE, TF, TG, TH, TI, TJ, TK, TL, TM, TN, TO, TP, TQ, TR)    _(VOID,_cfPU)(CFC_(UN,LN))( CFARGT27(NCF,KCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) );
#define	PROTOCCALLSFSUB3(UN, LN, T1, T2, T3)    PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFSUB4(UN, LN, T1, T2, T3, T4)    PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFSUB5(UN, LN, T1, T2, T3, T4, T5)    PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFSUB6(UN, LN, T1, T2, T3, T4, T5, T6)    PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFSUB7(UN, LN, T1, T2, T3, T4, T5, T6, T7)    PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFSUB8(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8)    PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
#define	PROTOCCALLSFSUB9(UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9)    PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,CF_0,CF_0,CF_0,CF_0,CF_0)
#define	PSHORT_cfAAP(A, B)   &A
#define	PSHORT_cfCCC(A, B)   A
#define	PSHORT_cfINT(N, A, B, X, Y, Z)   PDOUBLE_cfINT(N,A,B,X,Y,Z)
#define	PSHORT_cfPP
#define	PSHORT_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	PSHORT_cfT(M, I, A, B, D)   A
#define	PSHORT_cfTYPE   short
#define	PSHORT_cfVP(A, B)   PINT_cfVP(A,B)
#define	PSTRING_cfA(M, I, A, B)   PSTRING_cfC(M,I,A,B,sizeof(A))
#define	PSTRING_cfAA(T, A, B)   PSTRING_cfCC(T,A,B)
#define	PSTRING_cfB(T, A)   (char *) A
#define	PSTRING_cfC(M, I, A, B, C)
#define	PSTRING_cfCC(T, A, B)   A
#define	PSTRING_cfH(S, U, B)   STRING_cfH(S,U,B)
#define	PSTRING_cfINT(N, A, B, X, Y, Z)   PVOID_cfINT(N,A,B,X,Y,Z)
#define	PSTRING_cfJ(B)   ,B
#define	PSTRING_cfKK(B)   STRING_cfKK(B)
#define	PSTRING_cfN(T, A)   STRING_cfN(T,A) /* CRAY insists on arg.'s here. */
#define	PSTRING_cfQ(B)   char *B=NULL;
#define	PSTRING_cfR(A, B, D)   RRRRPSTR( A,B,D)
#define	PSTRING_cfS(M, I, A)   ,sizeof(A)
#define	PSTRING_cfSEP(T, B)   INT_cfSEP(T,B)
#define	PSTRING_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,PSTRING,A,B,C,D,E)
#define	PSTRING_cfT(M, I, A, B, D)   TTSTR( A,B,D)
#define	PSTRING_cfU(T, A)   char *A
#define	PSTRING_cfV(T, A, B, F)   int B;
#define	PSTRING_cfW(A, B)   kill_trailing(A,' ');
#define	PSTRINGV_cfA(M, I, A, B)    APATRINGV_cfA((char *)A,B,sizeof(A),firstindexlength(A),secondindexlength(A))
#define	PSTRINGV_cfAA(T, A, B)   STRINGV_cfAA(T,A,B)
#define	PSTRINGV_cfB(T, A)   (char *) A
#define	PSTRINGV_cfC(M, I, A, B, C)    APATRINGV_cfA( A,B,(C/0xFFFF)*(C%0xFFFF),C/0xFFFF,C%0xFFFF)
#define	PSTRINGV_cfCC(T, A, B)   B.fs
#define	PSTRINGV_cfH(S, U, B)   STRING_cfH(S,U,B)
#define	PSTRINGV_cfINT(N, A, B, X, Y, Z)   PVOID_cfINT(N,A,B,X,Y,Z)
#define	PSTRINGV_cfJ(B)   STRING_cfJ(B)
#define	PSTRINGV_cfKK(B)   STRING_cfKK(B)
#define	PSTRINGV_cfN(T, A)   STRINGV_cfN(T,A)
#define	PSTRINGV_cfQ(B)   STRINGV_cfQ(B)
#define	PSTRINGV_cfR(A, B, D)   RRRRPSTRV(A,B,D)
#define	PSTRINGV_cfS(M, I, A)   STRINGV_cfS(M,I,A)
#define	PSTRINGV_cfSEP(T, B)   INT_cfSEP(T,B)
#define	PSTRINGV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,PSTRINGV,A,B,C,D,E)
#define	PSTRINGV_cfT(M, I, A, B, D)   STRINGV_cfT(M,I,A,B,D)
#define	PSTRINGV_cfU(T, A)   char *A
#define	PSTRINGV_cfV(T, A, B, F)   struct{char *fs; unsigned int sizeofA,flen;}B;
#define	PSTRINGV_cfW(A, B)
#define	PVOID_cfAA(T, A, B)   (void *) A
#define	PVOID_cfB(T, A)   (void *) A
#define	PVOID_cfCC(T, A, B)   A
#define	PVOID_cfINT(N, A, B, X, Y, Z)   _(CFARGS,N)(A,B,B,X,Y,Z,0)
#define	PVOID_cfN(T, A)   void * A
#define	PVOID_cfSEP(T, B)   INT_cfSEP(T,B)
#define	PVOID_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	PVOID_cfT(M, I, A, B, D)   A
#define	PVOID_cfU(T, A)   void *A
#define	PVOID_cfV( T, A, B, F)
#define	PZTRINGV_cfA(M, I, A, B)
#define	PZTRINGV_cfAA(T, A, B)   STRINGV_cfAA(T,A,B)
#define	PZTRINGV_cfB(T, A)   (char *) A
#define	PZTRINGV_cfC(M, I, A, B, C)
#define	PZTRINGV_cfCC(T, A, B)   PSTRINGV_cfCC(T,A,B)
#define	PZTRINGV_cfH(S, U, B)
#define	PZTRINGV_cfINT(N, A, B, X, Y, Z)   PVOID_cfINT(N,A,B,X,Y,Z)
#define	PZTRINGV_cfJ(B)   STRING_cfJ(B)
#define	PZTRINGV_cfKK(B)   STRING_cfKK(B)
#define	PZTRINGV_cfN(T, A)   PSTRINGV_cfN(T,A)
#define	PZTRINGV_cfS(M, I, A)
#define	PZTRINGV_cfSEP(T, B)   INT_cfSEP(T,B)
#define	PZTRINGV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,PZTRINGV,A,B,C,D,E)
#define	PZTRINGV_cfU(T, A)   char *A
#define	PZTRINGV_cfV(T, A, B, F)   PSTRINGV_cfV(T,A,B,F)
#define	PZTRINGV_cfW(A, B)   PSTRINGV_cfW(A,B)
#define	QCF(TN, I)   _(TN,_cfSTR)(1,Q,_(B,I), 0,0,0,0)
#define	RCF(TN, I)   _(TN,_cfSTR)(3,R,_(A,I),_(B,I),_(C,I),0,0)
#define	ROUTINE_1   ROUTINE_orig
#define	ROUTINE_10   ROUTINE_orig
#define	ROUTINE_11   ROUTINE_orig
#define	ROUTINE_12   ROUTINE_orig
#define	ROUTINE_13   ROUTINE_orig
#define	ROUTINE_14   ROUTINE_orig
#define	ROUTINE_15   ROUTINE_orig
#define	ROUTINE_16   ROUTINE_orig
#define	ROUTINE_17   ROUTINE_orig
#define	ROUTINE_18   ROUTINE_orig
#define	ROUTINE_19   ROUTINE_orig
#define	ROUTINE_2   ROUTINE_orig
#define	ROUTINE_20   ROUTINE_orig
#define	ROUTINE_21   ROUTINE_orig
#define	ROUTINE_22   ROUTINE_orig
#define	ROUTINE_23   ROUTINE_orig
#define	ROUTINE_24   ROUTINE_orig
#define	ROUTINE_25   ROUTINE_orig
#define	ROUTINE_26   ROUTINE_orig
#define	ROUTINE_27   ROUTINE_orig
#define	ROUTINE_3   ROUTINE_orig
#define	ROUTINE_4   ROUTINE_orig
#define	ROUTINE_5   ROUTINE_orig
#define	ROUTINE_6   ROUTINE_orig
#define	ROUTINE_7   ROUTINE_orig
#define	ROUTINE_8   ROUTINE_orig
#define	ROUTINE_9   ROUTINE_orig
#define	ROUTINE_cfAA(T, A, B)   (cfCAST_FUNCTION)A
#define	ROUTINE_cfB(T, A)   (cfCAST_FUNCTION)A
#define	ROUTINE_cfCC(T, A, B)   A
#define	ROUTINE_cfINT(N, A, B, X, Y, Z)   PVOID_cfINT(N,A,B,X,Y,Z)
#define	ROUTINE_cfN(T, A)   void ( *A)(CF_NULL_PROTO)
#define	ROUTINE_cfSEP(T, B)   INT_cfSEP(T,B)
#define	ROUTINE_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	ROUTINE_cfT(M, I, A, B, D)   _(ROUTINE_,I) A
#define	ROUTINE_cfU(T, A)   void (*A)(CF_NULL_PROTO)
#define	ROUTINE_cfV(T, A, B, F)
#define	ROUTINE_orig   (void *)
#define	RRRRPSTR(A, B, D)
#define	RRRRPSTRV(A, B, D)   c2fstrv(B,A,D+1,(D+1)*_(B,N)), _cf_free(B);
#define	SCF(TN, NAME, I, A)   _(TN,_cfSTR)(3,S,NAME,I,A,0,0)
#define	secondindexlength(A)   (sizeof(A[0])==1 ? sizeof(A) : sizeof(A[0]) )
#define	SHORT_cfCCC(A, B)   &A
#define	SHORT_cfE   short A0;
#define	SHORT_cfF(UN, LN)   SHORT_cfFZ(UN,LN)
#define	SHORT_cfFZ(UN, LN)   short FCALLSC_QUALIFIER fcallsc(UN,LN)(
#define	SHORT_cfI   return A0;
#define	SHORT_cfINT(N, A, B, X, Y, Z)   DOUBLE_cfINT(N,A,B,X,Y,Z)
#define	SHORT_cfPU(A)   CFextern short FCALLSC_QUALIFIER A
#define	SHORT_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	SHORT_cfT(M, I, A, B, D)   *A
#define	SHORT_cfVCF(A, B)
#define	SHORT_cfX   return A0;
#define	SHORTV_cfINT(N, A, B, X, Y, Z)   DOUBLEV_cfINT(N,A,B,X,Y,Z)
#define	SHORTV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	SHORTV_cfT(M, I, A, B, D)   A
#define	SHORTVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVV_cfINT(N,A,B,X,Y,Z)
#define	SHORTVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	SHORTVV_cfT(M, I, A, B, D)   (void *)A
#define	SHORTVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVV_cfINT(N,A,B,X,Y,Z)
#define	SHORTVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	SHORTVVV_cfT(M, I, A, B, D)   (void *)A
#define	SHORTVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVV_cfINT(N,A,B,X,Y,Z)
#define	SHORTVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	SHORTVVVV_cfT(M, I, A, B, D)   (void *)A
#define	SHORTVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z)
#define	SHORTVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	SHORTVVVVV_cfT(M, I, A, B, D)   (void *)A
#define	SHORTVVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z)
#define	SHORTVVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	SHORTVVVVVV_cfT(M, I, A, B, D)   (void *)A
#define	SHORTVVVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z)
#define	SHORTVVVVVVV_cfPP
#define	SHORTVVVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	SHORTVVVVVVV_cfT(M, I, A, B, D)   (void *)A
#define	SHORTVVVVVVV_cfTYPE   short
#define	SIMPLE_cfCC(T, A, B)   A
#define	SIMPLE_cfINT(N, A, B, X, Y, Z)   PVOID_cfINT(N,A,B,X,Y,Z)
#define	SIMPLE_cfSEP(T, B)   INT_cfSEP(T,B)
#define	SIMPLE_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	SIMPLE_cfV(T, A, B, F)
#define	STRING_cfA(M, I, A, B)   STRING_cfC(M,I,A,B,sizeof(A))
#define	STRING_cfAA(T, A, B)   STRING_cfCC(T,A,B)
#define	STRING_cfB(T, A)   (char *) A
#define	STRING_cfC(M, I, A, B, C)
#define	STRING_cfCC(T, A, B)   A
#define	STRING_cfE
#define	STRING_cfF(UN, LN)   STRING_cfFZ(UN,LN),
#define	STRING_cfFF   char *AS; unsigned D0;
#define	STRING_cfFZ(UN, LN)   void FCALLSC_QUALIFIER fcallsc(UN,LN)(char *AS, unsigned D0
#define	STRING_cfG(T, UN, LN)   STRING_cfGZ(T,UN,LN), /*, is only diff. from _cfG*/
#define	STRING_cfGZ(T, UN, LN)   CFC_(UN,LN)( A0,MAX_LEN_FORTRAN_FUNCTION_STRING
#define	STRING_cfH(S, U, B)   _(A,S) _(U,_CF_SPECIAL) B
#define	STRING_cfI   return ;
#define	STRING_cfINT(N, A, B, X, Y, Z)   PVOID_cfINT(N,A,B,X,Y,Z)
#define	STRING_cfJ(B)   ,B.flen
#define	STRING_cfK
#define	STRING_cfKK(B)   , unsigned B
#define	STRING_cfL   A0=
#define	STRING_cfN(T, A)   char * A
#define	STRING_cfPU(A)   CFextern void FCALLSC_QUALIFIER A
#define	STRING_cfQ(B)   char *B=NULL;
#define	STRING_cfR(A, B, D)   if (B) _cf_free(B);
#define	STRING_cfS(M, I, A)   ,sizeof(A)
#define	STRING_cfSEP(T, B)   INT_cfSEP(T,B)
#define	STRING_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,STRING,A,B,C,D,E)
#define	STRING_cfT(M, I, A, B, D)   TTTTSTR( A,B,D)
#define	STRING_cfU(T, A)   char *A /* via VOID and wrapper. */
#define	STRING_cfUU(T, A)   char *A
#define	STRING_cfV(T, A, B, F)   struct {unsigned int clen, flen; char *nombre;} B;
#define	STRING_cfW(A, B)   (B.nombre=A,B.nombre[B.clen]!='\0'?B.nombre[B.clen]='\0':0); /* A?="constnt"*/
#define	STRING_cfX
#define	STRINGV_cfA(M, I, A, B)    AATRINGV_cfA((char *)A,B,sizeof(A),firstindexlength(A),secondindexlength(A))
#define	STRINGV_cfAA(T, A, B)   B.fs
#define	STRINGV_cfB(T, A)   (char *) A
#define	STRINGV_cfC(M, I, A, B, C)    AATRINGV_cfA( A,B,(C/0xFFFF)*(C%0xFFFF),C/0xFFFF,C%0xFFFF)
#define	STRINGV_cfCC(T, A, B)   B.fs
#define	STRINGV_cfH(S, U, B)   STRING_cfH(S,U,B)
#define	STRINGV_cfINT(N, A, B, X, Y, Z)   PVOID_cfINT(N,A,B,X,Y,Z)
#define	STRINGV_cfJ(B)   STRING_cfJ(B)
#define	STRINGV_cfKK(B)   STRING_cfKK(B)
#define	STRINGV_cfN(T, A)   char * A
#define	STRINGV_cfQ(B)   char *B; unsigned int _(B,N);
#define	STRINGV_cfR(A, B, D)   _cf_free(B);
#define	STRINGV_cfS(M, I, A)
#define	STRINGV_cfSEP(T, B)   INT_cfSEP(T,B)
#define	STRINGV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,STRINGV,A,B,C,D,E)
#define	STRINGV_cfT(M, I, A, B, D)   TTTTSTRV(A,B,D, num_elem(A,D,_3(M,_STRV_A,I)))
#define	STRINGV_cfU(T, A)   char *A
#define	STRINGV_cfV(T, A, B, F)   struct {char *s, *fs; unsigned flen; char *nombre;} B;
#define	STRINGV_cfW(A, B)   _cf_free(B.s);
#define	TCF(NAME, TN, I, M)   _SEP_(TN,M,cfCOMMA) _(TN,_cfT)(NAME,I,_(A,I),_(B,I),_(C,I))
#define	TERM_CHARS(A, B)   A,B
#define	TTSTR( A, B, D)    ((B=_cf_malloc(D+1))[D]='\0', memcpy(B,A,D), kill_trailing(B,' '))
#define	TTTTSTR( A, B, D)
#define	TTTTSTRV(A, B, D, E)
#define	UCF(TN, I, C)   _SEP_(TN,C,cfCOMMA) _Icf(2,U,TN,_(A,I),0)
#define	USE_NEW_DELETE   0
#define	UUCF(TN, I, C)   _SEP_(TN,C,cfCOMMA) _SEP_(TN,1,I)
#define	UUUCF(TN, I, C)   _SEP_(TN,C,cfCOLON) _Icf(2,U,TN,_(A,I),0)
#define	VCF(TN, I)   _Icf4(4,V,TN,_(A,I),_(B,I),F)
#define	VCF_INT_F(T, A, B)   _(T,_cfVCF)(A,B)
#define	VCF_INT_S(T, A, B)   _(T,VVVVVVV_cfTYPE) B = A;
#define	VOID_cfE
#define	VOID_cfF(UN, LN)   VOID_cfFZ(UN,LN)
#define	VOID_cfFF
#define	VOID_cfFZ(UN, LN)   void FCALLSC_QUALIFIER fcallsc(UN,LN)(
#define	VOID_cfG(T, UN, LN)   VOID_cfGZ(T,UN,LN)
#define	VOID_cfGZ(T, UN, LN)   CFC_(UN,LN)(
#define	VOID_cfI   return ;
#define	VOID_cfINT(N, A, B, X, Y, Z)   PVOID_cfINT(N,A,B,X,Y,Z)
#define	VOID_cfK
#define	VOID_cfL
#define	VOID_cfPU(A)   CFextern void FCALLSC_QUALIFIER A
#define	VOID_cfSEP(T, B)   INT_cfSEP(T,B) /* For FORTRAN calls C subr.s.*/
#define	VOID_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
#define	VOID_cfU(T, A)   void A /* Needed for C calls FORTRAN sub.s. */
#define	VOID_cfUU(T, A)   /* Needed for FORTRAN calls C sub.s. */
#define	VOID_cfX   return ;
#define	VOIDP
#define	VVCF(TN, AI, BI)   _Icf4(4,V,TN,AI,BI,S)
#define	WCF(TN, AN, I)   _(TN,_cfSTR)(2,W,AN,_(B,I), 0,0,0)
#define	ZTRINGV_ARGF(I)   _2(A,I)
#define	ZTRINGV_ARGFP(I)   (*(_2(A,I))) /* Undocumented. For PINT, etc. */
#define	ZTRINGV_ARGS(I)   _2(B,I)
#define	ZTRINGV_cfA(M, I, A, B)
#define	ZTRINGV_cfAA(T, A, B)   STRINGV_cfAA(T,A,B)
#define	ZTRINGV_cfB(T, A)   (char *) A
#define	ZTRINGV_cfC(M, I, A, B, C)
#define	ZTRINGV_cfCC(T, A, B)   STRINGV_cfCC(T,A,B)
#define	ZTRINGV_cfH(S, U, B)
#define	ZTRINGV_cfINT(N, A, B, X, Y, Z)   PVOID_cfINT(N,A,B,X,Y,Z)
#define	ZTRINGV_cfJ(B)   STRING_cfJ(B)
#define	ZTRINGV_cfKK(B)   STRING_cfKK(B)
#define	ZTRINGV_cfN(T, A)   STRINGV_cfN(T,A)
#define	ZTRINGV_cfS(M, I, A)
#define	ZTRINGV_cfSEP(T, B)   INT_cfSEP(T,B)
#define	ZTRINGV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,ZTRINGV,A,B,C,D,E)
#define	ZTRINGV_cfU(T, A)   char *A
#define	ZTRINGV_cfV(T, A, B, F)   STRINGV_cfV(T,A,B,F)
#define	ZTRINGV_cfW(A, B)   STRINGV_cfW(A,B)
#define	ZTRINGV_NUM(I)   I

Typedefs
typedef void(*	cfCAST_FUNCTION) ()
typedef long long	LONGLONG

Functions
static void	__cfortran__notused_dummy ()
static char *	c2fstrv (char *cstr, char *fstr, int elem_len, int sizeofcstr)
static char *	f2cstrv (char *fstr, char *cstr, int elem_len, int sizeofcstr)
static char *	kill_trailing (char *s, char t)
static char *	kill_trailingn (char *s, char t, char *e)
static int	num_elem (char *strv, unsigned elem_len, int term_char, int num_term)
static char *	vkill_trailing (char *cstr, int elem_len, int sizeofcstr, char t)

Macro Definition Documentation

_

#define _	(		A,
			B
	)		AB

Definition at line 108 of file cfortran.h.

_2

#define _2	(		A,
			B
	)		AB

Definition at line 109 of file cfortran.h.

_3

#define _3	(		A,
			B,
			C
	)		ABC

Definition at line 110 of file cfortran.h.

__SEP_0

#define __SEP_0	(		TN,
			cfCOMMA
	)

Definition at line 1390 of file cfortran.h.

__SEP_1

#define __SEP_1	(		TN,
			cfCOMMA
	)		_Icf(2,SEP,TN,cfCOMMA,0)

Definition at line 1391 of file cfortran.h.

_cf_free

#define _cf_free

(

P

)

free(P)

Definition at line 399 of file cfortran.h.

_cf_malloc

#define _cf_malloc

(

N

)

(char *)malloc(N)

Definition at line 398 of file cfortran.h.

_cfleft

#define _cfleft   1

Definition at line 94 of file cfortran.h.

_cfleft_cfright

#define _cfleft_cfright   0

Definition at line 96 of file cfortran.h.

_cfMIN

#define _cfMIN	(		A,
			B
	)		(A<B?A:B)

Definition at line 421 of file cfortran.h.

_cfright

#define _cfright

Definition at line 95 of file cfortran.h.

_Icf

#define _Icf	(		N,
			T,
			I,
			X,
			Y
	)		_(I,_cfINT)(N,T,I,X,Y,0)

Definition at line 1447 of file cfortran.h.

_Icf4

#define _Icf4	(		N,
			T,
			I,
			X,
			Y,
			Z
	)		_(I,_cfINT)(N,T,I,X,Y,Z)

Definition at line 1448 of file cfortran.h.

_NUM_ELEM_ARG

#define _NUM_ELEM_ARG   -2

Definition at line 612 of file cfortran.h.

_NUM_ELEMS

#define _NUM_ELEMS   -1

Definition at line 611 of file cfortran.h.

_SEP_

#define _SEP_	(		TN,
			C,
			cfCOMMA
	)		_(__SEP_,C)(TN,cfCOMMA)

Definition at line 1389 of file cfortran.h.

_Z

#define _Z

Definition at line 979 of file cfortran.h.

AACF

#define AACF	(		TN,
			AI,
			I,
			C
	)		_SEP_(TN,C,cfCOMMA) _Icf(3,AA,TN,AI,_(B,I))

Definition at line 810 of file cfortran.h.

AATRINGV_cfA

#define AATRINGV_cfA	(		A,
			B,
			sA,
			filA,
			silA
	)		(B.s=_cf_malloc((sA)-(filA)),B.fs=c2fstrv(A,B.s,(B.flen=(silA)-1)+1,(sA)));

Definition at line 786 of file cfortran.h.

ABSOFT_cf1

#define ABSOFT_cf1

(

T0

)

Definition at line 971 of file cfortran.h.

ABSOFT_cf2

#define ABSOFT_cf2

(

T0

)

Definition at line 972 of file cfortran.h.

ABSOFT_cf3

#define ABSOFT_cf3

(

T0

)

Definition at line 973 of file cfortran.h.

ACF

#define ACF	(		NAME,
			TN,
			AI,
			I
	)		_(TN,_cfSTR)(4,A,NAME,I,AI,_(B,I),0)

Definition at line 773 of file cfortran.h.

AcfCOLON

#define AcfCOLON   ;

Definition at line 415 of file cfortran.h.

AcfCOMMA

#define AcfCOMMA   ,

Definition at line 414 of file cfortran.h.

ANSI_C_preprocessor

#define ANSI_C_preprocessor   _cfleft_cfright

Definition at line 97 of file cfortran.h.

APATRINGV_cfA

#define APATRINGV_cfA	(		A,
			B,
			sA,
			filA,
			silA
	)		B.fs=c2fstrv(A,A,(B.flen=(silA)-1)+1,B.sizeofA=(sA));

Definition at line 788 of file cfortran.h.

append_fcallsc

#define append_fcallsc	(		P,
			p,
			UN,
			LN
	)		CFC_(_(UN,P),_(LN,p))

Definition at line 289 of file cfortran.h.

BCF

#define BCF	(		TN,
			AN,
			C
	)		_SEP_(TN,C,cfCOMMA) _Icf(2,B,TN,AN,0)

Definition at line 1659 of file cfortran.h.

BYTE_cfCCC

#define BYTE_cfCCC	(		A,
			B
	)		&A

Definition at line 1827 of file cfortran.h.

BYTE_cfE

#define BYTE_cfE   INTEGER_BYTE A0;

Definition at line 1589 of file cfortran.h.

BYTE_cfF

#define BYTE_cfF	(		UN,
			LN
	)		BYTE_cfFZ(UN,LN)

Definition at line 2271 of file cfortran.h.

BYTE_cfFZ

#define BYTE_cfFZ	(		UN,
			LN
	)		INTEGER_BYTE FCALLSC_QUALIFIER fcallsc(UN,LN)(

Definition at line 2223 of file cfortran.h.

BYTE_cfI

#define BYTE_cfI   return A0;

Definition at line 2334 of file cfortran.h.

BYTE_cfINT

#define BYTE_cfINT	(		N,
			A,
			B,
			X,
			Y,
			Z
	)		DOUBLE_cfINT(N,A,B,X,Y,Z)

Definition at line 1449 of file cfortran.h.

BYTE_cfPU

#define BYTE_cfPU

(

A

)

CFextern INTEGER_BYTE FCALLSC_QUALIFIER A

Definition at line 1570 of file cfortran.h.

BYTE_cfSTR

#define BYTE_cfSTR	(		N,
			T,
			A,
			B,
			C,
			D,
			E
	)		_(CFARGS,N)(T,DEFAULT,A,B,C,D,E)

Definition at line 1710 of file cfortran.h.

BYTE_cfT

#define BYTE_cfT	(		M,
			I,
			A,
			B,
			D
	)		*A

Definition at line 2087 of file cfortran.h.

BYTE_cfVCF

#define BYTE_cfVCF	(		A,
			B
	)

Definition at line 716 of file cfortran.h.

BYTE_cfX

#define BYTE_cfX   return A0;

Definition at line 1885 of file cfortran.h.

BYTEV_cfINT

#define BYTEV_cfINT	(		N,
			A,
			B,
			X,
			Y,
			Z
	)		DOUBLEV_cfINT(N,A,B,X,Y,Z)

Definition at line 1465 of file cfortran.h.

BYTEV_cfSTR

#define BYTEV_cfSTR	(		N,
			T,
			A,
			B,
			C,
			D,
			E
	)		_(CFARGS,N)(T,DEFAULT,A,B,C,D,E)

Definition at line 1718 of file cfortran.h.

BYTEV_cfT

#define BYTEV_cfT	(		M,
			I,
			A,
			B,
			D
	)		A

Definition at line 2095 of file cfortran.h.

BYTEVV_cfINT

#define BYTEVV_cfINT	(		N,
			A,
			B,
			X,
			Y,
			Z
	)		DOUBLEVV_cfINT(N,A,B,X,Y,Z)

Definition at line 1466 of file cfortran.h.

BYTEVV_cfSTR

#define BYTEVV_cfSTR	(		N,
			T,
			A,
			B,
			C,
			D,
			E
	)		_(CFARGS,N)(T,DEFAULT,A,B,C,D,E)

Definition at line 1719 of file cfortran.h.

BYTEVV_cfT

#define BYTEVV_cfT	(		M,
			I,
			A,
			B,
			D
	)		(void *)A /* We have to cast to void *,*/

Definition at line 2103 of file cfortran.h.

BYTEVVV_cfINT

#define BYTEVVV_cfINT	(		N,
			A,
			B,
			X,
			Y,
			Z
	)		DOUBLEVVV_cfINT(N,A,B,X,Y,Z)

Definition at line 1467 of file cfortran.h.

BYTEVVV_cfSTR

#define BYTEVVV_cfSTR	(		N,
			T,
			A,
			B,
			C,
			D,
			E
	)		_(CFARGS,N)(T,DEFAULT,A,B,C,D,E)

Definition at line 1720 of file cfortran.h.

BYTEVVV_cfT

#define BYTEVVV_cfT	(		M,
			I,
			A,
			B,
			D
	)		(void *)A /* since we don't know the */

Definition at line 2104 of file cfortran.h.

BYTEVVVV_cfINT

#define BYTEVVVV_cfINT	(		N,
			A,
			B,
			X,
			Y,
			Z
	)		DOUBLEVVVV_cfINT(N,A,B,X,Y,Z)

Definition at line 1468 of file cfortran.h.

BYTEVVVV_cfSTR

#define BYTEVVVV_cfSTR	(		N,
			T,
			A,
			B,
			C,
			D,
			E
	)		_(CFARGS,N)(T,DEFAULT,A,B,C,D,E)

Definition at line 1721 of file cfortran.h.

BYTEVVVV_cfT

#define BYTEVVVV_cfT	(		M,
			I,
			A,
			B,
			D
	)		(void *)A /* dimensions of the array. */

Definition at line 2105 of file cfortran.h.

BYTEVVVVV_cfINT

#define BYTEVVVVV_cfINT	(		N,
			A,
			B,
			X,
			Y,
			Z
	)		DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z)

Definition at line 1469 of file cfortran.h.

BYTEVVVVV_cfSTR

#define BYTEVVVVV_cfSTR	(		N,
			T,
			A,
			B,
			C,
			D,
			E
	)		_(CFARGS,N)(T,DEFAULT,A,B,C,D,E)

Definition at line 1722 of file cfortran.h.

BYTEVVVVV_cfT

#define BYTEVVVVV_cfT	(		M,
			I,
			A,
			B,
			D
	)		(void *)A /* i.e. Unfortunately, can't */

Definition at line 2106 of file cfortran.h.

BYTEVVVVVV_cfINT

#define BYTEVVVVVV_cfINT	(		N,
			A,
			B,
			X,
			Y,
			Z
	)		DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z)

Definition at line 1470 of file cfortran.h.

BYTEVVVVVV_cfSTR

#define BYTEVVVVVV_cfSTR	(		N,
			T,
			A,
			B,
			C,
			D,
			E
	)		_(CFARGS,N)(T,DEFAULT,A,B,C,D,E)

Definition at line 1723 of file cfortran.h.

BYTEVVVVVV_cfT

#define BYTEVVVVVV_cfT	(		M,
			I,
			A,
			B,
			D
	)		(void *)A /* check that the type */

Definition at line 2107 of file cfortran.h.

BYTEVVVVVVV_cfINT

#define BYTEVVVVVVV_cfINT	(		N,
			A,
			B,
			X,
			Y,
			Z
	)		DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z)

Definition at line 1471 of file cfortran.h.

BYTEVVVVVVV_cfPP

#define BYTEVVVVVVV_cfPP

Definition at line 1645 of file cfortran.h.

BYTEVVVVVVV_cfSTR

#define BYTEVVVVVVV_cfSTR	(		N,
			T,
			A,
			B,
			C,
			D,
			E
	)		_(CFARGS,N)(T,DEFAULT,A,B,C,D,E)

Definition at line 1724 of file cfortran.h.

BYTEVVVVVVV_cfT

#define BYTEVVVVVVV_cfT	(		M,
			I,
			A,
			B,
			D
	)		(void *)A /* matches the prototype. */

Definition at line 2108 of file cfortran.h.

BYTEVVVVVVV_cfTYPE

#define BYTEVVVVVVV_cfTYPE   INTEGER_BYTE

Definition at line 1423 of file cfortran.h.

C2FCBSTR

#define C2FCBSTR	(		CSTR,
			FSTR,
			DIM
	)

Value:

 c2fstrv((char *)CSTR, (char *)FSTR, sizeof(FSTR)/cfelementsof(FSTR,DIM)+1,    \
         sizeof(FSTR)+cfelementsof(FSTR,DIM))

Definition at line 659 of file cfortran.h.

C2FLOGICAL

#define C2FLOGICAL

(

L

)

(L)

Definition at line 469 of file cfortran.h.

C2FLOGICALV [1/2]

#define C2FLOGICALV	(		A,
			I
	)		do {int __i; for(__i=0;__i<I;__i++) A[__i]=C2FLOGICAL(A[__i]); } while (0)

Definition at line 447 of file cfortran.h.

C2FLOGICALV [2/2]

#define C2FLOGICALV	(		A,
			I
	)

Definition at line 447 of file cfortran.h.

C_FUNCTION

#define C_FUNCTION	(		UN,
			LN
	)		fcallsc(UN,LN)

Definition at line 291 of file cfortran.h.

CCALLSFFUN0

#define CCALLSFFUN0	(		UN,
			LN
	)		CFFUN(UN)()

Definition at line 1908 of file cfortran.h.

CCALLSFFUN1

#define CCALLSFFUN1	(		UN,
			LN,
			T1,
			A1
	)		CCALLSFFUN5 (UN,LN,T1,CF_0,CF_0,CF_0,CF_0,A1,0,0,0,0)

Definition at line 1914 of file cfortran.h.

CCALLSFFUN10

#define CCALLSFFUN10	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA
	)		CCALLSFFUN14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,0,0,0,0)

Definition at line 1932 of file cfortran.h.

CCALLSFFUN11

#define CCALLSFFUN11	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			TB,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA,
			AB
	)		CCALLSFFUN14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,0,0,0)

Definition at line 1934 of file cfortran.h.

CCALLSFFUN12

#define CCALLSFFUN12	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			TB,
			TC,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA,
			AB,
			AC
	)		CCALLSFFUN14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,0,0)

Definition at line 1936 of file cfortran.h.

CCALLSFFUN13

#define CCALLSFFUN13	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			TB,
			TC,
			TD,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA,
			AB,
			AC,
			AD
	)		CCALLSFFUN14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,0)

Definition at line 1938 of file cfortran.h.

CCALLSFFUN14

#define CCALLSFFUN14	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			TB,
			TC,
			TD,
			TE,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA,
			AB,
			AC,
			AD,
			AE
	)

Value:

((CFFUN(UN)(  BCF(T1,A1,0) BCF(T2,A2,1) BCF(T3,A3,1) BCF(T4,A4,1) BCF(T5,A5,1) \
              BCF(T6,A6,1) BCF(T7,A7,1) BCF(T8,A8,1) BCF(T9,A9,1) BCF(TA,AA,1) \
              BCF(TB,AB,1) BCF(TC,AC,1) BCF(TD,AD,1) BCF(TE,AE,1)              \
           SCF(T1,LN,1,A1)  SCF(T2,LN,2,A2)  SCF(T3,LN,3,A3)  SCF(T4,LN,4,A4)  \
           SCF(T5,LN,5,A5)  SCF(T6,LN,6,A6)  SCF(T7,LN,7,A7)  SCF(T8,LN,8,A8)  \
           SCF(T9,LN,9,A9)  SCF(TA,LN,10,AA) SCF(TB,LN,11,AB) SCF(TC,LN,12,AC) \
           SCF(TD,LN,13,AD) SCF(TE,LN,14,AE))))

Definition at line 1941 of file cfortran.h.

CCALLSFFUN2

#define CCALLSFFUN2	(		UN,
			LN,
			T1,
			T2,
			A1,
			A2
	)		CCALLSFFUN5 (UN,LN,T1,T2,CF_0,CF_0,CF_0,A1,A2,0,0,0)

Definition at line 1916 of file cfortran.h.

CCALLSFFUN3

#define CCALLSFFUN3	(		UN,
			LN,
			T1,
			T2,
			T3,
			A1,
			A2,
			A3
	)		CCALLSFFUN5 (UN,LN,T1,T2,T3,CF_0,CF_0,A1,A2,A3,0,0)

Definition at line 1918 of file cfortran.h.

CCALLSFFUN4

#define CCALLSFFUN4	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			A1,
			A2,
			A3,
			A4
	)		CCALLSFFUN5 (UN,LN,T1,T2,T3,T4,CF_0,A1,A2,A3,A4,0)

Definition at line 1920 of file cfortran.h.

CCALLSFFUN5

#define CCALLSFFUN5	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			A1,
			A2,
			A3,
			A4,
			A5
	)		CCALLSFFUN10(UN,LN,T1,T2,T3,T4,T5,CF_0,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,0,0,0,0,0)

Definition at line 1922 of file cfortran.h.

CCALLSFFUN6

#define CCALLSFFUN6	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6
	)		CCALLSFFUN10(UN,LN,T1,T2,T3,T4,T5,T6,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,0,0,0,0)

Definition at line 1924 of file cfortran.h.

CCALLSFFUN7

#define CCALLSFFUN7	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7
	)		CCALLSFFUN10(UN,LN,T1,T2,T3,T4,T5,T6,T7,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,0,0,0)

Definition at line 1926 of file cfortran.h.

CCALLSFFUN8

#define CCALLSFFUN8	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8
	)		CCALLSFFUN10(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,0,0)

Definition at line 1928 of file cfortran.h.

CCALLSFFUN9

#define CCALLSFFUN9	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9
	)		CCALLSFFUN10(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,0)

Definition at line 1930 of file cfortran.h.

CCALLSFSUB0

#define CCALLSFSUB0	(		UN,
			LN
	)		do{CPPPROTOCLSFSUB0(UN,LN) CFC_(UN,LN)();}while(0)

Definition at line 1263 of file cfortran.h.

CCALLSFSUB1

#define CCALLSFSUB1	(		UN,
			LN,
			T1,
			A1
	)		CCALLSFSUB5 (UN,LN,T1,CF_0,CF_0,CF_0,CF_0,A1,0,0,0,0)

Definition at line 1214 of file cfortran.h.

CCALLSFSUB10

#define CCALLSFSUB10	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA
	)		CCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,0,0,0,0)

Definition at line 1232 of file cfortran.h.

CCALLSFSUB11

#define CCALLSFSUB11	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			TB,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA,
			AB
	)		CCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,0,0,0)

Definition at line 1234 of file cfortran.h.

CCALLSFSUB12

#define CCALLSFSUB12	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			TB,
			TC,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA,
			AB,
			AC
	)		CCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,0,0)

Definition at line 1236 of file cfortran.h.

CCALLSFSUB13

#define CCALLSFSUB13	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			TB,
			TC,
			TD,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA,
			AB,
			AC,
			AD
	)		CCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,0)

Definition at line 1238 of file cfortran.h.

CCALLSFSUB14

#define CCALLSFSUB14	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			TB,
			TC,
			TD,
			TE,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA,
			AB,
			AC,
			AD,
			AE
	)

Value:

do{VVCF(T1,A1,B1) VVCF(T2,A2,B2) VVCF(T3,A3,B3) VVCF(T4,A4,B4) VVCF(T5,A5,B5)  \
   VVCF(T6,A6,B6) VVCF(T7,A7,B7) VVCF(T8,A8,B8) VVCF(T9,A9,B9) VVCF(TA,AA,B10) \
   VVCF(TB,AB,B11) VVCF(TC,AC,B12) VVCF(TD,AD,B13) VVCF(TE,AE,B14)             \
   CPPPROTOCLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)          \
   ACF(LN,T1,A1,1)  ACF(LN,T2,A2,2)  ACF(LN,T3,A3,3)                           \
   ACF(LN,T4,A4,4)  ACF(LN,T5,A5,5)  ACF(LN,T6,A6,6)  ACF(LN,T7,A7,7)          \
   ACF(LN,T8,A8,8)  ACF(LN,T9,A9,9)  ACF(LN,TA,AA,10) ACF(LN,TB,AB,11)         \
   ACF(LN,TC,AC,12) ACF(LN,TD,AD,13) ACF(LN,TE,AE,14)                          \
   CFC_(UN,LN)( CFARGTA14(AACF,JCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE) );\
   WCF(T1,A1,1)  WCF(T2,A2,2)  WCF(T3,A3,3)  WCF(T4,A4,4)  WCF(T5,A5,5)        \
   WCF(T6,A6,6)  WCF(T7,A7,7)  WCF(T8,A8,8)  WCF(T9,A9,9)  WCF(TA,AA,10)       \
   WCF(TB,AB,11) WCF(TC,AC,12) WCF(TD,AD,13) WCF(TE,AE,14)      }while(0)

Definition at line 1264 of file cfortran.h.

CCALLSFSUB15

#define CCALLSFSUB15	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			TB,
			TC,
			TD,
			TE,
			TF,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA,
			AB,
			AC,
			AD,
			AE,
			AF
	)		CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,CF_0,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,0,0,0,0,0)

Definition at line 1281 of file cfortran.h.

CCALLSFSUB16

#define CCALLSFSUB16	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			TB,
			TC,
			TD,
			TE,
			TF,
			TG,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA,
			AB,
			AC,
			AD,
			AE,
			AF,
			AG
	)		CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,0,0,0,0)

Definition at line 1283 of file cfortran.h.

CCALLSFSUB17

#define CCALLSFSUB17	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			TB,
			TC,
			TD,
			TE,
			TF,
			TG,
			TH,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA,
			AB,
			AC,
			AD,
			AE,
			AF,
			AG,
			AH
	)		CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,0,0,0)

Definition at line 1285 of file cfortran.h.

CCALLSFSUB18

#define CCALLSFSUB18	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			TB,
			TC,
			TD,
			TE,
			TF,
			TG,
			TH,
			TI,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA,
			AB,
			AC,
			AD,
			AE,
			AF,
			AG,
			AH,
			AI
	)		CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,0,0)

Definition at line 1287 of file cfortran.h.

CCALLSFSUB19

#define CCALLSFSUB19	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			TB,
			TC,
			TD,
			TE,
			TF,
			TG,
			TH,
			TI,
			TJ,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA,
			AB,
			AC,
			AD,
			AE,
			AF,
			AG,
			AH,
			AI,
			AJ
	)		CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,0)

Definition at line 1289 of file cfortran.h.

CCALLSFSUB2

#define CCALLSFSUB2	(		UN,
			LN,
			T1,
			T2,
			A1,
			A2
	)		CCALLSFSUB5 (UN,LN,T1,T2,CF_0,CF_0,CF_0,A1,A2,0,0,0)

Definition at line 1216 of file cfortran.h.

CCALLSFSUB20

#define CCALLSFSUB20	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			TB,
			TC,
			TD,
			TE,
			TF,
			TG,
			TH,
			TI,
			TJ,
			TK,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA,
			AB,
			AC,
			AD,
			AE,
			AF,
			AG,
			AH,
			AI,
			AJ,
			AK
	)

Value:

do{VVCF(T1,A1,B1)  VVCF(T2,A2,B2)  VVCF(T3,A3,B3)  VVCF(T4,A4,B4)  VVCF(T5,A5,B5)   \
   VVCF(T6,A6,B6)  VVCF(T7,A7,B7)  VVCF(T8,A8,B8)  VVCF(T9,A9,B9)  VVCF(TA,AA,B10)  \
   VVCF(TB,AB,B11) VVCF(TC,AC,B12) VVCF(TD,AD,B13) VVCF(TE,AE,B14) VVCF(TF,AF,B15)  \
   VVCF(TG,AG,B16) VVCF(TH,AH,B17) VVCF(TI,AI,B18) VVCF(TJ,AJ,B19) VVCF(TK,AK,B20)  \
   CPPPROTOCLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK)  \
   ACF(LN,T1,A1,1)  ACF(LN,T2,A2,2)  ACF(LN,T3,A3,3)  ACF(LN,T4,A4,4)          \
   ACF(LN,T5,A5,5)  ACF(LN,T6,A6,6)  ACF(LN,T7,A7,7)  ACF(LN,T8,A8,8)          \
   ACF(LN,T9,A9,9)  ACF(LN,TA,AA,10) ACF(LN,TB,AB,11) ACF(LN,TC,AC,12)         \
   ACF(LN,TD,AD,13) ACF(LN,TE,AE,14) ACF(LN,TF,AF,15) ACF(LN,TG,AG,16)         \
   ACF(LN,TH,AH,17) ACF(LN,TI,AI,18) ACF(LN,TJ,AJ,19) ACF(LN,TK,AK,20)         \
   CFC_(UN,LN)( CFARGTA20(AACF,JCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK) ); \
 WCF(T1,A1,1)  WCF(T2,A2,2)  WCF(T3,A3,3)  WCF(T4,A4,4)  WCF(T5,A5,5)  WCF(T6,A6,6)  \
 WCF(T7,A7,7)  WCF(T8,A8,8)  WCF(T9,A9,9)  WCF(TA,AA,10) WCF(TB,AB,11) WCF(TC,AC,12) \
 WCF(TD,AD,13) WCF(TE,AE,14) WCF(TF,AF,15) WCF(TG,AG,16) WCF(TH,AH,17) WCF(TI,AI,18) \
 WCF(TJ,AJ,19) WCF(TK,AK,20) }while(0)

Definition at line 1298 of file cfortran.h.

CCALLSFSUB21

#define CCALLSFSUB21	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			TB,
			TC,
			TD,
			TE,
			TF,
			TG,
			TH,
			TI,
			TJ,
			TK,
			TL,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA,
			AB,
			AC,
			AD,
			AE,
			AF,
			AG,
			AH,
			AI,
			AJ,
			AK,
			AL
	)		CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,0,0,0,0,0,0)

Definition at line 1319 of file cfortran.h.

CCALLSFSUB22

#define CCALLSFSUB22	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			TB,
			TC,
			TD,
			TE,
			TF,
			TG,
			TH,
			TI,
			TJ,
			TK,
			TL,
			TM,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA,
			AB,
			AC,
			AD,
			AE,
			AF,
			AG,
			AH,
			AI,
			AJ,
			AK,
			AL,
			AM
	)		CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,CF_0,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,0,0,0,0,0)

Definition at line 1321 of file cfortran.h.

CCALLSFSUB23

#define CCALLSFSUB23	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			TB,
			TC,
			TD,
			TE,
			TF,
			TG,
			TH,
			TI,
			TJ,
			TK,
			TL,
			TM,
			TN,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA,
			AB,
			AC,
			AD,
			AE,
			AF,
			AG,
			AH,
			AI,
			AJ,
			AK,
			AL,
			AM,
			AN
	)		CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,0,0,0,0)

Definition at line 1323 of file cfortran.h.

CCALLSFSUB24

#define CCALLSFSUB24	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			TB,
			TC,
			TD,
			TE,
			TF,
			TG,
			TH,
			TI,
			TJ,
			TK,
			TL,
			TM,
			TN,
			TO,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA,
			AB,
			AC,
			AD,
			AE,
			AF,
			AG,
			AH,
			AI,
			AJ,
			AK,
			AL,
			AM,
			AN,
			AO
	)		CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,0,0,0)

Definition at line 1325 of file cfortran.h.

CCALLSFSUB25

#define CCALLSFSUB25	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			TB,
			TC,
			TD,
			TE,
			TF,
			TG,
			TH,
			TI,
			TJ,
			TK,
			TL,
			TM,
			TN,
			TO,
			TP,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA,
			AB,
			AC,
			AD,
			AE,
			AF,
			AG,
			AH,
			AI,
			AJ,
			AK,
			AL,
			AM,
			AN,
			AO,
			AP
	)		CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,0,0)

Definition at line 1327 of file cfortran.h.

CCALLSFSUB26

#define CCALLSFSUB26	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			TB,
			TC,
			TD,
			TE,
			TF,
			TG,
			TH,
			TI,
			TJ,
			TK,
			TL,
			TM,
			TN,
			TO,
			TP,
			TQ,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA,
			AB,
			AC,
			AD,
			AE,
			AF,
			AG,
			AH,
			AI,
			AJ,
			AK,
			AL,
			AM,
			AN,
			AO,
			AP,
			AQ
	)		CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,AQ,0)

Definition at line 1329 of file cfortran.h.

CCALLSFSUB27

#define CCALLSFSUB27	(		UN,
			LN,
			T1,
			T2,
			T3,
			T4,
			T5,
			T6,
			T7,
			T8,
			T9,
			TA,
			TB,
			TC,
			TD,
			TE,
			TF,
			TG,
			TH,
			TI,
			TJ,
			TK,
			TL,
			TM,
			TN,
			TO,
			TP,
			TQ,
			TR,
			A1,
			A2,
			A3,
			A4,
			A5,
			A6,
			A7,
			A8,
			A9,
			AA,
			AB,
			AC,
			AD,
			AE,
			AF,
			AG,
			AH,
			AI,
			AJ,
			AK,
			AL,
			AM,
			AN,
			AO,
			AP,
			AQ,
			AR
	)

Value:

do{VVCF(T1,A1,B1)  VVCF(T2,A2,B2)  VVCF(T3,A3,B3)  VVCF(T4,A4,B4)  VVCF(T5,A5,B5)   \
   VVCF(T6,A6,B6)  VVCF(T7,A7,B7)  VVCF(T8,A8,B8)  VVCF(T9,A9,B9)  VVCF(TA,AA,B10)  \
   VVCF(TB,AB,B11) VVCF(TC,AC,B12) VVCF(TD,AD,B13) VVCF(TE,AE,B14) VVCF(TF,AF,B15)  \
   VVCF(TG,AG,B16) VVCF(TH,AH,B17) VVCF(TI,AI,B18) VVCF(TJ,AJ,B19) VVCF(TK,AK,B20)  \
   VVCF(TL,AL,B21) VVCF(TM,AM,B22) VVCF(TN,AN,B23) VVCF(TO,AO,B24) VVCF(TP,AP,B25)  \
   VVCF(TQ,AQ,B26) VVCF(TR,AR,B27)                                                  \
   CPPPROTOCLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) \
   ACF(LN,T1,A1,1)  ACF(LN,T2,A2,2)  ACF(LN,T3,A3,3)  ACF(LN,T4,A4,4)          \
   ACF(LN,T5,A5,5)  ACF(LN,T6,A6,6)  ACF(LN,T7,A7,7)  ACF(LN,T8,A8,8)          \
   ACF(LN,T9,A9,9)  ACF(LN,TA,AA,10) ACF(LN,TB,AB,11) ACF(LN,TC,AC,12)         \
   ACF(LN,TD,AD,13) ACF(LN,TE,AE,14) ACF(LN,TF,AF,15) ACF(LN,TG,AG,16)         \
   ACF(LN,TH,AH,17) ACF(LN,TI,AI,18) ACF(LN,TJ,AJ,19) ACF(LN,TK,AK,20)         \
   ACF(LN,TL,AL,21) ACF(LN,TM,AM,22) ACF(LN,TN,AN,23) ACF(LN,TO,AO,24)         \
   ACF(LN,TP,AP,25) ACF(LN,TQ,AQ,26) ACF(LN,TR,AR,27)                          \
   CFC_(UN,LN)(