OSDN Git Service

2004-02-13 Frank Ch. Eigler <fche@redhat.com>
[pf3gnuchains/gcc-fork.git] / libf2c / g2c.hin
1 /* g2c.h  --  g77 version of f2c (Standard Fortran to C header file) */
2
3 /* This file is generated by the g77 libg2c configuration process from a
4    file named g2c.hin.  This process sets up the appropriate types,
5    defines the appropriate macros, and so on.  The resulting g2c.h file
6    is used to build g77's copy of libf2c, named libg2c, and also can
7    be used when compiling C code produced by f2c to link the resulting
8    object file(s) with those produced by the same version of g77 that
9    produced this file, allowing inter-operability of f2c-compiled and
10    g77-compiled code.  */
11
12 /**  barf  [ba:rf]  2.  "He suggested using FORTRAN, and everybody barfed."
13
14         - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */
15
16 #ifndef F2C_INCLUDE
17 #define F2C_INCLUDE
18
19 /* F2C_INTEGER will normally be `int' but would be `long' on 16-bit systems */
20 /* we assume short, float are OK */
21 typedef __g77_integer integer;
22 typedef __g77_uinteger uinteger;
23 typedef char *address;
24 typedef short int shortint;
25 typedef float real;
26 typedef double doublereal;
27 typedef struct { real r, i; } complex;
28 typedef struct { doublereal r, i; } doublecomplex;
29 typedef __g77_integer logical;
30 typedef short int shortlogical;
31 typedef char logical1;
32 typedef char integer1;
33 typedef __g77_longint longint;                  /* system-dependent */
34 typedef __g77_ulongint ulongint;                /* system-dependent */
35 #define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b)))
36 #define qbit_set(a,b)   ((a) |  ((ulongint)1 << (b)))
37
38 #define TRUE_ (1)
39 #define FALSE_ (0)
40
41 /* Extern is for use with -E */
42 #ifndef Extern
43 #define Extern extern
44 #endif
45
46 /* I/O stuff */
47
48 #ifdef f2c_i2
49 #error "f2c_i2 will not work with g77!!!!"
50 /* for -i2 */
51 typedef short flag;
52 typedef short ftnlen;
53 typedef short ftnint;
54 #else
55 typedef __g77_integer flag;
56 typedef __g77_integer ftnlen;
57 typedef __g77_integer ftnint;
58 #endif
59
60 /*external read, write*/
61 typedef struct
62 {       flag cierr;
63         ftnint ciunit;
64         flag ciend;
65         char *cifmt;
66         ftnint cirec;
67 } cilist;
68
69 /*internal read, write*/
70 typedef struct
71 {       flag icierr;
72         char *iciunit;
73         flag iciend;
74         char *icifmt;
75         ftnint icirlen;
76         ftnint icirnum;
77 } icilist;
78
79 /*open*/
80 typedef struct
81 {       flag oerr;
82         ftnint ounit;
83         char *ofnm;
84         ftnlen ofnmlen;
85         char *osta;
86         char *oacc;
87         char *ofm;
88         ftnint orl;
89         char *oblnk;
90 } olist;
91
92 /*close*/
93 typedef struct
94 {       flag cerr;
95         ftnint cunit;
96         char *csta;
97 } cllist;
98
99 /*rewind, backspace, endfile*/
100 typedef struct
101 {       flag aerr;
102         ftnint aunit;
103 } alist;
104
105 /* inquire */
106 typedef struct
107 {       flag inerr;
108         ftnint inunit;
109         char *infile;
110         ftnlen infilen;
111         ftnint  *inex;  /*parameters in standard's order*/
112         ftnint  *inopen;
113         ftnint  *innum;
114         ftnint  *innamed;
115         char    *inname;
116         ftnlen  innamlen;
117         char    *inacc;
118         ftnlen  inacclen;
119         char    *inseq;
120         ftnlen  inseqlen;
121         char    *indir;
122         ftnlen  indirlen;
123         char    *infmt;
124         ftnlen  infmtlen;
125         char    *inform;
126         ftnint  informlen;
127         char    *inunf;
128         ftnlen  inunflen;
129         ftnint  *inrecl;
130         ftnint  *innrec;
131         char    *inblank;
132         ftnlen  inblanklen;
133 } inlist;
134
135 union Multitype {       /* for multiple entry points */
136         integer1 g;
137         shortint h;
138         integer i;
139         /* longint j; */
140         real r;
141         doublereal d;
142         complex c;
143         doublecomplex z;
144         };
145
146 typedef union Multitype Multitype;
147
148 /*typedef long int Long;*/      /* No longer used; formerly in Namelist */
149
150 struct Vardesc {        /* for Namelist */
151         char *name;
152         char *addr;
153         ftnlen *dims;
154         int  type;
155         };
156 typedef struct Vardesc Vardesc;
157
158 struct Namelist {
159         char *name;
160         Vardesc **vars;
161         int nvars;
162         };
163 typedef struct Namelist Namelist;
164
165 #define abs(x) ((x) >= 0 ? (x) : -(x))
166 #define dabs(x) (doublereal)abs(x)
167 #define min(a,b) ((a) <= (b) ? (a) : (b))
168 #define max(a,b) ((a) >= (b) ? (a) : (b))
169 #define dmin(a,b) (doublereal)min(a,b)
170 #define dmax(a,b) (doublereal)max(a,b)
171 #define bit_test(a,b)   ((a) >> (b) & 1)
172 #define bit_clear(a,b)  ((a) & ~((uinteger)1 << (b)))
173 #define bit_set(a,b)    ((a) |  ((uinteger)1 << (b)))
174
175 /* procedure parameter types for -A and -C++ */
176
177 #define F2C_proc_par_types 1
178 #ifdef __cplusplus
179 typedef int /* Unknown procedure type */ (*U_fp)(...);
180 typedef shortint (*J_fp)(...);
181 typedef integer (*I_fp)(...);
182 typedef real (*R_fp)(...);
183 typedef doublereal (*D_fp)(...), (*E_fp)(...);
184 typedef /* Complex */ void (*C_fp)(...);
185 typedef /* Double Complex */ void (*Z_fp)(...);
186 typedef logical (*L_fp)(...);
187 typedef shortlogical (*K_fp)(...);
188 typedef /* Character */ void (*H_fp)(...);
189 typedef /* Subroutine */ int (*S_fp)(...);
190 #else
191 typedef int /* Unknown procedure type */ (*U_fp)();
192 typedef shortint (*J_fp)();
193 typedef integer (*I_fp)();
194 typedef real (*R_fp)();
195 typedef doublereal (*D_fp)(), (*E_fp)();
196 typedef /* Complex */ void (*C_fp)();
197 typedef /* Double Complex */ void (*Z_fp)();
198 typedef logical (*L_fp)();
199 typedef shortlogical (*K_fp)();
200 typedef /* Character */ void (*H_fp)();
201 typedef /* Subroutine */ int (*S_fp)();
202 #endif
203 /* E_fp is for real functions when -R is not specified */
204 typedef void C_f;       /* complex function */
205 typedef void H_f;       /* character function */
206 typedef void Z_f;       /* double complex function */
207 typedef doublereal E_f; /* real function with -R not specified */
208
209 /* undef any lower-case symbols that your C compiler predefines, e.g.: */
210
211 #ifndef Skip_f2c_Undefs
212 /* (No such symbols should be defined in a strict ANSI C compiler.
213    We can avoid trouble with f2c-translated code by using
214    gcc -ansi [-traditional].) */
215 #undef cray
216 #undef gcos
217 #undef mc68010
218 #undef mc68020
219 #undef mips
220 #undef pdp11
221 #undef sgi
222 #undef sparc
223 #undef sun
224 #undef sun2
225 #undef sun3
226 #undef sun4
227 #undef u370
228 #undef u3b
229 #undef u3b2
230 #undef u3b5
231 #undef unix
232 #undef vax
233 #endif
234 #endif