1 /* A few definitions used by the translated Fortran code. */ 2 3 typedef glsi32 integer; 4 typedef char *address; 5 typedef glsi32 logical; 6 7 #define TRUE_ (1) 8 #define FALSE_ (0) 9 #ifndef NULL 10 #define NULL (0) 11 #endif 12 13 typedef long int ftnlen; 14 typedef long int ftnint; 15 16 #define abs(x) ((x) >= 0 ? (x) : -(x)) 17 #define min(a,b) ((a) <= (b) ? (a) : (b)) 18 #define max(a,b) ((a) >= (b) ? (a) : (b)) 19