1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
/* copy of ftypes from the compiler */
/* variable types
* numeric assumptions:
* int < reals < complexes
* TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX
*/
#define TYUNKNOWN 0
#define TYADDR 1
#define TYSHORT 2
#define TYLONG 3
#define TYREAL 4
#define TYDREAL 5
#define TYCOMPLEX 6
#define TYDCOMPLEX 7
#define TYLOGICAL 8
#define TYCHAR 9
#define TYSUBR 10
#define TYERROR 11
#define NTYPES (TYERROR+1)
#define LINTW 12
#define LINE 80
#define LLOGW 2
#define LLOW 1.0
#define LHIGH 10.0
#define LFW 12
#define LFD 8
#define LEW 16
#define LED 8
typedef union
{ short flshort;
ftnint flint;
real flreal;
doublereal fldouble;
} flex;
extern int scale;
extern int (*lioproc)();
|
