f77_wrap.h File Reference

#include "cfortran.h"

Include dependency graph for f77_wrap.h:

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

Macros
#define	UNSIGNED_BYTE
#define	PPSTRING_cfT(M, I, A, B, D)    (unsigned char*)A
#define	_cfMAX(A, B)   ( (A>B) ? A : B )
#define	STRINGV_cfQ(B)    char **B; unsigned int _(B,N), _(B,M);
#define	STRINGV_cfR(A, B, D)   free(B[0]); free(B);
#define	TTSTR( A, B, D)
#define	TTTTSTRV(A, B, D, E)
#define	RRRRPSTRV(A, B, D)
#define	BYTE_cfINT(N, A, B, X, Y, Z)    _(CFARGS,N)(A,BYTE,B,X,Y,Z,0)
#define	BYTEV_cfINT(N, A, B, X, Y, Z)    _(CFARGS,N)(A,BYTEV,B,X,Y,Z,0)
#define	BYTE_cfSTR(N, T, A, B, C, D, E)    _(CFARGS,N)(T,BYTE,A,B,C,D,E)
#define	BYTEV_cfSTR(N, T, A, B, C, D, E)    _(CFARGS,N)(T,BYTEV,A,B,C,D,E)
#define	BYTE_cfSEP(T, B)    INT_cfSEP(T,B)
#define	BYTEV_cfSEP(T, B)    INT_cfSEP(T,B)
#define	BYTE_cfH(S, U, B)    STRING_cfH(S,U,B)
#define	BYTEV_cfH(S, U, B)    STRING_cfH(S,U,B)
#define	BYTE_cfQ(B)
#define	BYTEV_cfQ(B)
#define	BYTE_cfR(A, B, D)
#define	BYTEV_cfR(A, B, D)
#define	BYTE_cfN(T, A)    INTEGER_BYTE * A
#define	BYTEV_cfN(T, A)    INTEGER_BYTE * A
#define	BYTE_cfT(M, I, A, B, D)    A[0]
#define	BYTEV_cfT(M, I, A, B, D)    A
#define	LOGICALV_cfSTR(N, T, A, B, C, D, E)   _(CFARGS,N)(T,LOGICALV,A,B,C,D,E)
#define	LOGICALV_cfQ(B)    char *B; unsigned int _(B,N);
#define	LOGICALV_cfT(M, I, A, B, D)
#define	LOGICALV_cfR(A, B, D)    C2FcopyLogVect(_(B,N),A,B);
#define	LOGICALV_cfH(S, U, B)
#define	FITSUNIT_cfINT(N, A, B, X, Y, Z)    INT_cfINT(N,A,B,X,Y,Z)
#define	FITSUNIT_cfSTR(N, T, A, B, C, D, E)   INT_cfSTR(N,T,A,B,C,D,E)
#define	FITSUNIT_cfT(M, I, A, B, D)    gFitsFiles[*A]
#define	FITSUNITVVVVVVV_cfTYPE   int
#define	PFITSUNIT_cfINT(N, A, B, X, Y, Z)    PINT_cfINT(N,A,B,X,Y,Z)
#define	PFITSUNIT_cfSTR(N, T, A, B, C, D, E)   PINT_cfSTR(N,T,A,B,C,D,E)
#define	PFITSUNIT_cfT(M, I, A, B, D)    (gFitsFiles + *A)
#define	PFITSUNIT_cfTYPE   int
#define	TTTTSTR(A, B, D)
#define	FCALLSCFUN0(T0, CN, UN, LN)
#define	FCALLSCFUN14(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB, TC, TD, TE)

Variables
unsigned long	gMinStrLen
fitsfile *	gFitsFiles []

Macro Definition Documentation

#define _cfMAX	(		A,
			B
	)		( (A>B) ? A : B )

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

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

#define BYTE_cfN	(		T,
			A
	)		INTEGER_BYTE * A

#define BYTE_cfQ

(

B

)

#define BYTE_cfR	(		A,
			B,
			D
	)

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

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

#define BYTE_cfT	(		M,
			I,
			A,
			B,
			D
	)		A[0]

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

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

#define BYTEV_cfN	(		T,
			A
	)		INTEGER_BYTE * A

#define BYTEV_cfQ

(

B

)

#define BYTEV_cfR	(		A,
			B,
			D
	)

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

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

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

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

Value:

CFextern _(T0,_cfFZ)(UN,LN) void ABSOFT_cf2(T0)); \
  CFextern _(T0,_cfFZ)(UN,LN) void 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 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)); \
  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 FITSUNIT_cfINT	(		N,
			A,
			B,
			X,
			Y,
			Z
	)		INT_cfINT(N,A,B,X,Y,Z)

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

#define FITSUNIT_cfT	(		M,
			I,
			A,
			B,
			D
	)		gFitsFiles[*A]

#define FITSUNITVVVVVVV_cfTYPE   int

#define LOGICALV_cfH	(		S,
			U,
			B
	)

#define LOGICALV_cfQ

(

B

)

char *B; unsigned int _(B,N);

#define LOGICALV_cfR	(		A,
			B,
			D
	)		C2FcopyLogVect(_(B,N),A,B);

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

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

Value:

(_(B,N)= * _3(M,_LOGV_A,I), \
                                            B=F2CcopyLogVect(_(B,N),A))

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

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

#define PFITSUNIT_cfT	(		M,
			I,
			A,
			B,
			D
	)		(gFitsFiles + *A)

#define PFITSUNIT_cfTYPE   int

#define PPSTRING_cfT	(		M,
			I,
			A,
			B,
			D
	)		(unsigned char*)A

#define RRRRPSTRV	(		A,
			B,
			D
	)

Value:

c2fstrv2(B[0],A,_(B,M),D,_(B,N)), \
            free(B[0]), \
            free(B);

#define STRINGV_cfQ

(

B

)

char **B; unsigned int _(B,N), _(B,M);

#define STRINGV_cfR	(		A,
			B,
			D
	)		free(B[0]); free(B);

#define TTSTR	(		A,
			B,
			D
	)

Value:

((B=(char*)malloc(_cfMAX(D,gMinStrLen)+1))[D]='\0',memcpy(B,A,D), \
               kill_trailing(B,' '))

#define TTTTSTR	(		A,
			B,
			D
	)

Value:

( !(D<4||A[0]||A[1]||A[2]||A[3]) ) ? ((char*)0) :     \
                             memchr(A,'\0',D) ? A : TTSTR(A,B,D)

#define TTTTSTRV	(		A,
			B,
			D,
			E
	)

Value:

( \
            _(B,N)=_cfMAX(E,1), \
            _(B,M)=_cfMAX(D,gMinStrLen)+1, \
            B=(char**)malloc(_(B,N)*sizeof(char*)), \
            B[0]=(char*)malloc(_(B,N)*_(B,M)), \
            vindex(B,_(B,M),_(B,N),f2cstrv2(A,B[0],D,_(B,M),_(B,N))) \
            )

#define UNSIGNED_BYTE

Variable Documentation

fitsfile* gFitsFiles[]

unsigned long gMinStrLen