Logo ROOT  
Reference Guide
 
Loading...
Searching...
No Matches
cfortran.h File Reference
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
Include dependency graph for cfortran.h:
This graph shows which files directly or indirectly include this file:

Macros

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

Typedefs

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

Functions

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

Macro Definition Documentation

◆ _

#define _ (   A,
 
)    AB

Definition at line 108 of file cfortran.h.

◆ _2

#define _2 (   A,
 
)    AB

Definition at line 109 of file cfortran.h.

◆ _3

#define _3 (   A,
  B,
 
)    ABC

Definition at line 110 of file cfortran.h.

◆ __SEP_0

#define __SEP_0 (   TN,
  cfCOMMA 
)

Definition at line 1390 of file cfortran.h.

◆ __SEP_1

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

Definition at line 1391 of file cfortran.h.

◆ _cf_free

#define _cf_free (   P)    free(P)

Definition at line 399 of file cfortran.h.

◆ _cf_malloc

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

Definition at line 398 of file cfortran.h.

◆ _cfleft

#define _cfleft   1

Definition at line 94 of file cfortran.h.

◆ _cfleft_cfright

#define _cfleft_cfright   0

Definition at line 96 of file cfortran.h.

◆ _cfMIN

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

Definition at line 421 of file cfortran.h.

◆ _cfright

#define _cfright

Definition at line 95 of file cfortran.h.

◆ _Icf

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

Definition at line 1447 of file cfortran.h.

◆ _Icf4

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

Definition at line 1448 of file cfortran.h.

◆ _NUM_ELEM_ARG

#define _NUM_ELEM_ARG   -2

Definition at line 612 of file cfortran.h.

◆ _NUM_ELEMS

#define _NUM_ELEMS   -1

Definition at line 611 of file cfortran.h.

◆ _SEP_

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

Definition at line 1389 of file cfortran.h.

◆ _Z

#define _Z

Definition at line 979 of file cfortran.h.

◆ AACF

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

Definition at line 810 of file cfortran.h.

◆ AATRINGV_cfA

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

Definition at line 786 of file cfortran.h.

◆ ABSOFT_cf1

#define ABSOFT_cf1 (   T0)

Definition at line 971 of file cfortran.h.

◆ ABSOFT_cf2

#define ABSOFT_cf2 (   T0)

Definition at line 972 of file cfortran.h.

◆ ABSOFT_cf3

#define ABSOFT_cf3 (   T0)

Definition at line 973 of file cfortran.h.

◆ ACF

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

Definition at line 773 of file cfortran.h.

◆ AcfCOLON

#define AcfCOLON   ;

Definition at line 415 of file cfortran.h.

◆ AcfCOMMA

#define AcfCOMMA   ,

Definition at line 414 of file cfortran.h.

◆ ANSI_C_preprocessor

#define ANSI_C_preprocessor   _cfleft_cfright

Definition at line 97 of file cfortran.h.

◆ APATRINGV_cfA

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

Definition at line 788 of file cfortran.h.

◆ append_fcallsc

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

Definition at line 289 of file cfortran.h.

◆ BCF

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

Definition at line 1659 of file cfortran.h.

◆ BYTE_cfCCC

#define BYTE_cfCCC (   A,
 
)    &A

Definition at line 1827 of file cfortran.h.

◆ BYTE_cfE

#define BYTE_cfE   INTEGER_BYTE A0;

Definition at line 1589 of file cfortran.h.

◆ BYTE_cfF

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

Definition at line 2271 of file cfortran.h.

◆ BYTE_cfFZ

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

Definition at line 2223 of file cfortran.h.

◆ BYTE_cfI

#define BYTE_cfI   return A0;

Definition at line 2334 of file cfortran.h.

◆ BYTE_cfINT

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

Definition at line 1449 of file cfortran.h.

◆ BYTE_cfPU

#define BYTE_cfPU (   A)    CFextern INTEGER_BYTE FCALLSC_QUALIFIER A

Definition at line 1570 of file cfortran.h.

◆ BYTE_cfSTR

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

Definition at line 1710 of file cfortran.h.

◆ BYTE_cfT

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

Definition at line 2087 of file cfortran.h.

◆ BYTE_cfVCF

#define BYTE_cfVCF (   A,
 
)

Definition at line 716 of file cfortran.h.

◆ BYTE_cfX

#define BYTE_cfX   return A0;

Definition at line 1885 of file cfortran.h.

◆ BYTEV_cfINT

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

Definition at line 1465 of file cfortran.h.

◆ BYTEV_cfSTR

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

Definition at line 1718 of file cfortran.h.

◆ BYTEV_cfT

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

Definition at line 2095 of file cfortran.h.

◆ BYTEVV_cfINT

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

Definition at line 1466 of file cfortran.h.

◆ BYTEVV_cfSTR

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

Definition at line 1719 of file cfortran.h.

◆ BYTEVV_cfT

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

Definition at line 2103 of file cfortran.h.

◆ BYTEVVV_cfINT

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

Definition at line 1467 of file cfortran.h.

◆ BYTEVVV_cfSTR

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

Definition at line 1720 of file cfortran.h.

◆ BYTEVVV_cfT

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

Definition at line 2104 of file cfortran.h.

◆ BYTEVVVV_cfINT

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

Definition at line 1468 of file cfortran.h.

◆ BYTEVVVV_cfSTR

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

Definition at line 1721 of file cfortran.h.

◆ BYTEVVVV_cfT

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

Definition at line 2105 of file cfortran.h.

◆ BYTEVVVVV_cfINT

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

Definition at line 1469 of file cfortran.h.

◆ BYTEVVVVV_cfSTR

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

Definition at line 1722 of file cfortran.h.

◆ BYTEVVVVV_cfT

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

Definition at line 2106 of file cfortran.h.

◆ BYTEVVVVVV_cfINT

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

Definition at line 1470 of file cfortran.h.

◆ BYTEVVVVVV_cfSTR

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

Definition at line 1723 of file cfortran.h.

◆ BYTEVVVVVV_cfT

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

Definition at line 2107 of file cfortran.h.

◆ BYTEVVVVVVV_cfINT

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

Definition at line 1471 of file cfortran.h.

◆ BYTEVVVVVVV_cfPP

#define BYTEVVVVVVV_cfPP

Definition at line 1645 of file cfortran.h.

◆ BYTEVVVVVVV_cfSTR

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

Definition at line 1724 of file cfortran.h.

◆ BYTEVVVVVVV_cfT

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

Definition at line 2108 of file cfortran.h.

◆ BYTEVVVVVVV_cfTYPE

#define BYTEVVVVVVV_cfTYPE   INTEGER_BYTE

Definition at line 1423 of file cfortran.h.

◆ C2FCBSTR

#define C2FCBSTR (   CSTR,
  FSTR,
  DIM 
)
Value:
c2fstrv((char *)CSTR, (char *)FSTR, sizeof(FSTR)/cfelementsof(FSTR,DIM)+1, \
sizeof(FSTR)+cfelementsof(FSTR,DIM))
static char * c2fstrv(char *cstr, char *fstr, int elem_len, int sizeofcstr)
Definition cfortran.h:510
#define cfelementsof(A, D)
Definition cfortran.h:677

Definition at line 659 of file cfortran.h.

◆ C2FLOGICAL

#define C2FLOGICAL (   L)    (L)

Definition at line 469 of file cfortran.h.

◆ C2FLOGICALV [1/2]

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

Definition at line 447 of file cfortran.h.

◆ C2FLOGICALV [2/2]

#define C2FLOGICALV (   A,
  I 
)

Definition at line 447 of file cfortran.h.

◆ C_FUNCTION

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

Definition at line 291 of file cfortran.h.

◆ CCALLSFFUN0

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

Definition at line 1908 of file cfortran.h.

◆ CCALLSFFUN1

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

Definition at line 1914 of file cfortran.h.

◆ CCALLSFFUN10

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

Definition at line 1932 of file cfortran.h.

◆ CCALLSFFUN11

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

Definition at line 1934 of file cfortran.h.

◆ CCALLSFFUN12

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

Definition at line 1936 of file cfortran.h.

◆ CCALLSFFUN13

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

Definition at line 1938 of file cfortran.h.

◆ CCALLSFFUN14

#define CCALLSFFUN14 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  A1,
  A2,
  A3,
  A4,
  A5,
  A6,
  A7,
  A8,
  A9,
  AA,
  AB,
  AC,
  AD,
  AE 
)
Value:
((CFFUN(UN)( BCF(T1,A1,0) BCF(T2,A2,1) BCF(T3,A3,1) BCF(T4,A4,1) BCF(T5,A5,1) \
BCF(T6,A6,1) BCF(T7,A7,1) BCF(T8,A8,1) BCF(T9,A9,1) BCF(TA,AA,1) \
BCF(TB,AB,1) BCF(TC,AC,1) BCF(TD,AD,1) BCF(TE,AE,1) \
SCF(T1,LN,1,A1) SCF(T2,LN,2,A2) SCF(T3,LN,3,A3) SCF(T4,LN,4,A4) \
SCF(T5,LN,5,A5) SCF(T6,LN,6,A6) SCF(T7,LN,7,A7) SCF(T8,LN,8,A8) \
SCF(T9,LN,9,A9) SCF(TA,LN,10,AA) SCF(TB,LN,11,AB) SCF(TC,LN,12,AC) \
SCF(TD,LN,13,AD) SCF(TE,LN,14,AE))))
#define SCF(TN, NAME, I, A)
Definition cfortran.h:1678
#define CFFUN(NAME)
Definition cfortran.h:1905
#define BCF(TN, AN, C)
Definition cfortran.h:1659
#define T9
Definition md5.inl:154
#define T2
Definition md5.inl:147
#define T7
Definition md5.inl:152
#define T6
Definition md5.inl:151
#define T3
Definition md5.inl:148
#define T5
Definition md5.inl:150
#define T4
Definition md5.inl:149
#define T1
Definition md5.inl:146
#define T8
Definition md5.inl:153

Definition at line 1941 of file cfortran.h.

◆ CCALLSFFUN2

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

Definition at line 1916 of file cfortran.h.

◆ CCALLSFFUN3

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

Definition at line 1918 of file cfortran.h.

◆ CCALLSFFUN4

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

Definition at line 1920 of file cfortran.h.

◆ CCALLSFFUN5

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

Definition at line 1922 of file cfortran.h.

◆ CCALLSFFUN6

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

Definition at line 1924 of file cfortran.h.

◆ CCALLSFFUN7

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

Definition at line 1926 of file cfortran.h.

◆ CCALLSFFUN8

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

Definition at line 1928 of file cfortran.h.

◆ CCALLSFFUN9

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

Definition at line 1930 of file cfortran.h.

◆ CCALLSFSUB0

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

Definition at line 1263 of file cfortran.h.

◆ CCALLSFSUB1

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

Definition at line 1214 of file cfortran.h.

◆ CCALLSFSUB10

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

Definition at line 1232 of file cfortran.h.

◆ CCALLSFSUB11

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

Definition at line 1234 of file cfortran.h.

◆ CCALLSFSUB12

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

Definition at line 1236 of file cfortran.h.

◆ CCALLSFSUB13

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

Definition at line 1238 of file cfortran.h.

◆ CCALLSFSUB14

#define CCALLSFSUB14 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  A1,
  A2,
  A3,
  A4,
  A5,
  A6,
  A7,
  A8,
  A9,
  AA,
  AB,
  AC,
  AD,
  AE 
)
Value:
do{VVCF(T1,A1,B1) VVCF(T2,A2,B2) VVCF(T3,A3,B3) VVCF(T4,A4,B4) VVCF(T5,A5,B5) \
VVCF(T6,A6,B6) VVCF(T7,A7,B7) VVCF(T8,A8,B8) VVCF(T9,A9,B9) VVCF(TA,AA,B10) \
VVCF(TB,AB,B11) VVCF(TC,AC,B12) VVCF(TD,AD,B13) VVCF(TE,AE,B14) \
CPPPROTOCLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
ACF(LN,T1,A1,1) ACF(LN,T2,A2,2) ACF(LN,T3,A3,3) \
ACF(LN,T4,A4,4) ACF(LN,T5,A5,5) ACF(LN,T6,A6,6) ACF(LN,T7,A7,7) \
ACF(LN,T8,A8,8) ACF(LN,T9,A9,9) ACF(LN,TA,AA,10) ACF(LN,TB,AB,11) \
ACF(LN,TC,AC,12) ACF(LN,TD,AD,13) ACF(LN,TE,AE,14) \
CFC_(UN,LN)( CFARGTA14(AACF,JCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE) );\
WCF(T1,A1,1) WCF(T2,A2,2) WCF(T3,A3,3) WCF(T4,A4,4) WCF(T5,A5,5) \
WCF(T6,A6,6) WCF(T7,A7,7) WCF(T8,A8,8) WCF(T9,A9,9) WCF(TA,AA,10) \
WCF(TB,AB,11) WCF(TC,AC,12) WCF(TD,AD,13) WCF(TE,AE,14) }while(0)
#define CFC_(UN, LN)
Definition cfortran.h:281
#define WCF(TN, AN, I)
Definition cfortran.h:877
#define JCF(TN, I)
Definition cfortran.h:845
#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:1033
#define VVCF(TN, AI, BI)
Definition cfortran.h:736
#define AACF(TN, AI, I, C)
Definition cfortran.h:810
#define ACF(NAME, TN, AI, I)
Definition cfortran.h:773

Definition at line 1264 of file cfortran.h.

◆ CCALLSFSUB15

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

Definition at line 1281 of file cfortran.h.

◆ CCALLSFSUB16

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

Definition at line 1283 of file cfortran.h.

◆ CCALLSFSUB17

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

Definition at line 1285 of file cfortran.h.

◆ CCALLSFSUB18

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

Definition at line 1287 of file cfortran.h.

◆ CCALLSFSUB19

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

Definition at line 1289 of file cfortran.h.

◆ CCALLSFSUB2

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

Definition at line 1216 of file cfortran.h.

◆ CCALLSFSUB20

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

Definition at line 1298 of file cfortran.h.

◆ CCALLSFSUB21

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

Definition at line 1319 of file cfortran.h.

◆ CCALLSFSUB22

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

Definition at line 1321 of file cfortran.h.

◆ CCALLSFSUB23

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

Definition at line 1323 of file cfortran.h.

◆ CCALLSFSUB24

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

Definition at line 1325 of file cfortran.h.

◆ CCALLSFSUB25

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

Definition at line 1327 of file cfortran.h.

◆ CCALLSFSUB26

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

Definition at line 1329 of file cfortran.h.

◆ CCALLSFSUB27

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

Definition at line 1338 of file cfortran.h.

◆ CCALLSFSUB3

#define CCALLSFSUB3 (   UN,
  LN,
  T1,
  T2,
  T3,
  A1,
  A2,
  A3 
)     CCALLSFSUB5 (UN,LN,T1,T2,T3,CF_0,CF_0,A1,A2,A3,0,0)

Definition at line 1218 of file cfortran.h.

◆ CCALLSFSUB4

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

Definition at line 1220 of file cfortran.h.

◆ CCALLSFSUB5

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

Definition at line 1222 of file cfortran.h.

◆ CCALLSFSUB6

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

Definition at line 1224 of file cfortran.h.

◆ CCALLSFSUB7

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

Definition at line 1226 of file cfortran.h.

◆ CCALLSFSUB8

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

Definition at line 1228 of file cfortran.h.

◆ CCALLSFSUB9

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

Definition at line 1230 of file cfortran.h.

◆ CCCF

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

Definition at line 1847 of file cfortran.h.

◆ CCF

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

Definition at line 1796 of file cfortran.h.

◆ CF_0_cfINT

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

Definition at line 1539 of file cfortran.h.

◆ CF_0_cfSTR

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

Definition at line 1793 of file cfortran.h.

◆ CF_0_cfT

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

Definition at line 2196 of file cfortran.h.

◆ CF_DECLARE_GETARG

#define CF_DECLARE_GETARG

Definition at line 406 of file cfortran.h.

◆ CF_NULL_PROTO

#define CF_NULL_PROTO

Definition at line 367 of file cfortran.h.

◆ CF_SAME_NAMESPACE

#define CF_SAME_NAMESPACE

Definition at line 274 of file cfortran.h.

◆ CF_SET_GETARG

#define CF_SET_GETARG (   ARGC,
  ARGV 
)

Definition at line 407 of file cfortran.h.

◆ CFARGS0

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

Definition at line 1440 of file cfortran.h.

◆ CFARGS1

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

Definition at line 1441 of file cfortran.h.

◆ CFARGS2

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

Definition at line 1442 of file cfortran.h.

◆ CFARGS3

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

Definition at line 1443 of file cfortran.h.

◆ CFARGS4

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

Definition at line 1444 of file cfortran.h.

◆ CFARGS5

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

Definition at line 1445 of file cfortran.h.

◆ CFARGT14

#define CFARGT14 (   F,
  S,
  M,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE 
)
Value:
F(T1,1,0) F(T2,2,1) F(T3,3,1) F(T4,4,1) F(T5,5,1) F(T6,6,1) F(T7,7,1) \
F(T8,8,1) F(T9,9,1) F(TA,10,1) F(TB,11,1) F(TC,12,1) F(TD,13,1) F(TE,14,1) \
M CFARGT14S(S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)
#define CFARGT14S(S, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE)
Definition cfortran.h:981
#define F(x, y, z)

Definition at line 1015 of file cfortran.h.

◆ CFARGT14FS

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

Definition at line 990 of file cfortran.h.

◆ CFARGT14S

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

Definition at line 981 of file cfortran.h.

◆ CFARGT20

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

Definition at line 1026 of file cfortran.h.

◆ CFARGT27

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

Definition at line 1019 of file cfortran.h.

◆ CFARGT27FS

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

Definition at line 994 of file cfortran.h.

◆ CFARGT27S

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

Definition at line 984 of file cfortran.h.

◆ CFARGTA14

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

Definition at line 1033 of file cfortran.h.

◆ CFARGTA20

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

Definition at line 1040 of file cfortran.h.

◆ CFARGTA27

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

Definition at line 1048 of file cfortran.h.

◆ CFC_

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

Definition at line 281 of file cfortran.h.

◆ cfDEREFERENCE0

#define cfDEREFERENCE0

Definition at line 671 of file cfortran.h.

◆ cfDEREFERENCE1

#define cfDEREFERENCE1   *

Definition at line 672 of file cfortran.h.

◆ cfDEREFERENCE2

#define cfDEREFERENCE2   **

Definition at line 673 of file cfortran.h.

◆ cfDEREFERENCE3

#define cfDEREFERENCE3   ***

Definition at line 674 of file cfortran.h.

◆ cfDEREFERENCE4

#define cfDEREFERENCE4   ****

Definition at line 675 of file cfortran.h.

◆ cfDEREFERENCE5

#define cfDEREFERENCE5   *****

Definition at line 676 of file cfortran.h.

◆ cfelementsof

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

Definition at line 677 of file cfortran.h.

◆ CFextern

#define CFextern   extern

Definition at line 1173 of file cfortran.h.

◆ CFFUN

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

Definition at line 1905 of file cfortran.h.

◆ CFORTRAN_NON_CHAR

#define CFORTRAN_NON_CHAR   0x7F

Definition at line 1383 of file cfortran.h.

◆ COMMON_BLOCK

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

Definition at line 298 of file cfortran.h.

◆ COMMON_BLOCK_DEF

#define COMMON_BLOCK_DEF (   DEFINITION,
  NAME 
)    extern DEFINITION NAME

Definition at line 366 of file cfortran.h.

◆ CPPPROTOCLSFSUB0

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

Definition at line 1247 of file cfortran.h.

◆ CPPPROTOCLSFSUB14

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

Definition at line 1249 of file cfortran.h.

◆ CPPPROTOCLSFSUB20

#define CPPPROTOCLSFSUB20 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK 
)     PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK)

Definition at line 1251 of file cfortran.h.

◆ CPPPROTOCLSFSUB27

#define CPPPROTOCLSFSUB27 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK,
  TL,
  TM,
  TN,
  TO,
  TP,
  TQ,
  TR 
)     PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)

Definition at line 1253 of file cfortran.h.

◆ DCF

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

Definition at line 2036 of file cfortran.h.

◆ DDCF

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

Definition at line 2037 of file cfortran.h.

◆ DDDCF

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

Definition at line 2038 of file cfortran.h.

◆ DEFAULT_cfA

#define DEFAULT_cfA (   M,
  I,
  A,
 
)

Definition at line 774 of file cfortran.h.

◆ DEFAULT_cfC

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

Definition at line 1797 of file cfortran.h.

◆ DEFAULT_cfH

#define DEFAULT_cfH (   M,
  I,
 
)

Definition at line 1695 of file cfortran.h.

◆ DEFAULT_cfJ

#define DEFAULT_cfJ (   B)

Definition at line 849 of file cfortran.h.

◆ DEFAULT_cfKK

#define DEFAULT_cfKK (   B)

Definition at line 865 of file cfortran.h.

◆ DEFAULT_cfQ

#define DEFAULT_cfQ (   B)

Definition at line 2042 of file cfortran.h.

◆ DEFAULT_cfR

#define DEFAULT_cfR (   A,
  B,
 
)

Definition at line 2199 of file cfortran.h.

◆ DEFAULT_cfS

#define DEFAULT_cfS (   M,
  I,
 
)

Definition at line 1679 of file cfortran.h.

◆ DEFAULT_cfW

#define DEFAULT_cfW (   A,
 
)

Definition at line 878 of file cfortran.h.

◆ DOUBLE_cfCCC

#define DOUBLE_cfCCC (   A,
 
)    &A

Definition at line 1828 of file cfortran.h.

◆ DOUBLE_cfE

#define DOUBLE_cfE   DOUBLE_PRECISION A0;

Definition at line 1590 of file cfortran.h.

◆ DOUBLE_cfF

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

Definition at line 2272 of file cfortran.h.

◆ DOUBLE_cfFZ

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

Definition at line 2224 of file cfortran.h.

◆ DOUBLE_cfI

#define DOUBLE_cfI   return A0;

Definition at line 2335 of file cfortran.h.

◆ DOUBLE_cfINT

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

Definition at line 1450 of file cfortran.h.

◆ DOUBLE_cfPU

#define DOUBLE_cfPU (   A)    CFextern DOUBLE_PRECISION FCALLSC_QUALIFIER A

Definition at line 1571 of file cfortran.h.

◆ DOUBLE_cfSTR

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

Definition at line 1711 of file cfortran.h.

◆ DOUBLE_cfT

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

Definition at line 2088 of file cfortran.h.

◆ DOUBLE_cfVCF

#define DOUBLE_cfVCF (   A,
 
)

Definition at line 717 of file cfortran.h.

◆ DOUBLE_cfX

#define DOUBLE_cfX   return A0;

Definition at line 1886 of file cfortran.h.

◆ DOUBLE_PRECISION

#define DOUBLE_PRECISION   double

Definition at line 314 of file cfortran.h.

◆ DOUBLEV_cfINT

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

Definition at line 1472 of file cfortran.h.

◆ DOUBLEV_cfSTR

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

Definition at line 1725 of file cfortran.h.

◆ DOUBLEV_cfT

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

Definition at line 2096 of file cfortran.h.

◆ DOUBLEVV_cfINT

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

Definition at line 1473 of file cfortran.h.

◆ DOUBLEVV_cfSTR

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

Definition at line 1726 of file cfortran.h.

◆ DOUBLEVV_cfT

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

Definition at line 2109 of file cfortran.h.

◆ DOUBLEVVV_cfINT

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

Definition at line 1474 of file cfortran.h.

◆ DOUBLEVVV_cfSTR

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

Definition at line 1727 of file cfortran.h.

◆ DOUBLEVVV_cfT

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

Definition at line 2110 of file cfortran.h.

◆ DOUBLEVVVV_cfINT

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

Definition at line 1475 of file cfortran.h.

◆ DOUBLEVVVV_cfSTR

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

Definition at line 1728 of file cfortran.h.

◆ DOUBLEVVVV_cfT

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

Definition at line 2111 of file cfortran.h.

◆ DOUBLEVVVVV_cfINT

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

Definition at line 1476 of file cfortran.h.

◆ DOUBLEVVVVV_cfSTR

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

Definition at line 1729 of file cfortran.h.

◆ DOUBLEVVVVV_cfT

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

Definition at line 2112 of file cfortran.h.

◆ DOUBLEVVVVVV_cfINT

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

Definition at line 1477 of file cfortran.h.

◆ DOUBLEVVVVVV_cfSTR

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

Definition at line 1730 of file cfortran.h.

◆ DOUBLEVVVVVV_cfT

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

Definition at line 2113 of file cfortran.h.

◆ DOUBLEVVVVVVV_cfINT

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

Definition at line 1478 of file cfortran.h.

◆ DOUBLEVVVVVVV_cfPP

#define DOUBLEVVVVVVV_cfPP

Definition at line 1647 of file cfortran.h.

◆ DOUBLEVVVVVVV_cfSTR

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

Definition at line 1731 of file cfortran.h.

◆ DOUBLEVVVVVVV_cfT

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

Definition at line 2114 of file cfortran.h.

◆ DOUBLEVVVVVVV_cfTYPE

#define DOUBLEVVVVVVV_cfTYPE   DOUBLE_PRECISION

Definition at line 1424 of file cfortran.h.

◆ F2CLOGICAL

#define F2CLOGICAL (   L)    (L)

Definition at line 470 of file cfortran.h.

◆ F2CLOGICALV [1/2]

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

Definition at line 449 of file cfortran.h.

◆ F2CLOGICALV [2/2]

#define F2CLOGICALV (   A,
  I 
)

Definition at line 449 of file cfortran.h.

◆ fcallsc

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

Definition at line 287 of file cfortran.h.

◆ FCALLSC_QUALIFIER

#define FCALLSC_QUALIFIER

Definition at line 1166 of file cfortran.h.

◆ FCALLSCFUN0

#define FCALLSCFUN0 (   T0,
  CN,
  UN,
  LN 
)
Value:
CFextern _(T0,_cfFZ)(UN,LN) ABSOFT_cf2(T0)) \
{_Icf(2,UU,T0,A0,0); _Icf(0,L,T0,0,0) CN(); _Icf(0,K,T0,0,0) _(T0,_cfI)}
#define CFextern
Definition cfortran.h:1173
#define _Icf(N, T, I, X, Y)
Definition cfortran.h:1447
#define ABSOFT_cf2(T0)
Definition cfortran.h:972
#define _(A, B)
Definition cfortran.h:108

Definition at line 2467 of file cfortran.h.

◆ FCALLSCFUN1

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

Definition at line 2412 of file cfortran.h.

◆ FCALLSCFUN10

#define FCALLSCFUN10 (   T0,
  CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA 
)     FCALLSCFUN14(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,CF_0,CF_0,CF_0,CF_0)

Definition at line 2430 of file cfortran.h.

◆ FCALLSCFUN11

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

Definition at line 2432 of file cfortran.h.

◆ FCALLSCFUN12

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

Definition at line 2434 of file cfortran.h.

◆ FCALLSCFUN13

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

Definition at line 2436 of file cfortran.h.

◆ FCALLSCFUN14

#define FCALLSCFUN14 (   T0,
  CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE 
)
Value:
CFextern _(T0,_cfF)(UN,LN) \
CFARGT14(NCF,DCF,ABSOFT_cf2(T0),T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) ) \
{ CFARGT14S(QCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
_Icf(2,UU,T0,A0,0); _Icf(0,L,T0,0,0) CN( TCF(LN,T1,1,0) TCF(LN,T2,2,1) \
TCF(LN,T3,3,1) TCF(LN,T4,4,1) TCF(LN,T5,5,1) TCF(LN,T6,6,1) TCF(LN,T7,7,1) \
TCF(LN,T8,8,1) TCF(LN,T9,9,1) TCF(LN,TA,10,1) TCF(LN,TB,11,1) TCF(LN,TC,12,1) \
TCF(LN,TD,13,1) TCF(LN,TE,14,1) ); _Icf(0,K,T0,0,0) \
CFARGT14S(RCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) _(T0,_cfI) }
#define RCF(TN, I)
Definition cfortran.h:2198
#define QCF(TN, I)
Definition cfortran.h:2041
#define TCF(NAME, TN, I, M)
Definition cfortran.h:2086
#define DCF(TN, I)
Definition cfortran.h:2036
#define CFARGT14(F, S, M, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE)
Definition cfortran.h:1015
#define NCF(TN, I, C)
Definition cfortran.h:897

Definition at line 2470 of file cfortran.h.

◆ FCALLSCFUN15

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

Definition at line 2440 of file cfortran.h.

◆ FCALLSCFUN16

#define FCALLSCFUN16 (   T0,
  CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG 
)     FCALLSCFUN20(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,CF_0,CF_0,CF_0,CF_0)

Definition at line 2442 of file cfortran.h.

◆ FCALLSCFUN17

#define FCALLSCFUN17 (   T0,
  CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH 
)     FCALLSCFUN20(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,CF_0,CF_0,CF_0)

Definition at line 2444 of file cfortran.h.

◆ FCALLSCFUN18

#define FCALLSCFUN18 (   T0,
  CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI 
)     FCALLSCFUN20(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,CF_0,CF_0)

Definition at line 2446 of file cfortran.h.

◆ FCALLSCFUN19

#define FCALLSCFUN19 (   T0,
  CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ 
)     FCALLSCFUN20(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,CF_0)

Definition at line 2448 of file cfortran.h.

◆ FCALLSCFUN2

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

Definition at line 2414 of file cfortran.h.

◆ FCALLSCFUN20

#define FCALLSCFUN20 (   T0,
  CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK 
)     FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)

Definition at line 2450 of file cfortran.h.

◆ FCALLSCFUN21

#define FCALLSCFUN21 (   T0,
  CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK,
  TL 
)     FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)

Definition at line 2452 of file cfortran.h.

◆ FCALLSCFUN22

#define FCALLSCFUN22 (   T0,
  CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK,
  TL,
  TM 
)     FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,CF_0,CF_0,CF_0,CF_0,CF_0)

Definition at line 2454 of file cfortran.h.

◆ FCALLSCFUN23

#define FCALLSCFUN23 (   T0,
  CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK,
  TL,
  TM,
  TN 
)     FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,CF_0,CF_0,CF_0,CF_0)

Definition at line 2456 of file cfortran.h.

◆ FCALLSCFUN24

#define FCALLSCFUN24 (   T0,
  CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK,
  TL,
  TM,
  TN,
  TO 
)     FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,CF_0,CF_0,CF_0)

Definition at line 2458 of file cfortran.h.

◆ FCALLSCFUN25

#define FCALLSCFUN25 (   T0,
  CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK,
  TL,
  TM,
  TN,
  TO,
  TP 
)     FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,CF_0,CF_0)

Definition at line 2460 of file cfortran.h.

◆ FCALLSCFUN26

#define FCALLSCFUN26 (   T0,
  CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK,
  TL,
  TM,
  TN,
  TO,
  TP,
  TQ 
)     FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,CF_0)

Definition at line 2462 of file cfortran.h.

◆ FCALLSCFUN27

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

Definition at line 2480 of file cfortran.h.

◆ FCALLSCFUN3

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

Definition at line 2416 of file cfortran.h.

◆ FCALLSCFUN4

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

Definition at line 2418 of file cfortran.h.

◆ FCALLSCFUN5

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

Definition at line 2420 of file cfortran.h.

◆ FCALLSCFUN6

#define FCALLSCFUN6 (   T0,
  CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6 
)     FCALLSCFUN10(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,CF_0,CF_0,CF_0,CF_0)

Definition at line 2422 of file cfortran.h.

◆ FCALLSCFUN7

#define FCALLSCFUN7 (   T0,
  CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7 
)     FCALLSCFUN10(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,CF_0,CF_0,CF_0)

Definition at line 2424 of file cfortran.h.

◆ FCALLSCFUN8

#define FCALLSCFUN8 (   T0,
  CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8 
)     FCALLSCFUN10(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,CF_0,CF_0)

Definition at line 2426 of file cfortran.h.

◆ FCALLSCFUN9

#define FCALLSCFUN9 (   T0,
  CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9 
)     FCALLSCFUN10(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,CF_0)

Definition at line 2428 of file cfortran.h.

◆ FCALLSCSUB0

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

Definition at line 2358 of file cfortran.h.

◆ FCALLSCSUB1

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

Definition at line 2359 of file cfortran.h.

◆ FCALLSCSUB10

#define FCALLSCSUB10 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA 
)     FCALLSCFUN10(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA)

Definition at line 2374 of file cfortran.h.

◆ FCALLSCSUB11

#define FCALLSCSUB11 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB 
)     FCALLSCFUN11(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB)

Definition at line 2376 of file cfortran.h.

◆ FCALLSCSUB12

#define FCALLSCSUB12 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC 
)     FCALLSCFUN12(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC)

Definition at line 2378 of file cfortran.h.

◆ FCALLSCSUB13

#define FCALLSCSUB13 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD 
)     FCALLSCFUN13(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD)

Definition at line 2380 of file cfortran.h.

◆ FCALLSCSUB14

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

Definition at line 2382 of file cfortran.h.

◆ FCALLSCSUB15

#define FCALLSCSUB15 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF 
)     FCALLSCFUN15(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF)

Definition at line 2384 of file cfortran.h.

◆ FCALLSCSUB16

#define FCALLSCSUB16 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG 
)     FCALLSCFUN16(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG)

Definition at line 2386 of file cfortran.h.

◆ FCALLSCSUB17

#define FCALLSCSUB17 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH 
)     FCALLSCFUN17(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH)

Definition at line 2388 of file cfortran.h.

◆ FCALLSCSUB18

#define FCALLSCSUB18 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI 
)     FCALLSCFUN18(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI)

Definition at line 2390 of file cfortran.h.

◆ FCALLSCSUB19

#define FCALLSCSUB19 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ 
)     FCALLSCFUN19(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ)

Definition at line 2392 of file cfortran.h.

◆ FCALLSCSUB2

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

Definition at line 2360 of file cfortran.h.

◆ FCALLSCSUB20

#define FCALLSCSUB20 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK 
)     FCALLSCFUN20(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK)

Definition at line 2394 of file cfortran.h.

◆ FCALLSCSUB21

#define FCALLSCSUB21 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK,
  TL 
)     FCALLSCFUN21(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL)

Definition at line 2396 of file cfortran.h.

◆ FCALLSCSUB22

#define FCALLSCSUB22 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK,
  TL,
  TM 
)     FCALLSCFUN22(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM)

Definition at line 2398 of file cfortran.h.

◆ FCALLSCSUB23

#define FCALLSCSUB23 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK,
  TL,
  TM,
  TN 
)     FCALLSCFUN23(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN)

Definition at line 2400 of file cfortran.h.

◆ FCALLSCSUB24

#define FCALLSCSUB24 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK,
  TL,
  TM,
  TN,
  TO 
)     FCALLSCFUN24(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO)

Definition at line 2402 of file cfortran.h.

◆ FCALLSCSUB25

#define FCALLSCSUB25 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK,
  TL,
  TM,
  TN,
  TO,
  TP 
)     FCALLSCFUN25(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP)

Definition at line 2404 of file cfortran.h.

◆ FCALLSCSUB26

#define FCALLSCSUB26 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK,
  TL,
  TM,
  TN,
  TO,
  TP,
  TQ 
)     FCALLSCFUN26(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ)

Definition at line 2406 of file cfortran.h.

◆ FCALLSCSUB27

#define FCALLSCSUB27 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK,
  TL,
  TM,
  TN,
  TO,
  TP,
  TQ,
  TR 
)     FCALLSCFUN27(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)

Definition at line 2408 of file cfortran.h.

◆ FCALLSCSUB3

#define FCALLSCSUB3 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3 
)    FCALLSCFUN3(VOID,CN,UN,LN,T1,T2,T3)

Definition at line 2361 of file cfortran.h.

◆ FCALLSCSUB4

#define FCALLSCSUB4 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4 
)     FCALLSCFUN4(VOID,CN,UN,LN,T1,T2,T3,T4)

Definition at line 2362 of file cfortran.h.

◆ FCALLSCSUB5

#define FCALLSCSUB5 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5 
)     FCALLSCFUN5(VOID,CN,UN,LN,T1,T2,T3,T4,T5)

Definition at line 2364 of file cfortran.h.

◆ FCALLSCSUB6

#define FCALLSCSUB6 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6 
)     FCALLSCFUN6(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6)

Definition at line 2366 of file cfortran.h.

◆ FCALLSCSUB7

#define FCALLSCSUB7 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7 
)     FCALLSCFUN7(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7)

Definition at line 2368 of file cfortran.h.

◆ FCALLSCSUB8

#define FCALLSCSUB8 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8 
)     FCALLSCFUN8(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8)

Definition at line 2370 of file cfortran.h.

◆ FCALLSCSUB9

#define FCALLSCSUB9 (   CN,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9 
)     FCALLSCFUN9(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9)

Definition at line 2372 of file cfortran.h.

◆ FCB2CSTR

#define FCB2CSTR (   FSTR,
  CSTR,
  DIM 
)
Value:
vkill_trailing(f2cstrv((char *)FSTR, (char *)CSTR, \
sizeof(FSTR)/cfelementsof(FSTR,DIM)+1, \
sizeof(FSTR)+cfelementsof(FSTR,DIM)), \
sizeof(FSTR)/cfelementsof(FSTR,DIM)+1, \
sizeof(FSTR)+cfelementsof(FSTR,DIM), ' ')
static char * f2cstrv(char *fstr, char *cstr, int elem_len, int sizeofcstr)
Definition cfortran.h:527
static char * vkill_trailing(char *cstr, int elem_len, int sizeofcstr, char t)
Definition cfortran.h:574

Definition at line 664 of file cfortran.h.

◆ firstindexlength

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

Definition at line 427 of file cfortran.h.

◆ FLOAT_cfCCC

#define FLOAT_cfCCC (   A,
 
)    &A

Definition at line 1830 of file cfortran.h.

◆ FLOAT_cfE

#define FLOAT_cfE   FORTRAN_REAL A0;

Definition at line 1592 of file cfortran.h.

◆ FLOAT_cfF

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

Definition at line 2278 of file cfortran.h.

◆ FLOAT_cfFZ

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

Definition at line 2238 of file cfortran.h.

◆ FLOAT_cfI

#define FLOAT_cfI   return A0;

Definition at line 2337 of file cfortran.h.

◆ FLOAT_cfINT

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

Definition at line 1451 of file cfortran.h.

◆ FLOAT_cfPU

#define FLOAT_cfPU (   A)    CFextern FORTRAN_REAL FCALLSC_QUALIFIER A

Definition at line 1577 of file cfortran.h.

◆ FLOAT_cfSTR

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

Definition at line 1712 of file cfortran.h.

◆ FLOAT_cfT

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

Definition at line 2089 of file cfortran.h.

◆ FLOAT_cfVCF

#define FLOAT_cfVCF (   A,
 
)

Definition at line 719 of file cfortran.h.

◆ FLOAT_cfX

#define FLOAT_cfX   return A0;

Definition at line 1888 of file cfortran.h.

◆ FLOATV_cfINT

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

Definition at line 1479 of file cfortran.h.

◆ FLOATV_cfSTR

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

Definition at line 1732 of file cfortran.h.

◆ FLOATV_cfT

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

Definition at line 2097 of file cfortran.h.

◆ FLOATVV_cfINT

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

Definition at line 1480 of file cfortran.h.

◆ FLOATVV_cfSTR

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

Definition at line 1733 of file cfortran.h.

◆ FLOATVV_cfT

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

Definition at line 2115 of file cfortran.h.

◆ FLOATVVV_cfINT

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

Definition at line 1481 of file cfortran.h.

◆ FLOATVVV_cfSTR

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

Definition at line 1734 of file cfortran.h.

◆ FLOATVVV_cfT

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

Definition at line 2116 of file cfortran.h.

◆ FLOATVVVV_cfINT

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

Definition at line 1482 of file cfortran.h.

◆ FLOATVVVV_cfSTR

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

Definition at line 1735 of file cfortran.h.

◆ FLOATVVVV_cfT

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

Definition at line 2117 of file cfortran.h.

◆ FLOATVVVVV_cfINT

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

Definition at line 1483 of file cfortran.h.

◆ FLOATVVVVV_cfSTR

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

Definition at line 1736 of file cfortran.h.

◆ FLOATVVVVV_cfT

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

Definition at line 2118 of file cfortran.h.

◆ FLOATVVVVVV_cfINT

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

Definition at line 1484 of file cfortran.h.

◆ FLOATVVVVVV_cfSTR

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

Definition at line 1737 of file cfortran.h.

◆ FLOATVVVVVV_cfT

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

Definition at line 2119 of file cfortran.h.

◆ FLOATVVVVVVV_cfINT

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

Definition at line 1485 of file cfortran.h.

◆ FLOATVVVVVVV_cfPP

#define FLOATVVVVVVV_cfPP

Definition at line 337 of file cfortran.h.

◆ FLOATVVVVVVV_cfSTR

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

Definition at line 1738 of file cfortran.h.

◆ FLOATVVVVVVV_cfT

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

Definition at line 2120 of file cfortran.h.

◆ FLOATVVVVVVV_cfTYPE

#define FLOATVVVVVVV_cfTYPE   FORTRAN_REAL

Definition at line 1425 of file cfortran.h.

◆ FORTRAN_FUNCTION

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

Definition at line 292 of file cfortran.h.

◆ FORTRAN_REAL

#define FORTRAN_REAL   float

Definition at line 322 of file cfortran.h.

◆ H_CF_SPECIAL

#define H_CF_SPECIAL   unsigned

Definition at line 1693 of file cfortran.h.

◆ HCF

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

Definition at line 1690 of file cfortran.h.

◆ HH_CF_SPECIAL

#define HH_CF_SPECIAL

Definition at line 1694 of file cfortran.h.

◆ HHCF

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

Definition at line 1691 of file cfortran.h.

◆ HHHCF

#define HHHCF (   TN,
  I 
)    _(TN,_cfSTR)(3,H,cfCOLON, H,_(C,I),0,0)

Definition at line 1692 of file cfortran.h.

◆ INT_cfAA

#define INT_cfAA (   T,
  A,
 
)    &B

Definition at line 811 of file cfortran.h.

◆ INT_cfB

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

Definition at line 1660 of file cfortran.h.

◆ INT_cfCC

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

Definition at line 1848 of file cfortran.h.

◆ INT_cfCCC

#define INT_cfCCC (   A,
 
)    &A

Definition at line 1835 of file cfortran.h.

◆ INT_cfE

#define INT_cfE   int A0;

Definition at line 1596 of file cfortran.h.

◆ INT_cfF

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

Definition at line 2283 of file cfortran.h.

◆ INT_cfFF

#define INT_cfFF

Definition at line 2291 of file cfortran.h.

◆ INT_cfFZ

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

Definition at line 2225 of file cfortran.h.

◆ INT_cfG

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

Definition at line 1641 of file cfortran.h.

◆ INT_cfGZ

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

Definition at line 1629 of file cfortran.h.

◆ INT_cfI

#define INT_cfI   return A0;

Definition at line 2341 of file cfortran.h.

◆ INT_cfINT

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

Definition at line 1452 of file cfortran.h.

◆ INT_cfK

#define INT_cfK

Definition at line 2307 of file cfortran.h.

◆ INT_cfL

#define INT_cfL   A0=

Definition at line 2303 of file cfortran.h.

◆ INT_cfN

#define INT_cfN (   T,
 
)    _(T,VVVVVVV_cfTYPE) * A

Definition at line 900 of file cfortran.h.

◆ INT_cfPU

#define INT_cfPU (   A)    CFextern int FCALLSC_QUALIFIER A

Definition at line 1582 of file cfortran.h.

◆ INT_cfSEP

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

Definition at line 1392 of file cfortran.h.

◆ INT_cfSTR

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

Definition at line 1713 of file cfortran.h.

◆ INT_cfT

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

Definition at line 2090 of file cfortran.h.

◆ INT_cfU

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

Definition at line 1545 of file cfortran.h.

◆ INT_cfUU

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

Definition at line 1565 of file cfortran.h.

◆ INT_cfV

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

Definition at line 737 of file cfortran.h.

◆ INT_cfVCF

#define INT_cfVCF (   A,
 
)

Definition at line 723 of file cfortran.h.

◆ INT_cfX

#define INT_cfX   return A0;

Definition at line 1892 of file cfortran.h.

◆ INTEGER_BYTE

#define INTEGER_BYTE   signed char /* default */

Definition at line 1418 of file cfortran.h.

◆ INTV_cfAA

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

Definition at line 812 of file cfortran.h.

◆ INTV_cfB

#define INTV_cfB (   T,
 
)    A

Definition at line 1661 of file cfortran.h.

◆ INTV_cfCC

#define INTV_cfCC (   T,
  A,
 
)    A

Definition at line 1849 of file cfortran.h.

◆ INTV_cfINT

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

Definition at line 1486 of file cfortran.h.

◆ INTV_cfN

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

Definition at line 901 of file cfortran.h.

◆ INTV_cfSEP

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

Definition at line 1393 of file cfortran.h.

◆ INTV_cfSTR

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

Definition at line 1739 of file cfortran.h.

◆ INTV_cfT

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

Definition at line 2098 of file cfortran.h.

◆ INTV_cfU

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

Definition at line 1546 of file cfortran.h.

◆ INTV_cfV

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

Definition at line 738 of file cfortran.h.

◆ INTVV_cfAA

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

Definition at line 813 of file cfortran.h.

◆ INTVV_cfB

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

Definition at line 1662 of file cfortran.h.

◆ INTVV_cfCC

#define INTVV_cfCC (   T,
  A,
 
)    A

Definition at line 1850 of file cfortran.h.

◆ INTVV_cfINT

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

Definition at line 1487 of file cfortran.h.

◆ INTVV_cfN

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

Definition at line 902 of file cfortran.h.

◆ INTVV_cfSEP

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

Definition at line 1394 of file cfortran.h.

◆ INTVV_cfSTR

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

Definition at line 1740 of file cfortran.h.

◆ INTVV_cfT

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

Definition at line 2121 of file cfortran.h.

◆ INTVV_cfU

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

Definition at line 1547 of file cfortran.h.

◆ INTVV_cfV

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

Definition at line 739 of file cfortran.h.

◆ INTVVV_cfAA

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

Definition at line 814 of file cfortran.h.

◆ INTVVV_cfB

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

Definition at line 1663 of file cfortran.h.

◆ INTVVV_cfCC

#define INTVVV_cfCC (   T,
  A,
 
)    A

Definition at line 1851 of file cfortran.h.

◆ INTVVV_cfINT

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

Definition at line 1488 of file cfortran.h.

◆ INTVVV_cfN

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

Definition at line 903 of file cfortran.h.

◆ INTVVV_cfSEP

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

Definition at line 1395 of file cfortran.h.

◆ INTVVV_cfSTR

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

Definition at line 1741 of file cfortran.h.

◆ INTVVV_cfT

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

Definition at line 2122 of file cfortran.h.

◆ INTVVV_cfU

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

Definition at line 1548 of file cfortran.h.

◆ INTVVV_cfV

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

Definition at line 740 of file cfortran.h.

◆ INTVVVV_cfAA

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

Definition at line 815 of file cfortran.h.

◆ INTVVVV_cfB

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

Definition at line 1664 of file cfortran.h.

◆ INTVVVV_cfCC

#define INTVVVV_cfCC (   T,
  A,
 
)    A

Definition at line 1852 of file cfortran.h.

◆ INTVVVV_cfINT

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

Definition at line 1489 of file cfortran.h.

◆ INTVVVV_cfN

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

Definition at line 904 of file cfortran.h.

◆ INTVVVV_cfSEP

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

Definition at line 1396 of file cfortran.h.

◆ INTVVVV_cfSTR

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

Definition at line 1742 of file cfortran.h.

◆ INTVVVV_cfT

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

Definition at line 2123 of file cfortran.h.

◆ INTVVVV_cfU

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

Definition at line 1549 of file cfortran.h.

◆ INTVVVV_cfV

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

Definition at line 741 of file cfortran.h.

◆ INTVVVVV_cfAA

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

Definition at line 816 of file cfortran.h.

◆ INTVVVVV_cfB

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

Definition at line 1665 of file cfortran.h.

◆ INTVVVVV_cfCC

#define INTVVVVV_cfCC (   T,
  A,
 
)    A

Definition at line 1853 of file cfortran.h.

◆ INTVVVVV_cfINT

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

Definition at line 1490 of file cfortran.h.

◆ INTVVVVV_cfN

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

Definition at line 905 of file cfortran.h.

◆ INTVVVVV_cfSEP

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

Definition at line 1397 of file cfortran.h.

◆ INTVVVVV_cfSTR

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

Definition at line 1743 of file cfortran.h.

◆ INTVVVVV_cfT

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

Definition at line 2124 of file cfortran.h.

◆ INTVVVVV_cfU

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

Definition at line 1550 of file cfortran.h.

◆ INTVVVVV_cfV

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

Definition at line 742 of file cfortran.h.

◆ INTVVVVVV_cfAA

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

Definition at line 817 of file cfortran.h.

◆ INTVVVVVV_cfB

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

Definition at line 1666 of file cfortran.h.

◆ INTVVVVVV_cfCC

#define INTVVVVVV_cfCC (   T,
  A,
 
)    A

Definition at line 1854 of file cfortran.h.

◆ INTVVVVVV_cfINT

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

Definition at line 1491 of file cfortran.h.

◆ INTVVVVVV_cfN

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

Definition at line 906 of file cfortran.h.

◆ INTVVVVVV_cfSEP

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

Definition at line 1398 of file cfortran.h.

◆ INTVVVVVV_cfSTR

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

Definition at line 1744 of file cfortran.h.

◆ INTVVVVVV_cfT

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

Definition at line 2125 of file cfortran.h.

◆ INTVVVVVV_cfU

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

Definition at line 1551 of file cfortran.h.

◆ INTVVVVVV_cfV

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

Definition at line 743 of file cfortran.h.

◆ INTVVVVVVV_cfAA

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

Definition at line 818 of file cfortran.h.

◆ INTVVVVVVV_cfB

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

Definition at line 1667 of file cfortran.h.

◆ INTVVVVVVV_cfCC

#define INTVVVVVVV_cfCC (   T,
  A,
 
)    A

Definition at line 1855 of file cfortran.h.

◆ INTVVVVVVV_cfINT

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

Definition at line 1492 of file cfortran.h.

◆ INTVVVVVVV_cfN

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

Definition at line 907 of file cfortran.h.

◆ INTVVVVVVV_cfPP

#define INTVVVVVVV_cfPP   /* These complement FLOATVVVVVVV_cfPP. */

Definition at line 1646 of file cfortran.h.

◆ INTVVVVVVV_cfSEP

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

Definition at line 1399 of file cfortran.h.

◆ INTVVVVVVV_cfSTR

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

Definition at line 1745 of file cfortran.h.

◆ INTVVVVVVV_cfT

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

Definition at line 2126 of file cfortran.h.

◆ INTVVVVVVV_cfTYPE

#define INTVVVVVVV_cfTYPE   int

Definition at line 1426 of file cfortran.h.

◆ INTVVVVVVV_cfU

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

Definition at line 1552 of file cfortran.h.

◆ INTVVVVVVV_cfV

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

Definition at line 744 of file cfortran.h.

◆ JCF

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

Definition at line 845 of file cfortran.h.

◆ KCF

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

Definition at line 861 of file cfortran.h.

◆ LOGICAL_cfA

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

Definition at line 775 of file cfortran.h.

◆ LOGICAL_cfC

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

Definition at line 1798 of file cfortran.h.

◆ LOGICAL_cfCCC

#define LOGICAL_cfCCC (   A,
 
)    &A

Definition at line 1836 of file cfortran.h.

◆ LOGICAL_cfE

#define LOGICAL_cfE   int A0;

Definition at line 1597 of file cfortran.h.

◆ LOGICAL_cfF

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

Definition at line 2284 of file cfortran.h.

◆ LOGICAL_cfFZ

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

Definition at line 2226 of file cfortran.h.

◆ LOGICAL_cfH

#define LOGICAL_cfH (   S,
  U,
 
)

Definition at line 1696 of file cfortran.h.

◆ LOGICAL_cfI

#define LOGICAL_cfI   return C2FLOGICAL(A0);

Definition at line 2346 of file cfortran.h.

◆ LOGICAL_cfINT

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

Definition at line 1453 of file cfortran.h.

◆ LOGICAL_cfJ

#define LOGICAL_cfJ (   B)    DEFAULT_cfJ(B)

Definition at line 851 of file cfortran.h.

◆ LOGICAL_cfKK

#define LOGICAL_cfKK (   B)    DEFAULT_cfKK(B)

Definition at line 867 of file cfortran.h.

◆ LOGICAL_cfPU

#define LOGICAL_cfPU (   A)    CFextern int FCALLSC_QUALIFIER A

Definition at line 1583 of file cfortran.h.

◆ LOGICAL_cfQ

#define LOGICAL_cfQ (   B)

Definition at line 2043 of file cfortran.h.

◆ LOGICAL_cfR

#define LOGICAL_cfR (   A,
  B,
 
)

Definition at line 2200 of file cfortran.h.

◆ LOGICAL_cfS

#define LOGICAL_cfS (   M,
  I,
 
)

Definition at line 1680 of file cfortran.h.

◆ LOGICAL_cfSTR

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

Definition at line 1714 of file cfortran.h.

◆ LOGICAL_cfT

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

Definition at line 2091 of file cfortran.h.

◆ LOGICAL_cfVCF

#define LOGICAL_cfVCF (   A,
 
)

Definition at line 724 of file cfortran.h.

◆ LOGICAL_cfW

#define LOGICAL_cfW (   A,
 
)

Definition at line 879 of file cfortran.h.

◆ LOGICAL_cfX

#define LOGICAL_cfX   return F2CLOGICAL(A0);

Definition at line 1893 of file cfortran.h.

◆ LOGICALV_cfINT

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

Definition at line 1493 of file cfortran.h.

◆ LOGICALV_cfSTR

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

Definition at line 1746 of file cfortran.h.

◆ LOGICALV_cfT

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

Definition at line 2099 of file cfortran.h.

◆ LOGICALVV_cfINT

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

Definition at line 1494 of file cfortran.h.

◆ LOGICALVV_cfSTR

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

Definition at line 1747 of file cfortran.h.

◆ LOGICALVV_cfT

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

Definition at line 2127 of file cfortran.h.

◆ LOGICALVVV_cfINT

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

Definition at line 1495 of file cfortran.h.

◆ LOGICALVVV_cfSTR

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

Definition at line 1748 of file cfortran.h.

◆ LOGICALVVV_cfT

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

Definition at line 2128 of file cfortran.h.

◆ LOGICALVVVV_cfINT

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

Definition at line 1496 of file cfortran.h.

◆ LOGICALVVVV_cfSTR

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

Definition at line 1749 of file cfortran.h.

◆ LOGICALVVVV_cfT

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

Definition at line 2129 of file cfortran.h.

◆ LOGICALVVVVV_cfINT

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

Definition at line 1497 of file cfortran.h.

◆ LOGICALVVVVV_cfSTR

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

Definition at line 1750 of file cfortran.h.

◆ LOGICALVVVVV_cfT

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

Definition at line 2130 of file cfortran.h.

◆ LOGICALVVVVVV_cfINT

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

Definition at line 1498 of file cfortran.h.

◆ LOGICALVVVVVV_cfSTR

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

Definition at line 1751 of file cfortran.h.

◆ LOGICALVVVVVV_cfT

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

Definition at line 2131 of file cfortran.h.

◆ LOGICALVVVVVVV_cfINT

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

Definition at line 1499 of file cfortran.h.

◆ LOGICALVVVVVVV_cfPP

#define LOGICALVVVVVVV_cfPP

Definition at line 1648 of file cfortran.h.

◆ LOGICALVVVVVVV_cfSTR

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

Definition at line 1752 of file cfortran.h.

◆ LOGICALVVVVVVV_cfT

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

Definition at line 2132 of file cfortran.h.

◆ LOGICALVVVVVVV_cfTYPE

#define LOGICALVVVVVVV_cfTYPE   int

Definition at line 1427 of file cfortran.h.

◆ LONG_cfCCC

#define LONG_cfCCC (   A,
 
)    &A

Definition at line 1837 of file cfortran.h.

◆ LONG_cfE

#define LONG_cfE   long A0;

Definition at line 1598 of file cfortran.h.

◆ LONG_cfF

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

Definition at line 2285 of file cfortran.h.

◆ LONG_cfFZ

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

Definition at line 2227 of file cfortran.h.

◆ LONG_cfI

#define LONG_cfI   return A0;

Definition at line 2348 of file cfortran.h.

◆ LONG_cfINT

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

Definition at line 1454 of file cfortran.h.

◆ LONG_cfPU

#define LONG_cfPU (   A)    CFextern long FCALLSC_QUALIFIER A

Definition at line 1584 of file cfortran.h.

◆ LONG_cfSTR

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

Definition at line 1715 of file cfortran.h.

◆ LONG_cfT

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

Definition at line 2092 of file cfortran.h.

◆ LONG_cfVCF

#define LONG_cfVCF (   A,
 
)

Definition at line 725 of file cfortran.h.

◆ LONG_cfX

#define LONG_cfX   return A0;

Definition at line 1894 of file cfortran.h.

◆ LONGLONG_cfF

#define LONGLONG_cfF (   UN,
  LN 
)    LONGLONG_cfFZ(UN,LN) /* added by MR December 2005 */

Definition at line 2286 of file cfortran.h.

◆ LONGLONG_cfFZ

#define LONGLONG_cfFZ (   UN,
  LN 
)    LONGLONG FCALLSC_QUALIFIER fcallsc(UN,LN)( /* added by MR December 2005 */

Definition at line 2228 of file cfortran.h.

◆ LONGLONG_cfI

#define LONGLONG_cfI   return A0; /* added by MR December 2005 */

Definition at line 2349 of file cfortran.h.

◆ LONGLONG_cfINT

#define LONGLONG_cfINT (   N,
  A,
  B,
  X,
  Y,
 
)    DOUBLE_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */

Definition at line 1455 of file cfortran.h.

◆ LONGLONG_cfSTR

#define LONGLONG_cfSTR (   N,
  T,
  A,
  B,
  C,
  D,
 
)    _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */

Definition at line 1716 of file cfortran.h.

◆ LONGLONG_cfT

#define LONGLONG_cfT (   M,
  I,
  A,
  B,
 
)    *A /* added by MR December 2005 */

Definition at line 2093 of file cfortran.h.

◆ LONGLONG_TYPE

#define LONGLONG_TYPE

Definition at line 81 of file cfortran.h.

◆ LONGLONGV_cfINT

#define LONGLONGV_cfINT (   N,
  A,
  B,
  X,
  Y,
 
)    DOUBLEV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */

Definition at line 1507 of file cfortran.h.

◆ LONGLONGV_cfSTR

#define LONGLONGV_cfSTR (   N,
  T,
  A,
  B,
  C,
  D,
 
)    _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */

Definition at line 1760 of file cfortran.h.

◆ LONGLONGV_cfT

#define LONGLONGV_cfT (   M,
  I,
  A,
  B,
 
)    A /* added by MR December 2005 */

Definition at line 2101 of file cfortran.h.

◆ LONGLONGVV_cfINT

#define LONGLONGVV_cfINT (   N,
  A,
  B,
  X,
  Y,
 
)    DOUBLEVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */

Definition at line 1508 of file cfortran.h.

◆ LONGLONGVV_cfSTR

#define LONGLONGVV_cfSTR (   N,
  T,
  A,
  B,
  C,
  D,
 
)    _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */

Definition at line 1761 of file cfortran.h.

◆ LONGLONGVV_cfT

#define LONGLONGVV_cfT (   M,
  I,
  A,
  B,
 
)    (void *)A /* added by MR December 2005 */

Definition at line 2139 of file cfortran.h.

◆ LONGLONGVVV_cfINT

#define LONGLONGVVV_cfINT (   N,
  A,
  B,
  X,
  Y,
 
)    DOUBLEVVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */

Definition at line 1509 of file cfortran.h.

◆ LONGLONGVVV_cfSTR

#define LONGLONGVVV_cfSTR (   N,
  T,
  A,
  B,
  C,
  D,
 
)    _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */

Definition at line 1762 of file cfortran.h.

◆ LONGLONGVVV_cfT

#define LONGLONGVVV_cfT (   M,
  I,
  A,
  B,
 
)    (void *)A /* added by MR December 2005 */

Definition at line 2140 of file cfortran.h.

◆ LONGLONGVVVV_cfINT

#define LONGLONGVVVV_cfINT (   N,
  A,
  B,
  X,
  Y,
 
)    DOUBLEVVVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */

Definition at line 1510 of file cfortran.h.

◆ LONGLONGVVVV_cfSTR

#define LONGLONGVVVV_cfSTR (   N,
  T,
  A,
  B,
  C,
  D,
 
)    _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */

Definition at line 1763 of file cfortran.h.

◆ LONGLONGVVVV_cfT

#define LONGLONGVVVV_cfT (   M,
  I,
  A,
  B,
 
)    (void *)A /* added by MR December 2005 */

Definition at line 2141 of file cfortran.h.

◆ LONGLONGVVVVV_cfINT

#define LONGLONGVVVVV_cfINT (   N,
  A,
  B,
  X,
  Y,
 
)    DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */

Definition at line 1511 of file cfortran.h.

◆ LONGLONGVVVVV_cfSTR

#define LONGLONGVVVVV_cfSTR (   N,
  T,
  A,
  B,
  C,
  D,
 
)    _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */

Definition at line 1764 of file cfortran.h.

◆ LONGLONGVVVVV_cfT

#define LONGLONGVVVVV_cfT (   M,
  I,
  A,
  B,
 
)    (void *)A /* added by MR December 2005 */

Definition at line 2142 of file cfortran.h.

◆ LONGLONGVVVVVV_cfINT

#define LONGLONGVVVVVV_cfINT (   N,
  A,
  B,
  X,
  Y,
 
)    DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */

Definition at line 1512 of file cfortran.h.

◆ LONGLONGVVVVVV_cfSTR

#define LONGLONGVVVVVV_cfSTR (   N,
  T,
  A,
  B,
  C,
  D,
 
)    _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */

Definition at line 1765 of file cfortran.h.

◆ LONGLONGVVVVVV_cfT

#define LONGLONGVVVVVV_cfT (   M,
  I,
  A,
  B,
 
)    (void *)A /* added by MR December 2005 */

Definition at line 2143 of file cfortran.h.

◆ LONGLONGVVVVVVV_cfINT

#define LONGLONGVVVVVVV_cfINT (   N,
  A,
  B,
  X,
  Y,
 
)    DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */

Definition at line 1513 of file cfortran.h.

◆ LONGLONGVVVVVVV_cfSTR

#define LONGLONGVVVVVVV_cfSTR (   N,
  T,
  A,
  B,
  C,
  D,
 
)    _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */

Definition at line 1766 of file cfortran.h.

◆ LONGLONGVVVVVVV_cfT

#define LONGLONGVVVVVVV_cfT (   M,
  I,
  A,
  B,
 
)    (void *)A /* added by MR December 2005 */

Definition at line 2144 of file cfortran.h.

◆ LONGLONGVVVVVVV_cfTYPE

#define LONGLONGVVVVVVV_cfTYPE   LONGLONG /* added by MR December 2005 */

Definition at line 1429 of file cfortran.h.

◆ LONGV_cfINT

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

Definition at line 1500 of file cfortran.h.

◆ LONGV_cfSTR

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

Definition at line 1753 of file cfortran.h.

◆ LONGV_cfT

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

Definition at line 2100 of file cfortran.h.

◆ LONGVV_cfINT

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

Definition at line 1501 of file cfortran.h.

◆ LONGVV_cfSTR

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

Definition at line 1754 of file cfortran.h.

◆ LONGVV_cfT

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

Definition at line 2133 of file cfortran.h.

◆ LONGVVV_cfINT

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

Definition at line 1502 of file cfortran.h.

◆ LONGVVV_cfSTR

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

Definition at line 1755 of file cfortran.h.

◆ LONGVVV_cfT

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

Definition at line 2134 of file cfortran.h.

◆ LONGVVVV_cfINT

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

Definition at line 1503 of file cfortran.h.

◆ LONGVVVV_cfSTR

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

Definition at line 1756 of file cfortran.h.

◆ LONGVVVV_cfT

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

Definition at line 2135 of file cfortran.h.

◆ LONGVVVVV_cfINT

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

Definition at line 1504 of file cfortran.h.

◆ LONGVVVVV_cfSTR

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

Definition at line 1757 of file cfortran.h.

◆ LONGVVVVV_cfT

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

Definition at line 2136 of file cfortran.h.

◆ LONGVVVVVV_cfINT

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

Definition at line 1505 of file cfortran.h.

◆ LONGVVVVVV_cfSTR

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

Definition at line 1758 of file cfortran.h.

◆ LONGVVVVVV_cfT

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

Definition at line 2137 of file cfortran.h.

◆ LONGVVVVVVV_cfINT

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

Definition at line 1506 of file cfortran.h.

◆ LONGVVVVVVV_cfPP

#define LONGVVVVVVV_cfPP

Definition at line 1649 of file cfortran.h.

◆ LONGVVVVVVV_cfSTR

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

Definition at line 1759 of file cfortran.h.

◆ LONGVVVVVVV_cfT

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

Definition at line 2138 of file cfortran.h.

◆ LONGVVVVVVV_cfTYPE

#define LONGVVVVVVV_cfTYPE   long

Definition at line 1428 of file cfortran.h.

◆ MAX_LEN_FORTRAN_FUNCTION_STRING

#define MAX_LEN_FORTRAN_FUNCTION_STRING   0x4FE

Definition at line 1379 of file cfortran.h.

◆ MAX_PREPRO_ARGS

#define MAX_PREPRO_ARGS   99

Definition at line 948 of file cfortran.h.

◆ NCF

#define NCF (   TN,
  I,
 
)    _SEP_(TN,C,cfCOMMA) _Icf(2,N,TN,_(A,I),0)

Definition at line 897 of file cfortran.h.

◆ NNCF

#define NNCF (   TN,
  I,
 
)    UUCF(TN,I,C)

Definition at line 898 of file cfortran.h.

◆ NNNCF

#define NNNCF (   TN,
  I,
 
)    _SEP_(TN,C,cfCOLON) _Icf(2,N,TN,_(A,I),0)

Definition at line 899 of file cfortran.h.

◆ NUM_ELEM_ARG

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

Definition at line 614 of file cfortran.h.

◆ NUM_ELEMS

#define NUM_ELEMS (   A)    A,_NUM_ELEMS

Definition at line 613 of file cfortran.h.

◆ orig_fcallsc

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

Definition at line 282 of file cfortran.h.

◆ PBYTE_cfAAP

#define PBYTE_cfAAP (   A,
 
)    &A

Definition at line 802 of file cfortran.h.

◆ PBYTE_cfCCC

#define PBYTE_cfCCC (   A,
 
)    A

Definition at line 1839 of file cfortran.h.

◆ PBYTE_cfINT

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

Definition at line 1457 of file cfortran.h.

◆ PBYTE_cfPP

#define PBYTE_cfPP

Definition at line 1651 of file cfortran.h.

◆ PBYTE_cfSTR

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

Definition at line 1774 of file cfortran.h.

◆ PBYTE_cfT

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

Definition at line 2151 of file cfortran.h.

◆ PBYTE_cfTYPE

#define PBYTE_cfTYPE   INTEGER_BYTE

Definition at line 1431 of file cfortran.h.

◆ PBYTE_cfVP

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

Definition at line 698 of file cfortran.h.

◆ PDOUBLE_cfAAP

#define PDOUBLE_cfAAP (   A,
 
)    &A

Definition at line 803 of file cfortran.h.

◆ PDOUBLE_cfCCC

#define PDOUBLE_cfCCC (   A,
 
)    A

Definition at line 1840 of file cfortran.h.

◆ PDOUBLE_cfINT

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

Definition at line 1458 of file cfortran.h.

◆ PDOUBLE_cfPP

#define PDOUBLE_cfPP

Definition at line 1653 of file cfortran.h.

◆ PDOUBLE_cfSTR

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

Definition at line 1775 of file cfortran.h.

◆ PDOUBLE_cfT

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

Definition at line 2152 of file cfortran.h.

◆ PDOUBLE_cfTYPE

#define PDOUBLE_cfTYPE   DOUBLE_PRECISION

Definition at line 1432 of file cfortran.h.

◆ PDOUBLE_cfVP

#define PDOUBLE_cfVP (   A,
 
)

Definition at line 699 of file cfortran.h.

◆ PFLOAT_cfAAP

#define PFLOAT_cfAAP (   A,
 
)    FLOATVVVVVVV_cfPP &A

Definition at line 804 of file cfortran.h.

◆ PFLOAT_cfCCC

#define PFLOAT_cfCCC (   A,
 
)    A

Definition at line 1841 of file cfortran.h.

◆ PFLOAT_cfINT

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

Definition at line 1459 of file cfortran.h.

◆ PFLOAT_cfPP

#define PFLOAT_cfPP   FLOATVVVVVVV_cfPP

Definition at line 1657 of file cfortran.h.

◆ PFLOAT_cfSTR

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

Definition at line 1776 of file cfortran.h.

◆ PFLOAT_cfT

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

Definition at line 2153 of file cfortran.h.

◆ PFLOAT_cfTYPE

#define PFLOAT_cfTYPE   FORTRAN_REAL

Definition at line 1433 of file cfortran.h.

◆ PFLOAT_cfVP

#define PFLOAT_cfVP (   A,
 
)

Definition at line 700 of file cfortran.h.

◆ PINT_cfAA

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

Definition at line 819 of file cfortran.h.

◆ PINT_cfAAP

#define PINT_cfAAP (   A,
 
)    &A

Definition at line 805 of file cfortran.h.

◆ PINT_cfB

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

Definition at line 1668 of file cfortran.h.

◆ PINT_cfCC

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

Definition at line 1856 of file cfortran.h.

◆ PINT_cfCCC

#define PINT_cfCCC (   A,
 
)    A

Definition at line 1842 of file cfortran.h.

◆ PINT_cfINT

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

Definition at line 1460 of file cfortran.h.

◆ PINT_cfN

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

Definition at line 908 of file cfortran.h.

◆ PINT_cfPP

#define PINT_cfPP

Definition at line 1652 of file cfortran.h.

◆ PINT_cfSEP

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

Definition at line 1400 of file cfortran.h.

◆ PINT_cfSTR

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

Definition at line 1777 of file cfortran.h.

◆ PINT_cfT

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

Definition at line 2154 of file cfortran.h.

◆ PINT_cfTYPE

#define PINT_cfTYPE   int

Definition at line 1434 of file cfortran.h.

◆ PINT_cfU

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

Definition at line 1553 of file cfortran.h.

◆ PINT_cfV

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

Definition at line 745 of file cfortran.h.

◆ PINT_cfVP

#define PINT_cfVP (   A,
 
)

Definition at line 707 of file cfortran.h.

◆ PLOGICAL_cfA

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

Definition at line 776 of file cfortran.h.

◆ PLOGICAL_cfAAP

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

Definition at line 806 of file cfortran.h.

◆ PLOGICAL_cfC

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

Definition at line 1799 of file cfortran.h.

◆ PLOGICAL_cfCCC

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

Definition at line 1843 of file cfortran.h.

◆ PLOGICAL_cfH

#define PLOGICAL_cfH (   S,
  U,
 
)

Definition at line 1697 of file cfortran.h.

◆ PLOGICAL_cfINT

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

Definition at line 1461 of file cfortran.h.

◆ PLOGICAL_cfJ

#define PLOGICAL_cfJ (   B)    DEFAULT_cfJ(B)

Definition at line 852 of file cfortran.h.

◆ PLOGICAL_cfKK

#define PLOGICAL_cfKK (   B)    DEFAULT_cfKK(B)

Definition at line 868 of file cfortran.h.

◆ PLOGICAL_cfPP

#define PLOGICAL_cfPP

Definition at line 1654 of file cfortran.h.

◆ PLOGICAL_cfQ

#define PLOGICAL_cfQ (   B)

Definition at line 2044 of file cfortran.h.

◆ PLOGICAL_cfR

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

Definition at line 2201 of file cfortran.h.

◆ PLOGICAL_cfS

#define PLOGICAL_cfS (   M,
  I,
 
)

Definition at line 1681 of file cfortran.h.

◆ PLOGICAL_cfSTR

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

Definition at line 1778 of file cfortran.h.

◆ PLOGICAL_cfT

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

Definition at line 2155 of file cfortran.h.

◆ PLOGICAL_cfTYPE

#define PLOGICAL_cfTYPE   int

Definition at line 1435 of file cfortran.h.

◆ PLOGICAL_cfVP

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

Definition at line 709 of file cfortran.h.

◆ PLOGICAL_cfW

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

Definition at line 880 of file cfortran.h.

◆ PLONG_cfAAP

#define PLONG_cfAAP (   A,
 
)    &A

Definition at line 807 of file cfortran.h.

◆ PLONG_cfCCC

#define PLONG_cfCCC (   A,
 
)    A

Definition at line 1844 of file cfortran.h.

◆ PLONG_cfINT

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

Definition at line 1462 of file cfortran.h.

◆ PLONG_cfPP

#define PLONG_cfPP

Definition at line 1655 of file cfortran.h.

◆ PLONG_cfSTR

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

Definition at line 1779 of file cfortran.h.

◆ PLONG_cfT

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

Definition at line 2156 of file cfortran.h.

◆ PLONG_cfTYPE

#define PLONG_cfTYPE   long

Definition at line 1436 of file cfortran.h.

◆ PLONG_cfVP

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

Definition at line 710 of file cfortran.h.

◆ PLONGLONG_cfINT

#define PLONGLONG_cfINT (   N,
  A,
  B,
  X,
  Y,
 
)    PDOUBLE_cfINT(N,A,B,X,Y,Z) /* added by MR December 2005 */

Definition at line 1463 of file cfortran.h.

◆ PLONGLONG_cfSTR

#define PLONGLONG_cfSTR (   N,
  T,
  A,
  B,
  C,
  D,
 
)    _(CFARGS,N)(T,DEFAULT,A,B,C,D,E) /* added by MR December 2005 */

Definition at line 1780 of file cfortran.h.

◆ PLONGLONG_cfT

#define PLONGLONG_cfT (   M,
  I,
  A,
  B,
 
)    A /* added by MR December 2005 */

Definition at line 2157 of file cfortran.h.

◆ PLONGLONG_cfTYPE

#define PLONGLONG_cfTYPE   LONGLONG /* added by MR December 2005 */

Definition at line 1437 of file cfortran.h.

◆ PNSTRING_cfH

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

Definition at line 1702 of file cfortran.h.

◆ PNSTRING_cfINT

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

Definition at line 1535 of file cfortran.h.

◆ PNSTRING_cfN

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

Definition at line 928 of file cfortran.h.

◆ PNSTRING_cfQ

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

Definition at line 2049 of file cfortran.h.

◆ PNSTRING_cfR

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

Definition at line 2220 of file cfortran.h.

◆ PNSTRING_cfSEP

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

Definition at line 1409 of file cfortran.h.

◆ PNSTRING_cfSTR

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

Definition at line 1786 of file cfortran.h.

◆ PNSTRING_cfT

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

Definition at line 2194 of file cfortran.h.

◆ PPSTRING_cfH

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

Definition at line 1703 of file cfortran.h.

◆ PPSTRING_cfINT

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

Definition at line 1536 of file cfortran.h.

◆ PPSTRING_cfN

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

Definition at line 929 of file cfortran.h.

◆ PPSTRING_cfQ

#define PPSTRING_cfQ (   B)

Definition at line 2050 of file cfortran.h.

◆ PPSTRING_cfR

#define PPSTRING_cfR (   A,
  B,
 
)

Definition at line 2221 of file cfortran.h.

◆ PPSTRING_cfSEP

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

Definition at line 1410 of file cfortran.h.

◆ PPSTRING_cfSTR

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

Definition at line 1787 of file cfortran.h.

◆ PPSTRING_cfT

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

Definition at line 2191 of file cfortran.h.

◆ preface_fcallsc

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

Definition at line 288 of file cfortran.h.

◆ PROTOCCALLSFFUN0

#define PROTOCCALLSFFUN0 (   F,
  UN,
  LN 
)
Value:
_(F,_cfPU)( CFC_(UN,LN))(CF_NULL_PROTO); \
static _Icf(2,U,F,CFFUN(UN),0)() {_(F,_cfE) _Icf(3,GZ,F,UN,LN) ABSOFT_cf1(F));_(F,_cfX)}
#define CF_NULL_PROTO
Definition cfortran.h:367
#define ABSOFT_cf1(T0)
Definition cfortran.h:971

Definition at line 1963 of file cfortran.h.

◆ PROTOCCALLSFFUN1

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

Definition at line 1967 of file cfortran.h.

◆ PROTOCCALLSFFUN10

#define PROTOCCALLSFFUN10 (   T0,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA 
)     PROTOCCALLSFFUN14(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,CF_0,CF_0,CF_0,CF_0)

Definition at line 1985 of file cfortran.h.

◆ PROTOCCALLSFFUN11

#define PROTOCCALLSFFUN11 (   T0,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB 
)     PROTOCCALLSFFUN14(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,CF_0,CF_0,CF_0)

Definition at line 1987 of file cfortran.h.

◆ PROTOCCALLSFFUN12

#define PROTOCCALLSFFUN12 (   T0,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC 
)     PROTOCCALLSFFUN14(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,CF_0,CF_0)

Definition at line 1989 of file cfortran.h.

◆ PROTOCCALLSFFUN13

#define PROTOCCALLSFFUN13 (   T0,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD 
)     PROTOCCALLSFFUN14(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,CF_0)

Definition at line 1991 of file cfortran.h.

◆ PROTOCCALLSFFUN14

#define PROTOCCALLSFFUN14 (   T0,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE 
)
Value:
_(T0,_cfPU)(CFC_(UN,LN))(CF_NULL_PROTO); static _Icf(2,U,T0,CFFUN(UN),0)( \
CFARGT14FS(UCF,HCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) ) \
{ CFARGT14S(VCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) _(T0,_cfE) \
CCF(LN,T1,1) CCF(LN,T2,2) CCF(LN,T3,3) CCF(LN,T4,4) CCF(LN,T5,5) \
CCF(LN,T6,6) CCF(LN,T7,7) CCF(LN,T8,8) CCF(LN,T9,9) CCF(LN,TA,10) \
CCF(LN,TB,11) CCF(LN,TC,12) CCF(LN,TD,13) CCF(LN,TE,14) _Icf(3,G,T0,UN,LN) \
CFARGT14(CCCF,JCF,ABSOFT_cf1(T0),T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)); \
WCF(T1,A1,1) WCF(T2,A2,2) WCF(T3,A3,3) WCF(T4,A4,4) WCF(T5,A5,5) \
WCF(T6,A6,6) WCF(T7,A7,7) WCF(T8,A8,8) WCF(T9,A9,9) WCF(TA,A10,10) \
WCF(TB,A11,11) WCF(TC,A12,12) WCF(TD,A13,13) WCF(TE,A14,14) _(T0,_cfX)}
#define _Z
Definition cfortran.h:979
#define CCF(NAME, TN, I)
Definition cfortran.h:1796
#define HCF(TN, I)
Definition cfortran.h:1690
#define CCCF(TN, I, M)
Definition cfortran.h:1847
#define UCF(TN, I, C)
Definition cfortran.h:1542
#define VCF(TN, I)
Definition cfortran.h:735
#define G(x, y, z)

Definition at line 1997 of file cfortran.h.

◆ PROTOCCALLSFFUN2

#define PROTOCCALLSFFUN2 (   T0,
  UN,
  LN,
  T1,
  T2 
)     PROTOCCALLSFFUN5 (T0,UN,LN,T1,T2,CF_0,CF_0,CF_0)

Definition at line 1969 of file cfortran.h.

◆ PROTOCCALLSFFUN3

#define PROTOCCALLSFFUN3 (   T0,
  UN,
  LN,
  T1,
  T2,
  T3 
)     PROTOCCALLSFFUN5 (T0,UN,LN,T1,T2,T3,CF_0,CF_0)

Definition at line 1971 of file cfortran.h.

◆ PROTOCCALLSFFUN4

#define PROTOCCALLSFFUN4 (   T0,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4 
)     PROTOCCALLSFFUN5 (T0,UN,LN,T1,T2,T3,T4,CF_0)

Definition at line 1973 of file cfortran.h.

◆ PROTOCCALLSFFUN5

#define PROTOCCALLSFFUN5 (   T0,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5 
)     PROTOCCALLSFFUN10(T0,UN,LN,T1,T2,T3,T4,T5,CF_0,CF_0,CF_0,CF_0,CF_0)

Definition at line 1975 of file cfortran.h.

◆ PROTOCCALLSFFUN6

#define PROTOCCALLSFFUN6 (   T0,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6 
)     PROTOCCALLSFFUN10(T0,UN,LN,T1,T2,T3,T4,T5,T6,CF_0,CF_0,CF_0,CF_0)

Definition at line 1977 of file cfortran.h.

◆ PROTOCCALLSFFUN7

#define PROTOCCALLSFFUN7 (   T0,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7 
)     PROTOCCALLSFFUN10(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,CF_0,CF_0,CF_0)

Definition at line 1979 of file cfortran.h.

◆ PROTOCCALLSFFUN8

#define PROTOCCALLSFFUN8 (   T0,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8 
)     PROTOCCALLSFFUN10(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,CF_0,CF_0)

Definition at line 1981 of file cfortran.h.

◆ PROTOCCALLSFFUN9

#define PROTOCCALLSFFUN9 (   T0,
  UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9 
)     PROTOCCALLSFFUN10(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,CF_0)

Definition at line 1983 of file cfortran.h.

◆ PROTOCCALLSFSUB0

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

Definition at line 1190 of file cfortran.h.

◆ PROTOCCALLSFSUB1

#define PROTOCCALLSFSUB1 (   UN,
  LN,
  T1 
)     PROTOCCALLSFSUB14(UN,LN,T1,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)

Definition at line 1109 of file cfortran.h.

◆ PROTOCCALLSFSUB10

#define PROTOCCALLSFSUB10 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA 
)     PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,CF_0,CF_0,CF_0,CF_0)

Definition at line 1127 of file cfortran.h.

◆ PROTOCCALLSFSUB11

#define PROTOCCALLSFSUB11 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB 
)     PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,CF_0,CF_0,CF_0)

Definition at line 1129 of file cfortran.h.

◆ PROTOCCALLSFSUB12

#define PROTOCCALLSFSUB12 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC 
)     PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,CF_0,CF_0)

Definition at line 1131 of file cfortran.h.

◆ PROTOCCALLSFSUB13

#define PROTOCCALLSFSUB13 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD 
)     PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,CF_0)

Definition at line 1133 of file cfortran.h.

◆ PROTOCCALLSFSUB14

#define PROTOCCALLSFSUB14 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE 
)     _(VOID,_cfPU)(CFC_(UN,LN))( CFARGT14(NCF,KCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) );

Definition at line 1192 of file cfortran.h.

◆ PROTOCCALLSFSUB15

#define PROTOCCALLSFSUB15 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF 
)     PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,CF_0,CF_0,CF_0,CF_0,CF_0)

Definition at line 1137 of file cfortran.h.

◆ PROTOCCALLSFSUB16

#define PROTOCCALLSFSUB16 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG 
)     PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,CF_0,CF_0,CF_0,CF_0)

Definition at line 1139 of file cfortran.h.

◆ PROTOCCALLSFSUB17

#define PROTOCCALLSFSUB17 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH 
)     PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,CF_0,CF_0,CF_0)

Definition at line 1141 of file cfortran.h.

◆ PROTOCCALLSFSUB18

#define PROTOCCALLSFSUB18 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI 
)     PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,CF_0,CF_0)

Definition at line 1143 of file cfortran.h.

◆ PROTOCCALLSFSUB19

#define PROTOCCALLSFSUB19 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ 
)     PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,CF_0)

Definition at line 1145 of file cfortran.h.

◆ PROTOCCALLSFSUB2

#define PROTOCCALLSFSUB2 (   UN,
  LN,
  T1,
  T2 
)     PROTOCCALLSFSUB14(UN,LN,T1,T2,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)

Definition at line 1111 of file cfortran.h.

◆ PROTOCCALLSFSUB20

#define PROTOCCALLSFSUB20 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK 
)     _(VOID,_cfPU)(CFC_(UN,LN))( CFARGT20(NCF,KCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK) );

Definition at line 1194 of file cfortran.h.

◆ PROTOCCALLSFSUB21

#define PROTOCCALLSFSUB21 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK,
  TL 
)     PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)

Definition at line 1148 of file cfortran.h.

◆ PROTOCCALLSFSUB22

#define PROTOCCALLSFSUB22 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK,
  TL,
  TM 
)     PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,CF_0,CF_0,CF_0,CF_0,CF_0)

Definition at line 1150 of file cfortran.h.

◆ PROTOCCALLSFSUB23

#define PROTOCCALLSFSUB23 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK,
  TL,
  TM,
  TN 
)     PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,CF_0,CF_0,CF_0,CF_0)

Definition at line 1152 of file cfortran.h.

◆ PROTOCCALLSFSUB24

#define PROTOCCALLSFSUB24 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK,
  TL,
  TM,
  TN,
  TO 
)     PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,CF_0,CF_0,CF_0)

Definition at line 1154 of file cfortran.h.

◆ PROTOCCALLSFSUB25

#define PROTOCCALLSFSUB25 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK,
  TL,
  TM,
  TN,
  TO,
  TP 
)     PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,CF_0,CF_0)

Definition at line 1156 of file cfortran.h.

◆ PROTOCCALLSFSUB26

#define PROTOCCALLSFSUB26 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK,
  TL,
  TM,
  TN,
  TO,
  TP,
  TQ 
)     PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,CF_0)

Definition at line 1158 of file cfortran.h.

◆ PROTOCCALLSFSUB27

#define PROTOCCALLSFSUB27 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9,
  TA,
  TB,
  TC,
  TD,
  TE,
  TF,
  TG,
  TH,
  TI,
  TJ,
  TK,
  TL,
  TM,
  TN,
  TO,
  TP,
  TQ,
  TR 
)     _(VOID,_cfPU)(CFC_(UN,LN))( CFARGT27(NCF,KCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) );

Definition at line 1196 of file cfortran.h.

◆ PROTOCCALLSFSUB3

#define PROTOCCALLSFSUB3 (   UN,
  LN,
  T1,
  T2,
  T3 
)     PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)

Definition at line 1113 of file cfortran.h.

◆ PROTOCCALLSFSUB4

#define PROTOCCALLSFSUB4 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4 
)     PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)

Definition at line 1115 of file cfortran.h.

◆ PROTOCCALLSFSUB5

#define PROTOCCALLSFSUB5 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5 
)     PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)

Definition at line 1117 of file cfortran.h.

◆ PROTOCCALLSFSUB6

#define PROTOCCALLSFSUB6 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6 
)     PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)

Definition at line 1119 of file cfortran.h.

◆ PROTOCCALLSFSUB7

#define PROTOCCALLSFSUB7 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7 
)     PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)

Definition at line 1121 of file cfortran.h.

◆ PROTOCCALLSFSUB8

#define PROTOCCALLSFSUB8 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8 
)     PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)

Definition at line 1123 of file cfortran.h.

◆ PROTOCCALLSFSUB9

#define PROTOCCALLSFSUB9 (   UN,
  LN,
  T1,
  T2,
  T3,
  T4,
  T5,
  T6,
  T7,
  T8,
  T9 
)     PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,CF_0,CF_0,CF_0,CF_0,CF_0)

Definition at line 1125 of file cfortran.h.

◆ PSHORT_cfAAP

#define PSHORT_cfAAP (   A,
 
)    &A

Definition at line 808 of file cfortran.h.

◆ PSHORT_cfCCC

#define PSHORT_cfCCC (   A,
 
)    A

Definition at line 1845 of file cfortran.h.

◆ PSHORT_cfINT

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

Definition at line 1464 of file cfortran.h.

◆ PSHORT_cfPP

#define PSHORT_cfPP

Definition at line 1656 of file cfortran.h.

◆ PSHORT_cfSTR

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

Definition at line 1781 of file cfortran.h.

◆ PSHORT_cfT

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

Definition at line 2158 of file cfortran.h.

◆ PSHORT_cfTYPE

#define PSHORT_cfTYPE   short

Definition at line 1438 of file cfortran.h.

◆ PSHORT_cfVP

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

Definition at line 711 of file cfortran.h.

◆ PSTRING_cfA

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

Definition at line 778 of file cfortran.h.

◆ PSTRING_cfAA

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

Definition at line 827 of file cfortran.h.

◆ PSTRING_cfB

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

Definition at line 1671 of file cfortran.h.

◆ PSTRING_cfC

#define PSTRING_cfC (   M,
  I,
  A,
  B,
 
)
Value:
(C==sizeof(char*)? B=strlen(A): \
(A[C-1]='\0',B=strlen(A),memset((A)+B,' ',C-B-1),B=C-1));

Definition at line 1812 of file cfortran.h.

◆ PSTRING_cfCC

#define PSTRING_cfCC (   T,
  A,
 
)    A

Definition at line 1878 of file cfortran.h.

◆ PSTRING_cfH

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

Definition at line 1700 of file cfortran.h.

◆ PSTRING_cfINT

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

Definition at line 1533 of file cfortran.h.

◆ PSTRING_cfJ

#define PSTRING_cfJ (   B)    ,B

Definition at line 854 of file cfortran.h.

◆ PSTRING_cfKK

#define PSTRING_cfKK (   B)    STRING_cfKK(B)

Definition at line 870 of file cfortran.h.

◆ PSTRING_cfN

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

Definition at line 927 of file cfortran.h.

◆ PSTRING_cfQ

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

Definition at line 2047 of file cfortran.h.

◆ PSTRING_cfR

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

Definition at line 2216 of file cfortran.h.

◆ PSTRING_cfS

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

Definition at line 1685 of file cfortran.h.

◆ PSTRING_cfSEP

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

Definition at line 1407 of file cfortran.h.

◆ PSTRING_cfSTR

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

Definition at line 1783 of file cfortran.h.

◆ PSTRING_cfT

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

Definition at line 2190 of file cfortran.h.

◆ PSTRING_cfU

#define PSTRING_cfU (   T,
 
)    char *A

Definition at line 1559 of file cfortran.h.

◆ PSTRING_cfV

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

Definition at line 764 of file cfortran.h.

◆ PSTRING_cfW

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

Definition at line 882 of file cfortran.h.

◆ PSTRINGV_cfA

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

Definition at line 793 of file cfortran.h.

◆ PSTRINGV_cfAA

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

Definition at line 837 of file cfortran.h.

◆ PSTRINGV_cfB

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

Definition at line 1672 of file cfortran.h.

◆ PSTRINGV_cfC

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

Definition at line 1818 of file cfortran.h.

◆ PSTRINGV_cfCC

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

Definition at line 1879 of file cfortran.h.

◆ PSTRINGV_cfH

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

Definition at line 1701 of file cfortran.h.

◆ PSTRINGV_cfINT

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

Definition at line 1534 of file cfortran.h.

◆ PSTRINGV_cfJ

#define PSTRINGV_cfJ (   B)    STRING_cfJ(B)

Definition at line 856 of file cfortran.h.

◆ PSTRINGV_cfKK

#define PSTRINGV_cfKK (   B)    STRING_cfKK(B)

Definition at line 872 of file cfortran.h.

◆ PSTRINGV_cfN

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

Definition at line 930 of file cfortran.h.

◆ PSTRINGV_cfQ

#define PSTRINGV_cfQ (   B)    STRINGV_cfQ(B)

Definition at line 2048 of file cfortran.h.

◆ PSTRINGV_cfR

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

Definition at line 2217 of file cfortran.h.

◆ PSTRINGV_cfS

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

Definition at line 1686 of file cfortran.h.

◆ PSTRINGV_cfSEP

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

Definition at line 1408 of file cfortran.h.

◆ PSTRINGV_cfSTR

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

Definition at line 1785 of file cfortran.h.

◆ PSTRINGV_cfT

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

Definition at line 2195 of file cfortran.h.

◆ PSTRINGV_cfU

#define PSTRINGV_cfU (   T,
 
)    char *A

Definition at line 1560 of file cfortran.h.

◆ PSTRINGV_cfV

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

Definition at line 765 of file cfortran.h.

◆ PSTRINGV_cfW

#define PSTRINGV_cfW (   A,
 
)
Value:
f2cstrv((char*)A,(char*)A,B.flen+1,B.sizeofA), B.flen+1,B.sizeofA,' ');

Definition at line 891 of file cfortran.h.

◆ PVOID_cfAA

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

Definition at line 820 of file cfortran.h.

◆ PVOID_cfB

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

Definition at line 1673 of file cfortran.h.

◆ PVOID_cfCC

#define PVOID_cfCC (   T,
  A,
 
)    A

Definition at line 1857 of file cfortran.h.

◆ PVOID_cfINT

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

Definition at line 1521 of file cfortran.h.

◆ PVOID_cfN

#define PVOID_cfN (   T,
 
)    void * A

Definition at line 909 of file cfortran.h.

◆ PVOID_cfSEP

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

Definition at line 1401 of file cfortran.h.

◆ PVOID_cfSTR

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

Definition at line 1788 of file cfortran.h.

◆ PVOID_cfT

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

Definition at line 2159 of file cfortran.h.

◆ PVOID_cfU

#define PVOID_cfU (   T,
 
)    void *A

Definition at line 1554 of file cfortran.h.

◆ PVOID_cfV

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

Definition at line 746 of file cfortran.h.

◆ PZTRINGV_cfA

#define PZTRINGV_cfA (   M,
  I,
  A,
 
)
Value:
APATRINGV_cfA( (char *)A,B, \
(_3(M,_ELEMS_,I))*(( _3(M,_ELEMLEN_,I))+1), \
(_3(M,_ELEMS_,I)),(_3(M,_ELEMLEN_,I))+1)
#define _3(A, B, C)
Definition cfortran.h:110
#define APATRINGV_cfA( A, B, sA, filA, silA)
Definition cfortran.h:788
#define I(x, y, z)

Definition at line 798 of file cfortran.h.

◆ PZTRINGV_cfAA

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

Definition at line 839 of file cfortran.h.

◆ PZTRINGV_cfB

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

Definition at line 1676 of file cfortran.h.

◆ PZTRINGV_cfC

#define PZTRINGV_cfC (   M,
  I,
  A,
  B,
 
)
Value:
APATRINGV_cfA( A,B, (_3(M,_ELEMS_,I))*((_3(M,_ELEMLEN_,I))+1), \
(_3(M,_ELEMS_,I)), (_3(M,_ELEMLEN_,I))+1 )

Definition at line 1823 of file cfortran.h.

◆ PZTRINGV_cfCC

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

Definition at line 1883 of file cfortran.h.

◆ PZTRINGV_cfH

#define PZTRINGV_cfH (   S,
  U,
 
)

Definition at line 1705 of file cfortran.h.

◆ PZTRINGV_cfINT

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

Definition at line 1538 of file cfortran.h.

◆ PZTRINGV_cfJ

#define PZTRINGV_cfJ (   B)    STRING_cfJ(B)

Definition at line 858 of file cfortran.h.

◆ PZTRINGV_cfKK

#define PZTRINGV_cfKK (   B)    STRING_cfKK(B)

Definition at line 874 of file cfortran.h.

◆ PZTRINGV_cfN

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

Definition at line 932 of file cfortran.h.

◆ PZTRINGV_cfS

#define PZTRINGV_cfS (   M,
  I,
 
)

Definition at line 1688 of file cfortran.h.

◆ PZTRINGV_cfSEP

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

Definition at line 1412 of file cfortran.h.

◆ PZTRINGV_cfSTR

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

Definition at line 1792 of file cfortran.h.

◆ PZTRINGV_cfU

#define PZTRINGV_cfU (   T,
 
)    char *A

Definition at line 1562 of file cfortran.h.

◆ PZTRINGV_cfV

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

Definition at line 768 of file cfortran.h.

◆ PZTRINGV_cfW

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

Definition at line 895 of file cfortran.h.

◆ QCF

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

Definition at line 2041 of file cfortran.h.

◆ RCF

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

Definition at line 2198 of file cfortran.h.

◆ ROUTINE_1

#define ROUTINE_1   ROUTINE_orig

Definition at line 2058 of file cfortran.h.

◆ ROUTINE_10

#define ROUTINE_10   ROUTINE_orig

Definition at line 2067 of file cfortran.h.

◆ ROUTINE_11

#define ROUTINE_11   ROUTINE_orig

Definition at line 2068 of file cfortran.h.

◆ ROUTINE_12

#define ROUTINE_12   ROUTINE_orig

Definition at line 2069 of file cfortran.h.

◆ ROUTINE_13

#define ROUTINE_13   ROUTINE_orig

Definition at line 2070 of file cfortran.h.

◆ ROUTINE_14

#define ROUTINE_14   ROUTINE_orig

Definition at line 2071 of file cfortran.h.

◆ ROUTINE_15

#define ROUTINE_15   ROUTINE_orig

Definition at line 2072 of file cfortran.h.

◆ ROUTINE_16

#define ROUTINE_16   ROUTINE_orig

Definition at line 2073 of file cfortran.h.

◆ ROUTINE_17

#define ROUTINE_17   ROUTINE_orig

Definition at line 2074 of file cfortran.h.

◆ ROUTINE_18

#define ROUTINE_18   ROUTINE_orig

Definition at line 2075 of file cfortran.h.

◆ ROUTINE_19

#define ROUTINE_19   ROUTINE_orig

Definition at line 2076 of file cfortran.h.

◆ ROUTINE_2

#define ROUTINE_2   ROUTINE_orig

Definition at line 2059 of file cfortran.h.

◆ ROUTINE_20

#define ROUTINE_20   ROUTINE_orig

Definition at line 2077 of file cfortran.h.

◆ ROUTINE_21

#define ROUTINE_21   ROUTINE_orig

Definition at line 2078 of file cfortran.h.

◆ ROUTINE_22

#define ROUTINE_22   ROUTINE_orig

Definition at line 2079 of file cfortran.h.

◆ ROUTINE_23

#define ROUTINE_23   ROUTINE_orig

Definition at line 2080 of file cfortran.h.

◆ ROUTINE_24

#define ROUTINE_24   ROUTINE_orig

Definition at line 2081 of file cfortran.h.

◆ ROUTINE_25

#define ROUTINE_25   ROUTINE_orig

Definition at line 2082 of file cfortran.h.

◆ ROUTINE_26

#define ROUTINE_26   ROUTINE_orig

Definition at line 2083 of file cfortran.h.

◆ ROUTINE_27

#define ROUTINE_27   ROUTINE_orig

Definition at line 2084 of file cfortran.h.

◆ ROUTINE_3

#define ROUTINE_3   ROUTINE_orig

Definition at line 2060 of file cfortran.h.

◆ ROUTINE_4

#define ROUTINE_4   ROUTINE_orig

Definition at line 2061 of file cfortran.h.

◆ ROUTINE_5

#define ROUTINE_5   ROUTINE_orig

Definition at line 2062 of file cfortran.h.

◆ ROUTINE_6

#define ROUTINE_6   ROUTINE_orig

Definition at line 2063 of file cfortran.h.

◆ ROUTINE_7

#define ROUTINE_7   ROUTINE_orig

Definition at line 2064 of file cfortran.h.

◆ ROUTINE_8

#define ROUTINE_8   ROUTINE_orig

Definition at line 2065 of file cfortran.h.

◆ ROUTINE_9

#define ROUTINE_9   ROUTINE_orig

Definition at line 2066 of file cfortran.h.

◆ ROUTINE_cfAA

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

Definition at line 824 of file cfortran.h.

◆ ROUTINE_cfB

#define ROUTINE_cfB (   T,
 
)    (cfCAST_FUNCTION)A

Definition at line 1674 of file cfortran.h.

◆ ROUTINE_cfCC

#define ROUTINE_cfCC (   T,
  A,
 
)    A

Definition at line 1861 of file cfortran.h.

◆ ROUTINE_cfINT

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

Definition at line 1522 of file cfortran.h.

◆ ROUTINE_cfN

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

Definition at line 913 of file cfortran.h.

◆ ROUTINE_cfSEP

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

Definition at line 1402 of file cfortran.h.

◆ ROUTINE_cfSTR

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

Definition at line 1789 of file cfortran.h.

◆ ROUTINE_cfT

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

Definition at line 2163 of file cfortran.h.

◆ ROUTINE_cfU

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

Definition at line 1555 of file cfortran.h.

◆ ROUTINE_cfV

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

Definition at line 750 of file cfortran.h.

◆ ROUTINE_orig

#define ROUTINE_orig   (void *)

Definition at line 2055 of file cfortran.h.

◆ RRRRPSTR

#define RRRRPSTR (   A,
  B,
 
)
Value:
if (B) memcpy(A,B, _cfMIN(strlen(B),D)), \
(D>strlen(B)?memset(A+strlen(B),' ', D-strlen(B)):0), _cf_free(B);
#define _cf_free(P)
Definition cfortran.h:399
#define _cfMIN(A, B)
Definition cfortran.h:421

Definition at line 2205 of file cfortran.h.

◆ RRRRPSTRV

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

Definition at line 2207 of file cfortran.h.

◆ SCF

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

Definition at line 1678 of file cfortran.h.

◆ secondindexlength

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

Definition at line 428 of file cfortran.h.

◆ SHORT_cfCCC

#define SHORT_cfCCC (   A,
 
)    &A

Definition at line 1838 of file cfortran.h.

◆ SHORT_cfE

#define SHORT_cfE   short A0;

Definition at line 1599 of file cfortran.h.

◆ SHORT_cfF

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

Definition at line 2287 of file cfortran.h.

◆ SHORT_cfFZ

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

Definition at line 2229 of file cfortran.h.

◆ SHORT_cfI

#define SHORT_cfI   return A0;

Definition at line 2350 of file cfortran.h.

◆ SHORT_cfINT

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

Definition at line 1456 of file cfortran.h.

◆ SHORT_cfPU

#define SHORT_cfPU (   A)    CFextern short FCALLSC_QUALIFIER A

Definition at line 1585 of file cfortran.h.

◆ SHORT_cfSTR

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

Definition at line 1717 of file cfortran.h.

◆ SHORT_cfT

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

Definition at line 2094 of file cfortran.h.

◆ SHORT_cfVCF

#define SHORT_cfVCF (   A,
 
)

Definition at line 726 of file cfortran.h.

◆ SHORT_cfX

#define SHORT_cfX   return A0;

Definition at line 1895 of file cfortran.h.

◆ SHORTV_cfINT

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

Definition at line 1514 of file cfortran.h.

◆ SHORTV_cfSTR

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

Definition at line 1767 of file cfortran.h.

◆ SHORTV_cfT

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

Definition at line 2102 of file cfortran.h.

◆ SHORTVV_cfINT

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

Definition at line 1515 of file cfortran.h.

◆ SHORTVV_cfSTR

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

Definition at line 1768 of file cfortran.h.

◆ SHORTVV_cfT

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

Definition at line 2145 of file cfortran.h.

◆ SHORTVVV_cfINT

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

Definition at line 1516 of file cfortran.h.

◆ SHORTVVV_cfSTR

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

Definition at line 1769 of file cfortran.h.

◆ SHORTVVV_cfT

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

Definition at line 2146 of file cfortran.h.

◆ SHORTVVVV_cfINT

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

Definition at line 1517 of file cfortran.h.

◆ SHORTVVVV_cfSTR

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

Definition at line 1770 of file cfortran.h.

◆ SHORTVVVV_cfT

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

Definition at line 2147 of file cfortran.h.

◆ SHORTVVVVV_cfINT

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

Definition at line 1518 of file cfortran.h.

◆ SHORTVVVVV_cfSTR

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

Definition at line 1771 of file cfortran.h.

◆ SHORTVVVVV_cfT

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

Definition at line 2148 of file cfortran.h.

◆ SHORTVVVVVV_cfINT

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

Definition at line 1519 of file cfortran.h.

◆ SHORTVVVVVV_cfSTR

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

Definition at line 1772 of file cfortran.h.

◆ SHORTVVVVVV_cfT

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

Definition at line 2149 of file cfortran.h.

◆ SHORTVVVVVVV_cfINT

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

Definition at line 1520 of file cfortran.h.

◆ SHORTVVVVVVV_cfPP

#define SHORTVVVVVVV_cfPP

Definition at line 1650 of file cfortran.h.

◆ SHORTVVVVVVV_cfSTR

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

Definition at line 1773 of file cfortran.h.

◆ SHORTVVVVVVV_cfT

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

Definition at line 2150 of file cfortran.h.

◆ SHORTVVVVVVV_cfTYPE

#define SHORTVVVVVVV_cfTYPE   short

Definition at line 1430 of file cfortran.h.

◆ SIMPLE_cfCC

#define SIMPLE_cfCC (   T,
  A,
 
)    A

Definition at line 1863 of file cfortran.h.

◆ SIMPLE_cfINT

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

Definition at line 1529 of file cfortran.h.

◆ SIMPLE_cfSEP

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

Definition at line 1403 of file cfortran.h.

◆ SIMPLE_cfSTR

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

Definition at line 1790 of file cfortran.h.

◆ SIMPLE_cfV

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

Definition at line 752 of file cfortran.h.

◆ STRING_cfA

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

Definition at line 777 of file cfortran.h.

◆ STRING_cfAA

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

Definition at line 826 of file cfortran.h.

◆ STRING_cfB

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

Definition at line 1669 of file cfortran.h.

◆ STRING_cfC

#define STRING_cfC (   M,
  I,
  A,
  B,
 
)
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'));

Definition at line 1809 of file cfortran.h.

◆ STRING_cfCC

#define STRING_cfCC (   T,
  A,
 
)    A

Definition at line 1876 of file cfortran.h.

◆ STRING_cfE

#define STRING_cfE
Value:
static char A0[1+MAX_LEN_FORTRAN_FUNCTION_STRING]; \
memset(A0, CFORTRAN_NON_CHAR, \
#define MAX_LEN_FORTRAN_FUNCTION_STRING
Definition cfortran.h:1379
#define CFORTRAN_NON_CHAR
Definition cfortran.h:1383

Definition at line 1616 of file cfortran.h.

◆ STRING_cfF

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

Definition at line 2289 of file cfortran.h.

◆ STRING_cfFF

#define STRING_cfFF   char *AS; unsigned D0;

Definition at line 2299 of file cfortran.h.

◆ STRING_cfFZ

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

Definition at line 2249 of file cfortran.h.

◆ STRING_cfG

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

Definition at line 1643 of file cfortran.h.

◆ STRING_cfGZ

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

Definition at line 1637 of file cfortran.h.

◆ STRING_cfH

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

Definition at line 1698 of file cfortran.h.

◆ STRING_cfI

#define STRING_cfI   return ;

Definition at line 2351 of file cfortran.h.

◆ STRING_cfINT

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

Definition at line 1531 of file cfortran.h.

◆ STRING_cfJ

#define STRING_cfJ (   B)    ,B.flen

Definition at line 853 of file cfortran.h.

◆ STRING_cfK

#define STRING_cfK
Value:
memcpy(AS,A0, _cfMIN(D0,(A0==NULL?0:strlen(A0))) ); \
D0>(A0==NULL?0:strlen(A0))?memset(AS+(A0==NULL?0:strlen(A0)), \
' ', D0-(A0==NULL?0:strlen(A0))):0;

Definition at line 2324 of file cfortran.h.

◆ STRING_cfKK

#define STRING_cfKK (   B)    , unsigned B

Definition at line 869 of file cfortran.h.

◆ STRING_cfL

#define STRING_cfL   A0=

Definition at line 2304 of file cfortran.h.

◆ STRING_cfN

#define STRING_cfN (   T,
 
)    char * A

Definition at line 923 of file cfortran.h.

◆ STRING_cfPU

#define STRING_cfPU (   A)    CFextern void FCALLSC_QUALIFIER A

Definition at line 1586 of file cfortran.h.

◆ STRING_cfQ

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

Definition at line 2046 of file cfortran.h.

◆ STRING_cfR

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

Definition at line 2202 of file cfortran.h.

◆ STRING_cfS

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

Definition at line 1682 of file cfortran.h.

◆ STRING_cfSEP

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

Definition at line 1405 of file cfortran.h.

◆ STRING_cfSTR

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

Definition at line 1782 of file cfortran.h.

◆ STRING_cfT

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

Definition at line 2188 of file cfortran.h.

◆ STRING_cfU

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

Definition at line 1557 of file cfortran.h.

◆ STRING_cfUU

#define STRING_cfUU (   T,
 
)    char *A

Definition at line 1567 of file cfortran.h.

◆ STRING_cfV

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

Definition at line 762 of file cfortran.h.

◆ STRING_cfW

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

Definition at line 881 of file cfortran.h.

◆ STRING_cfX

#define STRING_cfX
Value:
return kill_trailing( \
static char * kill_trailing(char *s, char t)
Definition cfortran.h:544

Definition at line 1901 of file cfortran.h.

◆ STRINGV_cfA

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

Definition at line 791 of file cfortran.h.

◆ STRINGV_cfAA

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

Definition at line 834 of file cfortran.h.

◆ STRINGV_cfB

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

Definition at line 1670 of file cfortran.h.

◆ STRINGV_cfC

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

Definition at line 1816 of file cfortran.h.

◆ STRINGV_cfCC

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

Definition at line 1877 of file cfortran.h.

◆ STRINGV_cfH

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

Definition at line 1699 of file cfortran.h.

◆ STRINGV_cfINT

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

Definition at line 1532 of file cfortran.h.

◆ STRINGV_cfJ

#define STRINGV_cfJ (   B)    STRING_cfJ(B)

Definition at line 855 of file cfortran.h.

◆ STRINGV_cfKK

#define STRINGV_cfKK (   B)    STRING_cfKK(B)

Definition at line 871 of file cfortran.h.

◆ STRINGV_cfN

#define STRINGV_cfN (   T,
 
)    char * A

Definition at line 924 of file cfortran.h.

◆ STRINGV_cfQ

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

Definition at line 2045 of file cfortran.h.

◆ STRINGV_cfR

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

Definition at line 2203 of file cfortran.h.

◆ STRINGV_cfS

#define STRINGV_cfS (   M,
  I,
 
)
Value:
,( (unsigned)0xFFFF*firstindexlength(A) \
#define firstindexlength(A)
Definition cfortran.h:427
#define secondindexlength(A)
Definition cfortran.h:428

Definition at line 1683 of file cfortran.h.

◆ STRINGV_cfSEP

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

Definition at line 1406 of file cfortran.h.

◆ STRINGV_cfSTR

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

Definition at line 1784 of file cfortran.h.

◆ STRINGV_cfT

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

Definition at line 2189 of file cfortran.h.

◆ STRINGV_cfU

#define STRINGV_cfU (   T,
 
)    char *A

Definition at line 1558 of file cfortran.h.

◆ STRINGV_cfV

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

Definition at line 763 of file cfortran.h.

◆ STRINGV_cfW

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

Definition at line 890 of file cfortran.h.

◆ TCF

#define TCF (   NAME,
  TN,
  I,
 
)    _SEP_(TN,M,cfCOMMA) _(TN,_cfT)(NAME,I,_(A,I),_(B,I),_(C,I))

Definition at line 2086 of file cfortran.h.

◆ TERM_CHARS

#define TERM_CHARS (   A,
 
)    A,B

Definition at line 615 of file cfortran.h.

◆ TTSTR

#define TTSTR (   A,
  B,
 
)     ((B=_cf_malloc(D+1))[D]='\0', memcpy(B,A,D), kill_trailing(B,' '))

Definition at line 2168 of file cfortran.h.

◆ TTTTSTR

#define TTTTSTR (   A,
  B,
 
)
Value:
(!(D<4||A[0]||A[1]||A[2]||A[3]))?NULL: \
memchr(A,'\0',D) ?A : TTSTR(A,B,D)
#define TTSTR( A, B, D)
Definition cfortran.h:2168

Definition at line 2170 of file cfortran.h.

◆ TTTTSTRV

#define TTTTSTRV (   A,
  B,
  D,
 
)
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),' '))
#define N
#define _cf_malloc(N)
Definition cfortran.h:398

Definition at line 2172 of file cfortran.h.

◆ UCF

#define UCF (   TN,
  I,
 
)    _SEP_(TN,C,cfCOMMA) _Icf(2,U,TN,_(A,I),0)

Definition at line 1542 of file cfortran.h.

◆ USE_NEW_DELETE

#define USE_NEW_DELETE   0

Definition at line 391 of file cfortran.h.

◆ UUCF

#define UUCF (   TN,
  I,
 
)    _SEP_(TN,C,cfCOMMA) _SEP_(TN,1,I)

Definition at line 1543 of file cfortran.h.

◆ UUUCF

#define UUUCF (   TN,
  I,
 
)    _SEP_(TN,C,cfCOLON) _Icf(2,U,TN,_(A,I),0)

Definition at line 1544 of file cfortran.h.

◆ VCF

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

Definition at line 735 of file cfortran.h.

◆ VCF_INT_F

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

Definition at line 714 of file cfortran.h.

◆ VCF_INT_S

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

Definition at line 713 of file cfortran.h.

◆ VOID_cfE

#define VOID_cfE

Definition at line 1600 of file cfortran.h.

◆ VOID_cfF

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

Definition at line 2288 of file cfortran.h.

◆ VOID_cfFF

#define VOID_cfFF

Definition at line 2292 of file cfortran.h.

◆ VOID_cfFZ

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

Definition at line 2230 of file cfortran.h.

◆ VOID_cfG

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

Definition at line 1642 of file cfortran.h.

◆ VOID_cfGZ

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

Definition at line 1630 of file cfortran.h.

◆ VOID_cfI

#define VOID_cfI   return ;

Definition at line 2352 of file cfortran.h.

◆ VOID_cfINT

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

Definition at line 1530 of file cfortran.h.

◆ VOID_cfK

#define VOID_cfK

Definition at line 2308 of file cfortran.h.

◆ VOID_cfL

#define VOID_cfL

Definition at line 2305 of file cfortran.h.

◆ VOID_cfPU

#define VOID_cfPU (   A)    CFextern void FCALLSC_QUALIFIER A

Definition at line 1587 of file cfortran.h.

◆ VOID_cfSEP

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

Definition at line 1404 of file cfortran.h.

◆ VOID_cfSTR

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

Definition at line 1709 of file cfortran.h.

◆ VOID_cfU

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

Definition at line 1556 of file cfortran.h.

◆ VOID_cfUU

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

Definition at line 1566 of file cfortran.h.

◆ VOID_cfX

#define VOID_cfX   return ;

Definition at line 1896 of file cfortran.h.

◆ VOIDP

#define VOIDP

Definition at line 338 of file cfortran.h.

◆ VVCF

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

Definition at line 736 of file cfortran.h.

◆ WCF

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

Definition at line 877 of file cfortran.h.

◆ ZTRINGV_ARGF

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

Definition at line 691 of file cfortran.h.

◆ ZTRINGV_ARGFP

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

Definition at line 690 of file cfortran.h.

◆ ZTRINGV_ARGS

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

Definition at line 695 of file cfortran.h.

◆ ZTRINGV_cfA

#define ZTRINGV_cfA (   M,
  I,
  A,
 
)
Value:
AATRINGV_cfA( (char *)A,B, \
(_3(M,_ELEMS_,I))*(( _3(M,_ELEMLEN_,I))+1), \
(_3(M,_ELEMS_,I)),(_3(M,_ELEMLEN_,I))+1)
#define AATRINGV_cfA( A, B, sA, filA, silA)
Definition cfortran.h:786

Definition at line 795 of file cfortran.h.

◆ ZTRINGV_cfAA

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

Definition at line 838 of file cfortran.h.

◆ ZTRINGV_cfB

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

Definition at line 1675 of file cfortran.h.

◆ ZTRINGV_cfC

#define ZTRINGV_cfC (   M,
  I,
  A,
  B,
 
)
Value:
AATRINGV_cfA( A,B, (_3(M,_ELEMS_,I))*((_3(M,_ELEMLEN_,I))+1), \
(_3(M,_ELEMS_,I)), (_3(M,_ELEMLEN_,I))+1 )

Definition at line 1820 of file cfortran.h.

◆ ZTRINGV_cfCC

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

Definition at line 1882 of file cfortran.h.

◆ ZTRINGV_cfH

#define ZTRINGV_cfH (   S,
  U,
 
)

Definition at line 1704 of file cfortran.h.

◆ ZTRINGV_cfINT

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

Definition at line 1537 of file cfortran.h.

◆ ZTRINGV_cfJ

#define ZTRINGV_cfJ (   B)    STRING_cfJ(B)

Definition at line 857 of file cfortran.h.

◆ ZTRINGV_cfKK

#define ZTRINGV_cfKK (   B)    STRING_cfKK(B)

Definition at line 873 of file cfortran.h.

◆ ZTRINGV_cfN

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

Definition at line 931 of file cfortran.h.

◆ ZTRINGV_cfS

#define ZTRINGV_cfS (   M,
  I,
 
)

Definition at line 1687 of file cfortran.h.

◆ ZTRINGV_cfSEP

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

Definition at line 1411 of file cfortran.h.

◆ ZTRINGV_cfSTR

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

Definition at line 1791 of file cfortran.h.

◆ ZTRINGV_cfU

#define ZTRINGV_cfU (   T,
 
)    char *A

Definition at line 1561 of file cfortran.h.

◆ ZTRINGV_cfV

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

Definition at line 767 of file cfortran.h.

◆ ZTRINGV_cfW

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

Definition at line 894 of file cfortran.h.

◆ ZTRINGV_NUM

#define ZTRINGV_NUM (   I)    I

Definition at line 689 of file cfortran.h.

Typedef Documentation

◆ cfCAST_FUNCTION

typedef void(* cfCAST_FUNCTION) ()

Definition at line 733 of file cfortran.h.

◆ LONGLONG

typedef long long LONGLONG

Definition at line 78 of file cfortran.h.

Function Documentation

◆ __cfortran__notused_dummy()

static void __cfortran__notused_dummy ( )
static

Definition at line 641 of file cfortran.h.

◆ c2fstrv()

static char * c2fstrv ( char *  cstr,
char *  fstr,
int  elem_len,
int  sizeofcstr 
)
static

Definition at line 510 of file cfortran.h.

◆ f2cstrv()

static char * f2cstrv ( char *  fstr,
char *  cstr,
int  elem_len,
int  sizeofcstr 
)
static

Definition at line 527 of file cfortran.h.

◆ kill_trailing()

static char * kill_trailing ( char *  s,
char  t 
)
static

Definition at line 544 of file cfortran.h.

◆ kill_trailingn()

static char * kill_trailingn ( char *  s,
char  t,
char *  e 
)
static

Definition at line 560 of file cfortran.h.

◆ num_elem()

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

Definition at line 618 of file cfortran.h.

◆ vkill_trailing()

static char * vkill_trailing ( char *  cstr,
int  elem_len,
int  sizeofcstr,
char  t 
)
static

Definition at line 574 of file cfortran.h.