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;
18 typedef long int logical;
19 typedef short int shortlogical;
20 typedef char logical1;
21 typedef char integer1;
23 typedef long long longint;
24 typedef unsigned long long ulongint;
25 #define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b)))
26 #define qbit_set(a,b) ((a) | ((ulongint)1 << (b)))
45 typedef long int flag;
46 typedef long int ftnlen;
47 typedef long int ftnint;
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)))
169 #define F2C_proc_par_types 1
171 typedef int (*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 VOID (*C_fp)(...);
177 typedef VOID (*Z_fp)(...);
178 typedef logical (*L_fp)(...);
179 typedef shortlogical (*K_fp)(...);
180 typedef VOID (*H_fp)(...);
181 typedef int (*S_fp)(...);
183 typedef int (*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 VOID (*C_fp)();
189 typedef VOID (*Z_fp)();
190 typedef logical (*L_fp)();
191 typedef shortlogical (*K_fp)();
192 typedef VOID (*H_fp)();
193 typedef int (*S_fp)();
199 typedef doublereal E_f;
203 #ifndef Skip_f2c_Undefs