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 doublereal d
Definition: FLA_f2c.h:152
ftnint icirnum
Definition: FLA_f2c.h:85
shortint h
Definition: FLA_f2c.h:148
char * oblnk
Definition: FLA_f2c.h:98
int type
Definition: FLA_f2c.h:165
char * inblank
Definition: FLA_f2c.h:140
doublereal(* D_fp)(...)
Definition: FLA_f2c.h:207
doublereal(* E_fp)(...)
Definition: FLA_f2c.h:208
ftnint * inrecl
Definition: FLA_f2c.h:138
complex c
Definition: FLA_f2c.h:153
char * inacc
Definition: FLA_f2c.h:126
ftnlen inacclen
Definition: FLA_f2c.h:127
unsigned long int uinteger
Definition: FLA_f2c.h:27
char * address
Definition: FLA_f2c.h:28
Definition: FLA_f2c.h:169
ftnlen inunflen
Definition: FLA_f2c.h:137
char * icifmt
Definition: FLA_f2c.h:83
ftnlen infilen
Definition: FLA_f2c.h:119
char * iciunit
Definition: FLA_f2c.h:81
char integer1
Definition: FLA_f2c.h:40
short ftnlen
Definition: FLA_f2c.h:61
char * name
Definition: FLA_f2c.h:170
ftnint icirlen
Definition: FLA_f2c.h:84
char * infmt
Definition: FLA_f2c.h:132
ftnint ounit
Definition: FLA_f2c.h:91
long long longint
Definition: FLA_f2c.h:42
flag icierr
Definition: FLA_f2c.h:80
char * infile
Definition: FLA_f2c.h:118
doublereal E_f
Definition: FLA_f2c.h:233
unsigned long long ulongint
Definition: FLA_f2c.h:43
ftnlen ofnmlen
Definition: FLA_f2c.h:93
ftnint cirec
Definition: FLA_f2c.h:75
ftnint * innum
Definition: FLA_f2c.h:122
real(* R_fp)(...)
Definition: FLA_f2c.h:206
ftnint * innamed
Definition: FLA_f2c.h:123
flag ciend
Definition: FLA_f2c.h:73
VOID C_f
Definition: FLA_f2c.h:230
char * csta
Definition: FLA_f2c.h:105
flag oerr
Definition: FLA_f2c.h:90
char * ofm
Definition: FLA_f2c.h:96
float real
Definition: FLA_f2c.h:30
Definition: FLA_f2c.h:146
ftnlen indirlen
Definition: FLA_f2c.h:131
doublereal r
Definition: FLA_f2c.h:33
Definition: FLA_f2c.h:115
ftnint inunit
Definition: FLA_f2c.h:117
char * oacc
Definition: FLA_f2c.h:95
flag cerr
Definition: FLA_f2c.h:103
flag cierr
Definition: FLA_f2c.h:71
ftnlen innamlen
Definition: FLA_f2c.h:125
VOID(* H_fp)(...)
Definition: FLA_f2c.h:213
short int shortlogical
Definition: FLA_f2c.h:38
shortlogical(* K_fp)(...)
Definition: FLA_f2c.h:212
logical(* L_fp)(...)
Definition: FLA_f2c.h:211
flag iciend
Definition: FLA_f2c.h:82
VOID H_f
Definition: FLA_f2c.h:231
char * inname
Definition: FLA_f2c.h:124
real r
Definition: FLA_f2c.h:151
VOID(* C_fp)(...)
Definition: FLA_f2c.h:209
char * cifmt
Definition: FLA_f2c.h:74
Definition: FLA_f2c.h:109
Vardesc ** vars
Definition: FLA_f2c.h:171
char * ofnm
Definition: FLA_f2c.h:92
double doublereal
Definition: FLA_f2c.h:31
char * inform
Definition: FLA_f2c.h:134
char * indir
Definition: FLA_f2c.h:130
integer(* I_fp)(...)
Definition: FLA_f2c.h:205
ftnint * inopen
Definition: FLA_f2c.h:121
ftnlen inseqlen
Definition: FLA_f2c.h:129
char * inunf
Definition: FLA_f2c.h:136
ftnint * inex
Definition: FLA_f2c.h:120
int logical
Definition: FLA_f2c.h:36
int integer
Definition: FLA_f2c.h:25
ftnint informlen
Definition: FLA_f2c.h:135
ftnint * innrec
Definition: FLA_f2c.h:139
ftnlen infmtlen
Definition: FLA_f2c.h:133
char * addr
Definition: FLA_f2c.h:163
VOID Z_f
Definition: FLA_f2c.h:232
char logical1
Definition: FLA_f2c.h:39
Definition: FLA_f2c.h:102
ftnlen inblanklen
Definition: FLA_f2c.h:141
VOID(* Z_fp)(...)
Definition: FLA_f2c.h:210
ftnint cunit
Definition: FLA_f2c.h:104
short flag
Definition: FLA_f2c.h:60
doublecomplex z
Definition: FLA_f2c.h:154
integer1 g
Definition: FLA_f2c.h:147
ftnint aunit
Definition: FLA_f2c.h:111
char * osta
Definition: FLA_f2c.h:94
shortint(* J_fp)(...)
Definition: FLA_f2c.h:204
short int shortint
Definition: FLA_f2c.h:29
integer i
Definition: FLA_f2c.h:149
int i
Definition: bl1_axmyv2.c:145
int(* S_fp)(...)
Definition: FLA_f2c.h:214
flag aerr
Definition: FLA_f2c.h:110
ftnint ciunit
Definition: FLA_f2c.h:72
ftnlen * dims
Definition: FLA_f2c.h:164
int nvars
Definition: FLA_f2c.h:172
char * name
Definition: FLA_f2c.h:162
flag inerr
Definition: FLA_f2c.h:116
Definition: FLA_f2c.h:161
ftnint orl
Definition: FLA_f2c.h:97
real r
Definition: FLA_f2c.h:32
short ftnint
Definition: FLA_f2c.h:62
char * inseq
Definition: FLA_f2c.h:128