12 typedef char *address;
13 typedef short int shortint;
15 typedef double doublereal;
19 typedef short int shortlogical;
20 typedef char logical1;
21 typedef char integer1;
150 #define abs(x) ((x) >= 0 ? (x) : -(x))
152 #define dabs(x) (doublereal)abs(x)
154 #define min(a,b) ((a) <= (b) ? (a) : (b))
157 #define max(a,b) ((a) >= (b) ? (a) : (b))
159 #define dmin(a,b) (doublereal)min(a,b)
160 #define dmax(a,b) (doublereal)max(a,b)
164 #define F2C_proc_par_types 1
166 typedef int (*U_fp)(...);
167 typedef shortint (*J_fp)(...);
168 typedef integer (*I_fp)(...);
169 typedef real (*R_fp)(...);
170 typedef doublereal (*D_fp)(...), (*E_fp)(...);
171 typedef VOID (*C_fp)(...);
172 typedef VOID (*Z_fp)(...);
173 typedef logical (*L_fp)(...);
174 typedef shortlogical (*K_fp)(...);
175 typedef VOID (*H_fp)(...);
176 typedef int (*S_fp)(...);
178 typedef int (*U_fp)(void);
179 typedef shortint (*J_fp)(void);
180 typedef integer (*I_fp)(void);
181 typedef real (*R_fp)(void);
182 typedef doublereal (*D_fp)(void), (*E_fp)(void);
183 typedef VOID (*C_fp)(void);
184 typedef VOID (*Z_fp)(void);
185 typedef logical (*L_fp)(void);
186 typedef shortlogical (*K_fp)(void);
187 typedef VOID (*H_fp)(void);
188 typedef int (*S_fp)(void);
194 typedef doublereal E_f;
198 #ifndef Skip_f2c_Undefs