00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018 typedef long ftnlen;
00019 typedef long int integer;
00020 typedef char *address;
00021 typedef short int shortint;
00022 typedef float real;
00023 typedef double doublereal;
00024
00025 typedef struct { real r, i; } complex;
00026 #ifdef WIN32
00027 #define _COMPLEX_DEFINED
00028 #endif
00029
00030 typedef struct { doublereal r, i; } doublecomplex;
00031 typedef long int logical;
00032 typedef short int shortlogical;
00033 typedef char logical1;
00034 typedef char integer1;
00035
00036
00037 #define TRUE_ (1)
00038 #define FALSE_ (0)
00039 #define min(a,b) ((a) <= (b) ? (a) : (b))
00040 #define max(a,b) ((a) >= (b) ? (a) : (b))