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
41
42
43
44
45
46
47
48
49
50
51
|
include defs
# ENTXKW -- Enter all XPP directives in the symbol table.
subroutine entxkw
include COMMON_BLOCKS
string sbool "x$bool"
string schar "x$char"
string sshort "x$short"
string sint "x$int"
string slong "x$long"
string sreal "x$real"
string sdble "x$dble"
string scplx "x$cplx"
string spntr "x$pntr"
string sfchr "x$fchr"
string sfunc "x$func"
string ssubr "x$subr"
string sextn "x$extn"
string dbool "logical"
string dchar "integer*2"
string dshort "integer*2"
string dint "integer"
string dlong "integer"
string dpntr "integer"
string dreal "real"
string ddble "double precision"
string dcplx "complex"
string dfchr "character"
string dfunc "function"
string dsubr "subroutine"
string dextn "external"
call entdef (sbool, dbool, xpptbl)
call entdef (schar, dchar, xpptbl)
call entdef (sshort, dshort, xpptbl)
call entdef (sint, dint, xpptbl)
call entdef (slong, dlong, xpptbl)
call entdef (spntr, dpntr, xpptbl)
call entdef (sreal, dreal, xpptbl)
call entdef (sdble, ddble, xpptbl)
call entdef (scplx, dcplx, xpptbl)
call entdef (sfchr, dfchr, xpptbl)
call entdef (sfunc, dfunc, xpptbl)
call entdef (ssubr, dsubr, xpptbl)
call entdef (sextn, dextn, xpptbl)
end
|
