cfitsio  3390
Macros | Typedefs | Functions
cfortran.h File Reference
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
Include dependency graph for cfortran.h:
This graph shows which files directly or indirectly include this file:

Macros

#define LONGLONG_TYPE
 
#define STIN   static inline
 
#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; char *nombre;} B;
 
#define STRINGV_cfV(T, A, B, F)   struct {char *s, *fs; unsigned flen; char *nombre;} 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)   (B.nombre=A,B.nombre[B.clen]!='\0'?B.nombre[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 LONGLONGVVVVVVV_cfTYPE   LONGLONG /* added by MR December 2005 */
 
#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 PLONGLONG_cfTYPE   LONGLONG /* added by MR December 2005 */
 
#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 LONGLONG_cfINT(N, A, B, X, Y, Z)    DOUBLE_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
 
#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 PLONGLONG_cfINT(N, A, B, X, Y, Z)    PDOUBLE_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
 
#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 LONGLONGV_cfINT(N, A, B, X, Y, Z)    DOUBLEV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
 
#define LONGLONGVV_cfINT(N, A, B, X, Y, Z)    DOUBLEVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
 
#define LONGLONGVVV_cfINT(N, A, B, X, Y, Z)    DOUBLEVVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
 
#define LONGLONGVVVV_cfINT(N, A, B, X, Y, Z)    DOUBLEVVVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
 
#define LONGLONGVVVVV_cfINT(N, A, B, X, Y, Z)    DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
 
#define LONGLONGVVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
 
#define LONGLONGVVVVVVV_cfINT(N, A, B, X, Y, Z)   DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */
 
#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 LONGLONG_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
 
#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 LONGLONGV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
 
#define LONGLONGVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
 
#define LONGLONGVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
 
#define LONGLONGVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
 
#define LONGLONGVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
 
#define LONGLONGVVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
 
#define LONGLONGVVVVVVV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
 
#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 PLONGLONG_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */
 
#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 LONGLONG_cfT(M, I, A, B, D)   *A /* added by MR December 2005 */
 
#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 LONGLONGV_cfT(M, I, A, B, D)   A /* added by MR December 2005 */
 
#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 LONGLONGVV_cfT(M, I, A, B, D)   (void *)A /* added by MR December 2005 */
 
#define LONGLONGVVV_cfT(M, I, A, B, D)   (void *)A /* added by MR December 2005 */
 
#define LONGLONGVVVV_cfT(M, I, A, B, D)   (void *)A /* added by MR December 2005 */
 
#define LONGLONGVVVVV_cfT(M, I, A, B, D)   (void *)A /* added by MR December 2005 */
 
#define LONGLONGVVVVVV_cfT(M, I, A, B, D)   (void *)A /* added by MR December 2005 */
 
#define LONGLONGVVVVVVV_cfT(M, I, A, B, D)   (void *)A /* added by MR December 2005 */
 
#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 PLONGLONG_cfT(M, I, A, B, D)   A /* added by MR December 2005 */
 
#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 LONGLONG_cfFZ(UN, LN)   LONGLONG FCALLSC_QUALIFIER fcallsc(UN,LN)( /* added by MR December 2005 */
 
#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 LONGLONG_cfF(UN, LN)   LONGLONG_cfFZ(UN,LN) /* added by MR December 2005 */
 
#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 LONGLONG_cfI   return A0; /* added by MR December 2005 */
 
#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 long long LONGLONG
 
typedef void(* cfCAST_FUNCTION) (CF_NULL_PROTO)
 

Functions

STIN int num_elem (char *strv, unsigned elem_len, int term_char, int num_term)
 

Macro Definition Documentation

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

Typedef Documentation

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

Function Documentation

STIN int num_elem ( char *  strv,
unsigned  elem_len,
int  term_char,
int  num_term 
)
Generated on Tue Jul 12 2016 16:07:35 for cfitsio by   doxygen 1.8.11