]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | /* |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.1 1996/02/15 17:49:20 mclareni | |
6 | * Kernlib | |
7 | * | |
8 | * | |
9 | * This is a piece of f2c.h file by AT&T | |
10 | * | |
11 | * qf_f2c.h | |
12 | */ | |
13 | typedef long ftnlen; | |
14 | typedef long int integer; | |
15 | typedef char *address; | |
16 | typedef short int shortint; | |
17 | typedef float real; | |
18 | typedef double doublereal; | |
19 | ||
20 | typedef struct { real r, i; } complex; | |
21 | #ifdef WIN32 /* V.E.Fine 03.07.93 */ | |
22 | #define _COMPLEX_DEFINED | |
23 | #endif | |
24 | ||
25 | typedef struct { doublereal r, i; } doublecomplex; | |
26 | typedef long int logical; | |
27 | typedef short int shortlogical; | |
28 | typedef char logical1; | |
29 | typedef char integer1; | |
30 | /* typedef long long longint; */ /* system-dependent */ | |
31 | ||
32 | #define TRUE_ (1) | |
33 | #define FALSE_ (0) | |
34 | #define min(a,b) ((a) <= (b) ? (a) : (b)) | |
35 | #define max(a,b) ((a) >= (b) ? (a) : (b)) |