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