1 /* f2c.h -- Standard Fortran to C header file */
3 /** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed."
5 - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */
10 typedef long int integer;
11 typedef unsigned long int uinteger;
12 typedef char *address;
13 typedef short int shortint;
15 typedef double doublereal;
16 typedef struct { real r, i; } complex;
17 typedef struct { doublereal r, i; } doublecomplex;
18 typedef long int logical;
19 typedef short int shortlogical;
20 typedef char logical1;
21 typedef char integer1;
22 #ifdef INTEGER_STAR_8 /* Adjust for integer*8. */
23 typedef long long longint; /* system-dependent */
24 typedef unsigned long long ulongint; /* system-dependent */
25 #define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b)))
26 #define qbit_set(a,b) ((a) | ((ulongint)1 << (b)))
32 /* Extern is for use with -E */
45 typedef long int flag;
46 typedef long int ftnlen;
47 typedef long int ftnint;
50 /*external read, write*/
59 /*internal read, write*/
89 /*rewind, backspace, endfile*/
101 ftnint *inex; /*parameters in standard's order*/
127 union Multitype { /* for multiple entry points */
138 typedef union Multitype Multitype;
140 /*typedef long int Long;*/ /* No longer used; formerly in Namelist */
142 struct Vardesc { /* for Namelist */
148 typedef struct Vardesc Vardesc;
155 typedef struct Namelist Namelist;
157 #define abs(x) ((x) >= 0 ? (x) : -(x))
158 #define dabs(x) (doublereal)abs(x)
159 #define min(a,b) ((a) <= (b) ? (a) : (b))
160 #define max(a,b) ((a) >= (b) ? (a) : (b))
161 #define dmin(a,b) (doublereal)min(a,b)
162 #define dmax(a,b) (doublereal)max(a,b)
163 #define bit_test(a,b) ((a) >> (b) & 1)
164 #define bit_clear(a,b) ((a) & ~((uinteger)1 << (b)))
165 #define bit_set(a,b) ((a) | ((uinteger)1 << (b)))
167 /* procedure parameter types for -A and -C++ */
169 #define F2C_proc_par_types 1
171 typedef int /* Unknown procedure type */ (*U_fp)(...);
172 typedef shortint (*J_fp)(...);
173 typedef integer (*I_fp)(...);
174 typedef real (*R_fp)(...);
175 typedef doublereal (*D_fp)(...), (*E_fp)(...);
176 typedef /* Complex */ VOID (*C_fp)(...);
177 typedef /* Double Complex */ VOID (*Z_fp)(...);
178 typedef logical (*L_fp)(...);
179 typedef shortlogical (*K_fp)(...);
180 typedef /* Character */ VOID (*H_fp)(...);
181 typedef /* Subroutine */ int (*S_fp)(...);
183 typedef int /* Unknown procedure type */ (*U_fp)();
184 typedef shortint (*J_fp)();
185 typedef integer (*I_fp)();
186 typedef real (*R_fp)();
187 typedef doublereal (*D_fp)(), (*E_fp)();
188 typedef /* Complex */ VOID (*C_fp)();
189 typedef /* Double Complex */ VOID (*Z_fp)();
190 typedef logical (*L_fp)();
191 typedef shortlogical (*K_fp)();
192 typedef /* Character */ VOID (*H_fp)();
193 typedef /* Subroutine */ int (*S_fp)();
195 /* E_fp is for real functions when -R is not specified */
196 typedef VOID C_f; /* complex function */
197 typedef VOID H_f; /* character function */
198 typedef VOID Z_f; /* double complex function */
199 typedef doublereal E_f; /* real function with -R not specified */
201 /* undef any lower-case symbols that your C compiler predefines, e.g.: */
203 #ifndef Skip_f2c_Undefs