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) */
13 /* needed for Windows Mobile */
24 typedef long int integer;
25 typedef unsigned long int uinteger;
26 typedef char *address;
27 typedef short int shortint;
29 typedef double doublereal;
30 typedef struct { real r, i; } complex;
31 typedef struct { doublereal r, i; } doublecomplex;
32 typedef long int logical;
33 typedef short int shortlogical;
34 typedef char logical1;
35 typedef char integer1;
36 #ifdef INTEGER_STAR_8 /* Adjust for integer*8. */
37 typedef long long longint; /* system-dependent */
38 typedef unsigned long long ulongint; /* system-dependent */
39 #define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b)))
40 #define qbit_set(a,b) ((a) | ((ulongint)1 << (b)))
46 /* Extern is for use with -E */
59 typedef long int flag;
60 typedef long int ftnlen;
61 typedef long int ftnint;
64 /*external read, write*/
73 /*internal read, write*/
103 /*rewind, backspace, endfile*/
115 ftnint *inex; /*parameters in standard's order*/
141 union Multitype { /* for multiple entry points */
152 typedef union Multitype Multitype;
154 /*typedef long int Long;*/ /* No longer used; formerly in Namelist */
156 struct Vardesc { /* for Namelist */
162 typedef struct Vardesc Vardesc;
169 typedef struct Namelist Namelist;
172 #define abs(x) ((x) >= 0 ? (x) : -(x))
174 #define dabs(x) (doublereal)abs(x)
176 #define min(a,b) ((a) <= (b) ? (a) : (b))
179 #define max(a,b) ((a) >= (b) ? (a) : (b))
181 #define dmin(a,b) (doublereal)min(a,b)
182 #define dmax(a,b) (doublereal)max(a,b)
183 #define bit_test(a,b) ((a) >> (b) & 1)
184 #define bit_clear(a,b) ((a) & ~((uinteger)1 << (b)))
185 #define bit_set(a,b) ((a) | ((uinteger)1 << (b)))
187 /* procedure parameter types for -A and -C++ */
189 #define F2C_proc_par_types 1
191 typedef int /* Unknown procedure type */ (*U_fp)(...);
192 typedef shortint (*J_fp)(...);
193 typedef integer (*I_fp)(...);
194 typedef real (*R_fp)(...);
195 typedef doublereal (*D_fp)(...), (*E_fp)(...);
196 typedef /* Complex */ VOID (*C_fp)(...);
197 typedef /* Double Complex */ VOID (*Z_fp)(...);
198 typedef logical (*L_fp)(...);
199 typedef shortlogical (*K_fp)(...);
200 typedef /* Character */ VOID (*H_fp)(...);
201 typedef /* Subroutine */ int (*S_fp)(...);
203 typedef int /* Unknown procedure type */ (*U_fp)();
204 typedef shortint (*J_fp)();
205 typedef integer (*I_fp)();
206 typedef real (*R_fp)();
207 typedef doublereal (*D_fp)(), (*E_fp)();
208 typedef /* Complex */ VOID (*C_fp)();
209 typedef /* Double Complex */ VOID (*Z_fp)();
210 typedef logical (*L_fp)();
211 typedef shortlogical (*K_fp)();
212 typedef /* Character */ VOID (*H_fp)();
213 typedef /* Subroutine */ int (*S_fp)();
215 /* E_fp is for real functions when -R is not specified */
216 typedef VOID C_f; /* complex function */
217 typedef VOID H_f; /* character function */
218 typedef VOID Z_f; /* double complex function */
219 typedef doublereal E_f; /* real function with -R not specified */
221 /* undef any lower-case symbols that your C compiler predefines, e.g.: */
223 #ifndef Skip_f2c_Undefs