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

Macros
#define	_cfleft 1

#define	_cfright

#define	_cfleft_cfright 0

#define	ANSI_C_preprocessor _cfleft_cfright

#define	_(A, B) AB

#define	_2(A, B) AB

#define	_3(A, B, C) ABC

#define	CF_SAME_NAMESPACE

#define	CFC_(UN, LN) LN /* Lowercase FORTRAN symbols. */

#define	orig_fcallsc(UN, LN) CFC_(UN,LN)

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

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

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

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

#define	FORTRAN_FUNCTION(UN, LN) CFC_(UN,LN)

#define	COMMON_BLOCK(UN, LN) CFC_(UN,LN)

#define	DOUBLE_PRECISION double

#define	FORTRAN_REAL float

#define	FLOATVVVVVVV_cfPP

#define	VOIDP

#define	COMMON_BLOCK_DEF(DEFINITION, NAME) extern DEFINITION NAME

#define	CF_NULL_PROTO

#define	USE_NEW_DELETE 0

#define	_cf_malloc(N) (char *)malloc(N)

#define	_cf_free(P) free(P)

#define	CF_DECLARE_GETARG

#define	CF_SET_GETARG(ARGC, ARGV)

#define	AcfCOMMA ,

#define	AcfCOLON ;

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

#define	firstindexlength(A) (sizeof(A[0])==1 ? 1 : (sizeof(A) / sizeof(A[0])) )

#define	secondindexlength(A) (sizeof(A[0])==1 ? sizeof(A) : sizeof(A[0]) )

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

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

#define	C2FLOGICAL(L) (L)

#define	F2CLOGICAL(L) (L)

#define	C2FLOGICALV(A, I)

#define	F2CLOGICALV(A, I)

#define	_NUM_ELEMS -1

#define	_NUM_ELEM_ARG -2

#define	NUM_ELEMS(A) A,_NUM_ELEMS

#define	NUM_ELEM_ARG(B) *_2(A,B),_NUM_ELEM_ARG

#define	TERM_CHARS(A, B) A,B

#define	C2FCBSTR(CSTR, FSTR, DIM)

#define	FCB2CSTR(FSTR, CSTR, DIM)

#define	cfDEREFERENCE0

#define	cfDEREFERENCE1 *

#define	cfDEREFERENCE2 **

#define	cfDEREFERENCE3 ***

#define	cfDEREFERENCE4 ****

#define	cfDEREFERENCE5 *****

#define	cfelementsof(A, D) (sizeof(A)/sizeof(_(cfDEREFERENCE,D)(A)))

#define	ZTRINGV_NUM(I) I

#define	ZTRINGV_ARGFP(I) ((_2(A,I))) / Undocumented. For PINT, etc. */

#define	ZTRINGV_ARGF(I) _2(A,I)

#define	ZTRINGV_ARGS(I) _2(B,I)

#define	PBYTE_cfVP(A, B) PINT_cfVP(A,B)

#define	PDOUBLE_cfVP(A, B)

#define	PFLOAT_cfVP(A, B)

#define	PINT_cfVP(A, B)

#define	PLOGICAL_cfVP(A, B) int B; / Returning LOGICAL in FUNn and SUBn */

#define	PLONG_cfVP(A, B) PINT_cfVP(A,B)

#define	PSHORT_cfVP(A, B) PINT_cfVP(A,B)

#define	VCF_INT_S(T, A, B) _(T,VVVVVVV_cfTYPE) B = A;

#define	VCF_INT_F(T, A, B) _(T,_cfVCF)(A,B)

#define	BYTE_cfVCF(A, B)

#define	DOUBLE_cfVCF(A, B)

#define	FLOAT_cfVCF(A, B)

#define	INT_cfVCF(A, B)

#define	LOGICAL_cfVCF(A, B)

#define	LONG_cfVCF(A, B)

#define	SHORT_cfVCF(A, B)

#define	VCF(TN, I) _Icf4(4,V,TN,_(A,I),_(B,I),F)

#define	VVCF(TN, AI, BI) _Icf4(4,V,TN,AI,BI,S)

#define	INT_cfV(T, A, B, F) _(VCF_INT_,F)(T,A,B)

#define	INTV_cfV(T, A, B, F)

#define	INTVV_cfV(T, A, B, F)

#define	INTVVV_cfV(T, A, B, F)

#define	INTVVVV_cfV(T, A, B, F)

#define	INTVVVVV_cfV(T, A, B, F)

#define	INTVVVVVV_cfV(T, A, B, F)

#define	INTVVVVVVV_cfV(T, A, B, F)

#define	PINT_cfV( T, A, B, F) _(T,_cfVP)(A,B)

#define	PVOID_cfV( T, A, B, F)

#define	ROUTINE_cfV(T, A, B, F)

#define	SIMPLE_cfV(T, A, B, F)

#define	STRING_cfV(T, A, B, F) struct {unsigned int clen, flen;} B;

#define	STRINGV_cfV(T, A, B, F) struct {char s, fs; unsigned flen;} B;

#define	PSTRING_cfV(T, A, B, F) int B;

#define	PSTRINGV_cfV(T, A, B, F) struct{char *fs; unsigned int sizeofA,flen;}B;

#define	ZTRINGV_cfV(T, A, B, F) STRINGV_cfV(T,A,B,F)

#define	PZTRINGV_cfV(T, A, B, F) PSTRINGV_cfV(T,A,B,F)

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

#define	DEFAULT_cfA(M, I, A, B)

#define	LOGICAL_cfA(M, I, A, B) B=C2FLOGICAL(B);

#define	PLOGICAL_cfA(M, I, A, B) A=C2FLOGICAL(A);

#define	STRING_cfA(M, I, A, B) STRING_cfC(M,I,A,B,sizeof(A))

#define	PSTRING_cfA(M, I, A, B) PSTRING_cfC(M,I,A,B,sizeof(A))

#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	APATRINGV_cfA( A, B, sA, filA, silA) B.fs=c2fstrv(A,A,(B.flen=(silA)-1)+1,B.sizeofA=(sA));

#define	STRINGV_cfA(M, I, A, B) AATRINGV_cfA((char *)A,B,sizeof(A),firstindexlength(A),secondindexlength(A))

#define	PSTRINGV_cfA(M, I, A, B) APATRINGV_cfA((char *)A,B,sizeof(A),firstindexlength(A),secondindexlength(A))

#define	ZTRINGV_cfA(M, I, A, B)

#define	PZTRINGV_cfA(M, I, A, B)

#define	PBYTE_cfAAP(A, B) &A

#define	PDOUBLE_cfAAP(A, B) &A

#define	PFLOAT_cfAAP(A, B) FLOATVVVVVVV_cfPP &A

#define	PINT_cfAAP(A, B) &A

#define	PLOGICAL_cfAAP(A, B) B= &A /* B used to keep a common W table. */

#define	PLONG_cfAAP(A, B) &A

#define	PSHORT_cfAAP(A, B) &A

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

#define	INT_cfAA(T, A, B) &B

#define	INTV_cfAA(T, A, B) _(T,VVVVVV_cfPP) A

#define	INTVV_cfAA(T, A, B) _(T,VVVVV_cfPP) A[0]

#define	INTVVV_cfAA(T, A, B) _(T,VVVV_cfPP) A[0][0]

#define	INTVVVV_cfAA(T, A, B) _(T,VVV_cfPP) A[0][0][0]

#define	INTVVVVV_cfAA(T, A, B) _(T,VV_cfPP) A[0][0][0][0]

#define	INTVVVVVV_cfAA(T, A, B) _(T,V_cfPP) A[0][0][0][0][0]

#define	INTVVVVVVV_cfAA(T, A, B) _(T,_cfPP) A[0][0][0][0][0][0]

#define	PINT_cfAA(T, A, B) _(T,_cfAAP)(A,B)

#define	PVOID_cfAA(T, A, B) (void *) A

#define	ROUTINE_cfAA(T, A, B) (cfCAST_FUNCTION)A

#define	STRING_cfAA(T, A, B) STRING_cfCC(T,A,B)

#define	PSTRING_cfAA(T, A, B) PSTRING_cfCC(T,A,B)

#define	STRINGV_cfAA(T, A, B) B.fs

#define	PSTRINGV_cfAA(T, A, B) STRINGV_cfAA(T,A,B)

#define	ZTRINGV_cfAA(T, A, B) STRINGV_cfAA(T,A,B)

#define	PZTRINGV_cfAA(T, A, B) STRINGV_cfAA(T,A,B)

#define	JCF(TN, I) _(TN,_cfSTR)(1,J,_(B,I), 0,0,0,0)

#define	DEFAULT_cfJ(B)

#define	LOGICAL_cfJ(B) DEFAULT_cfJ(B)

#define	PLOGICAL_cfJ(B) DEFAULT_cfJ(B)

#define	STRING_cfJ(B) ,B.flen

#define	PSTRING_cfJ(B) ,B

#define	STRINGV_cfJ(B) STRING_cfJ(B)

#define	PSTRINGV_cfJ(B) STRING_cfJ(B)

#define	ZTRINGV_cfJ(B) STRING_cfJ(B)

#define	PZTRINGV_cfJ(B) STRING_cfJ(B)

#define	KCF(TN, I) _(TN,_cfSTR)(1,KK,_(B,I), 0,0,0,0)

#define	DEFAULT_cfKK(B)

#define	LOGICAL_cfKK(B) DEFAULT_cfKK(B)

#define	PLOGICAL_cfKK(B) DEFAULT_cfKK(B)

#define	STRING_cfKK(B) , unsigned B

#define	PSTRING_cfKK(B) STRING_cfKK(B)

#define	STRINGV_cfKK(B) STRING_cfKK(B)

#define	PSTRINGV_cfKK(B) STRING_cfKK(B)

#define	ZTRINGV_cfKK(B) STRING_cfKK(B)

#define	PZTRINGV_cfKK(B) STRING_cfKK(B)

#define	WCF(TN, AN, I) _(TN,_cfSTR)(2,W,AN,_(B,I), 0,0,0)

#define	DEFAULT_cfW(A, B)

#define	LOGICAL_cfW(A, B)

#define	PLOGICAL_cfW(A, B) B=F2CLOGICAL(B);

#define	STRING_cfW(A, B) (A[B.clen]!='\0'?A[B.clen]='\0':0); /* A?="constnt"*/

#define	PSTRING_cfW(A, B) kill_trailing(A,' ');

#define	STRINGV_cfW(A, B) _cf_free(B.s);

#define	PSTRINGV_cfW(A, B)

#define	ZTRINGV_cfW(A, B) STRINGV_cfW(A,B)

#define	PZTRINGV_cfW(A, B) PSTRINGV_cfW(A,B)

#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	INT_cfN(T, A) _(T,VVVVVVV_cfTYPE) * A

#define	INTV_cfN(T, A) _(T,VVVVVV_cfTYPE) * A

#define	INTVV_cfN(T, A) _(T,VVVVV_cfTYPE) * A

#define	INTVVV_cfN(T, A) _(T,VVVV_cfTYPE) * A

#define	INTVVVV_cfN(T, A) _(T,VVV_cfTYPE) * A

#define	INTVVVVV_cfN(T, A) _(T,VV_cfTYPE) * A

#define	INTVVVVVV_cfN(T, A) _(T,V_cfTYPE) * A

#define	INTVVVVVVV_cfN(T, A) _(T,_cfTYPE) * A

#define	PINT_cfN(T, A) _(T,_cfTYPE) * A

#define	PVOID_cfN(T, A) void * A

#define	ROUTINE_cfN(T, A) void ( *A)(CF_NULL_PROTO)

#define	STRING_cfN(T, A) char * A

#define	STRINGV_cfN(T, A) char * A

#define	PSTRING_cfN(T, A) STRING_cfN(T,A) /* CRAY insists on arg.'s here. */

#define	PNSTRING_cfN(T, A) STRING_cfN(T,A) /* CRAY insists on arg.'s here. */

#define	PPSTRING_cfN(T, A) STRING_cfN(T,A) /* CRAY insists on arg.'s here. */

#define	PSTRINGV_cfN(T, A) STRINGV_cfN(T,A)

#define	ZTRINGV_cfN(T, A) STRINGV_cfN(T,A)

#define	PZTRINGV_cfN(T, A) PSTRINGV_cfN(T,A)

#define	MAX_PREPRO_ARGS 99

#define	ABSOFT_cf1(T0)

#define	ABSOFT_cf2(T0)

#define	ABSOFT_cf3(T0)

#define	_Z

#define	CFARGT14S(S, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE)

#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	CFARGT14FS(F, S, M, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE)

#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	CFARGT14(F, S, M, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE)

#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	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	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	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	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	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	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	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	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	FCALLSC_QUALIFIER

#define	CFextern extern

#define	PROTOCCALLSFSUB0(UN, LN) _(VOID,_cfPU)(CFC_(UN,LN))();

#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	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	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	CCALLSFSUB1(UN, LN, T1, A1) CCALLSFSUB5 (UN,LN,T1,CF_0,CF_0,CF_0,CF_0,A1,0,0,0,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	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	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	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	CCALLSFSUB0(UN, LN) do{CPPPROTOCLSFSUB0(UN,LN) CFC_(UN,LN)();}while(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	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	MAX_LEN_FORTRAN_FUNCTION_STRING 0x4FE

#define	CFORTRAN_NON_CHAR 0x7F

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

#define	__SEP_0(TN, cfCOMMA)

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

#define	INT_cfSEP(T, B) _(A,B)

#define	INTV_cfSEP(T, B) INT_cfSEP(T,B)

#define	INTVV_cfSEP(T, B) INT_cfSEP(T,B)

#define	INTVVV_cfSEP(T, B) INT_cfSEP(T,B)

#define	INTVVVV_cfSEP(T, B) INT_cfSEP(T,B)

#define	INTVVVVV_cfSEP(T, B) INT_cfSEP(T,B)

#define	INTVVVVVV_cfSEP(T, B) INT_cfSEP(T,B)

#define	INTVVVVVVV_cfSEP(T, B) INT_cfSEP(T,B)

#define	PINT_cfSEP(T, B) INT_cfSEP(T,B)

#define	PVOID_cfSEP(T, B) INT_cfSEP(T,B)

#define	ROUTINE_cfSEP(T, B) INT_cfSEP(T,B)

#define	SIMPLE_cfSEP(T, B) INT_cfSEP(T,B)

#define	VOID_cfSEP(T, B) INT_cfSEP(T,B) /* For FORTRAN calls C subr.s.*/

#define	STRING_cfSEP(T, B) INT_cfSEP(T,B)

#define	STRINGV_cfSEP(T, B) INT_cfSEP(T,B)

#define	PSTRING_cfSEP(T, B) INT_cfSEP(T,B)

#define	PSTRINGV_cfSEP(T, B) INT_cfSEP(T,B)

#define	PNSTRING_cfSEP(T, B) INT_cfSEP(T,B)

#define	PPSTRING_cfSEP(T, B) INT_cfSEP(T,B)

#define	ZTRINGV_cfSEP(T, B) INT_cfSEP(T,B)

#define	PZTRINGV_cfSEP(T, B) INT_cfSEP(T,B)

#define	INTEGER_BYTE signed char /* default */

#define	BYTEVVVVVVV_cfTYPE INTEGER_BYTE

#define	DOUBLEVVVVVVV_cfTYPE DOUBLE_PRECISION

#define	FLOATVVVVVVV_cfTYPE FORTRAN_REAL

#define	INTVVVVVVV_cfTYPE int

#define	LOGICALVVVVVVV_cfTYPE int

#define	LONGVVVVVVV_cfTYPE long

#define	SHORTVVVVVVV_cfTYPE short

#define	PBYTE_cfTYPE INTEGER_BYTE

#define	PDOUBLE_cfTYPE DOUBLE_PRECISION

#define	PFLOAT_cfTYPE FORTRAN_REAL

#define	PINT_cfTYPE int

#define	PLOGICAL_cfTYPE int

#define	PLONG_cfTYPE long

#define	PSHORT_cfTYPE short

#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	_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	BYTE_cfINT(N, A, B, X, Y, Z) DOUBLE_cfINT(N,A,B,X,Y,Z)

#define	DOUBLE_cfINT(N, A, B, X, Y, Z) _(CFARGS,N)(A,INT,B,X,Y,Z,0)

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

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

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

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

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

#define	PBYTE_cfINT(N, A, B, X, Y, Z) PDOUBLE_cfINT(N,A,B,X,Y,Z)

#define	PDOUBLE_cfINT(N, A, B, X, Y, Z) _(CFARGS,N)(A,PINT,B,X,Y,Z,0)

#define	PFLOAT_cfINT(N, A, B, X, Y, Z) PDOUBLE_cfINT(N,A,B,X,Y,Z)

#define	PINT_cfINT(N, A, B, X, Y, Z) PDOUBLE_cfINT(N,A,B,X,Y,Z)

#define	PLOGICAL_cfINT(N, A, B, X, Y, Z) PDOUBLE_cfINT(N,A,B,X,Y,Z)

#define	PLONG_cfINT(N, A, B, X, Y, Z) PDOUBLE_cfINT(N,A,B,X,Y,Z)

#define	PSHORT_cfINT(N, A, B, X, Y, Z) PDOUBLE_cfINT(N,A,B,X,Y,Z)

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

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

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

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

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

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

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

#define	DOUBLEV_cfINT(N, A, B, X, Y, Z) _(CFARGS,N)(A,INTV,B,X,Y,Z,0)

#define	DOUBLEVV_cfINT(N, A, B, X, Y, Z) _(CFARGS,N)(A,INTVV,B,X,Y,Z,0)

#define	DOUBLEVVV_cfINT(N, A, B, X, Y, Z) _(CFARGS,N)(A,INTVVV,B,X,Y,Z,0)

#define	DOUBLEVVVV_cfINT(N, A, B, X, Y, Z) _(CFARGS,N)(A,INTVVVV,B,X,Y,Z,0)

#define	DOUBLEVVVVV_cfINT(N, A, B, X, Y, Z) _(CFARGS,N)(A,INTVVVVV,B,X,Y,Z,0)

#define	DOUBLEVVVVVV_cfINT(N, A, B, X, Y, Z) _(CFARGS,N)(A,INTVVVVVV,B,X,Y,Z,0)

#define	DOUBLEVVVVVVV_cfINT(N, A, B, X, Y, Z) _(CFARGS,N)(A,INTVVVVVVV,B,X,Y,Z,0)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

#define	PVOID_cfINT(N, A, B, X, Y, Z) _(CFARGS,N)(A,B,B,X,Y,Z,0)

#define	ROUTINE_cfINT(N, A, B, X, Y, Z) PVOID_cfINT(N,A,B,X,Y,Z)

#define	SIMPLE_cfINT(N, A, B, X, Y, Z) PVOID_cfINT(N,A,B,X,Y,Z)

#define	VOID_cfINT(N, A, B, X, Y, Z) PVOID_cfINT(N,A,B,X,Y,Z)

#define	STRING_cfINT(N, A, B, X, Y, Z) PVOID_cfINT(N,A,B,X,Y,Z)

#define	STRINGV_cfINT(N, A, B, X, Y, Z) PVOID_cfINT(N,A,B,X,Y,Z)

#define	PSTRING_cfINT(N, A, B, X, Y, Z) PVOID_cfINT(N,A,B,X,Y,Z)

#define	PSTRINGV_cfINT(N, A, B, X, Y, Z) PVOID_cfINT(N,A,B,X,Y,Z)

#define	PNSTRING_cfINT(N, A, B, X, Y, Z) PVOID_cfINT(N,A,B,X,Y,Z)

#define	PPSTRING_cfINT(N, A, B, X, Y, Z) PVOID_cfINT(N,A,B,X,Y,Z)

#define	ZTRINGV_cfINT(N, A, B, X, Y, Z) PVOID_cfINT(N,A,B,X,Y,Z)

#define	PZTRINGV_cfINT(N, A, B, X, Y, Z) PVOID_cfINT(N,A,B,X,Y,Z)

#define	CF_0_cfINT(N, A, B, X, Y, Z)

#define	UCF(TN, I, C) _SEP_(TN,C,cfCOMMA) _Icf(2,U,TN,_(A,I),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	INT_cfU(T, A) _(T,VVVVVVV_cfTYPE) A

#define	INTV_cfU(T, A) _(T,VVVVVV_cfTYPE) * A

#define	INTVV_cfU(T, A) _(T,VVVVV_cfTYPE) * A

#define	INTVVV_cfU(T, A) _(T,VVVV_cfTYPE) * A

#define	INTVVVV_cfU(T, A) _(T,VVV_cfTYPE) * A

#define	INTVVVVV_cfU(T, A) _(T,VV_cfTYPE) * A

#define	INTVVVVVV_cfU(T, A) _(T,V_cfTYPE) * A

#define	INTVVVVVVV_cfU(T, A) _(T,_cfTYPE) * A

#define	PINT_cfU(T, A) _(T,_cfTYPE) * A

#define	PVOID_cfU(T, A) void *A

#define	ROUTINE_cfU(T, A) void (*A)(CF_NULL_PROTO)

#define	VOID_cfU(T, A) void A /* Needed for C calls FORTRAN sub.s. */

#define	STRING_cfU(T, A) char A / via VOID and wrapper. */

#define	STRINGV_cfU(T, A) char *A

#define	PSTRING_cfU(T, A) char *A

#define	PSTRINGV_cfU(T, A) char *A

#define	ZTRINGV_cfU(T, A) char *A

#define	PZTRINGV_cfU(T, A) char *A

#define	INT_cfUU(T, A) _(T,VVVVVVV_cfTYPE) A

#define	VOID_cfUU(T, A) /* Needed for FORTRAN calls C sub.s. */

#define	STRING_cfUU(T, A) char *A

#define	BYTE_cfPU(A) CFextern INTEGER_BYTE FCALLSC_QUALIFIER A

#define	DOUBLE_cfPU(A) CFextern DOUBLE_PRECISION FCALLSC_QUALIFIER A

#define	FLOAT_cfPU(A) CFextern FORTRAN_REAL FCALLSC_QUALIFIER A

#define	INT_cfPU(A) CFextern int FCALLSC_QUALIFIER A

#define	LOGICAL_cfPU(A) CFextern int FCALLSC_QUALIFIER A

#define	LONG_cfPU(A) CFextern long FCALLSC_QUALIFIER A

#define	SHORT_cfPU(A) CFextern short FCALLSC_QUALIFIER A

#define	STRING_cfPU(A) CFextern void FCALLSC_QUALIFIER A

#define	VOID_cfPU(A) CFextern void FCALLSC_QUALIFIER A

#define	BYTE_cfE INTEGER_BYTE A0;

#define	DOUBLE_cfE DOUBLE_PRECISION A0;

#define	FLOAT_cfE FORTRAN_REAL A0;

#define	INT_cfE int A0;

#define	LOGICAL_cfE int A0;

#define	LONG_cfE long A0;

#define	SHORT_cfE short A0;

#define	VOID_cfE

#define	STRING_cfE

#define	INT_cfGZ(T, UN, LN) A0=CFC_(UN,LN)(

#define	VOID_cfGZ(T, UN, LN) CFC_(UN,LN)(

#define	STRING_cfGZ(T, UN, LN) CFC_(UN,LN)( A0,MAX_LEN_FORTRAN_FUNCTION_STRING

#define	INT_cfG(T, UN, LN) INT_cfGZ(T,UN,LN)

#define	VOID_cfG(T, UN, LN) VOID_cfGZ(T,UN,LN)

#define	STRING_cfG(T, UN, LN) STRING_cfGZ(T,UN,LN), /, is only diff. from _cfG/

#define	BYTEVVVVVVV_cfPP

#define	INTVVVVVVV_cfPP /* These complement FLOATVVVVVVV_cfPP. */

#define	DOUBLEVVVVVVV_cfPP

#define	LOGICALVVVVVVV_cfPP

#define	LONGVVVVVVV_cfPP

#define	SHORTVVVVVVV_cfPP

#define	PBYTE_cfPP

#define	PINT_cfPP

#define	PDOUBLE_cfPP

#define	PLOGICAL_cfPP

#define	PLONG_cfPP

#define	PSHORT_cfPP

#define	PFLOAT_cfPP FLOATVVVVVVV_cfPP

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

#define	INT_cfB(T, A) (_(T,VVVVVVV_cfTYPE)) A

#define	INTV_cfB(T, A) A

#define	INTVV_cfB(T, A) (A)[0]

#define	INTVVV_cfB(T, A) (A)[0][0]

#define	INTVVVV_cfB(T, A) (A)[0][0][0]

#define	INTVVVVV_cfB(T, A) (A)[0][0][0][0]

#define	INTVVVVVV_cfB(T, A) (A)[0][0][0][0][0]

#define	INTVVVVVVV_cfB(T, A) (A)[0][0][0][0][0][0]

#define	PINT_cfB(T, A) _(T,_cfPP)&A

#define	STRING_cfB(T, A) (char *) A

#define	STRINGV_cfB(T, A) (char *) A

#define	PSTRING_cfB(T, A) (char *) A

#define	PSTRINGV_cfB(T, A) (char *) A

#define	PVOID_cfB(T, A) (void *) A

#define	ROUTINE_cfB(T, A) (cfCAST_FUNCTION)A

#define	ZTRINGV_cfB(T, A) (char *) A

#define	PZTRINGV_cfB(T, A) (char *) A

#define	SCF(TN, NAME, I, A) _(TN,_cfSTR)(3,S,NAME,I,A,0,0)

#define	DEFAULT_cfS(M, I, A)

#define	LOGICAL_cfS(M, I, A)

#define	PLOGICAL_cfS(M, I, A)

#define	STRING_cfS(M, I, A) ,sizeof(A)

#define	STRINGV_cfS(M, I, A)

#define	PSTRING_cfS(M, I, A) ,sizeof(A)

#define	PSTRINGV_cfS(M, I, A) STRINGV_cfS(M,I,A)

#define	ZTRINGV_cfS(M, I, A)

#define	PZTRINGV_cfS(M, I, A)

#define	HCF(TN, I) _(TN,_cfSTR)(3,H,cfCOMMA, H,_(C,I),0,0)

#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	H_CF_SPECIAL unsigned

#define	HH_CF_SPECIAL

#define	DEFAULT_cfH(M, I, A)

#define	LOGICAL_cfH(S, U, B)

#define	PLOGICAL_cfH(S, U, B)

#define	STRING_cfH(S, U, B) _(A,S) _(U,_CF_SPECIAL) B

#define	STRINGV_cfH(S, U, B) STRING_cfH(S,U,B)

#define	PSTRING_cfH(S, U, B) STRING_cfH(S,U,B)

#define	PSTRINGV_cfH(S, U, B) STRING_cfH(S,U,B)

#define	PNSTRING_cfH(S, U, B) STRING_cfH(S,U,B)

#define	PPSTRING_cfH(S, U, B) STRING_cfH(S,U,B)

#define	ZTRINGV_cfH(S, U, B)

#define	PZTRINGV_cfH(S, U, B)

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

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

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

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

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

#define	LOGICAL_cfSTR(N, T, A, B, C, D, E) _(CFARGS,N)(T,LOGICAL,A,B,C,D,E)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

#define	PLOGICAL_cfSTR(N, T, A, B, C, D, E) _(CFARGS,N)(T,PLOGICAL,A,B,C,D,E)

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

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

#define	STRING_cfSTR(N, T, A, B, C, D, E) _(CFARGS,N)(T,STRING,A,B,C,D,E)

#define	PSTRING_cfSTR(N, T, A, B, C, D, E) _(CFARGS,N)(T,PSTRING,A,B,C,D,E)

#define	STRINGV_cfSTR(N, T, A, B, C, D, E) _(CFARGS,N)(T,STRINGV,A,B,C,D,E)

#define	PSTRINGV_cfSTR(N, T, A, B, C, D, E) _(CFARGS,N)(T,PSTRINGV,A,B,C,D,E)

#define	PNSTRING_cfSTR(N, T, A, B, C, D, E) _(CFARGS,N)(T,PNSTRING,A,B,C,D,E)

#define	PPSTRING_cfSTR(N, T, A, B, C, D, E) _(CFARGS,N)(T,PPSTRING,A,B,C,D,E)

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

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

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

#define	ZTRINGV_cfSTR(N, T, A, B, C, D, E) _(CFARGS,N)(T,ZTRINGV,A,B,C,D,E)

#define	PZTRINGV_cfSTR(N, T, A, B, C, D, E) _(CFARGS,N)(T,PZTRINGV,A,B,C,D,E)

#define	CF_0_cfSTR(N, T, A, B, C, D, E)

#define	CCF(NAME, TN, I) _(TN,_cfSTR)(5,C,NAME,I,_(A,I),_(B,I),_(C,I))

#define	DEFAULT_cfC(M, I, A, B, C)

#define	LOGICAL_cfC(M, I, A, B, C) A=C2FLOGICAL( A);

#define	PLOGICAL_cfC(M, I, A, B, C) A=C2FLOGICAL(A);

#define	STRING_cfC(M, I, A, B, C)

#define	PSTRING_cfC(M, I, A, B, C)

#define	STRINGV_cfC(M, I, A, B, C) AATRINGV_cfA( A,B,(C/0xFFFF)*(C%0xFFFF),C/0xFFFF,C%0xFFFF)

#define	PSTRINGV_cfC(M, I, A, B, C) APATRINGV_cfA( A,B,(C/0xFFFF)*(C%0xFFFF),C/0xFFFF,C%0xFFFF)

#define	ZTRINGV_cfC(M, I, A, B, C)

#define	PZTRINGV_cfC(M, I, A, B, C)

#define	BYTE_cfCCC(A, B) &A

#define	DOUBLE_cfCCC(A, B) &A

#define	FLOAT_cfCCC(A, B) &A

#define	INT_cfCCC(A, B) &A

#define	LOGICAL_cfCCC(A, B) &A

#define	LONG_cfCCC(A, B) &A

#define	SHORT_cfCCC(A, B) &A

#define	PBYTE_cfCCC(A, B) A

#define	PDOUBLE_cfCCC(A, B) A

#define	PFLOAT_cfCCC(A, B) A

#define	PINT_cfCCC(A, B) A

#define	PLOGICAL_cfCCC(A, B) B=A /* B used to keep a common W table. */

#define	PLONG_cfCCC(A, B) A

#define	PSHORT_cfCCC(A, B) A

#define	CCCF(TN, I, M) _SEP_(TN,M,cfCOMMA) _Icf(3,CC,TN,_(A,I),_(B,I))

#define	INT_cfCC(T, A, B) _(T,_cfCCC)(A,B)

#define	INTV_cfCC(T, A, B) A

#define	INTVV_cfCC(T, A, B) A

#define	INTVVV_cfCC(T, A, B) A

#define	INTVVVV_cfCC(T, A, B) A

#define	INTVVVVV_cfCC(T, A, B) A

#define	INTVVVVVV_cfCC(T, A, B) A

#define	INTVVVVVVV_cfCC(T, A, B) A

#define	PINT_cfCC(T, A, B) _(T,_cfCCC)(A,B)

#define	PVOID_cfCC(T, A, B) A

#define	ROUTINE_cfCC(T, A, B) A

#define	SIMPLE_cfCC(T, A, B) A

#define	STRING_cfCC(T, A, B) A

#define	STRINGV_cfCC(T, A, B) B.fs

#define	PSTRING_cfCC(T, A, B) A

#define	PSTRINGV_cfCC(T, A, B) B.fs

#define	ZTRINGV_cfCC(T, A, B) STRINGV_cfCC(T,A,B)

#define	PZTRINGV_cfCC(T, A, B) PSTRINGV_cfCC(T,A,B)

#define	BYTE_cfX return A0;

#define	DOUBLE_cfX return A0;

#define	FLOAT_cfX return A0;

#define	INT_cfX return A0;

#define	LOGICAL_cfX return F2CLOGICAL(A0);

#define	LONG_cfX return A0;

#define	SHORT_cfX return A0;

#define	VOID_cfX return ;

#define	STRING_cfX

#define	CFFUN(NAME) _(__cf__,NAME)

#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	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	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	PROTOCCALLSFFUN0(F, UN, LN)

#define	PROTOCCALLSFFUN1(T0, UN, LN, T1) PROTOCCALLSFFUN5 (T0,UN,LN,T1,CF_0,CF_0,CF_0,CF_0)

#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	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	DCF(TN, I) HCF(TN,I)

#define	DDCF(TN, I) HHCF(TN,I)

#define	DDDCF(TN, I) HHHCF(TN,I)

#define	QCF(TN, I) _(TN,_cfSTR)(1,Q,_(B,I), 0,0,0,0)

#define	DEFAULT_cfQ(B)

#define	LOGICAL_cfQ(B)

#define	PLOGICAL_cfQ(B)

#define	STRINGV_cfQ(B) char *B; unsigned int _(B,N);

#define	STRING_cfQ(B) char *B=NULL;

#define	PSTRING_cfQ(B) char *B=NULL;

#define	PSTRINGV_cfQ(B) STRINGV_cfQ(B)

#define	PNSTRING_cfQ(B) char *B=NULL;

#define	PPSTRING_cfQ(B)

#define	ROUTINE_orig (void *)

#define	ROUTINE_1 ROUTINE_orig

#define	ROUTINE_2 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_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_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	TCF(NAME, TN, I, M) _SEP_(TN,M,cfCOMMA) _(TN,_cfT)(NAME,I,_(A,I),_(B,I),_(C,I))

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

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

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

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

#define	LOGICAL_cfT(M, I, A, B, D) F2CLOGICAL(*A)

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

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

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

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

#define	FLOATV_cfT(M, I, A, B, D) VOIDP A

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

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

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

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

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

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

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

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

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

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

#define	DOUBLEVV_cfT(M, I, A, B, D) (void *)A

#define	DOUBLEVVV_cfT(M, I, A, B, D) (void *)A

#define	DOUBLEVVVV_cfT(M, I, A, B, D) (void *)A

#define	DOUBLEVVVVV_cfT(M, I, A, B, D) (void *)A

#define	DOUBLEVVVVVV_cfT(M, I, A, B, D) (void *)A

#define	DOUBLEVVVVVVV_cfT(M, I, A, B, D) (void *)A

#define	FLOATVV_cfT(M, I, A, B, D) (void *)A

#define	FLOATVVV_cfT(M, I, A, B, D) (void *)A

#define	FLOATVVVV_cfT(M, I, A, B, D) (void *)A

#define	FLOATVVVVV_cfT(M, I, A, B, D) (void *)A

#define	FLOATVVVVVV_cfT(M, I, A, B, D) (void *)A

#define	FLOATVVVVVVV_cfT(M, I, A, B, D) (void *)A

#define	INTVV_cfT(M, I, A, B, D) (void *)A

#define	INTVVV_cfT(M, I, A, B, D) (void *)A

#define	INTVVVV_cfT(M, I, A, B, D) (void *)A

#define	INTVVVVV_cfT(M, I, A, B, D) (void *)A

#define	INTVVVVVV_cfT(M, I, A, B, D) (void *)A

#define	INTVVVVVVV_cfT(M, I, A, B, D) (void *)A

#define	LOGICALVV_cfT(M, I, A, B, D) (void *)A

#define	LOGICALVVV_cfT(M, I, A, B, D) (void *)A

#define	LOGICALVVVV_cfT(M, I, A, B, D) (void *)A

#define	LOGICALVVVVV_cfT(M, I, A, B, D) (void *)A

#define	LOGICALVVVVVV_cfT(M, I, A, B, D) (void *)A

#define	LOGICALVVVVVVV_cfT(M, I, A, B, D) (void *)A

#define	LONGVV_cfT(M, I, A, B, D) (void *)A

#define	LONGVVV_cfT(M, I, A, B, D) (void *)A

#define	LONGVVVV_cfT(M, I, A, B, D) (void *)A

#define	LONGVVVVV_cfT(M, I, A, B, D) (void *)A

#define	LONGVVVVVV_cfT(M, I, A, B, D) (void *)A

#define	LONGVVVVVVV_cfT(M, I, A, B, D) (void *)A

#define	SHORTVV_cfT(M, I, A, B, D) (void *)A

#define	SHORTVVV_cfT(M, I, A, B, D) (void *)A

#define	SHORTVVVV_cfT(M, I, A, B, D) (void *)A

#define	SHORTVVVVV_cfT(M, I, A, B, D) (void *)A

#define	SHORTVVVVVV_cfT(M, I, A, B, D) (void *)A

#define	SHORTVVVVVVV_cfT(M, I, A, B, D) (void *)A

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

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

#define	PFLOAT_cfT(M, I, A, B, D) VOIDP A

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

#define	PLOGICAL_cfT(M, I, A, B, D) ((A=F2CLOGICAL(A)),A)

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

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

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

#define	ROUTINE_cfT(M, I, A, B, D) _(ROUTINE_,I) A

#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	STRING_cfT(M, I, A, B, D) TTTTSTR( A,B,D)

#define	STRINGV_cfT(M, I, A, B, D) TTTTSTRV(A,B,D, num_elem(A,D,_3(M,_STRV_A,I)))

#define	PSTRING_cfT(M, I, A, B, D) TTSTR( A,B,D)

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

#define	PNSTRING_cfT(M, I, A, B, D) STRING_cfT(M,I,A,B,D)

#define	PSTRINGV_cfT(M, I, A, B, D) STRINGV_cfT(M,I,A,B,D)

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

#define	RCF(TN, I) _(TN,_cfSTR)(3,R,_(A,I),_(B,I),_(C,I),0,0)

#define	DEFAULT_cfR(A, B, D)

#define	LOGICAL_cfR(A, B, D)

#define	PLOGICAL_cfR(A, B, D) A=C2FLOGICAL(A);

#define	STRING_cfR(A, B, D) if (B) _cf_free(B);

#define	STRINGV_cfR(A, B, D) _cf_free(B);

#define	RRRRPSTR(A, B, D)

#define	RRRRPSTRV(A, B, D) c2fstrv(B,A,D+1,(D+1)*_(B,N)), _cf_free(B);

#define	PSTRING_cfR(A, B, D) RRRRPSTR( A,B,D)

#define	PSTRINGV_cfR(A, B, D) RRRRPSTRV(A,B,D)

#define	PNSTRING_cfR(A, B, D) PSTRING_cfR(A,B,D)

#define	PPSTRING_cfR(A, B, D)

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

#define	DOUBLE_cfFZ(UN, LN) DOUBLE_PRECISION FCALLSC_QUALIFIER fcallsc(UN,LN)(

#define	INT_cfFZ(UN, LN) int FCALLSC_QUALIFIER fcallsc(UN,LN)(

#define	LOGICAL_cfFZ(UN, LN) int FCALLSC_QUALIFIER fcallsc(UN,LN)(

#define	LONG_cfFZ(UN, LN) long FCALLSC_QUALIFIER fcallsc(UN,LN)(

#define	SHORT_cfFZ(UN, LN) short FCALLSC_QUALIFIER fcallsc(UN,LN)(

#define	VOID_cfFZ(UN, LN) void FCALLSC_QUALIFIER fcallsc(UN,LN)(

#define	FLOAT_cfFZ(UN, LN) FORTRAN_REAL FCALLSC_QUALIFIER fcallsc(UN,LN)(void

#define	STRING_cfFZ(UN, LN) void FCALLSC_QUALIFIER fcallsc(UN,LN)(char *AS, unsigned D0

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

#define	DOUBLE_cfF(UN, LN) DOUBLE_cfFZ(UN,LN)

#define	FLOAT_cfF(UN, LN) FORTRAN_REAL FCALLSC_QUALIFIER fcallsc(UN,LN)(

#define	INT_cfF(UN, LN) INT_cfFZ(UN,LN)

#define	LOGICAL_cfF(UN, LN) LOGICAL_cfFZ(UN,LN)

#define	LONG_cfF(UN, LN) LONG_cfFZ(UN,LN)

#define	SHORT_cfF(UN, LN) SHORT_cfFZ(UN,LN)

#define	VOID_cfF(UN, LN) VOID_cfFZ(UN,LN)

#define	STRING_cfF(UN, LN) STRING_cfFZ(UN,LN),

#define	INT_cfFF

#define	VOID_cfFF

#define	STRING_cfFF char *AS; unsigned D0;

#define	INT_cfL A0=

#define	STRING_cfL A0=

#define	VOID_cfL

#define	INT_cfK

#define	VOID_cfK

#define	STRING_cfK

#define	BYTE_cfI return A0;

#define	DOUBLE_cfI return A0;

#define	FLOAT_cfI return A0;

#define	INT_cfI return A0;

#define	LOGICAL_cfI return C2FLOGICAL(A0);

#define	LONG_cfI return A0;

#define	SHORT_cfI return A0;

#define	STRING_cfI return ;

#define	VOID_cfI return ;

#define	FCALLSCSUB0(CN, UN, LN) FCALLSCFUN0(VOID,CN,UN,LN)

#define	FCALLSCSUB1(CN, UN, LN, T1) FCALLSCFUN1(VOID,CN,UN,LN,T1)

#define	FCALLSCSUB2(CN, UN, LN, T1, T2) FCALLSCFUN2(VOID,CN,UN,LN,T1,T2)

#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	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	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	FCALLSCFUN1(T0, CN, UN, LN, T1) FCALLSCFUN5 (T0,CN,UN,LN,T1,CF_0,CF_0,CF_0,CF_0)

#define	FCALLSCFUN2(T0, CN, UN, LN, T1, T2) FCALLSCFUN5 (T0,CN,UN,LN,T1,T2,CF_0,CF_0,CF_0)

#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	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	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	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	FCALLSCFUN0(T0, CN, UN, LN)

#define	FCALLSCFUN14(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE)

#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)

Typedefs
typedef void(*	cfCAST_FUNCTION) (CF_NULL_PROTO)

Macro Definition Documentation

◆ _

#define _	(	A,
		B
	)	AB

Definition at line 44 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ _2

#define _2	(	A,
		B
	)	AB

Definition at line 45 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ _3

#define _3	(	A,
		B,
		C
	)	ABC

Definition at line 46 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ __SEP_0

#define __SEP_0	(	TN,
		cfCOMMA
	)

Definition at line 1282 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ __SEP_1

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

Definition at line 1283 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ _cf_free

#define _cf_free ( P ) free(P)

Definition at line 304 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ _cf_malloc

#define _cf_malloc ( N ) (char *)malloc(N)

Definition at line 303 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ _cfleft

#define _cfleft 1

Definition at line 30 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ _cfleft_cfright

#define _cfleft_cfright 0

Definition at line 32 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ _cfMIN

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

Definition at line 326 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ _cfright

#define _cfright

Definition at line 31 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ _Icf

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

Definition at line 1337 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ _Icf4

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

Definition at line 1338 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ _NUM_ELEM_ARG

#define _NUM_ELEM_ARG -2

Definition at line 517 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ _NUM_ELEMS

#define _NUM_ELEMS -1

Definition at line 516 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ _SEP_

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

Definition at line 1281 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ _Z

#define _Z

Definition at line 871 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ AACF

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

Definition at line 702 of file Ekhara/Ekhara-00-00-11/Ekhara/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 678 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ABSOFT_cf1

#define ABSOFT_cf1 ( T0 )

Definition at line 863 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ABSOFT_cf2

#define ABSOFT_cf2 ( T0 )

Definition at line 864 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ABSOFT_cf3

#define ABSOFT_cf3 ( T0 )

Definition at line 865 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ACF

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

Definition at line 665 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ AcfCOLON

#define AcfCOLON ;

Definition at line 320 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ AcfCOMMA

#define AcfCOMMA ,

Definition at line 319 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ANSI_C_preprocessor

#define ANSI_C_preprocessor _cfleft_cfright

Definition at line 33 of file Ekhara/Ekhara-00-00-11/Ekhara/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 680 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ append_fcallsc

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

Definition at line 194 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BCF

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

Definition at line 1535 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTE_cfCCC

#define BYTE_cfCCC	(	A,
		B
	)	&A

Definition at line 1694 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTE_cfE

#define BYTE_cfE INTEGER_BYTE A0;

Definition at line 1465 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTE_cfF

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

Definition at line 2118 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTE_cfFZ

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

Definition at line 2081 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTE_cfI

#define BYTE_cfI return A0;

Definition at line 2175 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTE_cfINT

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

Definition at line 1339 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTE_cfPU

#define BYTE_cfPU ( A ) CFextern INTEGER_BYTE FCALLSC_QUALIFIER A

Definition at line 1451 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1586 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTE_cfT

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

Definition at line 1954 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTE_cfVCF

#define BYTE_cfVCF	(	A,
		B
	)

Definition at line 608 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTE_cfX

#define BYTE_cfX return A0;

Definition at line 1752 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTEV_cfINT

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

Definition at line 1353 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1593 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTEV_cfT

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

Definition at line 1961 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTEVV_cfINT

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

Definition at line 1354 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1594 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTEVV_cfT

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

Definition at line 1968 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTEVVV_cfINT

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

Definition at line 1355 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1595 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTEVVV_cfT

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

Definition at line 1969 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTEVVVV_cfINT

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

Definition at line 1356 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1596 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTEVVVV_cfT

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

Definition at line 1970 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTEVVVVV_cfINT

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

Definition at line 1357 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1597 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTEVVVVV_cfT

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

Definition at line 1971 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTEVVVVVV_cfINT

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

Definition at line 1358 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1598 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTEVVVVVV_cfT

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

Definition at line 1972 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTEVVVVVVV_cfINT

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

Definition at line 1359 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTEVVVVVVV_cfPP

#define BYTEVVVVVVV_cfPP

Definition at line 1521 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1599 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTEVVVVVVV_cfT

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

Definition at line 1973 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ BYTEVVVVVVV_cfTYPE

#define BYTEVVVVVVV_cfTYPE INTEGER_BYTE

Definition at line 1315 of file Ekhara/Ekhara-00-00-11/Ekhara/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))

cfelementsof

#define cfelementsof(A, D)

Definition: Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h:569

Definition at line 551 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ C2FLOGICAL

#define C2FLOGICAL ( L ) (L)

Definition at line 374 of file Ekhara/Ekhara-00-00-11/Ekhara/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 379 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ C2FLOGICALV [2/2]

#define C2FLOGICALV	(	A,
		I
	)

Definition at line 379 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ C_FUNCTION

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

Definition at line 196 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CCALLSFFUN0

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

Definition at line 1775 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1781 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1799 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1801 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1803 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1805 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1808 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1783 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1785 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1787 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1789 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1791 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1793 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1795 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1797 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CCALLSFSUB0

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

Definition at line 1155 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1106 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1124 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1126 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1128 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1130 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1156 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1173 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1175 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1177 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1179 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1181 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1108 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1190 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1211 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1213 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1215 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1217 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1219 of file Ekhara/Ekhara-00-00-11/Ekhara/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 1221 of file Ekhara/Ekhara-00-00-11/Ekhara/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)( CFARGTA27(AACF,JCF,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) ); \
 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) WCF(TL,AL,21) WCF(TM,AM,22) WCF(TN,AN,23) WCF(TO,AO,24) \
 WCF(TP,AP,25) WCF(TQ,AQ,26) WCF(TR,AR,27) }while(0)

Definition at line 1230 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CCALLSFSUB3

#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)

Definition at line 1110 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CCALLSFSUB4

#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)

Definition at line 1112 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CCALLSFSUB5

#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)

Definition at line 1114 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CCALLSFSUB6

#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)

Definition at line 1116 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CCALLSFSUB7

#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)

Definition at line 1118 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CCALLSFSUB8

#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)

Definition at line 1120 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CCALLSFSUB9

#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)

Definition at line 1122 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CCCF

#define CCCF	(	TN,
		I,
		M
	)	_SEP_(TN,M,cfCOMMA) _Icf(3,CC,TN,_(A,I),_(B,I))

Definition at line 1714 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CCF

#define CCF	(	NAME,
		TN,
		I
	)	_(TN,_cfSTR)(5,C,NAME,I,_(A,I),_(B,I),_(C,I))

Definition at line 1663 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CF_0_cfINT

#define CF_0_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)

Definition at line 1420 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CF_0_cfSTR

#define CF_0_cfSTR	(	N,
		T,
		A,
		B,
		C,
		D,
		E
	)

Definition at line 1660 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CF_0_cfT

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

Definition at line 2054 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CF_DECLARE_GETARG

#define CF_DECLARE_GETARG

Definition at line 311 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CF_NULL_PROTO

#define CF_NULL_PROTO

Definition at line 272 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CF_SAME_NAMESPACE

#define CF_SAME_NAMESPACE

Definition at line 179 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CF_SET_GETARG

#define CF_SET_GETARG	(	ARGC,
		ARGV
	)

Definition at line 312 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CFARGS0

#define CFARGS0	(	A,
		T,
		V,
		W,
		X,
		Y,
		Z
	)	_3(T,_cf,A)

Definition at line 1330 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CFARGS1

#define CFARGS1	(	A,
		T,
		V,
		W,
		X,
		Y,
		Z
	)	_3(T,_cf,A)(V)

Definition at line 1331 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CFARGS2

#define CFARGS2	(	A,
		T,
		V,
		W,
		X,
		Y,
		Z
	)	_3(T,_cf,A)(V,W)

Definition at line 1332 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CFARGS3

#define CFARGS3	(	A,
		T,
		V,
		W,
		X,
		Y,
		Z
	)	_3(T,_cf,A)(V,W,X)

Definition at line 1333 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CFARGS4

#define CFARGS4	(	A,
		T,
		V,
		W,
		X,
		Y,
		Z
	)	_3(T,_cf,A)(V,W,X,Y)

Definition at line 1334 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CFARGS5

#define CFARGS5	(	A,
		T,
		V,
		W,
		X,
		Y,
		Z
	)	_3(T,_cf,A)(V,W,X,Y,Z)

Definition at line 1335 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CFARGT14

#define CFARGT14	(	F,
		S,
		M,
		T1,
		T2,
		T3,
		T4,
		T5,
		T6,
		T7,
		T8,
		T9,
		TA,
		TB,
		TC,
		TD,
		TE
	)

Value:

 F(T1,1,0) F(T2,2,1) F(T3,3,1)  F(T4,4,1)  F(T5,5,1)  F(T6,6,1)  F(T7,7,1)     \
 F(T8,8,1) F(T9,9,1) F(TA,10,1) F(TB,11,1) F(TC,12,1) F(TD,13,1) F(TE,14,1)    \
 M       CFARGT14S(S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)

Definition at line 907 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CFARGT14FS

#define CFARGT14FS	(	F,
		S,
		M,
		T1,
		T2,
		T3,
		T4,
		T5,
		T6,
		T7,
		T8,
		T9,
		TA,
		TB,
		TC,
		TD,
		TE
	)

Value:

 F(T1,1,0) F(T2,2,1) F(T3,3,1)  F(T4,4,1)  F(T5,5,1)  F(T6,6,1)  F(T7,7,1)     \
 F(T8,8,1) F(T9,9,1) F(TA,10,1) F(TB,11,1) F(TC,12,1) F(TD,13,1) F(TE,14,1)    \
 M       CFARGT14S(S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)

Definition at line 882 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CFARGT14S

#define CFARGT14S	(	S,
		T1,
		T2,
		T3,
		T4,
		T5,
		T6,
		T7,
		T8,
		T9,
		TA,
		TB,
		TC,
		TD,
		TE
	)

Value:

S(T1,1) S(T2,2) S(T3,3) S(T4,4) S(T5,5) S(T6,6) S(T7,7) \

S(T8,8) S(T9,9) S(TA,10) S(TB,11) S(TC,12) S(TD,13) S(TE,14)

Definition at line 873 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CFARGT20

#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
	)

Value:

 F(T1,1,0)  F(T2,2,1)  F(T3,3,1)  F(T4,4,1)  F(T5,5,1)  F(T6,6,1)  F(T7,7,1)   \
 F(T8,8,1)  F(T9,9,1)  F(TA,10,1) F(TB,11,1) F(TC,12,1) F(TD,13,1) F(TE,14,1)  \
 F(TF,15,1) F(TG,16,1) F(TH,17,1) F(TI,18,1) F(TJ,19,1) F(TK,20,1)             \
 S(T1,1)    S(T2,2)    S(T3,3)    S(T4,4)    S(T5,5)    S(T6,6)    S(T7,7)     \
 S(T8,8)    S(T9,9)    S(TA,10)   S(TB,11)   S(TC,12)   S(TD,13)   S(TE,14)    \
 S(TF,15)   S(TG,16)   S(TH,17)   S(TI,18)   S(TJ,19)   S(TK,20)

Definition at line 918 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CFARGT27

#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
	)

Value:

 F(T1,1,0)  F(T2,2,1)  F(T3,3,1)  F(T4,4,1)  F(T5,5,1)  F(T6,6,1)  F(T7,7,1)   \
 F(T8,8,1)  F(T9,9,1)  F(TA,10,1) F(TB,11,1) F(TC,12,1) F(TD,13,1) F(TE,14,1)  \
 F(TF,15,1) F(TG,16,1) F(TH,17,1) F(TI,18,1) F(TJ,19,1) F(TK,20,1) F(TL,21,1)  \
 F(TM,22,1) F(TN,23,1) F(TO,24,1) F(TP,25,1) F(TQ,26,1) F(TR,27,1)             \
 M       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)

Definition at line 911 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CFARGT27FS

#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
	)

Value:

 F(T1,1,0)  F(T2,2,1)  F(T3,3,1)  F(T4,4,1)  F(T5,5,1)  F(T6,6,1)  F(T7,7,1)   \
 F(T8,8,1)  F(T9,9,1)  F(TA,10,1) F(TB,11,1) F(TC,12,1) F(TD,13,1) F(TE,14,1)  \
 F(TF,15,1) F(TG,16,1) F(TH,17,1) F(TI,18,1) F(TJ,19,1) F(TK,20,1) F(TL,21,1)  \
 F(TM,22,1) F(TN,23,1) F(TO,24,1) F(TP,25,1) F(TQ,26,1) F(TR,27,1)             \
 M       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)

Definition at line 886 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CFARGT27S

#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
	)

Value:

 S(T1,1)   S(T2,2)   S(T3,3)    S(T4,4)    S(T5,5)    S(T6,6)    S(T7,7)       \
 S(T8,8)   S(T9,9)   S(TA,10)   S(TB,11)   S(TC,12)   S(TD,13)   S(TE,14)      \
 S(TF,15)  S(TG,16)  S(TH,17)   S(TI,18)   S(TJ,19)   S(TK,20)   S(TL,21)      \
 S(TM,22)  S(TN,23)  S(TO,24)   S(TP,25)   S(TQ,26)   S(TR,27)

Definition at line 876 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CFARGTA14

#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
	)

Value:

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

Definition at line 925 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CFARGTA20

#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
	)

Value:

 F(T1,A1,1,0)  F(T2,A2,2,1)  F(T3,A3,3,1)  F(T4,A4,4,1)  F(T5,A5,5,1)  F(T6,A6,6,1)  \
 F(T7,A7,7,1)  F(T8,A8,8,1)  F(T9,A9,9,1)  F(TA,AA,10,1) F(TB,AB,11,1) F(TC,AC,12,1) \
 F(TD,AD,13,1) F(TE,AE,14,1) F(TF,AF,15,1) F(TG,AG,16,1) F(TH,AH,17,1) F(TI,AI,18,1) \
 F(TJ,AJ,19,1) F(TK,AK,20,1) S(T1,1)       S(T2,2)       S(T3,3)       S(T4,4)       \
 S(T5,5)       S(T6,6)       S(T7,7)       S(T8,8)       S(T9,9)       S(TA,10)      \
 S(TB,11)      S(TC,12)      S(TD,13)      S(TE,14)      S(TF,15)      S(TG,16)      \
 S(TH,17)      S(TI,18)      S(TJ,19)      S(TK,20)

Definition at line 932 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CFARGTA27

#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
	)

Value:

 F(T1,A1,1,0)  F(T2,A2,2,1)  F(T3,A3,3,1)  F(T4,A4,4,1)  F(T5,A5,5,1)  F(T6,A6,6,1)  \
 F(T7,A7,7,1)  F(T8,A8,8,1)  F(T9,A9,9,1)  F(TA,AA,10,1) F(TB,AB,11,1) F(TC,AC,12,1) \
 F(TD,AD,13,1) F(TE,AE,14,1) F(TF,AF,15,1) F(TG,AG,16,1) F(TH,AH,17,1) F(TI,AI,18,1) \
 F(TJ,AJ,19,1) F(TK,AK,20,1) F(TL,AL,21,1) F(TM,AM,22,1) F(TN,AN,23,1) F(TO,AO,24,1) \
 F(TP,AP,25,1) F(TQ,AQ,26,1) F(TR,AR,27,1) S(T1,1)       S(T2,2)       S(T3,3)       \
 S(T4,4)       S(T5,5)       S(T6,6)       S(T7,7)       S(T8,8)       S(T9,9)       \
 S(TA,10)      S(TB,11)      S(TC,12)      S(TD,13)      S(TE,14)      S(TF,15)      \
 S(TG,16)      S(TH,17)      S(TI,18)      S(TJ,19)      S(TK,20)      S(TL,21)      \
 S(TM,22)      S(TN,23)      S(TO,24)      S(TP,25)      S(TQ,26)      S(TR,27)

Definition at line 940 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CFC_

#define CFC_	(	UN,
		LN
	)	LN /* Lowercase FORTRAN symbols. */

Definition at line 186 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ cfDEREFERENCE0

#define cfDEREFERENCE0

Definition at line 563 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ cfDEREFERENCE1

#define cfDEREFERENCE1 *

Definition at line 564 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ cfDEREFERENCE2

#define cfDEREFERENCE2 **

Definition at line 565 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ cfDEREFERENCE3

#define cfDEREFERENCE3 ***

Definition at line 566 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ cfDEREFERENCE4

#define cfDEREFERENCE4 ****

Definition at line 567 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ cfDEREFERENCE5

#define cfDEREFERENCE5 *****

Definition at line 568 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ cfelementsof

#define cfelementsof	(	A,
		D
	)	(sizeof(A)/sizeof(_(cfDEREFERENCE,D)(A)))

Definition at line 569 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CFextern

#define CFextern extern

Definition at line 1065 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CFFUN

#define CFFUN ( NAME ) _(__cf__,NAME)

Definition at line 1772 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CFORTRAN_NON_CHAR

#define CFORTRAN_NON_CHAR 0x7F

Definition at line 1275 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ COMMON_BLOCK

#define COMMON_BLOCK	(	UN,
		LN
	)	CFC_(UN,LN)

Definition at line 203 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ COMMON_BLOCK_DEF

#define COMMON_BLOCK_DEF	(	DEFINITION,
		NAME
	)	extern DEFINITION NAME

Definition at line 271 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CPPPROTOCLSFSUB0

#define CPPPROTOCLSFSUB0	(	UN,
		LN
	)	PROTOCCALLSFSUB0(UN,LN)

Definition at line 1139 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CPPPROTOCLSFSUB14

#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)

Definition at line 1141 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CPPPROTOCLSFSUB20

#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)

Definition at line 1143 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ CPPPROTOCLSFSUB27

#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)

Definition at line 1145 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DCF

#define DCF	(	TN,
		I
	)	HCF(TN,I)

Definition at line 1903 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DDCF

#define DDCF	(	TN,
		I
	)	HHCF(TN,I)

Definition at line 1904 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DDDCF

#define DDDCF	(	TN,
		I
	)	HHHCF(TN,I)

Definition at line 1905 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DEFAULT_cfA

#define DEFAULT_cfA	(	M,
		I,
		A,
		B
	)

Definition at line 666 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DEFAULT_cfC

#define DEFAULT_cfC	(	M,
		I,
		A,
		B,
		C
	)

Definition at line 1664 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DEFAULT_cfH

#define DEFAULT_cfH	(	M,
		I,
		A
	)

Definition at line 1571 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DEFAULT_cfJ

#define DEFAULT_cfJ ( B )

Definition at line 741 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DEFAULT_cfKK

#define DEFAULT_cfKK ( B )

Definition at line 757 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DEFAULT_cfQ

#define DEFAULT_cfQ ( B )

Definition at line 1909 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DEFAULT_cfR

#define DEFAULT_cfR	(	A,
		B,
		D
	)

Definition at line 2057 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DEFAULT_cfS

#define DEFAULT_cfS	(	M,
		I,
		A
	)

Definition at line 1555 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DEFAULT_cfW

#define DEFAULT_cfW	(	A,
		B
	)

Definition at line 770 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLE_cfCCC

#define DOUBLE_cfCCC	(	A,
		B
	)	&A

Definition at line 1695 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLE_cfE

#define DOUBLE_cfE DOUBLE_PRECISION A0;

Definition at line 1466 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLE_cfF

#define DOUBLE_cfF	(	UN,
		LN
	)	DOUBLE_cfFZ(UN,LN)

Definition at line 2119 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLE_cfFZ

#define DOUBLE_cfFZ	(	UN,
		LN
	)	DOUBLE_PRECISION FCALLSC_QUALIFIER fcallsc(UN,LN)(

Definition at line 2082 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLE_cfI

#define DOUBLE_cfI return A0;

Definition at line 2176 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLE_cfINT

#define DOUBLE_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	_(CFARGS,N)(A,INT,B,X,Y,Z,0)

Definition at line 1340 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLE_cfPU

#define DOUBLE_cfPU ( A ) CFextern DOUBLE_PRECISION FCALLSC_QUALIFIER A

Definition at line 1452 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLE_cfSTR

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

Definition at line 1587 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLE_cfT

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

Definition at line 1955 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLE_cfVCF

#define DOUBLE_cfVCF	(	A,
		B
	)

Definition at line 609 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLE_cfX

#define DOUBLE_cfX return A0;

Definition at line 1753 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLE_PRECISION

#define DOUBLE_PRECISION double

Definition at line 219 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEV_cfINT

#define DOUBLEV_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	_(CFARGS,N)(A,INTV,B,X,Y,Z,0)

Definition at line 1360 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEV_cfSTR

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

Definition at line 1600 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEV_cfT

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

Definition at line 1962 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEVV_cfINT

#define DOUBLEVV_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	_(CFARGS,N)(A,INTVV,B,X,Y,Z,0)

Definition at line 1361 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEVV_cfSTR

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

Definition at line 1601 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEVV_cfT

#define DOUBLEVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1974 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEVVV_cfINT

#define DOUBLEVVV_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	_(CFARGS,N)(A,INTVVV,B,X,Y,Z,0)

Definition at line 1362 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEVVV_cfSTR

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

Definition at line 1602 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEVVV_cfT

#define DOUBLEVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1975 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEVVVV_cfINT

#define DOUBLEVVVV_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	_(CFARGS,N)(A,INTVVVV,B,X,Y,Z,0)

Definition at line 1363 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEVVVV_cfSTR

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

Definition at line 1603 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEVVVV_cfT

#define DOUBLEVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1976 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEVVVVV_cfINT

#define DOUBLEVVVVV_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	_(CFARGS,N)(A,INTVVVVV,B,X,Y,Z,0)

Definition at line 1364 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEVVVVV_cfSTR

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

Definition at line 1604 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEVVVVV_cfT

#define DOUBLEVVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1977 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEVVVVVV_cfINT

#define DOUBLEVVVVVV_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	_(CFARGS,N)(A,INTVVVVVV,B,X,Y,Z,0)

Definition at line 1365 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEVVVVVV_cfSTR

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

Definition at line 1605 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEVVVVVV_cfT

#define DOUBLEVVVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1978 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEVVVVVVV_cfINT

#define DOUBLEVVVVVVV_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	_(CFARGS,N)(A,INTVVVVVVV,B,X,Y,Z,0)

Definition at line 1366 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEVVVVVVV_cfPP

#define DOUBLEVVVVVVV_cfPP

Definition at line 1523 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEVVVVVVV_cfSTR

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

Definition at line 1606 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEVVVVVVV_cfT

#define DOUBLEVVVVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1979 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ DOUBLEVVVVVVV_cfTYPE

#define DOUBLEVVVVVVV_cfTYPE DOUBLE_PRECISION

Definition at line 1316 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ F2CLOGICAL

#define F2CLOGICAL ( L ) (L)

Definition at line 375 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ F2CLOGICALV [1/2]

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

Definition at line 380 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ F2CLOGICALV [2/2]

#define F2CLOGICALV	(	A,
		I
	)

Definition at line 380 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ fcallsc

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

Definition at line 192 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSC_QUALIFIER

#define FCALLSC_QUALIFIER

Definition at line 1058 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN0

#define FCALLSCFUN0	(	T0,
		CN,
		UN,
		LN
	)

Value:

CFextern _(T0,_cfFZ)(UN,LN) ABSOFT_cf2(T0)) \

{_Icf(2,UU,T0,A0,0); _Icf(0,L,T0,0,0) CN(); _Icf(0,K,T0,0,0) _(T0,_cfI)}

CFextern

#define CFextern

Definition: Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h:1065

_Icf

#define _Icf(N, T, I, X, Y)

Definition: Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h:1337

ABSOFT_cf2

#define ABSOFT_cf2(T0)

Definition: Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h:864

_

#define _(A, B)

Definition: Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h:44

Definition at line 2307 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN1

#define FCALLSCFUN1	(	T0,
		CN,
		UN,
		LN,
		T1
	)	FCALLSCFUN5 (T0,CN,UN,LN,T1,CF_0,CF_0,CF_0,CF_0)

Definition at line 2252 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN10

#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)

Definition at line 2270 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN11

#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)

Definition at line 2272 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN12

#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)

Definition at line 2274 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN13

#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)

Definition at line 2276 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN14

#define FCALLSCFUN14	(	T0,
		CN,
		UN,
		LN,
		T1,
		T2,
		T3,
		T4,
		T5,
		T6,
		T7,
		T8,
		T9,
		TA,
		TB,
		TC,
		TD,
		TE
	)

Value:

                                 CFextern _(T0,_cfF)(UN,LN)                    \
 CFARGT14(NCF,DCF,ABSOFT_cf2(T0),T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) )  \
 {                 CFARGT14S(QCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)    \
  _Icf(2,UU,T0,A0,0); _Icf(0,L,T0,0,0)      CN(    TCF(LN,T1,1,0)  TCF(LN,T2,2,1) \
    TCF(LN,T3,3,1)  TCF(LN,T4,4,1) TCF(LN,T5,5,1)  TCF(LN,T6,6,1)  TCF(LN,T7,7,1) \
    TCF(LN,T8,8,1)  TCF(LN,T9,9,1) TCF(LN,TA,10,1) TCF(LN,TB,11,1) TCF(LN,TC,12,1) \
    TCF(LN,TD,13,1) TCF(LN,TE,14,1) );                          _Icf(0,K,T0,0,0) \
                   CFARGT14S(RCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)  _(T0,_cfI) }

Definition at line 2310 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN15

#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)

Definition at line 2280 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN16

#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)

Definition at line 2282 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN17

#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)

Definition at line 2284 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN18

#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)

Definition at line 2286 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN19

#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)

Definition at line 2288 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN2

#define FCALLSCFUN2	(	T0,
		CN,
		UN,
		LN,
		T1,
		T2
	)	FCALLSCFUN5 (T0,CN,UN,LN,T1,T2,CF_0,CF_0,CF_0)

Definition at line 2254 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN20

#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)

Definition at line 2290 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN21

#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)

Definition at line 2292 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN22

#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)

Definition at line 2294 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN23

#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)

Definition at line 2296 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN24

#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)

Definition at line 2298 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN25

#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)

Definition at line 2300 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN26

#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)

Definition at line 2302 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN27

#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
	)

Value:

                                 CFextern _(T0,_cfF)(UN,LN)                    \
 CFARGT27(NCF,DCF,ABSOFT_cf2(T0),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) ) \
 {                 CFARGT27S(QCF,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)   \
  _Icf(2,UU,T0,A0,0); _Icf(0,L,T0,0,0)      CN(     TCF(LN,T1,1,0)  TCF(LN,T2,2,1)  \
    TCF(LN,T3,3,1)  TCF(LN,T4,4,1)  TCF(LN,T5,5,1)  TCF(LN,T6,6,1)  TCF(LN,T7,7,1)  \
    TCF(LN,T8,8,1)  TCF(LN,T9,9,1)  TCF(LN,TA,10,1) TCF(LN,TB,11,1) TCF(LN,TC,12,1) \
    TCF(LN,TD,13,1) TCF(LN,TE,14,1) TCF(LN,TF,15,1) TCF(LN,TG,16,1) TCF(LN,TH,17,1) \
    TCF(LN,TI,18,1) TCF(LN,TJ,19,1) TCF(LN,TK,20,1) TCF(LN,TL,21,1) TCF(LN,TM,22,1) \
    TCF(LN,TN,23,1) TCF(LN,TO,24,1) TCF(LN,TP,25,1) TCF(LN,TQ,26,1) TCF(LN,TR,27,1) ); _Icf(0,K,T0,0,0) \
                   CFARGT27S(RCF,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)  _(T0,_cfI) }

Definition at line 2320 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN3

#define FCALLSCFUN3	(	T0,
		CN,
		UN,
		LN,
		T1,
		T2,
		T3
	)	FCALLSCFUN5 (T0,CN,UN,LN,T1,T2,T3,CF_0,CF_0)

Definition at line 2256 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN4

#define FCALLSCFUN4	(	T0,
		CN,
		UN,
		LN,
		T1,
		T2,
		T3,
		T4
	)	FCALLSCFUN5 (T0,CN,UN,LN,T1,T2,T3,T4,CF_0)

Definition at line 2258 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN5

#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)

Definition at line 2260 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN6

#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)

Definition at line 2262 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN7

#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)

Definition at line 2264 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN8

#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)

Definition at line 2266 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCFUN9

#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)

Definition at line 2268 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB0

#define FCALLSCSUB0	(	CN,
		UN,
		LN
	)	FCALLSCFUN0(VOID,CN,UN,LN)

Definition at line 2198 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB1

#define FCALLSCSUB1	(	CN,
		UN,
		LN,
		T1
	)	FCALLSCFUN1(VOID,CN,UN,LN,T1)

Definition at line 2199 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB10

#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)

Definition at line 2214 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB11

#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)

Definition at line 2216 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB12

#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)

Definition at line 2218 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB13

#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)

Definition at line 2220 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB14

#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)

Definition at line 2222 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB15

#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)

Definition at line 2224 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB16

#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)

Definition at line 2226 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB17

#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)

Definition at line 2228 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB18

#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)

Definition at line 2230 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB19

#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)

Definition at line 2232 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB2

#define FCALLSCSUB2	(	CN,
		UN,
		LN,
		T1,
		T2
	)	FCALLSCFUN2(VOID,CN,UN,LN,T1,T2)

Definition at line 2200 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB20

#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)

Definition at line 2234 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB21

#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)

Definition at line 2236 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB22

#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)

Definition at line 2238 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB23

#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)

Definition at line 2240 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB24

#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)

Definition at line 2242 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB25

#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)

Definition at line 2244 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB26

#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)

Definition at line 2246 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB27

#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)

Definition at line 2248 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB3

#define FCALLSCSUB3	(	CN,
		UN,
		LN,
		T1,
		T2,
		T3
	)	FCALLSCFUN3(VOID,CN,UN,LN,T1,T2,T3)

Definition at line 2201 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB4

#define FCALLSCSUB4	(	CN,
		UN,
		LN,
		T1,
		T2,
		T3,
		T4
	)	FCALLSCFUN4(VOID,CN,UN,LN,T1,T2,T3,T4)

Definition at line 2202 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB5

#define FCALLSCSUB5	(	CN,
		UN,
		LN,
		T1,
		T2,
		T3,
		T4,
		T5
	)	FCALLSCFUN5(VOID,CN,UN,LN,T1,T2,T3,T4,T5)

Definition at line 2204 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB6

#define FCALLSCSUB6	(	CN,
		UN,
		LN,
		T1,
		T2,
		T3,
		T4,
		T5,
		T6
	)	FCALLSCFUN6(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6)

Definition at line 2206 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB7

#define FCALLSCSUB7	(	CN,
		UN,
		LN,
		T1,
		T2,
		T3,
		T4,
		T5,
		T6,
		T7
	)	FCALLSCFUN7(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7)

Definition at line 2208 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB8

#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)

Definition at line 2210 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCALLSCSUB9

#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)

Definition at line 2212 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FCB2CSTR

#define FCB2CSTR	(	FSTR,
		CSTR,
		DIM
	)

Value:

 vkill_trailing(f2cstrv((char *)FSTR, (char *)CSTR,                            \
                        sizeof(FSTR)/cfelementsof(FSTR,DIM)+1,                 \
                        sizeof(FSTR)+cfelementsof(FSTR,DIM)),                  \
                sizeof(FSTR)/cfelementsof(FSTR,DIM)+1,                         \
                sizeof(FSTR)+cfelementsof(FSTR,DIM), ' ')

Definition at line 556 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ firstindexlength

#define firstindexlength ( A ) (sizeof(A[0])==1 ? 1 : (sizeof(A) / sizeof(A[0])) )

Definition at line 332 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOAT_cfCCC

#define FLOAT_cfCCC	(	A,
		B
	)	&A

Definition at line 1697 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOAT_cfE

#define FLOAT_cfE FORTRAN_REAL A0;

Definition at line 1468 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOAT_cfF

#define FLOAT_cfF	(	UN,
		LN
	)	FORTRAN_REAL FCALLSC_QUALIFIER fcallsc(UN,LN)(

Definition at line 2121 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOAT_cfFZ

#define FLOAT_cfFZ	(	UN,
		LN
	)	FORTRAN_REAL FCALLSC_QUALIFIER fcallsc(UN,LN)(void

Definition at line 2091 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOAT_cfI

#define FLOAT_cfI return A0;

Definition at line 2178 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOAT_cfINT

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

Definition at line 1341 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOAT_cfPU

#define FLOAT_cfPU ( A ) CFextern FORTRAN_REAL FCALLSC_QUALIFIER A

Definition at line 1454 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOAT_cfSTR

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

Definition at line 1588 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOAT_cfT

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

Definition at line 1956 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOAT_cfVCF

#define FLOAT_cfVCF	(	A,
		B
	)

Definition at line 611 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOAT_cfX

#define FLOAT_cfX return A0;

Definition at line 1755 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATV_cfINT

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

Definition at line 1367 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATV_cfSTR

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

Definition at line 1607 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATV_cfT

#define FLOATV_cfT	(	M,
		I,
		A,
		B,
		D
	)	VOIDP A

Definition at line 1963 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATVV_cfINT

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

Definition at line 1368 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATVV_cfSTR

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

Definition at line 1608 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATVV_cfT

#define FLOATVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1980 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATVVV_cfINT

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

Definition at line 1369 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATVVV_cfSTR

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

Definition at line 1609 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATVVV_cfT

#define FLOATVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1981 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATVVVV_cfINT

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

Definition at line 1370 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATVVVV_cfSTR

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

Definition at line 1610 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATVVVV_cfT

#define FLOATVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1982 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATVVVVV_cfINT

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

Definition at line 1371 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATVVVVV_cfSTR

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

Definition at line 1611 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATVVVVV_cfT

#define FLOATVVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1983 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATVVVVVV_cfINT

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

Definition at line 1372 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATVVVVVV_cfSTR

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

Definition at line 1612 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATVVVVVV_cfT

#define FLOATVVVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1984 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATVVVVVVV_cfINT

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

Definition at line 1373 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATVVVVVVV_cfPP

#define FLOATVVVVVVV_cfPP

Definition at line 242 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATVVVVVVV_cfSTR

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

Definition at line 1613 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATVVVVVVV_cfT

#define FLOATVVVVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1985 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FLOATVVVVVVV_cfTYPE

#define FLOATVVVVVVV_cfTYPE FORTRAN_REAL

Definition at line 1317 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FORTRAN_FUNCTION

#define FORTRAN_FUNCTION	(	UN,
		LN
	)	CFC_(UN,LN)

Definition at line 197 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ FORTRAN_REAL

#define FORTRAN_REAL float

Definition at line 227 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ H_CF_SPECIAL

#define H_CF_SPECIAL unsigned

Definition at line 1569 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ HCF

#define HCF	(	TN,
		I
	)	_(TN,_cfSTR)(3,H,cfCOMMA, H,_(C,I),0,0)

Definition at line 1566 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ HH_CF_SPECIAL

#define HH_CF_SPECIAL

Definition at line 1570 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ HHCF

#define HHCF	(	TN,
		I
	)	_(TN,_cfSTR)(3,H,cfCOMMA,HH,_(C,I),0,0)

Definition at line 1567 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ HHHCF

#define HHHCF	(	TN,
		I
	)	_(TN,_cfSTR)(3,H,cfCOLON, H,_(C,I),0,0)

Definition at line 1568 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfAA

#define INT_cfAA	(	T,
		A,
		B
	)	&B

Definition at line 703 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfB

#define INT_cfB	(	T,
		A
	)	(_(T,VVVVVVV_cfTYPE)) A

Definition at line 1536 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfCC

#define INT_cfCC	(	T,
		A,
		B
	)	_(T,_cfCCC)(A,B)

Definition at line 1715 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfCCC

#define INT_cfCCC	(	A,
		B
	)	&A

Definition at line 1702 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfE

#define INT_cfE int A0;

Definition at line 1472 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfF

#define INT_cfF	(	UN,
		LN
	)	INT_cfFZ(UN,LN)

Definition at line 2125 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfFF

#define INT_cfFF

Definition at line 2132 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfFZ

#define INT_cfFZ	(	UN,
		LN
	)	int FCALLSC_QUALIFIER fcallsc(UN,LN)(

Definition at line 2083 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfG

#define INT_cfG	(	T,
		UN,
		LN
	)	INT_cfGZ(T,UN,LN)

Definition at line 1517 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfGZ

#define INT_cfGZ	(	T,
		UN,
		LN
	)	A0=CFC_(UN,LN)(

Definition at line 1505 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfI

#define INT_cfI return A0;

Definition at line 2182 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfINT

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

Definition at line 1342 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfK

#define INT_cfK

Definition at line 2148 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfL

#define INT_cfL A0=

Definition at line 2144 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfN

#define INT_cfN	(	T,
		A
	)	_(T,VVVVVVV_cfTYPE) * A

Definition at line 792 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfPU

#define INT_cfPU ( A ) CFextern int FCALLSC_QUALIFIER A

Definition at line 1458 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfSEP

#define INT_cfSEP	(	T,
		B
	)	_(A,B)

Definition at line 1284 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfSTR

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

Definition at line 1589 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfT

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

Definition at line 1957 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfU

#define INT_cfU	(	T,
		A
	)	_(T,VVVVVVV_cfTYPE) A

Definition at line 1426 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfUU

#define INT_cfUU	(	T,
		A
	)	_(T,VVVVVVV_cfTYPE) A

Definition at line 1446 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfV

#define INT_cfV	(	T,
		A,
		B,
		F
	)	_(VCF_INT_,F)(T,A,B)

Definition at line 629 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfVCF

#define INT_cfVCF	(	A,
		B
	)

Definition at line 615 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INT_cfX

#define INT_cfX return A0;

Definition at line 1759 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTEGER_BYTE

#define INTEGER_BYTE signed char /* default */

Definition at line 1310 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTV_cfAA

#define INTV_cfAA	(	T,
		A,
		B
	)	_(T,VVVVVV_cfPP) A

Definition at line 704 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTV_cfB

#define INTV_cfB	(	T,
		A
	)	A

Definition at line 1537 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTV_cfCC

#define INTV_cfCC	(	T,
		A,
		B
	)	A

Definition at line 1716 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTV_cfINT

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

Definition at line 1374 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTV_cfN

#define INTV_cfN	(	T,
		A
	)	_(T,VVVVVV_cfTYPE) * A

Definition at line 793 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTV_cfSEP

#define INTV_cfSEP	(	T,
		B
	)	INT_cfSEP(T,B)

Definition at line 1285 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTV_cfSTR

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

Definition at line 1614 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTV_cfT

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

Definition at line 1964 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTV_cfU

#define INTV_cfU	(	T,
		A
	)	_(T,VVVVVV_cfTYPE) * A

Definition at line 1427 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTV_cfV

#define INTV_cfV	(	T,
		A,
		B,
		F
	)

Definition at line 630 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVV_cfAA

#define INTVV_cfAA	(	T,
		A,
		B
	)	_(T,VVVVV_cfPP) A[0]

Definition at line 705 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVV_cfB

#define INTVV_cfB	(	T,
		A
	)	(A)[0]

Definition at line 1538 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVV_cfCC

#define INTVV_cfCC	(	T,
		A,
		B
	)	A

Definition at line 1717 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVV_cfINT

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

Definition at line 1375 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVV_cfN

#define INTVV_cfN	(	T,
		A
	)	_(T,VVVVV_cfTYPE) * A

Definition at line 794 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVV_cfSEP

#define INTVV_cfSEP	(	T,
		B
	)	INT_cfSEP(T,B)

Definition at line 1286 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVV_cfSTR

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

Definition at line 1615 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVV_cfT

#define INTVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1986 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVV_cfU

#define INTVV_cfU	(	T,
		A
	)	_(T,VVVVV_cfTYPE) * A

Definition at line 1428 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVV_cfV

#define INTVV_cfV	(	T,
		A,
		B,
		F
	)

Definition at line 631 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVV_cfAA

#define INTVVV_cfAA	(	T,
		A,
		B
	)	_(T,VVVV_cfPP) A[0][0]

Definition at line 706 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVV_cfB

#define INTVVV_cfB	(	T,
		A
	)	(A)[0][0]

Definition at line 1539 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVV_cfCC

#define INTVVV_cfCC	(	T,
		A,
		B
	)	A

Definition at line 1718 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVV_cfINT

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

Definition at line 1376 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVV_cfN

#define INTVVV_cfN	(	T,
		A
	)	_(T,VVVV_cfTYPE) * A

Definition at line 795 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVV_cfSEP

#define INTVVV_cfSEP	(	T,
		B
	)	INT_cfSEP(T,B)

Definition at line 1287 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVV_cfSTR

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

Definition at line 1616 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVV_cfT

#define INTVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1987 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVV_cfU

#define INTVVV_cfU	(	T,
		A
	)	_(T,VVVV_cfTYPE) * A

Definition at line 1429 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVV_cfV

#define INTVVV_cfV	(	T,
		A,
		B,
		F
	)

Definition at line 632 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVV_cfAA

#define INTVVVV_cfAA	(	T,
		A,
		B
	)	_(T,VVV_cfPP) A[0][0][0]

Definition at line 707 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVV_cfB

#define INTVVVV_cfB	(	T,
		A
	)	(A)[0][0][0]

Definition at line 1540 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVV_cfCC

#define INTVVVV_cfCC	(	T,
		A,
		B
	)	A

Definition at line 1719 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVV_cfINT

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

Definition at line 1377 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVV_cfN

#define INTVVVV_cfN	(	T,
		A
	)	_(T,VVV_cfTYPE) * A

Definition at line 796 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVV_cfSEP

#define INTVVVV_cfSEP	(	T,
		B
	)	INT_cfSEP(T,B)

Definition at line 1288 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVV_cfSTR

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

Definition at line 1617 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVV_cfT

#define INTVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1988 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVV_cfU

#define INTVVVV_cfU	(	T,
		A
	)	_(T,VVV_cfTYPE) * A

Definition at line 1430 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVV_cfV

#define INTVVVV_cfV	(	T,
		A,
		B,
		F
	)

Definition at line 633 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVV_cfAA

#define INTVVVVV_cfAA	(	T,
		A,
		B
	)	_(T,VV_cfPP) A[0][0][0][0]

Definition at line 708 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVV_cfB

#define INTVVVVV_cfB	(	T,
		A
	)	(A)[0][0][0][0]

Definition at line 1541 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVV_cfCC

#define INTVVVVV_cfCC	(	T,
		A,
		B
	)	A

Definition at line 1720 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVV_cfINT

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

Definition at line 1378 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVV_cfN

#define INTVVVVV_cfN	(	T,
		A
	)	_(T,VV_cfTYPE) * A

Definition at line 797 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVV_cfSEP

#define INTVVVVV_cfSEP	(	T,
		B
	)	INT_cfSEP(T,B)

Definition at line 1289 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVV_cfSTR

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

Definition at line 1618 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVV_cfT

#define INTVVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1989 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVV_cfU

#define INTVVVVV_cfU	(	T,
		A
	)	_(T,VV_cfTYPE) * A

Definition at line 1431 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVV_cfV

#define INTVVVVV_cfV	(	T,
		A,
		B,
		F
	)

Definition at line 634 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVVV_cfAA

#define INTVVVVVV_cfAA	(	T,
		A,
		B
	)	_(T,V_cfPP) A[0][0][0][0][0]

Definition at line 709 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVVV_cfB

#define INTVVVVVV_cfB	(	T,
		A
	)	(A)[0][0][0][0][0]

Definition at line 1542 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVVV_cfCC

#define INTVVVVVV_cfCC	(	T,
		A,
		B
	)	A

Definition at line 1721 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVVV_cfINT

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

Definition at line 1379 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVVV_cfN

#define INTVVVVVV_cfN	(	T,
		A
	)	_(T,V_cfTYPE) * A

Definition at line 798 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVVV_cfSEP

#define INTVVVVVV_cfSEP	(	T,
		B
	)	INT_cfSEP(T,B)

Definition at line 1290 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVVV_cfSTR

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

Definition at line 1619 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVVV_cfT

#define INTVVVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1990 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVVV_cfU

#define INTVVVVVV_cfU	(	T,
		A
	)	_(T,V_cfTYPE) * A

Definition at line 1432 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVVV_cfV

#define INTVVVVVV_cfV	(	T,
		A,
		B,
		F
	)

Definition at line 635 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVVVV_cfAA

#define INTVVVVVVV_cfAA	(	T,
		A,
		B
	)	_(T,_cfPP) A[0][0][0][0][0][0]

Definition at line 710 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVVVV_cfB

#define INTVVVVVVV_cfB	(	T,
		A
	)	(A)[0][0][0][0][0][0]

Definition at line 1543 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVVVV_cfCC

#define INTVVVVVVV_cfCC	(	T,
		A,
		B
	)	A

Definition at line 1722 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVVVV_cfINT

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

Definition at line 1380 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVVVV_cfN

#define INTVVVVVVV_cfN	(	T,
		A
	)	_(T,_cfTYPE) * A

Definition at line 799 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVVVV_cfPP

#define INTVVVVVVV_cfPP /* These complement FLOATVVVVVVV_cfPP. */

Definition at line 1522 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVVVV_cfSEP

#define INTVVVVVVV_cfSEP	(	T,
		B
	)	INT_cfSEP(T,B)

Definition at line 1291 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVVVV_cfSTR

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

Definition at line 1620 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVVVV_cfT

#define INTVVVVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1991 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVVVV_cfTYPE

#define INTVVVVVVV_cfTYPE int

Definition at line 1318 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVVVV_cfU

#define INTVVVVVVV_cfU	(	T,
		A
	)	_(T,_cfTYPE) * A

Definition at line 1433 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ INTVVVVVVV_cfV

#define INTVVVVVVV_cfV	(	T,
		A,
		B,
		F
	)

Definition at line 636 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ JCF

#define JCF	(	TN,
		I
	)	_(TN,_cfSTR)(1,J,_(B,I), 0,0,0,0)

Definition at line 737 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ KCF

#define KCF	(	TN,
		I
	)	_(TN,_cfSTR)(1,KK,_(B,I), 0,0,0,0)

Definition at line 753 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICAL_cfA

#define LOGICAL_cfA	(	M,
		I,
		A,
		B
	)	B=C2FLOGICAL(B);

Definition at line 667 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICAL_cfC

#define LOGICAL_cfC	(	M,
		I,
		A,
		B,
		C
	)	A=C2FLOGICAL( A);

Definition at line 1665 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICAL_cfCCC

#define LOGICAL_cfCCC	(	A,
		B
	)	&A

Definition at line 1703 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICAL_cfE

#define LOGICAL_cfE int A0;

Definition at line 1473 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICAL_cfF

#define LOGICAL_cfF	(	UN,
		LN
	)	LOGICAL_cfFZ(UN,LN)

Definition at line 2126 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICAL_cfFZ

#define LOGICAL_cfFZ	(	UN,
		LN
	)	int FCALLSC_QUALIFIER fcallsc(UN,LN)(

Definition at line 2084 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICAL_cfH

#define LOGICAL_cfH	(	S,
		U,
		B
	)

Definition at line 1572 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICAL_cfI

#define LOGICAL_cfI return C2FLOGICAL(A0);

Definition at line 2187 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICAL_cfINT

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

Definition at line 1343 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICAL_cfJ

#define LOGICAL_cfJ ( B ) DEFAULT_cfJ(B)

Definition at line 743 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICAL_cfKK

#define LOGICAL_cfKK ( B ) DEFAULT_cfKK(B)

Definition at line 759 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICAL_cfPU

#define LOGICAL_cfPU ( A ) CFextern int FCALLSC_QUALIFIER A

Definition at line 1459 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICAL_cfQ

#define LOGICAL_cfQ ( B )

Definition at line 1910 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICAL_cfR

#define LOGICAL_cfR	(	A,
		B,
		D
	)

Definition at line 2058 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICAL_cfS

#define LOGICAL_cfS	(	M,
		I,
		A
	)

Definition at line 1556 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICAL_cfSTR

#define LOGICAL_cfSTR	(	N,
		T,
		A,
		B,
		C,
		D,
		E
	)	_(CFARGS,N)(T,LOGICAL,A,B,C,D,E)

Definition at line 1590 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICAL_cfT

#define LOGICAL_cfT	(	M,
		I,
		A,
		B,
		D
	)	F2CLOGICAL(*A)

Definition at line 1958 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICAL_cfVCF

#define LOGICAL_cfVCF	(	A,
		B
	)

Definition at line 616 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICAL_cfW

#define LOGICAL_cfW	(	A,
		B
	)

Definition at line 771 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICAL_cfX

#define LOGICAL_cfX return F2CLOGICAL(A0);

Definition at line 1760 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALV_cfINT

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

Definition at line 1381 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALV_cfSTR

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

Definition at line 1621 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALV_cfT

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

Definition at line 1965 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALVV_cfINT

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

Definition at line 1382 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALVV_cfSTR

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

Definition at line 1622 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALVV_cfT

#define LOGICALVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1992 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALVVV_cfINT

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

Definition at line 1383 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALVVV_cfSTR

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

Definition at line 1623 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALVVV_cfT

#define LOGICALVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1993 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALVVVV_cfINT

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

Definition at line 1384 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALVVVV_cfSTR

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

Definition at line 1624 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALVVVV_cfT

#define LOGICALVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1994 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALVVVVV_cfINT

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

Definition at line 1385 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALVVVVV_cfSTR

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

Definition at line 1625 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALVVVVV_cfT

#define LOGICALVVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1995 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALVVVVVV_cfINT

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

Definition at line 1386 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALVVVVVV_cfSTR

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

Definition at line 1626 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALVVVVVV_cfT

#define LOGICALVVVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1996 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALVVVVVVV_cfINT

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

Definition at line 1387 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALVVVVVVV_cfPP

#define LOGICALVVVVVVV_cfPP

Definition at line 1524 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALVVVVVVV_cfSTR

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

Definition at line 1627 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALVVVVVVV_cfT

#define LOGICALVVVVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1997 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LOGICALVVVVVVV_cfTYPE

#define LOGICALVVVVVVV_cfTYPE int

Definition at line 1319 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONG_cfCCC

#define LONG_cfCCC	(	A,
		B
	)	&A

Definition at line 1704 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONG_cfE

#define LONG_cfE long A0;

Definition at line 1474 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONG_cfF

#define LONG_cfF	(	UN,
		LN
	)	LONG_cfFZ(UN,LN)

Definition at line 2127 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONG_cfFZ

#define LONG_cfFZ	(	UN,
		LN
	)	long FCALLSC_QUALIFIER fcallsc(UN,LN)(

Definition at line 2085 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONG_cfI

#define LONG_cfI return A0;

Definition at line 2189 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONG_cfINT

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

Definition at line 1344 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONG_cfPU

#define LONG_cfPU ( A ) CFextern long FCALLSC_QUALIFIER A

Definition at line 1460 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONG_cfSTR

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

Definition at line 1591 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONG_cfT

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

Definition at line 1959 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONG_cfVCF

#define LONG_cfVCF	(	A,
		B
	)

Definition at line 617 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONG_cfX

#define LONG_cfX return A0;

Definition at line 1761 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGV_cfINT

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

Definition at line 1388 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGV_cfSTR

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

Definition at line 1628 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGV_cfT

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

Definition at line 1966 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGVV_cfINT

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

Definition at line 1389 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGVV_cfSTR

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

Definition at line 1629 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGVV_cfT

#define LONGVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1998 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGVVV_cfINT

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

Definition at line 1390 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGVVV_cfSTR

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

Definition at line 1630 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGVVV_cfT

#define LONGVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 1999 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGVVVV_cfINT

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

Definition at line 1391 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGVVVV_cfSTR

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

Definition at line 1631 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGVVVV_cfT

#define LONGVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 2000 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGVVVVV_cfINT

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

Definition at line 1392 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGVVVVV_cfSTR

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

Definition at line 1632 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGVVVVV_cfT

#define LONGVVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 2001 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGVVVVVV_cfINT

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

Definition at line 1393 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGVVVVVV_cfSTR

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

Definition at line 1633 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGVVVVVV_cfT

#define LONGVVVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 2002 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGVVVVVVV_cfINT

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

Definition at line 1394 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGVVVVVVV_cfPP

#define LONGVVVVVVV_cfPP

Definition at line 1525 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGVVVVVVV_cfSTR

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

Definition at line 1634 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGVVVVVVV_cfT

#define LONGVVVVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 2003 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ LONGVVVVVVV_cfTYPE

#define LONGVVVVVVV_cfTYPE long

Definition at line 1320 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ MAX_LEN_FORTRAN_FUNCTION_STRING

#define MAX_LEN_FORTRAN_FUNCTION_STRING 0x4FE

Definition at line 1271 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ MAX_PREPRO_ARGS

#define MAX_PREPRO_ARGS 99

Definition at line 840 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ NCF

#define NCF	(	TN,
		I,
		C
	)	_SEP_(TN,C,cfCOMMA) _Icf(2,N,TN,_(A,I),0)

Definition at line 789 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ NNCF

#define NNCF	(	TN,
		I,
		C
	)	UUCF(TN,I,C)

Definition at line 790 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ NNNCF

#define NNNCF	(	TN,
		I,
		C
	)	_SEP_(TN,C,cfCOLON) _Icf(2,N,TN,_(A,I),0)

Definition at line 791 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ NUM_ELEM_ARG

#define NUM_ELEM_ARG ( B ) *_2(A,B),_NUM_ELEM_ARG

Definition at line 519 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ NUM_ELEMS

#define NUM_ELEMS ( A ) A,_NUM_ELEMS

Definition at line 518 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ orig_fcallsc

#define orig_fcallsc	(	UN,
		LN
	)	CFC_(UN,LN)

Definition at line 187 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PBYTE_cfAAP

#define PBYTE_cfAAP	(	A,
		B
	)	&A

Definition at line 694 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PBYTE_cfCCC

#define PBYTE_cfCCC	(	A,
		B
	)	A

Definition at line 1706 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PBYTE_cfINT

#define PBYTE_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	PDOUBLE_cfINT(N,A,B,X,Y,Z)

Definition at line 1346 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PBYTE_cfPP

#define PBYTE_cfPP

Definition at line 1527 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PBYTE_cfSTR

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

Definition at line 1642 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PBYTE_cfT

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

Definition at line 2010 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PBYTE_cfTYPE

#define PBYTE_cfTYPE INTEGER_BYTE

Definition at line 1322 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PBYTE_cfVP

#define PBYTE_cfVP	(	A,
		B
	)	PINT_cfVP(A,B)

Definition at line 590 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PDOUBLE_cfAAP

#define PDOUBLE_cfAAP	(	A,
		B
	)	&A

Definition at line 695 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PDOUBLE_cfCCC

#define PDOUBLE_cfCCC	(	A,
		B
	)	A

Definition at line 1707 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PDOUBLE_cfINT

#define PDOUBLE_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	_(CFARGS,N)(A,PINT,B,X,Y,Z,0)

Definition at line 1347 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PDOUBLE_cfPP

#define PDOUBLE_cfPP

Definition at line 1529 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PDOUBLE_cfSTR

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

Definition at line 1643 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PDOUBLE_cfT

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

Definition at line 2011 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PDOUBLE_cfTYPE

#define PDOUBLE_cfTYPE DOUBLE_PRECISION

Definition at line 1323 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PDOUBLE_cfVP

#define PDOUBLE_cfVP	(	A,
		B
	)

Definition at line 591 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PFLOAT_cfAAP

#define PFLOAT_cfAAP	(	A,
		B
	)	FLOATVVVVVVV_cfPP &A

Definition at line 696 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PFLOAT_cfCCC

#define PFLOAT_cfCCC	(	A,
		B
	)	A

Definition at line 1708 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PFLOAT_cfINT

#define PFLOAT_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	PDOUBLE_cfINT(N,A,B,X,Y,Z)

Definition at line 1348 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PFLOAT_cfPP

#define PFLOAT_cfPP FLOATVVVVVVV_cfPP

Definition at line 1533 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PFLOAT_cfSTR

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

Definition at line 1644 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PFLOAT_cfT

#define PFLOAT_cfT	(	M,
		I,
		A,
		B,
		D
	)	VOIDP A

Definition at line 2012 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PFLOAT_cfTYPE

#define PFLOAT_cfTYPE FORTRAN_REAL

Definition at line 1324 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PFLOAT_cfVP

#define PFLOAT_cfVP	(	A,
		B
	)

Definition at line 592 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PINT_cfAA

#define PINT_cfAA	(	T,
		A,
		B
	)	_(T,_cfAAP)(A,B)

Definition at line 711 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PINT_cfAAP

#define PINT_cfAAP	(	A,
		B
	)	&A

Definition at line 697 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PINT_cfB

#define PINT_cfB	(	T,
		A
	)	_(T,_cfPP)&A

Definition at line 1544 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PINT_cfCC

#define PINT_cfCC	(	T,
		A,
		B
	)	_(T,_cfCCC)(A,B)

Definition at line 1723 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PINT_cfCCC

#define PINT_cfCCC	(	A,
		B
	)	A

Definition at line 1709 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PINT_cfINT

#define PINT_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	PDOUBLE_cfINT(N,A,B,X,Y,Z)

Definition at line 1349 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PINT_cfN

#define PINT_cfN	(	T,
		A
	)	_(T,_cfTYPE) * A

Definition at line 800 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PINT_cfPP

#define PINT_cfPP

Definition at line 1528 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PINT_cfSEP

#define PINT_cfSEP	(	T,
		B
	)	INT_cfSEP(T,B)

Definition at line 1292 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PINT_cfSTR

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

Definition at line 1645 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PINT_cfT

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

Definition at line 2013 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PINT_cfTYPE

#define PINT_cfTYPE int

Definition at line 1325 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PINT_cfU

#define PINT_cfU	(	T,
		A
	)	_(T,_cfTYPE) * A

Definition at line 1434 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PINT_cfV

#define PINT_cfV	(	T,
		A,
		B,
		F
	)	_(T,_cfVP)(A,B)

Definition at line 637 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PINT_cfVP

#define PINT_cfVP	(	A,
		B
	)

Definition at line 599 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLOGICAL_cfA

#define PLOGICAL_cfA	(	M,
		I,
		A,
		B
	)	A=C2FLOGICAL(A);

Definition at line 668 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLOGICAL_cfAAP

#define PLOGICAL_cfAAP	(	A,
		B
	)	B= &A /* B used to keep a common W table. */

Definition at line 698 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLOGICAL_cfC

#define PLOGICAL_cfC	(	M,
		I,
		A,
		B,
		C
	)	A=C2FLOGICAL(A);

Definition at line 1666 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLOGICAL_cfCCC

#define PLOGICAL_cfCCC	(	A,
		B
	)	B=A /* B used to keep a common W table. */

Definition at line 1710 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLOGICAL_cfH

#define PLOGICAL_cfH	(	S,
		U,
		B
	)

Definition at line 1573 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLOGICAL_cfINT

#define PLOGICAL_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	PDOUBLE_cfINT(N,A,B,X,Y,Z)

Definition at line 1350 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLOGICAL_cfJ

#define PLOGICAL_cfJ ( B ) DEFAULT_cfJ(B)

Definition at line 744 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLOGICAL_cfKK

#define PLOGICAL_cfKK ( B ) DEFAULT_cfKK(B)

Definition at line 760 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLOGICAL_cfPP

#define PLOGICAL_cfPP

Definition at line 1530 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLOGICAL_cfQ

#define PLOGICAL_cfQ ( B )

Definition at line 1911 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLOGICAL_cfR

#define PLOGICAL_cfR	(	A,
		B,
		D
	)	A=C2FLOGICAL(A);

Definition at line 2059 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLOGICAL_cfS

#define PLOGICAL_cfS	(	M,
		I,
		A
	)

Definition at line 1557 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLOGICAL_cfSTR

#define PLOGICAL_cfSTR	(	N,
		T,
		A,
		B,
		C,
		D,
		E
	)	_(CFARGS,N)(T,PLOGICAL,A,B,C,D,E)

Definition at line 1646 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLOGICAL_cfT

#define PLOGICAL_cfT	(	M,
		I,
		A,
		B,
		D
	)	((A=F2CLOGICAL(A)),A)

Definition at line 2014 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLOGICAL_cfTYPE

#define PLOGICAL_cfTYPE int

Definition at line 1326 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLOGICAL_cfVP

#define PLOGICAL_cfVP	(	A,
		B
	)	int B; / Returning LOGICAL in FUNn and SUBn */

Definition at line 601 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLOGICAL_cfW

#define PLOGICAL_cfW	(	A,
		B
	)	B=F2CLOGICAL(B);

Definition at line 772 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLONG_cfAAP

#define PLONG_cfAAP	(	A,
		B
	)	&A

Definition at line 699 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLONG_cfCCC

#define PLONG_cfCCC	(	A,
		B
	)	A

Definition at line 1711 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLONG_cfINT

#define PLONG_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	PDOUBLE_cfINT(N,A,B,X,Y,Z)

Definition at line 1351 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLONG_cfPP

#define PLONG_cfPP

Definition at line 1531 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLONG_cfSTR

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

Definition at line 1647 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLONG_cfT

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

Definition at line 2015 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLONG_cfTYPE

#define PLONG_cfTYPE long

Definition at line 1327 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PLONG_cfVP

#define PLONG_cfVP	(	A,
		B
	)	PINT_cfVP(A,B)

Definition at line 602 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PNSTRING_cfH

#define PNSTRING_cfH	(	S,
		U,
		B
	)	STRING_cfH(S,U,B)

Definition at line 1578 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PNSTRING_cfINT

#define PNSTRING_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	PVOID_cfINT(N,A,B,X,Y,Z)

Definition at line 1416 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PNSTRING_cfN

#define PNSTRING_cfN	(	T,
		A
	)	STRING_cfN(T,A) /* CRAY insists on arg.'s here. */

Definition at line 820 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PNSTRING_cfQ

#define PNSTRING_cfQ ( B ) char *B=NULL;

Definition at line 1916 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PNSTRING_cfR

#define PNSTRING_cfR	(	A,
		B,
		D
	)	PSTRING_cfR(A,B,D)

Definition at line 2078 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PNSTRING_cfSEP

#define PNSTRING_cfSEP	(	T,
		B
	)	INT_cfSEP(T,B)

Definition at line 1301 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PNSTRING_cfSTR

#define PNSTRING_cfSTR	(	N,
		T,
		A,
		B,
		C,
		D,
		E
	)	_(CFARGS,N)(T,PNSTRING,A,B,C,D,E)

Definition at line 1653 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PNSTRING_cfT

#define PNSTRING_cfT	(	M,
		I,
		A,
		B,
		D
	)	STRING_cfT(M,I,A,B,D)

Definition at line 2052 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PPSTRING_cfH

#define PPSTRING_cfH	(	S,
		U,
		B
	)	STRING_cfH(S,U,B)

Definition at line 1579 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PPSTRING_cfINT

#define PPSTRING_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	PVOID_cfINT(N,A,B,X,Y,Z)

Definition at line 1417 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PPSTRING_cfN

#define PPSTRING_cfN	(	T,
		A
	)	STRING_cfN(T,A) /* CRAY insists on arg.'s here. */

Definition at line 821 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PPSTRING_cfQ

#define PPSTRING_cfQ ( B )

Definition at line 1917 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PPSTRING_cfR

#define PPSTRING_cfR	(	A,
		B,
		D
	)

Definition at line 2079 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PPSTRING_cfSEP

#define PPSTRING_cfSEP	(	T,
		B
	)	INT_cfSEP(T,B)

Definition at line 1302 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PPSTRING_cfSTR

#define PPSTRING_cfSTR	(	N,
		T,
		A,
		B,
		C,
		D,
		E
	)	_(CFARGS,N)(T,PPSTRING,A,B,C,D,E)

Definition at line 1654 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PPSTRING_cfT

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

Definition at line 2049 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ preface_fcallsc

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

Definition at line 193 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFFUN0

#define PROTOCCALLSFFUN0	(	F,
		UN,
		LN
	)

Value:

_(F,_cfPU)( CFC_(UN,LN))(CF_NULL_PROTO); \

static _Icf(2,U,F,CFFUN(UN),0)() {_(F,_cfE) _Icf(3,GZ,F,UN,LN) ABSOFT_cf1(F));_(F,_cfX)}

CF_NULL_PROTO

#define CF_NULL_PROTO

Definition: Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h:272

ABSOFT_cf1

#define ABSOFT_cf1(T0)

Definition: Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h:863

Definition at line 1830 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFFUN1

#define PROTOCCALLSFFUN1	(	T0,
		UN,
		LN,
		T1
	)	PROTOCCALLSFFUN5 (T0,UN,LN,T1,CF_0,CF_0,CF_0,CF_0)

Definition at line 1834 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFFUN10

#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)

Definition at line 1852 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFFUN11

#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)

Definition at line 1854 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFFUN12

#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)

Definition at line 1856 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFFUN13

#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)

Definition at line 1858 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFFUN14

#define PROTOCCALLSFFUN14	(	T0,
		UN,
		LN,
		T1,
		T2,
		T3,
		T4,
		T5,
		T6,
		T7,
		T8,
		T9,
		TA,
		TB,
		TC,
		TD,
		TE
	)

Value:

 _(T0,_cfPU)(CFC_(UN,LN))(CF_NULL_PROTO); static _Icf(2,U,T0,CFFUN(UN),0)(     \
   CFARGT14FS(UCF,HCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) )          \
{       CFARGT14S(VCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)    _(T0,_cfE) \
 CCF(LN,T1,1)  CCF(LN,T2,2)  CCF(LN,T3,3)  CCF(LN,T4,4)  CCF(LN,T5,5)          \
 CCF(LN,T6,6)  CCF(LN,T7,7)  CCF(LN,T8,8)  CCF(LN,T9,9)  CCF(LN,TA,10)         \
 CCF(LN,TB,11) CCF(LN,TC,12) CCF(LN,TD,13) CCF(LN,TE,14)    _Icf(3,G,T0,UN,LN) \
 CFARGT14(CCCF,JCF,ABSOFT_cf1(T0),T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)); \
 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,A10,10)     \
 WCF(TB,A11,11) WCF(TC,A12,12) WCF(TD,A13,13) WCF(TE,A14,14) _(T0,_cfX)}

Definition at line 1864 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFFUN2

#define PROTOCCALLSFFUN2	(	T0,
		UN,
		LN,
		T1,
		T2
	)	PROTOCCALLSFFUN5 (T0,UN,LN,T1,T2,CF_0,CF_0,CF_0)

Definition at line 1836 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFFUN3

#define PROTOCCALLSFFUN3	(	T0,
		UN,
		LN,
		T1,
		T2,
		T3
	)	PROTOCCALLSFFUN5 (T0,UN,LN,T1,T2,T3,CF_0,CF_0)

Definition at line 1838 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFFUN4

#define PROTOCCALLSFFUN4	(	T0,
		UN,
		LN,
		T1,
		T2,
		T3,
		T4
	)	PROTOCCALLSFFUN5 (T0,UN,LN,T1,T2,T3,T4,CF_0)

Definition at line 1840 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFFUN5

#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)

Definition at line 1842 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFFUN6

#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)

Definition at line 1844 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFFUN7

#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)

Definition at line 1846 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFFUN8

#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)

Definition at line 1848 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFFUN9

#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)

Definition at line 1850 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB0

#define PROTOCCALLSFSUB0	(	UN,
		LN
	)	_(VOID,_cfPU)(CFC_(UN,LN))();

Definition at line 1082 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB1

#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)

Definition at line 1001 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB10

#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)

Definition at line 1019 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB11

#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)

Definition at line 1021 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB12

#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)

Definition at line 1023 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB13

#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)

Definition at line 1025 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB14

#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) );

Definition at line 1084 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB15

#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)

Definition at line 1029 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB16

#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)

Definition at line 1031 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB17

#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)

Definition at line 1033 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB18

#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)

Definition at line 1035 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB19

#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)

Definition at line 1037 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB2

#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)

Definition at line 1003 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB20

#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) );

Definition at line 1086 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB21

#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)

Definition at line 1040 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB22

#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)

Definition at line 1042 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB23

#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)

Definition at line 1044 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB24

#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)

Definition at line 1046 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB25

#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)

Definition at line 1048 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB26

#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)

Definition at line 1050 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB27

#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) );

Definition at line 1088 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB3

#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)

Definition at line 1005 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB4

#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)

Definition at line 1007 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB5

#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)

Definition at line 1009 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB6

#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)

Definition at line 1011 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB7

#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)

Definition at line 1013 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB8

#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)

Definition at line 1015 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PROTOCCALLSFSUB9

#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)

Definition at line 1017 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSHORT_cfAAP

#define PSHORT_cfAAP	(	A,
		B
	)	&A

Definition at line 700 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSHORT_cfCCC

#define PSHORT_cfCCC	(	A,
		B
	)	A

Definition at line 1712 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSHORT_cfINT

#define PSHORT_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	PDOUBLE_cfINT(N,A,B,X,Y,Z)

Definition at line 1352 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSHORT_cfPP

#define PSHORT_cfPP

Definition at line 1532 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSHORT_cfSTR

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

Definition at line 1648 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSHORT_cfT

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

Definition at line 2016 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSHORT_cfTYPE

#define PSHORT_cfTYPE short

Definition at line 1328 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSHORT_cfVP

#define PSHORT_cfVP	(	A,
		B
	)	PINT_cfVP(A,B)

Definition at line 603 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRING_cfA

#define PSTRING_cfA	(	M,
		I,
		A,
		B
	)	PSTRING_cfC(M,I,A,B,sizeof(A))

Definition at line 670 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRING_cfAA

#define PSTRING_cfAA	(	T,
		A,
		B
	)	PSTRING_cfCC(T,A,B)

Definition at line 719 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRING_cfB

#define PSTRING_cfB	(	T,
		A
	)	(char *) A

Definition at line 1547 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRING_cfC

#define PSTRING_cfC	(	M,
		I,
		A,
		B,
		C
	)

Value:

(C==sizeof(char*)? B=strlen(A): \

(A[C-1]='\0',B=strlen(A),memset((A)+B,' ',C-B-1),B=C-1));

C

***************************************************************************************Pseudo Class RRes *****************************************************************************************Parameters and physical constants **Maarten sept ************************************************************************DOUBLE PRECISION xsmu **************************************************************************PARTICLE DATA all others are from PDG *Only resonances with known widths into electron pairs are sept ************************************************************************C Declarations C

Definition: RRes.h:29

Definition at line 1679 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRING_cfCC

#define PSTRING_cfCC	(	T,
		A,
		B
	)	A

Definition at line 1745 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRING_cfH

#define PSTRING_cfH	(	S,
		U,
		B
	)	STRING_cfH(S,U,B)

Definition at line 1576 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRING_cfINT

#define PSTRING_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	PVOID_cfINT(N,A,B,X,Y,Z)

Definition at line 1414 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRING_cfJ

#define PSTRING_cfJ ( B ) ,B

Definition at line 746 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRING_cfKK

#define PSTRING_cfKK ( B ) STRING_cfKK(B)

Definition at line 762 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRING_cfN

#define PSTRING_cfN	(	T,
		A
	)	STRING_cfN(T,A) /* CRAY insists on arg.'s here. */

Definition at line 819 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRING_cfQ

#define PSTRING_cfQ ( B ) char *B=NULL;

Definition at line 1914 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRING_cfR

#define PSTRING_cfR	(	A,
		B,
		D
	)	RRRRPSTR( A,B,D)

Definition at line 2074 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRING_cfS

#define PSTRING_cfS	(	M,
		I,
		A
	)	,sizeof(A)

Definition at line 1561 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRING_cfSEP

#define PSTRING_cfSEP	(	T,
		B
	)	INT_cfSEP(T,B)

Definition at line 1299 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRING_cfSTR

#define PSTRING_cfSTR	(	N,
		T,
		A,
		B,
		C,
		D,
		E
	)	_(CFARGS,N)(T,PSTRING,A,B,C,D,E)

Definition at line 1650 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRING_cfT

#define PSTRING_cfT	(	M,
		I,
		A,
		B,
		D
	)	TTSTR( A,B,D)

Definition at line 2048 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRING_cfU

#define PSTRING_cfU	(	T,
		A
	)	char *A

Definition at line 1440 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRING_cfV

#define PSTRING_cfV	(	T,
		A,
		B,
		F
	)	int B;

Definition at line 656 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRING_cfW

#define PSTRING_cfW	(	A,
		B
	)	kill_trailing(A,' ');

Definition at line 774 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRINGV_cfA

#define PSTRINGV_cfA	(	M,
		I,
		A,
		B
	)	APATRINGV_cfA((char *)A,B,sizeof(A),firstindexlength(A),secondindexlength(A))

Definition at line 685 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRINGV_cfAA

#define PSTRINGV_cfAA	(	T,
		A,
		B
	)	STRINGV_cfAA(T,A,B)

Definition at line 729 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRINGV_cfB

#define PSTRINGV_cfB	(	T,
		A
	)	(char *) A

Definition at line 1548 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRINGV_cfC

#define PSTRINGV_cfC	(	M,
		I,
		A,
		B,
		C
	)	APATRINGV_cfA( A,B,(C/0xFFFF)*(C%0xFFFF),C/0xFFFF,C%0xFFFF)

Definition at line 1685 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRINGV_cfCC

#define PSTRINGV_cfCC	(	T,
		A,
		B
	)	B.fs

Definition at line 1746 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRINGV_cfH

#define PSTRINGV_cfH	(	S,
		U,
		B
	)	STRING_cfH(S,U,B)

Definition at line 1577 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRINGV_cfINT

#define PSTRINGV_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	PVOID_cfINT(N,A,B,X,Y,Z)

Definition at line 1415 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRINGV_cfJ

#define PSTRINGV_cfJ ( B ) STRING_cfJ(B)

Definition at line 748 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRINGV_cfKK

#define PSTRINGV_cfKK ( B ) STRING_cfKK(B)

Definition at line 764 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRINGV_cfN

#define PSTRINGV_cfN	(	T,
		A
	)	STRINGV_cfN(T,A)

Definition at line 822 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRINGV_cfQ

#define PSTRINGV_cfQ ( B ) STRINGV_cfQ(B)

Definition at line 1915 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRINGV_cfR

#define PSTRINGV_cfR	(	A,
		B,
		D
	)	RRRRPSTRV(A,B,D)

Definition at line 2075 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRINGV_cfS

#define PSTRINGV_cfS	(	M,
		I,
		A
	)	STRINGV_cfS(M,I,A)

Definition at line 1562 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRINGV_cfSEP

#define PSTRINGV_cfSEP	(	T,
		B
	)	INT_cfSEP(T,B)

Definition at line 1300 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRINGV_cfSTR

#define PSTRINGV_cfSTR	(	N,
		T,
		A,
		B,
		C,
		D,
		E
	)	_(CFARGS,N)(T,PSTRINGV,A,B,C,D,E)

Definition at line 1652 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRINGV_cfT

#define PSTRINGV_cfT	(	M,
		I,
		A,
		B,
		D
	)	STRINGV_cfT(M,I,A,B,D)

Definition at line 2053 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRINGV_cfU

#define PSTRINGV_cfU	(	T,
		A
	)	char *A

Definition at line 1441 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRINGV_cfV

#define PSTRINGV_cfV	(	T,
		A,
		B,
		F
	)	struct{char *fs; unsigned int sizeofA,flen;}B;

Definition at line 657 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PSTRINGV_cfW

#define PSTRINGV_cfW	(	A,
		B
	)

Value:

vkill_trailing( \

f2cstrv((char*)A,(char*)A,B.flen+1,B.sizeofA), B.flen+1,B.sizeofA,' ');

Definition at line 783 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PVOID_cfAA

#define PVOID_cfAA	(	T,
		A,
		B
	)	(void *) A

Definition at line 712 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PVOID_cfB

#define PVOID_cfB	(	T,
		A
	)	(void *) A

Definition at line 1549 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PVOID_cfCC

#define PVOID_cfCC	(	T,
		A,
		B
	)	A

Definition at line 1724 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PVOID_cfINT

#define PVOID_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	_(CFARGS,N)(A,B,B,X,Y,Z,0)

Definition at line 1402 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PVOID_cfN

#define PVOID_cfN	(	T,
		A
	)	void * A

Definition at line 801 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PVOID_cfSEP

#define PVOID_cfSEP	(	T,
		B
	)	INT_cfSEP(T,B)

Definition at line 1293 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PVOID_cfSTR

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

Definition at line 1655 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PVOID_cfT

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

Definition at line 2017 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PVOID_cfU

#define PVOID_cfU	(	T,
		A
	)	void *A

Definition at line 1435 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PVOID_cfV

#define PVOID_cfV	(	T,
		A,
		B,
		F
	)

Definition at line 638 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PZTRINGV_cfA

#define PZTRINGV_cfA	(	M,
		I,
		A,
		B
	)

Value:

                    APATRINGV_cfA( (char *)A,B,                     \
                    (_3(M,_ELEMS_,I))*(( _3(M,_ELEMLEN_,I))+1),                \
                              (_3(M,_ELEMS_,I)),(_3(M,_ELEMLEN_,I))+1)

Definition at line 690 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PZTRINGV_cfAA

#define PZTRINGV_cfAA	(	T,
		A,
		B
	)	STRINGV_cfAA(T,A,B)

Definition at line 731 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PZTRINGV_cfB

#define PZTRINGV_cfB	(	T,
		A
	)	(char *) A

Definition at line 1552 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PZTRINGV_cfC

#define PZTRINGV_cfC	(	M,
		I,
		A,
		B,
		C
	)

Value:

APATRINGV_cfA( A,B, (_3(M,_ELEMS_,I))*((_3(M,_ELEMLEN_,I))+1), \

(_3(M,_ELEMS_,I)), (_3(M,_ELEMLEN_,I))+1 )

Definition at line 1690 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PZTRINGV_cfCC

#define PZTRINGV_cfCC	(	T,
		A,
		B
	)	PSTRINGV_cfCC(T,A,B)

Definition at line 1750 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PZTRINGV_cfH

#define PZTRINGV_cfH	(	S,
		U,
		B
	)

Definition at line 1581 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PZTRINGV_cfINT

#define PZTRINGV_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	PVOID_cfINT(N,A,B,X,Y,Z)

Definition at line 1419 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PZTRINGV_cfJ

#define PZTRINGV_cfJ ( B ) STRING_cfJ(B)

Definition at line 750 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PZTRINGV_cfKK

#define PZTRINGV_cfKK ( B ) STRING_cfKK(B)

Definition at line 766 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PZTRINGV_cfN

#define PZTRINGV_cfN	(	T,
		A
	)	PSTRINGV_cfN(T,A)

Definition at line 824 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PZTRINGV_cfS

#define PZTRINGV_cfS	(	M,
		I,
		A
	)

Definition at line 1564 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PZTRINGV_cfSEP

#define PZTRINGV_cfSEP	(	T,
		B
	)	INT_cfSEP(T,B)

Definition at line 1304 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PZTRINGV_cfSTR

#define PZTRINGV_cfSTR	(	N,
		T,
		A,
		B,
		C,
		D,
		E
	)	_(CFARGS,N)(T,PZTRINGV,A,B,C,D,E)

Definition at line 1659 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PZTRINGV_cfU

#define PZTRINGV_cfU	(	T,
		A
	)	char *A

Definition at line 1443 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PZTRINGV_cfV

#define PZTRINGV_cfV	(	T,
		A,
		B,
		F
	)	PSTRINGV_cfV(T,A,B,F)

Definition at line 660 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ PZTRINGV_cfW

#define PZTRINGV_cfW	(	A,
		B
	)	PSTRINGV_cfW(A,B)

Definition at line 787 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ QCF

#define QCF	(	TN,
		I
	)	_(TN,_cfSTR)(1,Q,_(B,I), 0,0,0,0)

Definition at line 1908 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ RCF

#define RCF	(	TN,
		I
	)	_(TN,_cfSTR)(3,R,_(A,I),_(B,I),_(C,I),0,0)

Definition at line 2056 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_1

#define ROUTINE_1 ROUTINE_orig

Definition at line 1925 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_10

#define ROUTINE_10 ROUTINE_orig

Definition at line 1934 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_11

#define ROUTINE_11 ROUTINE_orig

Definition at line 1935 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_12

#define ROUTINE_12 ROUTINE_orig

Definition at line 1936 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_13

#define ROUTINE_13 ROUTINE_orig

Definition at line 1937 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_14

#define ROUTINE_14 ROUTINE_orig

Definition at line 1938 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_15

#define ROUTINE_15 ROUTINE_orig

Definition at line 1939 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_16

#define ROUTINE_16 ROUTINE_orig

Definition at line 1940 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_17

#define ROUTINE_17 ROUTINE_orig

Definition at line 1941 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_18

#define ROUTINE_18 ROUTINE_orig

Definition at line 1942 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_19

#define ROUTINE_19 ROUTINE_orig

Definition at line 1943 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_2

#define ROUTINE_2 ROUTINE_orig

Definition at line 1926 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_20

#define ROUTINE_20 ROUTINE_orig

Definition at line 1944 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_21

#define ROUTINE_21 ROUTINE_orig

Definition at line 1945 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_22

#define ROUTINE_22 ROUTINE_orig

Definition at line 1946 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_23

#define ROUTINE_23 ROUTINE_orig

Definition at line 1947 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_24

#define ROUTINE_24 ROUTINE_orig

Definition at line 1948 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_25

#define ROUTINE_25 ROUTINE_orig

Definition at line 1949 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_26

#define ROUTINE_26 ROUTINE_orig

Definition at line 1950 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_27

#define ROUTINE_27 ROUTINE_orig

Definition at line 1951 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_3

#define ROUTINE_3 ROUTINE_orig

Definition at line 1927 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_4

#define ROUTINE_4 ROUTINE_orig

Definition at line 1928 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_5

#define ROUTINE_5 ROUTINE_orig

Definition at line 1929 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_6

#define ROUTINE_6 ROUTINE_orig

Definition at line 1930 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_7

#define ROUTINE_7 ROUTINE_orig

Definition at line 1931 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_8

#define ROUTINE_8 ROUTINE_orig

Definition at line 1932 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_9

#define ROUTINE_9 ROUTINE_orig

Definition at line 1933 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_cfAA

#define ROUTINE_cfAA	(	T,
		A,
		B
	)	(cfCAST_FUNCTION)A

Definition at line 716 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_cfB

#define ROUTINE_cfB	(	T,
		A
	)	(cfCAST_FUNCTION)A

Definition at line 1550 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_cfCC

#define ROUTINE_cfCC	(	T,
		A,
		B
	)	A

Definition at line 1728 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_cfINT

#define ROUTINE_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	PVOID_cfINT(N,A,B,X,Y,Z)

Definition at line 1403 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_cfN

#define ROUTINE_cfN	(	T,
		A
	)	void ( *A)(CF_NULL_PROTO)

Definition at line 805 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_cfSEP

#define ROUTINE_cfSEP	(	T,
		B
	)	INT_cfSEP(T,B)

Definition at line 1294 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_cfSTR

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

Definition at line 1656 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_cfT

#define ROUTINE_cfT	(	M,
		I,
		A,
		B,
		D
	)	_(ROUTINE_,I) A

Definition at line 2021 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_cfU

#define ROUTINE_cfU	(	T,
		A
	)	void (*A)(CF_NULL_PROTO)

Definition at line 1436 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_cfV

#define ROUTINE_cfV	(	T,
		A,
		B,
		F
	)

Definition at line 642 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ROUTINE_orig

#define ROUTINE_orig (void *)

Definition at line 1922 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ RRRRPSTR

#define RRRRPSTR	(	A,
		B,
		D
	)

Value:

if (B) memcpy(A,B, _cfMIN(strlen(B),D)), \

(D>strlen(B)?memset(A+strlen(B),' ', D-strlen(B)):0), _cf_free(B);

_cf_free

#define _cf_free(P)

Definition: Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h:304

_cfMIN

#define _cfMIN(A, B)

Definition: Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h:326

Definition at line 2063 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ RRRRPSTRV

#define RRRRPSTRV	(	A,
		B,
		D
	)	c2fstrv(B,A,D+1,(D+1)*_(B,N)), _cf_free(B);

Definition at line 2065 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SCF

#define SCF	(	TN,
		NAME,
		I,
		A
	)	_(TN,_cfSTR)(3,S,NAME,I,A,0,0)

Definition at line 1554 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ secondindexlength

#define secondindexlength ( A ) (sizeof(A[0])==1 ? sizeof(A) : sizeof(A[0]) )

Definition at line 333 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORT_cfCCC

#define SHORT_cfCCC	(	A,
		B
	)	&A

Definition at line 1705 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORT_cfE

#define SHORT_cfE short A0;

Definition at line 1475 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORT_cfF

#define SHORT_cfF	(	UN,
		LN
	)	SHORT_cfFZ(UN,LN)

Definition at line 2128 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORT_cfFZ

#define SHORT_cfFZ	(	UN,
		LN
	)	short FCALLSC_QUALIFIER fcallsc(UN,LN)(

Definition at line 2086 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORT_cfI

#define SHORT_cfI return A0;

Definition at line 2190 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORT_cfINT

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

Definition at line 1345 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORT_cfPU

#define SHORT_cfPU ( A ) CFextern short FCALLSC_QUALIFIER A

Definition at line 1461 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORT_cfSTR

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

Definition at line 1592 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORT_cfT

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

Definition at line 1960 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORT_cfVCF

#define SHORT_cfVCF	(	A,
		B
	)

Definition at line 618 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORT_cfX

#define SHORT_cfX return A0;

Definition at line 1762 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTV_cfINT

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

Definition at line 1395 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTV_cfSTR

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

Definition at line 1635 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTV_cfT

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

Definition at line 1967 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTVV_cfINT

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

Definition at line 1396 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTVV_cfSTR

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

Definition at line 1636 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTVV_cfT

#define SHORTVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 2004 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTVVV_cfINT

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

Definition at line 1397 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTVVV_cfSTR

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

Definition at line 1637 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTVVV_cfT

#define SHORTVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 2005 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTVVVV_cfINT

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

Definition at line 1398 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTVVVV_cfSTR

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

Definition at line 1638 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTVVVV_cfT

#define SHORTVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 2006 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTVVVVV_cfINT

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

Definition at line 1399 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTVVVVV_cfSTR

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

Definition at line 1639 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTVVVVV_cfT

#define SHORTVVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 2007 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTVVVVVV_cfINT

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

Definition at line 1400 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTVVVVVV_cfSTR

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

Definition at line 1640 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTVVVVVV_cfT

#define SHORTVVVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 2008 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTVVVVVVV_cfINT

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

Definition at line 1401 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTVVVVVVV_cfPP

#define SHORTVVVVVVV_cfPP

Definition at line 1526 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTVVVVVVV_cfSTR

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

Definition at line 1641 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTVVVVVVV_cfT

#define SHORTVVVVVVV_cfT	(	M,
		I,
		A,
		B,
		D
	)	(void *)A

Definition at line 2009 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SHORTVVVVVVV_cfTYPE

#define SHORTVVVVVVV_cfTYPE short

Definition at line 1321 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SIMPLE_cfCC

#define SIMPLE_cfCC	(	T,
		A,
		B
	)	A

Definition at line 1730 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SIMPLE_cfINT

#define SIMPLE_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	PVOID_cfINT(N,A,B,X,Y,Z)

Definition at line 1410 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SIMPLE_cfSEP

#define SIMPLE_cfSEP	(	T,
		B
	)	INT_cfSEP(T,B)

Definition at line 1295 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SIMPLE_cfSTR

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

Definition at line 1657 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ SIMPLE_cfV

#define SIMPLE_cfV	(	T,
		A,
		B,
		F
	)

Definition at line 644 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfA

#define STRING_cfA	(	M,
		I,
		A,
		B
	)	STRING_cfC(M,I,A,B,sizeof(A))

Definition at line 669 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfAA

#define STRING_cfAA	(	T,
		A,
		B
	)	STRING_cfCC(T,A,B)

Definition at line 718 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfB

#define STRING_cfB	(	T,
		A
	)	(char *) A

Definition at line 1545 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfC

#define STRING_cfC	(	M,
		I,
		A,
		B,
		C
	)

Value:

                (B.clen=strlen(A),                             \
                C==sizeof(char*)||C==(unsigned)(B.clen+1)?B.flen=B.clen:       \
                        (memset((A)+B.clen,' ',C-B.clen-1),A[B.flen=C-1]='\0'));

Definition at line 1676 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfCC

#define STRING_cfCC	(	T,
		A,
		B
	)	A

Definition at line 1743 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfE

#define STRING_cfE

Value:

                       static char A0[1+MAX_LEN_FORTRAN_FUNCTION_STRING];          \
                       memset(A0, CFORTRAN_NON_CHAR,                           \
                              MAX_LEN_FORTRAN_FUNCTION_STRING);                \
                       *(A0+MAX_LEN_FORTRAN_FUNCTION_STRING)='\0';

Definition at line 1492 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfF

#define STRING_cfF	(	UN,
		LN
	)	STRING_cfFZ(UN,LN),

Definition at line 2130 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfFF

#define STRING_cfFF char *AS; unsigned D0;

Definition at line 2140 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfFZ

#define STRING_cfFZ	(	UN,
		LN
	)	void FCALLSC_QUALIFIER fcallsc(UN,LN)(char *AS, unsigned D0

Definition at line 2101 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfG

#define STRING_cfG	(	T,
		UN,
		LN
	)	STRING_cfGZ(T,UN,LN), /, is only diff. from _cfG/

Definition at line 1519 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfGZ

#define STRING_cfGZ	(	T,
		UN,
		LN
	)	CFC_(UN,LN)( A0,MAX_LEN_FORTRAN_FUNCTION_STRING

Definition at line 1513 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfH

#define STRING_cfH	(	S,
		U,
		B
	)	_(A,S) _(U,_CF_SPECIAL) B

Definition at line 1574 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfI

#define STRING_cfI return ;

Definition at line 2191 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfINT

#define STRING_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	PVOID_cfINT(N,A,B,X,Y,Z)

Definition at line 1412 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfJ

#define STRING_cfJ ( B ) ,B.flen

Definition at line 745 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfK

#define STRING_cfK

Value:

                 memcpy(AS,A0, _cfMIN(D0,(A0==NULL?0:strlen(A0))) ); \
                 D0>(A0==NULL?0:strlen(A0))?memset(AS+(A0==NULL?0:strlen(A0)), \
                                            ' ', D0-(A0==NULL?0:strlen(A0))):0;

Definition at line 2165 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfKK

#define STRING_cfKK ( B ) , unsigned B

Definition at line 761 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfL

#define STRING_cfL A0=

Definition at line 2145 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfN

#define STRING_cfN	(	T,
		A
	)	char * A

Definition at line 815 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfPU

#define STRING_cfPU ( A ) CFextern void FCALLSC_QUALIFIER A

Definition at line 1462 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfQ

#define STRING_cfQ ( B ) char *B=NULL;

Definition at line 1913 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfR

#define STRING_cfR	(	A,
		B,
		D
	)	if (B) _cf_free(B);

Definition at line 2060 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfS

#define STRING_cfS	(	M,
		I,
		A
	)	,sizeof(A)

Definition at line 1558 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfSEP

#define STRING_cfSEP	(	T,
		B
	)	INT_cfSEP(T,B)

Definition at line 1297 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfSTR

#define STRING_cfSTR	(	N,
		T,
		A,
		B,
		C,
		D,
		E
	)	_(CFARGS,N)(T,STRING,A,B,C,D,E)

Definition at line 1649 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfT

#define STRING_cfT	(	M,
		I,
		A,
		B,
		D
	)	TTTTSTR( A,B,D)

Definition at line 2046 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfU

#define STRING_cfU	(	T,
		A
	)	char A / via VOID and wrapper. */

Definition at line 1438 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfUU

#define STRING_cfUU	(	T,
		A
	)	char *A

Definition at line 1448 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfV

#define STRING_cfV	(	T,
		A,
		B,
		F
	)	struct {unsigned int clen, flen;} B;

Definition at line 654 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfW

#define STRING_cfW	(	A,
		B
	)	(A[B.clen]!='\0'?A[B.clen]='\0':0); /* A?="constnt"*/

Definition at line 773 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRING_cfX

#define STRING_cfX

Value:

return kill_trailing( \

kill_trailing( A0,CFORTRAN_NON_CHAR),' ');

Definition at line 1768 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRINGV_cfA

#define STRINGV_cfA	(	M,
		I,
		A,
		B
	)	AATRINGV_cfA((char *)A,B,sizeof(A),firstindexlength(A),secondindexlength(A))

Definition at line 683 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRINGV_cfAA

#define STRINGV_cfAA	(	T,
		A,
		B
	)	B.fs

Definition at line 726 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRINGV_cfB

#define STRINGV_cfB	(	T,
		A
	)	(char *) A

Definition at line 1546 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRINGV_cfC

#define STRINGV_cfC	(	M,
		I,
		A,
		B,
		C
	)	AATRINGV_cfA( A,B,(C/0xFFFF)*(C%0xFFFF),C/0xFFFF,C%0xFFFF)

Definition at line 1683 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRINGV_cfCC

#define STRINGV_cfCC	(	T,
		A,
		B
	)	B.fs

Definition at line 1744 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRINGV_cfH

#define STRINGV_cfH	(	S,
		U,
		B
	)	STRING_cfH(S,U,B)

Definition at line 1575 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRINGV_cfINT

#define STRINGV_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	PVOID_cfINT(N,A,B,X,Y,Z)

Definition at line 1413 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRINGV_cfJ

#define STRINGV_cfJ ( B ) STRING_cfJ(B)

Definition at line 747 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRINGV_cfKK

#define STRINGV_cfKK ( B ) STRING_cfKK(B)

Definition at line 763 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRINGV_cfN

#define STRINGV_cfN	(	T,
		A
	)	char * A

Definition at line 816 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRINGV_cfQ

#define STRINGV_cfQ ( B ) char *B; unsigned int _(B,N);

Definition at line 1912 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRINGV_cfR

#define STRINGV_cfR	(	A,
		B,
		D
	)	_cf_free(B);

Definition at line 2061 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRINGV_cfS

#define STRINGV_cfS	(	M,
		I,
		A
	)

Value:

,( (unsigned)0xFFFF*firstindexlength(A) \

+secondindexlength(A))

firstindexlength

#define firstindexlength(A)

Definition: Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h:332

secondindexlength

#define secondindexlength(A)

Definition: Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h:333

Definition at line 1559 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRINGV_cfSEP

#define STRINGV_cfSEP	(	T,
		B
	)	INT_cfSEP(T,B)

Definition at line 1298 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRINGV_cfSTR

#define STRINGV_cfSTR	(	N,
		T,
		A,
		B,
		C,
		D,
		E
	)	_(CFARGS,N)(T,STRINGV,A,B,C,D,E)

Definition at line 1651 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRINGV_cfT

#define STRINGV_cfT	(	M,
		I,
		A,
		B,
		D
	)	TTTTSTRV(A,B,D, num_elem(A,D,_3(M,_STRV_A,I)))

Definition at line 2047 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRINGV_cfU

#define STRINGV_cfU	(	T,
		A
	)	char *A

Definition at line 1439 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRINGV_cfV

#define STRINGV_cfV	(	T,
		A,
		B,
		F
	)	struct {char s, fs; unsigned flen;} B;

Definition at line 655 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ STRINGV_cfW

#define STRINGV_cfW	(	A,
		B
	)	_cf_free(B.s);

Definition at line 782 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ TCF

#define TCF	(	NAME,
		TN,
		I,
		M
	)	_SEP_(TN,M,cfCOMMA) _(TN,_cfT)(NAME,I,_(A,I),_(B,I),_(C,I))

Definition at line 1953 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ TERM_CHARS

#define TERM_CHARS	(	A,
		B
	)	A,B

Definition at line 520 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ TTSTR

#define TTSTR	(	A,
		B,
		D
	)	((B=_cf_malloc(D+1))[D]='\0', memcpy(B,A,D), kill_trailing(B,' '))

Definition at line 2026 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ TTTTSTR

#define TTTTSTR	(	A,
		B,
		D
	)

Value:

(!(D<4||A[0]||A[1]||A[2]||A[3]))?NULL: \

memchr(A,'\0',D) ?A : TTSTR(A,B,D)

TTSTR

#define TTSTR( A, B, D)

Definition: Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h:2026

Definition at line 2028 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ TTTTSTRV

#define TTTTSTRV	(	A,
		B,
		D,
		E
	)

Value:

(_(B,N)=E,B=_cf_malloc(_(B,N)*(D+1)), (void *) \

vkill_trailing(f2cstrv(A,B,D+1, _(B,N)*(D+1)), D+1,_(B,N)*(D+1),' '))

_cf_malloc

#define _cf_malloc(N)

Definition: Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h:303

Definition at line 2030 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ UCF

#define UCF	(	TN,
		I,
		C
	)	_SEP_(TN,C,cfCOMMA) _Icf(2,U,TN,_(A,I),0)

Definition at line 1423 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ USE_NEW_DELETE

#define USE_NEW_DELETE 0

Definition at line 296 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ UUCF

#define UUCF	(	TN,
		I,
		C
	)	_SEP_(TN,C,cfCOMMA) _SEP_(TN,1,I)

Definition at line 1424 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ UUUCF

#define UUUCF	(	TN,
		I,
		C
	)	_SEP_(TN,C,cfCOLON) _Icf(2,U,TN,_(A,I),0)

Definition at line 1425 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ VCF

#define VCF	(	TN,
		I
	)	_Icf4(4,V,TN,_(A,I),_(B,I),F)

Definition at line 627 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ VCF_INT_F

#define VCF_INT_F	(	T,
		A,
		B
	)	_(T,_cfVCF)(A,B)

Definition at line 606 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ VCF_INT_S

#define VCF_INT_S	(	T,
		A,
		B
	)	_(T,VVVVVVV_cfTYPE) B = A;

Definition at line 605 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ VOID_cfE

#define VOID_cfE

Definition at line 1476 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ VOID_cfF

#define VOID_cfF	(	UN,
		LN
	)	VOID_cfFZ(UN,LN)

Definition at line 2129 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ VOID_cfFF

#define VOID_cfFF

Definition at line 2133 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ VOID_cfFZ

#define VOID_cfFZ	(	UN,
		LN
	)	void FCALLSC_QUALIFIER fcallsc(UN,LN)(

Definition at line 2087 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ VOID_cfG

#define VOID_cfG	(	T,
		UN,
		LN
	)	VOID_cfGZ(T,UN,LN)

Definition at line 1518 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ VOID_cfGZ

#define VOID_cfGZ	(	T,
		UN,
		LN
	)	CFC_(UN,LN)(

Definition at line 1506 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ VOID_cfI

#define VOID_cfI return ;

Definition at line 2192 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ VOID_cfINT

#define VOID_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	PVOID_cfINT(N,A,B,X,Y,Z)

Definition at line 1411 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ VOID_cfK

#define VOID_cfK

Definition at line 2149 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ VOID_cfL

#define VOID_cfL

Definition at line 2146 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ VOID_cfPU

#define VOID_cfPU ( A ) CFextern void FCALLSC_QUALIFIER A

Definition at line 1463 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ VOID_cfSEP

#define VOID_cfSEP	(	T,
		B
	)	INT_cfSEP(T,B) /* For FORTRAN calls C subr.s.*/

Definition at line 1296 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ VOID_cfSTR

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

Definition at line 1585 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ VOID_cfU

#define VOID_cfU	(	T,
		A
	)	void A /* Needed for C calls FORTRAN sub.s. */

Definition at line 1437 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ VOID_cfUU

#define VOID_cfUU	(	T,
		A
	)	/* Needed for FORTRAN calls C sub.s. */

Definition at line 1447 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ VOID_cfX

#define VOID_cfX return ;

Definition at line 1763 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ VOIDP

#define VOIDP

Definition at line 243 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ VVCF

#define VVCF	(	TN,
		AI,
		BI
	)	_Icf4(4,V,TN,AI,BI,S)

Definition at line 628 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ WCF

#define WCF	(	TN,
		AN,
		I
	)	_(TN,_cfSTR)(2,W,AN,_(B,I), 0,0,0)

Definition at line 769 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ZTRINGV_ARGF

#define ZTRINGV_ARGF ( I ) _2(A,I)

Definition at line 583 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ZTRINGV_ARGFP

#define ZTRINGV_ARGFP ( I ) (*(_2(A,I))) /* Undocumented. For PINT, etc. */

Definition at line 582 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ZTRINGV_ARGS

#define ZTRINGV_ARGS ( I ) _2(B,I)

Definition at line 587 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ZTRINGV_cfA

#define ZTRINGV_cfA	(	M,
		I,
		A,
		B
	)

Value:

                    AATRINGV_cfA( (char *)A,B,                     \
                    (_3(M,_ELEMS_,I))*(( _3(M,_ELEMLEN_,I))+1),                \
                              (_3(M,_ELEMS_,I)),(_3(M,_ELEMLEN_,I))+1)

Definition at line 687 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ZTRINGV_cfAA

#define ZTRINGV_cfAA	(	T,
		A,
		B
	)	STRINGV_cfAA(T,A,B)

Definition at line 730 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ZTRINGV_cfB

#define ZTRINGV_cfB	(	T,
		A
	)	(char *) A

Definition at line 1551 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ZTRINGV_cfC

#define ZTRINGV_cfC	(	M,
		I,
		A,
		B,
		C
	)

Value:

AATRINGV_cfA( A,B, (_3(M,_ELEMS_,I))*((_3(M,_ELEMLEN_,I))+1), \

(_3(M,_ELEMS_,I)), (_3(M,_ELEMLEN_,I))+1 )

Definition at line 1687 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ZTRINGV_cfCC

#define ZTRINGV_cfCC	(	T,
		A,
		B
	)	STRINGV_cfCC(T,A,B)

Definition at line 1749 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ZTRINGV_cfH

#define ZTRINGV_cfH	(	S,
		U,
		B
	)

Definition at line 1580 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ZTRINGV_cfINT

#define ZTRINGV_cfINT	(	N,
		A,
		B,
		X,
		Y,
		Z
	)	PVOID_cfINT(N,A,B,X,Y,Z)

Definition at line 1418 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ZTRINGV_cfJ

#define ZTRINGV_cfJ ( B ) STRING_cfJ(B)

Definition at line 749 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ZTRINGV_cfKK

#define ZTRINGV_cfKK ( B ) STRING_cfKK(B)

Definition at line 765 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ZTRINGV_cfN

#define ZTRINGV_cfN	(	T,
		A
	)	STRINGV_cfN(T,A)

Definition at line 823 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ZTRINGV_cfS

#define ZTRINGV_cfS	(	M,
		I,
		A
	)

Definition at line 1563 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ZTRINGV_cfSEP

#define ZTRINGV_cfSEP	(	T,
		B
	)	INT_cfSEP(T,B)

Definition at line 1303 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ZTRINGV_cfSTR

#define ZTRINGV_cfSTR	(	N,
		T,
		A,
		B,
		C,
		D,
		E
	)	_(CFARGS,N)(T,ZTRINGV,A,B,C,D,E)

Definition at line 1658 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ZTRINGV_cfU

#define ZTRINGV_cfU	(	T,
		A
	)	char *A

Definition at line 1442 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ZTRINGV_cfV

#define ZTRINGV_cfV	(	T,
		A,
		B,
		F
	)	STRINGV_cfV(T,A,B,F)

Definition at line 659 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ZTRINGV_cfW

#define ZTRINGV_cfW	(	A,
		B
	)	STRINGV_cfW(A,B)

Definition at line 786 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

◆ ZTRINGV_NUM

#define ZTRINGV_NUM ( I ) I

Definition at line 581 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

Typedef Documentation

◆ cfCAST_FUNCTION

typedef void(* cfCAST_FUNCTION) (CF_NULL_PROTO)

Definition at line 625 of file Ekhara/Ekhara-00-00-11/Ekhara/cfortran.h.

Macros

Typedefs

Macro Definition Documentation

◆ _

◆ _2

◆ _3

◆ __SEP_0

◆ __SEP_1

◆ _cf_free

◆ _cf_malloc

◆ _cfleft

◆ _cfleft_cfright

◆ _cfMIN

◆ _cfright

◆ _Icf

◆ _Icf4

◆ _NUM_ELEM_ARG

◆ _NUM_ELEMS

◆ _SEP_

◆ _Z

◆ AACF

◆ AATRINGV_cfA

◆ ABSOFT_cf1

◆ ABSOFT_cf2

◆ ABSOFT_cf3

◆ ACF

◆ AcfCOLON

◆ AcfCOMMA

◆ ANSI_C_preprocessor

◆ APATRINGV_cfA

◆ append_fcallsc

◆ BCF

◆ BYTE_cfCCC

◆ BYTE_cfE

◆ BYTE_cfF

◆ BYTE_cfFZ

◆ BYTE_cfI

◆ BYTE_cfINT

◆ BYTE_cfPU

◆ BYTE_cfSTR

◆ BYTE_cfT

◆ BYTE_cfVCF

◆ BYTE_cfX

◆ BYTEV_cfINT

◆ BYTEV_cfSTR

◆ BYTEV_cfT

◆ BYTEVV_cfINT

◆ BYTEVV_cfSTR

◆ BYTEVV_cfT

◆ BYTEVVV_cfINT

◆ BYTEVVV_cfSTR

◆ BYTEVVV_cfT

◆ BYTEVVVV_cfINT

◆ BYTEVVVV_cfSTR

◆ BYTEVVVV_cfT

◆ BYTEVVVVV_cfINT

◆ BYTEVVVVV_cfSTR

◆ BYTEVVVVV_cfT

◆ BYTEVVVVVV_cfINT

◆ BYTEVVVVVV_cfSTR

◆ BYTEVVVVVV_cfT

◆ BYTEVVVVVVV_cfINT

◆ BYTEVVVVVVV_cfPP

◆ BYTEVVVVVVV_cfSTR

◆ BYTEVVVVVVV_cfT

◆ BYTEVVVVVVV_cfTYPE

◆ C2FCBSTR

◆ C2FLOGICAL

◆ C2FLOGICALV [1/2]

◆ C2FLOGICALV [2/2]

◆ C_FUNCTION

◆ CCALLSFFUN0

◆ CCALLSFFUN1

◆ CCALLSFFUN10

◆ CCALLSFFUN11

◆ CCALLSFFUN12

◆ CCALLSFFUN13

◆ CCALLSFFUN14

◆ CCALLSFFUN2

◆ CCALLSFFUN3