vmmlib  1.6.1
Vector and Matrix Math Library
f2c.h
1 /* f2c.h -- Standard Fortran to C header file */
2 
7 #ifndef F2C_INCLUDE
8 #define F2C_INCLUDE
9 
10 typedef long int integer;
11 typedef unsigned long int uinteger;
12 typedef char *address;
13 typedef short int shortint;
14 typedef float real;
15 typedef double doublereal;
16 typedef struct { real r, i; } complex;
17 typedef struct { doublereal r, i; } doublecomplex;
18 typedef long int logical;
19 typedef short int shortlogical;
20 typedef char logical1;
21 typedef char integer1;
22 #ifdef INTEGER_STAR_8 /* Adjust for integer*8. */
23 typedef long long longint; /* system-dependent */
24 typedef unsigned long long ulongint; /* system-dependent */
25 #define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b)))
26 #define qbit_set(a,b) ((a) | ((ulongint)1 << (b)))
27 #endif
28 
29 #define TRUE_ (1)
30 #define FALSE_ (0)
31 
32 /* Extern is for use with -E */
33 #ifndef Extern
34 #define Extern extern
35 #endif
36 
37 /* I/O stuff */
38 
39 #ifdef f2c_i2
40 /* for -i2 */
41 typedef short flag;
42 typedef short ftnlen;
43 typedef short ftnint;
44 #else
45 typedef long int flag;
46 typedef long int ftnlen;
47 typedef long int ftnint;
48 #endif
49 
50 /*external read, write*/
51 typedef struct
52 { flag cierr;
53  ftnint ciunit;
54  flag ciend;
55  char *cifmt;
56  ftnint cirec;
57 } cilist;
58 
59 /*internal read, write*/
60 typedef struct
61 { flag icierr;
62  char *iciunit;
63  flag iciend;
64  char *icifmt;
65  ftnint icirlen;
66  ftnint icirnum;
67 } icilist;
68 
69 /*open*/
70 typedef struct
71 { flag oerr;
72  ftnint ounit;
73  char *ofnm;
74  ftnlen ofnmlen;
75  char *osta;
76  char *oacc;
77  char *ofm;
78  ftnint orl;
79  char *oblnk;
80 } olist;
81 
82 /*close*/
83 typedef struct
84 { flag cerr;
85  ftnint cunit;
86  char *csta;
87 } cllist;
88 
89 /*rewind, backspace, endfile*/
90 typedef struct
91 { flag aerr;
92  ftnint aunit;
93 } alist;
94 
95 /* inquire */
96 typedef struct
97 { flag inerr;
98  ftnint inunit;
99  char *infile;
100  ftnlen infilen;
101  ftnint *inex; /*parameters in standard's order*/
102  ftnint *inopen;
103  ftnint *innum;
104  ftnint *innamed;
105  char *inname;
106  ftnlen innamlen;
107  char *inacc;
108  ftnlen inacclen;
109  char *inseq;
110  ftnlen inseqlen;
111  char *indir;
112  ftnlen indirlen;
113  char *infmt;
114  ftnlen infmtlen;
115  char *inform;
116  ftnint informlen;
117  char *inunf;
118  ftnlen inunflen;
119  ftnint *inrecl;
120  ftnint *innrec;
121  char *inblank;
122  ftnlen inblanklen;
123 } inlist;
124 
125 #define VOID void
126 
127 union Multitype { /* for multiple entry points */
128  integer1 g;
129  shortint h;
130  integer i;
131  /* longint j; */
132  real r;
133  doublereal d;
134  complex c;
135  doublecomplex z;
136  };
137 
138 typedef union Multitype Multitype;
139 
140 /*typedef long int Long;*/ /* No longer used; formerly in Namelist */
141 
142 struct Vardesc { /* for Namelist */
143  char *name;
144  char *addr;
145  ftnlen *dims;
146  int type;
147  };
148 typedef struct Vardesc Vardesc;
149 
150 struct Namelist {
151  char *name;
152  Vardesc **vars;
153  int nvars;
154  };
155 typedef struct Namelist Namelist;
156 
157 #define abs(x) ((x) >= 0 ? (x) : -(x))
158 #define dabs(x) (doublereal)abs(x)
159 #define min(a,b) ((a) <= (b) ? (a) : (b))
160 #define max(a,b) ((a) >= (b) ? (a) : (b))
161 #define dmin(a,b) (doublereal)min(a,b)
162 #define dmax(a,b) (doublereal)max(a,b)
163 #define bit_test(a,b) ((a) >> (b) & 1)
164 #define bit_clear(a,b) ((a) & ~((uinteger)1 << (b)))
165 #define bit_set(a,b) ((a) | ((uinteger)1 << (b)))
166 
167 /* procedure parameter types for -A and -C++ */
168 
169 #define F2C_proc_par_types 1
170 #ifdef __cplusplus
171 typedef int /* Unknown procedure type */ (*U_fp)(...);
172 typedef shortint (*J_fp)(...);
173 typedef integer (*I_fp)(...);
174 typedef real (*R_fp)(...);
175 typedef doublereal (*D_fp)(...), (*E_fp)(...);
176 typedef /* Complex */ VOID (*C_fp)(...);
177 typedef /* Double Complex */ VOID (*Z_fp)(...);
178 typedef logical (*L_fp)(...);
179 typedef shortlogical (*K_fp)(...);
180 typedef /* Character */ VOID (*H_fp)(...);
181 typedef /* Subroutine */ int (*S_fp)(...);
182 #else
183 typedef int /* Unknown procedure type */ (*U_fp)();
184 typedef shortint (*J_fp)();
185 typedef integer (*I_fp)();
186 typedef real (*R_fp)();
187 typedef doublereal (*D_fp)(), (*E_fp)();
188 typedef /* Complex */ VOID (*C_fp)();
189 typedef /* Double Complex */ VOID (*Z_fp)();
190 typedef logical (*L_fp)();
191 typedef shortlogical (*K_fp)();
192 typedef /* Character */ VOID (*H_fp)();
193 typedef /* Subroutine */ int (*S_fp)();
194 #endif
195 /* E_fp is for real functions when -R is not specified */
196 typedef VOID C_f; /* complex function */
197 typedef VOID H_f; /* character function */
198 typedef VOID Z_f; /* double complex function */
199 typedef doublereal E_f; /* real function with -R not specified */
200 
201 /* undef any lower-case symbols that your C compiler predefines, e.g.: */
202 
203 #ifndef Skip_f2c_Undefs
204 #undef cray
205 #undef gcos
206 #undef mc68010
207 #undef mc68020
208 #undef mips
209 #undef pdp11
210 #undef sgi
211 #undef sparc
212 #undef sun
213 #undef sun2
214 #undef sun3
215 #undef sun4
216 #undef u370
217 #undef u3b
218 #undef u3b2
219 #undef u3b5
220 #undef unix
221 #undef vax
222 #endif
223 #endif