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