00001
00002
00007 #ifndef F2C_INCLUDE
00008 #define F2C_INCLUDE
00009
00010 typedef long int integer;
00011 typedef unsigned long uinteger;
00012 typedef char *address;
00013 typedef short int shortint;
00014 typedef float real;
00015 typedef double doublereal;
00016 typedef struct { real r, i; } complex;
00017 typedef struct { doublereal r, i; } doublecomplex;
00018 typedef long int logical;
00019 typedef short int shortlogical;
00020 typedef char logical1;
00021 typedef char integer1;
00022 #if 0
00023 typedef long long longint;
00024 typedef unsigned long long ulongint;
00025 #endif
00026
00027 #define TRUE_ (1)
00028 #define FALSE_ (0)
00029
00030
00031 #ifndef Extern
00032 #define Extern extern
00033 #endif
00034
00035
00036
00037 #ifdef f2c_i2
00038
00039 typedef short flag;
00040 typedef short ftnlen;
00041 typedef short ftnint;
00042 #else
00043 typedef long int flag;
00044 typedef long int ftnlen;
00045 typedef long int ftnint;
00046 #endif
00047
00048 #define VOID void
00049
00050
00051
00052 #define F2C_proc_par_types 1
00053 #ifdef __cplusplus
00054 typedef int (*U_fp)(...);
00055 typedef shortint (*J_fp)(...);
00056 typedef integer (*I_fp)(...);
00057 typedef real (*R_fp)(...);
00058 typedef doublereal (*D_fp)(...), (*E_fp)(...);
00059 typedef VOID (*C_fp)(...);
00060 typedef VOID (*Z_fp)(...);
00061 typedef logical (*L_fp)(...);
00062 typedef shortlogical (*K_fp)(...);
00063 typedef VOID (*H_fp)(...);
00064 typedef int (*S_fp)(...);
00065 #else
00066 typedef int (*U_fp)();
00067 typedef shortint (*J_fp)();
00068 typedef integer (*I_fp)();
00069 typedef real (*R_fp)();
00070 typedef doublereal (*D_fp)(), (*E_fp)();
00071 typedef VOID (*C_fp)();
00072 typedef VOID (*Z_fp)();
00073 typedef logical (*L_fp)();
00074 typedef shortlogical (*K_fp)();
00075 typedef VOID (*H_fp)();
00076 typedef int (*S_fp)();
00077 #endif
00078
00079 typedef VOID C_f;
00080 typedef VOID H_f;
00081 typedef VOID Z_f;
00082 typedef doublereal E_f;
00083
00084 #endif