13typedef short int shortint;
15typedef double doublereal;
19typedef short int shortlogical;
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
166typedef int (*U_fp)(...);
167typedef shortint (*J_fp)(...);
168typedef integer (*I_fp)(...);
169typedef real (*R_fp)(...);
170typedef doublereal (*D_fp)(...), (*E_fp)(...);
171typedef VOID (*C_fp)(...);
172typedef VOID (*Z_fp)(...);
173typedef logical (*L_fp)(...);
174typedef shortlogical (*K_fp)(...);
175typedef VOID (*H_fp)(...);
176typedef int (*S_fp)(...);
178typedef int (*U_fp)(void);
179typedef shortint (*J_fp)(void);
180typedef integer (*I_fp)(void);
181typedef real (*R_fp)(void);
182typedef doublereal (*D_fp)(void), (*E_fp)(void);
183typedef VOID (*C_fp)(void);
184typedef VOID (*Z_fp)(void);
185typedef logical (*L_fp)(void);
186typedef shortlogical (*K_fp)(void);
187typedef VOID (*H_fp)(void);
188typedef int (*S_fp)(void);
194typedef doublereal E_f;
198#ifndef Skip_f2c_Undefs