1 #ifndef GRETL_F2C_H
2 #define GRETL_F2C_H
3 
4 /* Minimal support for f2c'd source files: we assume that
5    most fortran-isms will be purged from such files,
6    including real -> float and doublereal -> double.
7 */
8 
9 #include <stdint.h>
10 
11 typedef int32_t integer;
12 typedef int logical;
13 typedef float real;
14 typedef double doublereal;
15 
16 /* I/O stuff */
17 
18 #ifdef f2c_i2
19 /* for -i2 */
20 typedef short flag;
21 typedef short ftnlen;
22 #else
23 typedef int flag;
24 typedef int ftnlen;
25 #endif
26 
27 #ifndef min
28 # define min(a,b) ((a) <= (b) ? (a) : (b))
29 #endif
30 #ifndef max
31 # define max(a,b) ((a) >= (b) ? (a) : (b))
32 #endif
33 
34 #ifdef __cplusplus
35 typedef logical (*L_fp)(...);
36 #else
37 typedef logical (*L_fp)();
38 #endif
39 
40 #endif /* GRETL_F2C_H */
41