44 #define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b)))
45 #define qbit_set(a,b) ((a) | ((ulongint)1 << (b)))
64 typedef long int flag;
177 #define abs(x) ((x) >= 0 ? (x) : -(x))
180 #define dabs(x) (doublereal)abs(x)
183 #define min(a,b) ((a) <= (b) ? (a) : (b))
186 #define max(a,b) ((a) >= (b) ? (a) : (b))
189 #define dmin(a,b) (doublereal)min(a,b)
192 #define dmax(a,b) (doublereal)max(a,b)
195 #define bit_test(a,b) ((a) >> (b) & 1)
196 #define bit_clear(a,b) ((a) & ~((uinteger)1 << (b)))
197 #define bit_set(a,b) ((a) | ((uinteger)1 << (b)))
201 #define F2C_proc_par_types 1
203 typedef int (*U_fp)(...);
216 typedef int (*U_fp)();
222 typedef VOID (*
C_fp)();
223 typedef VOID (*
Z_fp)();
226 typedef VOID (*
H_fp)();
227 typedef int (*
S_fp)();
237 #ifndef Skip_f2c_Undefs
double doublereal
Definition: FLA_f2c.h:31
char * address
Definition: FLA_f2c.h:28
integer(* I_fp)(...)
Definition: FLA_f2c.h:205
short ftnlen
Definition: FLA_f2c.h:61
shortlogical(* K_fp)(...)
Definition: FLA_f2c.h:212
real(* R_fp)(...)
Definition: FLA_f2c.h:206
int integer
Definition: FLA_f2c.h:25
doublereal(* D_fp)(...)
Definition: FLA_f2c.h:207
int logical
Definition: FLA_f2c.h:36
shortint(* J_fp)(...)
Definition: FLA_f2c.h:204
long long longint
Definition: FLA_f2c.h:42
VOID C_f
Definition: FLA_f2c.h:230
VOID(* H_fp)(...)
Definition: FLA_f2c.h:213
VOID(* Z_fp)(...)
Definition: FLA_f2c.h:210
VOID Z_f
Definition: FLA_f2c.h:232
short int shortint
Definition: FLA_f2c.h:29
short ftnint
Definition: FLA_f2c.h:62
VOID(* C_fp)(...)
Definition: FLA_f2c.h:209
unsigned long long ulongint
Definition: FLA_f2c.h:43
logical(* L_fp)(...)
Definition: FLA_f2c.h:211
float real
Definition: FLA_f2c.h:30
char integer1
Definition: FLA_f2c.h:40
short flag
Definition: FLA_f2c.h:60
unsigned long int uinteger
Definition: FLA_f2c.h:27
short int shortlogical
Definition: FLA_f2c.h:38
char logical1
Definition: FLA_f2c.h:39
doublereal(* E_fp)(...)
Definition: FLA_f2c.h:208
int(* S_fp)(...)
Definition: FLA_f2c.h:214
doublereal E_f
Definition: FLA_f2c.h:233
VOID H_f
Definition: FLA_f2c.h:231
Definition: FLA_f2c.h:169
int nvars
Definition: FLA_f2c.h:172
char * name
Definition: FLA_f2c.h:170
Vardesc ** vars
Definition: FLA_f2c.h:171
Definition: FLA_f2c.h:161
ftnlen * dims
Definition: FLA_f2c.h:164
char * name
Definition: FLA_f2c.h:162
char * addr
Definition: FLA_f2c.h:163
int type
Definition: FLA_f2c.h:165
Definition: FLA_f2c.h:110
ftnint aunit
Definition: FLA_f2c.h:111
flag aerr
Definition: FLA_f2c.h:110
ftnint ciunit
Definition: FLA_f2c.h:72
char * cifmt
Definition: FLA_f2c.h:74
flag cierr
Definition: FLA_f2c.h:71
ftnint cirec
Definition: FLA_f2c.h:75
flag ciend
Definition: FLA_f2c.h:73
Definition: FLA_f2c.h:103
ftnint cunit
Definition: FLA_f2c.h:104
char * csta
Definition: FLA_f2c.h:105
flag cerr
Definition: FLA_f2c.h:103
real i
Definition: FLA_f2c.h:32
doublereal i
Definition: FLA_f2c.h:33
char * icifmt
Definition: FLA_f2c.h:83
char * iciunit
Definition: FLA_f2c.h:81
flag iciend
Definition: FLA_f2c.h:82
ftnint icirnum
Definition: FLA_f2c.h:85
ftnint icirlen
Definition: FLA_f2c.h:84
flag icierr
Definition: FLA_f2c.h:80
Definition: FLA_f2c.h:116
ftnint * innamed
Definition: FLA_f2c.h:123
ftnint * innum
Definition: FLA_f2c.h:122
ftnlen infilen
Definition: FLA_f2c.h:119
ftnint * innrec
Definition: FLA_f2c.h:139
ftnlen indirlen
Definition: FLA_f2c.h:131
ftnlen inblanklen
Definition: FLA_f2c.h:141
char * inseq
Definition: FLA_f2c.h:128
char * infile
Definition: FLA_f2c.h:118
char * inblank
Definition: FLA_f2c.h:140
char * infmt
Definition: FLA_f2c.h:132
ftnlen inunflen
Definition: FLA_f2c.h:137
ftnlen inseqlen
Definition: FLA_f2c.h:129
flag inerr
Definition: FLA_f2c.h:116
ftnint * inex
Definition: FLA_f2c.h:120
ftnint inunit
Definition: FLA_f2c.h:117
ftnlen inacclen
Definition: FLA_f2c.h:127
ftnint * inopen
Definition: FLA_f2c.h:121
char * inform
Definition: FLA_f2c.h:134
char * inacc
Definition: FLA_f2c.h:126
ftnint informlen
Definition: FLA_f2c.h:135
char * indir
Definition: FLA_f2c.h:130
char * inname
Definition: FLA_f2c.h:124
ftnint * inrecl
Definition: FLA_f2c.h:138
ftnlen innamlen
Definition: FLA_f2c.h:125
char * inunf
Definition: FLA_f2c.h:136
ftnlen infmtlen
Definition: FLA_f2c.h:133
char * osta
Definition: FLA_f2c.h:94
ftnlen ofnmlen
Definition: FLA_f2c.h:93
ftnint orl
Definition: FLA_f2c.h:97
char * ofnm
Definition: FLA_f2c.h:92
char * oblnk
Definition: FLA_f2c.h:98
char * ofm
Definition: FLA_f2c.h:96
flag oerr
Definition: FLA_f2c.h:90
char * oacc
Definition: FLA_f2c.h:95
ftnint ounit
Definition: FLA_f2c.h:91
Definition: FLA_f2c.h:146
complex c
Definition: FLA_f2c.h:153
shortint h
Definition: FLA_f2c.h:148
integer1 g
Definition: FLA_f2c.h:147
integer i
Definition: FLA_f2c.h:149
doublecomplex z
Definition: FLA_f2c.h:154
real r
Definition: FLA_f2c.h:151
doublereal d
Definition: FLA_f2c.h:152