Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
f2c.h
Go to the documentation of this file.00001
00002
00003
00004
00005
00006
00007 #ifndef F2C_INCLUDE
00008 #define F2C_INCLUDE
00009
00010 #define NON_UNIX_STDIO
00011 #undef complex
00012 #define complex complexxx
00013
00014 typedef long int integer;
00015 typedef unsigned long uinteger;
00016 typedef char *address;
00017 typedef short int shortint;
00018 typedef float real;
00019 typedef double doublereal;
00020 typedef struct { real r, i; } complex;
00021 #ifndef _SUNPERF_COMPLEX
00022 typedef struct { doublereal r, i; } doublecomplex;
00023 #endif
00024 typedef long int logical;
00025 typedef short int shortlogical;
00026 typedef char logical1;
00027 typedef char integer1;
00028 #if 0
00029 typedef long long longint;
00030 typedef unsigned long long ulongint;
00031 #define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b)))
00032 #define qbit_set(a,b) ((a) | ((ulongint)1 << (b)))
00033 #endif
00034
00035 #define TRUE_ (1)
00036 #define FALSE_ (0)
00037
00038
00039 #ifndef Extern
00040 #define Extern extern
00041 #endif
00042
00043
00044
00045 #ifdef f2c_i2
00046
00047 typedef short flag;
00048 typedef short ftnlen;
00049 typedef short ftnint;
00050 #else
00051 typedef long int flag;
00052 typedef long int ftnlen;
00053 typedef long int ftnint;
00054 #endif
00055
00056
00057 typedef struct
00058 { flag cierr;
00059 ftnint ciunit;
00060 flag ciend;
00061 char *cifmt;
00062 ftnint cirec;
00063 } cilist;
00064
00065
00066 typedef struct
00067 { flag icierr;
00068 char *iciunit;
00069 flag iciend;
00070 char *icifmt;
00071 ftnint icirlen;
00072 ftnint icirnum;
00073 } icilist;
00074
00075
00076 typedef struct
00077 { flag oerr;
00078 ftnint ounit;
00079 char *ofnm;
00080 ftnlen ofnmlen;
00081 char *osta;
00082 char *oacc;
00083 char *ofm;
00084 ftnint orl;
00085 char *oblnk;
00086 } olist;
00087
00088
00089 typedef struct
00090 { flag cerr;
00091 ftnint cunit;
00092 char *csta;
00093 } cllist;
00094
00095
00096 typedef struct
00097 { flag aerr;
00098 ftnint aunit;
00099 } alist;
00100
00101
00102 typedef struct
00103 { flag inerr;
00104 ftnint inunit;
00105 char *infile;
00106 ftnlen infilen;
00107 ftnint *inex;
00108 ftnint *inopen;
00109 ftnint *innum;
00110 ftnint *innamed;
00111 char *inname;
00112 ftnlen innamlen;
00113 char *inacc;
00114 ftnlen inacclen;
00115 char *inseq;
00116 ftnlen inseqlen;
00117 char *indir;
00118 ftnlen indirlen;
00119 char *infmt;
00120 ftnlen infmtlen;
00121 char *inform;
00122 ftnint informlen;
00123 char *inunf;
00124 ftnlen inunflen;
00125 ftnint *inrecl;
00126 ftnint *innrec;
00127 char *inblank;
00128 ftnlen inblanklen;
00129 } inlist;
00130
00131 #define VOID void
00132
00133 union Multitype {
00134 integer1 g;
00135 shortint h;
00136 integer i;
00137
00138 real r;
00139 doublereal d;
00140 complex c;
00141 doublecomplex z;
00142 };
00143
00144 typedef union Multitype Multitype;
00145
00146
00147
00148 struct Vardesc {
00149 char *name;
00150 char *addr;
00151 ftnlen *dims;
00152 int type;
00153 };
00154 typedef struct Vardesc Vardesc;
00155
00156 struct Namelist {
00157 char *name;
00158 Vardesc **vars;
00159 int nvars;
00160 };
00161 typedef struct Namelist Namelist;
00162
00163 #define abs(x) ((x) >= 0 ? (x) : -(x))
00164 #define dabs(x) (doublereal)abs(x)
00165 #define min(a,b) ((a) <= (b) ? (a) : (b))
00166 #define max(a,b) ((a) >= (b) ? (a) : (b))
00167 #define dmin(a,b) (doublereal)min(a,b)
00168 #define dmax(a,b) (doublereal)max(a,b)
00169 #define bit_test(a,b) ((a) >> (b) & 1)
00170 #define bit_clear(a,b) ((a) & ~((uinteger)1 << (b)))
00171 #define bit_set(a,b) ((a) | ((uinteger)1 << (b)))
00172
00173
00174
00175 #define F2C_proc_par_types 1
00176 #ifdef __cplusplus
00177 typedef int (*U_fp)(...);
00178 typedef shortint (*J_fp)(...);
00179 typedef integer (*I_fp)(...);
00180 typedef real (*R_fp)(...);
00181 typedef doublereal (*D_fp)(...), (*E_fp)(...);
00182 typedef VOID (*C_fp)(...);
00183 typedef VOID (*Z_fp)(...);
00184 typedef logical (*L_fp)(...);
00185 typedef shortlogical (*K_fp)(...);
00186 typedef VOID (*H_fp)(...);
00187 typedef int (*S_fp)(...);
00188 #else
00189 typedef int (*U_fp)();
00190 typedef shortint (*J_fp)();
00191 typedef integer (*I_fp)();
00192 typedef real (*R_fp)();
00193 typedef doublereal (*D_fp)(), (*E_fp)();
00194 typedef VOID (*C_fp)();
00195 typedef VOID (*Z_fp)();
00196 typedef logical (*L_fp)();
00197 typedef shortlogical (*K_fp)();
00198 typedef VOID (*H_fp)();
00199 typedef int (*S_fp)();
00200 #endif
00201
00202 typedef VOID C_f;
00203 typedef VOID H_f;
00204 typedef VOID Z_f;
00205 typedef doublereal E_f;
00206
00207
00208
00209 #ifndef Skip_f2c_Undefs
00210 #undef cray
00211 #undef gcos
00212 #undef mc68010
00213 #undef mc68020
00214 #undef mips
00215 #undef pdp11
00216 #undef sgi
00217 #undef sparc
00218 #undef sun
00219 #undef sun2
00220 #undef sun3
00221 #undef sun4
00222 #undef u370
00223 #undef u3b
00224 #undef u3b2
00225 #undef u3b5
00226 #undef unix
00227 #undef vax
00228 #endif
00229
00230 #include <math.h>
00231 #endif