![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to f2c.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / f2c|
Return to f2c.h CVS log | Up to [Research Unix] / researchv10no / cmd / f2c |
1.1 root 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: typedef char logical1;
20: typedef char integer1;
21:
22: #define TRUE_ (1)
23: #define FALSE_ (0)
24:
25: /* Extern is for use with -E */
26: #ifndef Extern
27: #define Extern extern
28: #endif
29:
30: /* I/O stuff */
31:
32: #ifdef f2c_i2
33: /* for -i2 */
34: typedef short flag;
35: typedef short ftnlen;
36: typedef short ftnint;
37: #else
38: typedef long flag;
39: typedef long ftnlen;
40: typedef long ftnint;
41: #endif
42:
43: /*external read, write*/
44: typedef struct
45: { flag cierr;
46: ftnint ciunit;
47: flag ciend;
48: char *cifmt;
49: ftnint cirec;
50: } cilist;
51:
52: /*internal read, write*/
53: typedef struct
54: { flag icierr;
55: char *iciunit;
56: flag iciend;
57: char *icifmt;
58: ftnint icirlen;
59: ftnint icirnum;
60: } icilist;
61:
62: /*open*/
63: typedef struct
64: { flag oerr;
65: ftnint ounit;
66: char *ofnm;
67: ftnlen ofnmlen;
68: char *osta;
69: char *oacc;
70: char *ofm;
71: ftnint orl;
72: char *oblnk;
73: } olist;
74:
75: /*close*/
76: typedef struct
77: { flag cerr;
78: ftnint cunit;
79: char *csta;
80: } cllist;
81:
82: /*rewind, backspace, endfile*/
83: typedef struct
84: { flag aerr;
85: ftnint aunit;
86: } alist;
87:
88: /* inquire */
89: typedef struct
90: { flag inerr;
91: ftnint inunit;
92: char *infile;
93: ftnlen infilen;
94: ftnint *inex; /*parameters in standard's order*/
95: ftnint *inopen;
96: ftnint *innum;
97: ftnint *innamed;
98: char *inname;
99: ftnlen innamlen;
100: char *inacc;
101: ftnlen inacclen;
102: char *inseq;
103: ftnlen inseqlen;
104: char *indir;
105: ftnlen indirlen;
106: char *infmt;
107: ftnlen infmtlen;
108: char *inform;
109: ftnint informlen;
110: char *inunf;
111: ftnlen inunflen;
112: ftnint *inrecl;
113: ftnint *innrec;
114: char *inblank;
115: ftnlen inblanklen;
116: } inlist;
117:
118: #define VOID void
119:
120: union Multitype { /* for multiple entry points */
121: shortint h;
122: integer i;
123: real r;
124: doublereal d;
125: complex c;
126: doublecomplex z;
127: };
128:
129: typedef union Multitype Multitype;
130:
131: typedef long Long; /* No longer used; formerly in Namelist */
132:
133: struct Vardesc { /* for Namelist */
134: char *name;
135: char *addr;
136: ftnlen *dims;
137: int type;
138: };
139: typedef struct Vardesc Vardesc;
140:
141: struct Namelist {
142: char *name;
143: Vardesc **vars;
144: int nvars;
145: };
146: typedef struct Namelist Namelist;
147:
148: #define abs(x) ((x) >= 0 ? (x) : -(x))
149: #define dabs(x) (doublereal)abs(x)
150: #define min(a,b) ((a) <= (b) ? (a) : (b))
151: #define max(a,b) ((a) >= (b) ? (a) : (b))
152: #define dmin(a,b) (doublereal)min(a,b)
153: #define dmax(a,b) (doublereal)max(a,b)
154:
155: /* procedure parameter types for -A and -C++ */
156:
157: #define F2C_proc_par_types 1
158: #ifdef __cplusplus
159: typedef int /* Unknown procedure type */ (*U_fp)(...);
160: typedef shortint (*J_fp)(...);
161: typedef integer (*I_fp)(...);
162: typedef real (*R_fp)(...);
163: typedef doublereal (*D_fp)(...), (*E_fp)(...);
164: typedef /* Complex */ VOID (*C_fp)(...);
165: typedef /* Double Complex */ VOID (*Z_fp)(...);
166: typedef logical (*L_fp)(...);
167: typedef shortlogical (*K_fp)(...);
168: typedef /* Character */ VOID (*H_fp)(...);
169: typedef /* Subroutine */ int (*S_fp)(...);
170: #else
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: #endif
183: /* E_fp is for real functions when -R is not specified */
184: typedef VOID C_f; /* complex function */
185: typedef VOID H_f; /* character function */
186: typedef VOID Z_f; /* double complex function */
187: typedef doublereal E_f; /* real function with -R not specified */
188:
189: /* undef any lower-case symbols that your C compiler predefines, e.g.: */
190:
191: #ifndef Skip_f2c_Undefs
192: #undef cray
193: #undef gcos
194: #undef mc68010
195: #undef mc68020
196: #undef mips
197: #undef pdp11
198: #undef sgi
199: #undef sparc
200: #undef sun
201: #undef sun2
202: #undef sun3
203: #undef sun4
204: #undef u370
205: #undef u3b
206: #undef u3b2
207: #undef u3b5
208: #undef unix
209: #undef vax
210: #endif
211: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.