#include <stdio.h>
#include <string.h>
#include <stdlib.h>
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) |
#define _ | ( | A, | |
B | |||
) | AB |
Definition at line 108 of file cfortran.h.
#define _2 | ( | A, | |
B | |||
) | AB |
Definition at line 109 of file cfortran.h.
#define _3 | ( | A, | |
B, | |||
C | |||
) | ABC |
Definition at line 110 of file cfortran.h.
#define __SEP_0 | ( | TN, | |
cfCOMMA | |||
) |
Definition at line 1390 of file cfortran.h.
#define __SEP_1 | ( | TN, | |
cfCOMMA | |||
) | _Icf(2,SEP,TN,cfCOMMA,0) |
Definition at line 1391 of file cfortran.h.
#define _cf_free | ( | P | ) | free(P) |
Definition at line 399 of file cfortran.h.
Definition at line 398 of file cfortran.h.
#define _cfleft 1 |
Definition at line 94 of file cfortran.h.
#define _cfleft_cfright 0 |
Definition at line 96 of file cfortran.h.
#define _cfMIN | ( | A, | |
B | |||
) | (A<B?A:B) |
Definition at line 421 of file cfortran.h.
#define _cfright |
Definition at line 95 of file cfortran.h.
Definition at line 1448 of file cfortran.h.
#define _NUM_ELEM_ARG -2 |
Definition at line 612 of file cfortran.h.
#define _NUM_ELEMS -1 |
Definition at line 611 of file cfortran.h.
#define _SEP_ | ( | TN, | |
C, | |||
cfCOMMA | |||
) | _(__SEP_,C)(TN,cfCOMMA) |
Definition at line 1389 of file cfortran.h.
#define _Z |
Definition at line 979 of file cfortran.h.
Definition at line 810 of file cfortran.h.
#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.
#define ABSOFT_cf1 | ( | T0 | ) |
Definition at line 971 of file cfortran.h.
#define ABSOFT_cf2 | ( | T0 | ) |
Definition at line 972 of file cfortran.h.
#define ABSOFT_cf3 | ( | T0 | ) |
Definition at line 973 of file cfortran.h.
Definition at line 773 of file cfortran.h.
#define AcfCOLON ; |
Definition at line 415 of file cfortran.h.
#define AcfCOMMA , |
Definition at line 414 of file cfortran.h.
#define ANSI_C_preprocessor _cfleft_cfright |
Definition at line 97 of file cfortran.h.
#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.
Definition at line 289 of file cfortran.h.
Definition at line 1659 of file cfortran.h.
#define BYTE_cfCCC | ( | A, | |
B | |||
) | &A |
Definition at line 1827 of file cfortran.h.
#define BYTE_cfE INTEGER_BYTE A0; |
Definition at line 1589 of file cfortran.h.
#define BYTE_cfF | ( | UN, | |
LN | |||
) | BYTE_cfFZ(UN,LN) |
Definition at line 2271 of file cfortran.h.
#define BYTE_cfFZ | ( | UN, | |
LN | |||
) | INTEGER_BYTE FCALLSC_QUALIFIER fcallsc(UN,LN)( |
Definition at line 2223 of file cfortran.h.
#define BYTE_cfI return A0; |
Definition at line 2334 of file cfortran.h.
#define BYTE_cfINT | ( | N, | |
A, | |||
B, | |||
X, | |||
Y, | |||
Z | |||
) | DOUBLE_cfINT(N,A,B,X,Y,Z) |
Definition at line 1449 of file cfortran.h.
#define BYTE_cfPU | ( | A | ) | CFextern INTEGER_BYTE FCALLSC_QUALIFIER A |
Definition at line 1570 of file cfortran.h.
Definition at line 1710 of file cfortran.h.
#define BYTE_cfT | ( | M, | |
I, | |||
A, | |||
B, | |||
D | |||
) | *A |
Definition at line 2087 of file cfortran.h.
#define BYTE_cfVCF | ( | A, | |
B | |||
) |
Definition at line 716 of file cfortran.h.
#define BYTE_cfX return A0; |
Definition at line 1885 of file cfortran.h.
#define BYTEV_cfINT | ( | N, | |
A, | |||
B, | |||
X, | |||
Y, | |||
Z | |||
) | DOUBLEV_cfINT(N,A,B,X,Y,Z) |
Definition at line 1465 of file cfortran.h.
Definition at line 1718 of file cfortran.h.
#define BYTEV_cfT | ( | M, | |
I, | |||
A, | |||
B, | |||
D | |||
) | A |
Definition at line 2095 of file cfortran.h.
#define BYTEVV_cfINT | ( | N, | |
A, | |||
B, | |||
X, | |||
Y, | |||
Z | |||
) | DOUBLEVV_cfINT(N,A,B,X,Y,Z) |
Definition at line 1466 of file cfortran.h.
Definition at line 1719 of file cfortran.h.
#define BYTEVV_cfT | ( | M, | |
I, | |||
A, | |||
B, | |||
D | |||
) | (void *)A /* We have to cast to void *,*/ |
Definition at line 2103 of file cfortran.h.
#define BYTEVVV_cfINT | ( | N, | |
A, | |||
B, | |||
X, | |||
Y, | |||
Z | |||
) | DOUBLEVVV_cfINT(N,A,B,X,Y,Z) |
Definition at line 1467 of file cfortran.h.
Definition at line 1720 of file cfortran.h.
#define BYTEVVV_cfT | ( | M, | |
I, | |||
A, | |||
B, | |||
D | |||
) | (void *)A /* since we don't know the */ |
Definition at line 2104 of file cfortran.h.
#define BYTEVVVV_cfINT | ( | N, | |
A, | |||
B, | |||
X, | |||
Y, | |||
Z | |||
) | DOUBLEVVVV_cfINT(N,A,B,X,Y,Z) |
Definition at line 1468 of file cfortran.h.
Definition at line 1721 of file cfortran.h.
#define BYTEVVVV_cfT | ( | M, | |
I, | |||
A, | |||
B, | |||
D | |||
) | (void *)A /* dimensions of the array. */ |
Definition at line 2105 of file cfortran.h.
#define BYTEVVVVV_cfINT | ( | N, | |
A, | |||
B, | |||
X, | |||
Y, | |||
Z | |||
) | DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z) |
Definition at line 1469 of file cfortran.h.
Definition at line 1722 of file cfortran.h.
#define BYTEVVVVV_cfT | ( | M, | |
I, | |||
A, | |||
B, | |||
D | |||
) | (void *)A /* i.e. Unfortunately, can't */ |
Definition at line 2106 of file cfortran.h.
#define BYTEVVVVVV_cfINT | ( | N, | |
A, | |||
B, | |||
X, | |||
Y, | |||
Z | |||
) | DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z) |
Definition at line 1470 of file cfortran.h.
Definition at line 1723 of file cfortran.h.
Definition at line 2107 of file cfortran.h.
#define BYTEVVVVVVV_cfINT | ( | N, | |
A, | |||
B, | |||
X, | |||
Y, | |||
Z | |||
) | DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z) |
Definition at line 1471 of file cfortran.h.
#define BYTEVVVVVVV_cfPP |
Definition at line 1645 of file cfortran.h.
Definition at line 1724 of file cfortran.h.
#define BYTEVVVVVVV_cfT | ( | M, | |
I, | |||
A, | |||
B, | |||
D | |||
) | (void *)A /* matches the prototype. */ |
Definition at line 2108 of file cfortran.h.
#define BYTEVVVVVVV_cfTYPE INTEGER_BYTE |
Definition at line 1423 of file cfortran.h.
#define C2FCBSTR | ( | CSTR, | |
FSTR, | |||
DIM | |||
) |
Definition at line 659 of file cfortran.h.
#define C2FLOGICAL | ( | L | ) | (L) |
Definition at line 469 of file cfortran.h.
#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.
#define C2FLOGICALV | ( | A, | |
I | |||
) |
Definition at line 447 of file cfortran.h.
#define C_FUNCTION | ( | UN, | |
LN | |||
) | fcallsc(UN,LN) |
Definition at line 291 of file cfortran.h.
#define CCALLSFFUN0 | ( | UN, | |
LN | |||
) | CFFUN(UN)() |
Definition at line 1908 of file cfortran.h.
#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.
#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.
#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.
#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.
#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.
#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 | |||
) |
Definition at line 1941 of file cfortran.h.
#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.
#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.
#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.
#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.
#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.
#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.
#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.
#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.
#define CCALLSFSUB0 | ( | UN, | |
LN | |||
) | do{CPPPROTOCLSFSUB0(UN,LN) CFC_(UN,LN)();}while(0) |
Definition at line 1263 of file cfortran.h.
#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.
#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.
#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.
#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.
#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.
#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 | |||
) |
Definition at line 1264 of file cfortran.h.
#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.
#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.
#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.
#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.
#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.
#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.
#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 | |||
) |
Definition at line 1298 of file cfortran.h.
#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.
#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.
#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.
#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.
#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.
#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.
#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 | |||
) |