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