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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
C====>Begin Module %MAIN File namelist.f
C---->Makedcls Options: All variables except SFTRAN3 internals
C
C Local variables
C
INTEGER L, L6, M
C
REAL A, C, X, X1
REAL Y, Y2Z3, Z
C
C Namelists
C
NAMELIST / N1 / A, B, C
NAMELIST / N2 / X, Y, Z
NAMELIST / N3 / L, M
NAMELIST / N4 / X1, Y2Z3
NAMELIST / N5 / L6
C
C Common variables
C
REAL B, E, F
C
COMMON / / B, E, F
C
C====>End Module %MAIN File namelist.f
C====>Begin Module GRFGG3 File namelist.f
C---->Makedcls Options: All variables except SFTRAN3 internals
C
C Local variables
C
INTEGER BIGINT, BLANK, CARD(500), CURCOL
INTEGER CURROW, FSTYLE, GREEK, I
INTEGER I1MACH, IABS, IARG, IARG1
INTEGER IARG2, IDFONT, IERVAL(1), II
INTEGER J, JX, JY, JZ
INTEGER K, KX, KXYZ, KY
INTEGER KZ, LSTYLE(06), MARK(06), MAX0
INTEGER MAXCRD, MAXCRV, MAXVAL, MIN0
INTEGER MODEU, MODEV, MODEX, MODEY
INTEGER MODEZ, N(06), NC, NCELLX
INTEGER NCELLY, NCINIT, NCISAV, NCSTEP
INTEGER NCTERM, NCU, NCV, NCX
INTEGER NCY, NCZ, NIN, NINT
INTEGER NJ, NOUT, NRINIT, NRISAV
INTEGER NRSTEP, NRTERM, NSUM, NU(06)
INTEGER NUJ, NUMINT(06), NUSUB, NVSUB
INTEGER NXSUB, NYSUB, NZSUB, PEN(06)
INTEGER QUOTE, ROMAN, TITLE(500), UTISL
INTEGER UTITLE(500), VTITLE(500), XTITLE(500)
INTEGER YTITLE(500), ZTITLE(500)
C
LOGICAL AUTOX, AUTOY, AUTOZ
LOGICAL AVRAGE(06), AXES3D, BCLIP, BOX
LOGICAL BYROWS, CHKDUP, CVTX(06)
LOGICAL CVTY(06), CVTZ(06), DERIV(06), EOFILE
LOGICAL FCLIP, IN, INTGRT(06), LOGX
LOGICAL LOGY, LOGZ, LSTXYZ, PARLEL
LOGICAL PLOPEN, PLOTID, RESET, RIGHT
LOGICAL UAXIS, UVAXES, VARPEN, VAXIS
LOGICAL WCLIP, XAXIS, XFALLS, YAXIS
LOGICAL YFALLS, ZAXIS, ZFALLS
C
REAL ABS, ALOG10, AMAX1, AMIN1
REAL ARCLEN, ARG, ARG1, ARG2
REAL ARX, ARY, CMFACT, CMTOIN
REAL CMTOUN, CPX, CPY, DEFHT
REAL DEFMAR, DT, DUSUB, DVSUB
REAL DXSUB, DYSUB, DZSUB, FLOAT
REAL FRAC, FSCALE, GSCALE, HALF
REAL HH, HSCALE, HT, HTDEF
REAL HTFACT, HX, HY, INFITY
REAL INTOCM, INTOUN, LWIDTH(06)
REAL MARGIN(4), MMTOCM, MSCALE, NINETY
REAL ONE, PAGESQ, PAGEX, PAGEY
REAL PENDIA, PERDST, PICTHX, PICTHY
REAL PICTX, PICTY, PPXYZ(3), R1MACH
REAL RPXYZ(3), SIGMA(06), SIGN, SWAP
REAL T(4,4), TICDEF, TICKU, TICKV
REAL TICKX, TICKY, TICKZ
REAL TIMAGE(4,4), TMODEL(4,4), TOPMAR, TT
REAL TTLHEI, TTLLEN, TTOTAL(4,4), TWO
REAL U1, U2, UDIST, UMAX
REAL UMAXP, UMAXRC, UMIN, UMINP
REAL UMINRC, UNITS, UNSPEC, UNTOCM
REAL UNTOIN, UPXYZ(3), UTRE3, V1
REAL V2, VDIST, VIEWD, VMAX
REAL VMAXP, VMAXRC, VMIN, VMINP
REAL VMINRC, VNXYZ(3), VPUMAX, VPUMIN
REAL VPVMAX, VPVMIN, VSCALE, WMAX
REAL WMAXP, WMIN, WMINP
REAL WORK(1600,5), X(1600,06), X0
REAL XDIST, XFACT(06), XINT, XMAX
REAL XMAXJ, XMAXP, XMIN, XMINJ
REAL XMINP, XORG, XSHIFT(06), XX
REAL Y(1600,06), Y0, YDIST
REAL YFACT(06), YINT, YMAX, YMAXJ
REAL YMAXP, YMIN, YMINJ, YMINP
REAL YORG, YSHIFT(06), YY
REAL Z(1600,06), Z0, ZDIST, ZERO
REAL ZFACT(06), ZINT, ZMAX, ZMAXJ
REAL ZMAXP, ZMIN, ZMINJ, ZMINP
REAL ZORG, ZSHIFT(06), ZZ
C
C Namelists
C
NAMELIST / DATA / AVRAGE, AXES3D, BCLIP, BOX
x, BYROWS, CHKDUP, DERIV, DUSUB
x, DVSUB, DXSUB, DYSUB, DZSUB
x, FCLIP, FSCALE, FSTYLE, GSCALE
x, HSCALE, IDFONT, INTGRT, KX
x, KY, KZ, LOGX, LOGY
x, LOGZ, LSTXYZ, LSTYLE, LWIDTH
x, MARGIN, MARK, MODEU, MODEV
x, MODEX, MODEY, MODEZ, MSCALE
x, N, NCINIT, NCSTEP, NCTERM
x, NRINIT, NRSTEP, NRTERM, NU
x, NUMINT, NUSUB, NVSUB, NXSUB
x, NYSUB, NZSUB, PARLEL, PEN
x, PENDIA, PERDST, PLOTID, PPXYZ
x, RESET, RIGHT, RPXYZ, SIGMA
x, TICKU, TICKV, TICKX, TICKY
x, TICKZ, TIMAGE, TMODEL, UAXIS
x, UMAX, UMIN, UPXYZ, UVAXES
x, VAXIS, VIEWD, VMAX, VMIN
x, VNXYZ, VSCALE, WCLIP, WMAX
x, WMIN, X, XAXIS, XFACT
x, XFALLS, XMAX, XMIN, XSHIFT
x, Y, YAXIS, YFACT, YFALLS
x, YMAX, YMIN, YSHIFT, Z
x, ZAXIS, ZFACT, ZFALLS, ZMAX
x, ZMIN, ZSHIFT
C
C====>End Module GRFGG3 File namelist.f
|
