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