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
|
C====>Begin Module %MAIN File namelist.f All variables
C
C Local variables
C
INTEGER L, L6, M
C
REAL A, C, X, X1, Y, Y2Z3, Z
C
C Common variables
C
REAL B, E, F
C
COMMON // B, E, F
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====>End Module %MAIN File namelist.f
C====>Begin Module GRFGG3 File namelist.f All variables
C
C Local variables
C
INTEGER BIGINT, BLANK, CARD(500), CURCOL, CURROW, FSTYLE, GREEK, I
INTEGER I1MACH, IABS, IARG, IARG1, IARG2, IDFONT, IERVAL(1), II, J
INTEGER JX, JY, JZ, K, KX, KXYZ, KY, KZ, LSTYLE(06), MARK(06)
INTEGER MAX0, MAXCRD, MAXCRV, MAXVAL, MIN0, MODEU, MODEV, MODEX
INTEGER MODEY, MODEZ, N(06), NC, NCELLX, NCELLY, NCINIT, NCISAV
INTEGER NCSTEP, NCTERM, NCU, NCV, NCX, NCY, NCZ, NIN, NINT, NJ
INTEGER NOUT, NRINIT, NRISAV, NRSTEP, NRTERM, NSUM, NU(06), NUJ
INTEGER NUMINT(06), NUSUB, NVSUB, NXSUB, NYSUB, NZSUB, PEN(06)
INTEGER QUOTE, ROMAN, TITLE(500), UTISL, UTITLE(500), VTITLE(500)
INTEGER XTITLE(500), YTITLE(500), ZTITLE(500)
C
LOGICAL AUTOX, AUTOY, AUTOZ, AVRAGE(06), AXES3D, BCLIP, BOX
LOGICAL BYROWS, CHKDUP, CVTX(06), CVTY(06), CVTZ(06), DERIV(06)
LOGICAL EOFILE, FCLIP, IN, INTGRT(06), LOGX, LOGY, LOGZ, LSTXYZ
LOGICAL PARLEL, PLOPEN, PLOTID, RESET, RIGHT, UAXIS, UVAXES
LOGICAL VARPEN, VAXIS, WCLIP, XAXIS, XFALLS, YAXIS, YFALLS, ZAXIS
LOGICAL ZFALLS
C
REAL ABS, ALOG10, AMAX1, AMIN1, ARCLEN, ARG, ARG1, ARG2, ARX, ARY
REAL CMFACT, CMTOIN, CMTOUN, CPX, CPY, DEFHT, DEFMAR, DT, DUSUB
REAL DVSUB, DXSUB, DYSUB, DZSUB, FLOAT, FRAC, FSCALE, GSCALE, HALF
REAL HH, HSCALE, HT, HTDEF, HTFACT, HX, HY, INFITY, INTOCM, INTOUN
REAL LWIDTH(06), MARGIN(4), MMTOCM, MSCALE, NINETY, ONE, PAGESQ
REAL PAGEX, PAGEY, PENDIA, PERDST, PICTHX, PICTHY, PICTX, PICTY
REAL PPXYZ(3), R1MACH, RPXYZ(3), SIGMA(06), SIGN, SWAP, T(4,4)
REAL TICDEF, TICKU, TICKV, TICKX, TICKY, TICKZ, TIMAGE(4,4)
REAL TMODEL(4,4), TOPMAR, TT, TTLHEI, TTLLEN, TTOTAL(4,4), TWO, U1
REAL U2, UDIST, UMAX, UMAXP, UMAXRC, UMIN, UMINP, UMINRC, UNITS
REAL UNSPEC, UNTOCM, UNTOIN, UPXYZ(3), UTRE3, V1, V2, VDIST, VIEWD
REAL VMAX, VMAXP, VMAXRC, VMIN, VMINP, VMINRC, VNXYZ(3), VPUMAX
REAL VPUMIN, VPVMAX, VPVMIN, VSCALE, WMAX, WMAXP, WMIN, WMINP
REAL WORK(1600,5), X(1600,06), X0, XDIST, XFACT(06), XINT, XMAX
REAL XMAXJ, XMAXP, XMIN, XMINJ, XMINP, XORG, XSHIFT(06), XX
REAL Y(1600,06), Y0, YDIST, YFACT(06), YINT, YMAX, YMAXJ, YMAXP
REAL YMIN, YMINJ, YMINP, YORG, YSHIFT(06), YY, Z(1600,06), Z0
REAL ZDIST, ZERO, ZFACT(06), ZINT, ZMAX, ZMAXJ, ZMAXP, ZMIN, ZMINJ
REAL ZMINP, ZORG, ZSHIFT(06), ZZ
C
C Namelists
C
NAMELIST /DATA/ AVRAGE, AXES3D, BCLIP, BOX, BYROWS, CHKDUP, DERIV
x, DUSUB, DVSUB, DXSUB, DYSUB, DZSUB, FCLIP, FSCALE, FSTYLE, GSCALE
x, HSCALE, IDFONT, INTGRT, KX, KY, KZ, LOGX, LOGY, LOGZ, LSTXYZ
x, LSTYLE, LWIDTH, MARGIN, MARK, MODEU, MODEV, MODEX, MODEY, MODEZ
x, MSCALE, N, NCINIT, NCSTEP, NCTERM, NRINIT, NRSTEP, NRTERM, NU
x, NUMINT, NUSUB, NVSUB, NXSUB, NYSUB, NZSUB, PARLEL, PEN, PENDIA
x, PERDST, PLOTID, PPXYZ, RESET, RIGHT, RPXYZ, SIGMA, TICKU, TICKV
x, TICKX, TICKY, TICKZ, TIMAGE, TMODEL, UAXIS, UMAX, UMIN, UPXYZ
x, UVAXES, VAXIS, VIEWD, VMAX, VMIN, VNXYZ, VSCALE, WCLIP, WMAX
x, WMIN, X, XAXIS, XFACT, XFALLS, XMAX, XMIN, XSHIFT, Y, YAXIS
x, YFACT, YFALLS, YMAX, YMIN, YSHIFT, Z, ZAXIS, ZFACT, ZFALLS, ZMAX
x, ZMIN, ZSHIFT
C
C====>End Module GRFGG3 File namelist.f
|
