00001 /* f2c.h  --  Standard Fortran to C header file */
00002 
00003 /**  barf  [ba:rf]  2.  "He suggested using FORTRAN, and everybody barfed."
00004 
00005         - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */
00006 
00007 #ifndef F2C_INCLUDE
00008 #define F2C_INCLUDE
00009 
00010 #define NON_UNIX_STDIO     /* RWCox */
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   /* Adjust for integer*8. */
00029 typedef long long longint;              /* system-dependent */
00030 typedef unsigned long long ulongint;    /* system-dependent */
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 /* Extern is for use with -E */
00039 #ifndef Extern
00040 #define Extern extern
00041 #endif
00042 
00043 /* I/O stuff */
00044 
00045 #ifdef f2c_i2
00046 /* for -i2 */
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 /*external read, write*/
00057 typedef struct
00058 {       flag cierr;
00059         ftnint ciunit;
00060         flag ciend;
00061         char *cifmt;
00062         ftnint cirec;
00063 } cilist;
00064 
00065 /*internal read, write*/
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 /*open*/
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 /*close*/
00089 typedef struct
00090 {       flag cerr;
00091         ftnint cunit;
00092         char *csta;
00093 } cllist;
00094 
00095 /*rewind, backspace, endfile*/
00096 typedef struct
00097 {       flag aerr;
00098         ftnint aunit;
00099 } alist;
00100 
00101 /* inquire */
00102 typedef struct
00103 {       flag inerr;
00104         ftnint inunit;
00105         char *infile;
00106         ftnlen infilen;
00107         ftnint  *inex;  /*parameters in standard's order*/
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 {       /* for multiple entry points */
00134         integer1 g;
00135         shortint h;
00136         integer i;
00137         /* longint j; */
00138         real r;
00139         doublereal d;
00140         complex c;
00141         doublecomplex z;
00142         };
00143 
00144 typedef union Multitype Multitype;
00145 
00146 /*typedef long int Long;*/      /* No longer used; formerly in Namelist */
00147 
00148 struct Vardesc {        /* for Namelist */
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 /* procedure parameter types for -A and -C++ */
00174 
00175 #define F2C_proc_par_types 1
00176 #ifdef __cplusplus
00177 typedef int /* Unknown procedure type */ (*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 /* Complex */ VOID (*C_fp)(...);
00183 typedef /* Double Complex */ VOID (*Z_fp)(...);
00184 typedef logical (*L_fp)(...);
00185 typedef shortlogical (*K_fp)(...);
00186 typedef /* Character */ VOID (*H_fp)(...);
00187 typedef /* Subroutine */ int (*S_fp)(...);
00188 #else
00189 typedef int /* Unknown procedure type */ (*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 /* Complex */ VOID (*C_fp)();
00195 typedef /* Double Complex */ VOID (*Z_fp)();
00196 typedef logical (*L_fp)();
00197 typedef shortlogical (*K_fp)();
00198 typedef /* Character */ VOID (*H_fp)();
00199 typedef /* Subroutine */ int (*S_fp)();
00200 #endif
00201 /* E_fp is for real functions when -R is not specified */
00202 typedef VOID C_f;       /* complex function */
00203 typedef VOID H_f;       /* character function */
00204 typedef VOID Z_f;       /* double complex function */
00205 typedef doublereal E_f; /* real function with -R not specified */
00206 
00207 /* undef any lower-case symbols that your C compiler predefines, e.g.: */
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  /* F2C_INCLUDE */