*====>Begin Module %MAIN File namelist.f *---->Makedcls Options: All variables * * Local variables * INTEGER L, L6, M * REAL A, C, X, X1 REAL Y, Y2Z3, Z * * Namelists * NAMELIST / N1 / A, B, C NAMELIST / N2 / X, Y, Z NAMELIST / N3 / L, M NAMELIST / N4 / X1, Y2Z3 NAMELIST / N5 / L6 * * Common variables * REAL B, E, F * COMMON / / B, E, F * *====>End Module %MAIN File namelist.f *====>Begin Module GRFGG3 File namelist.f *---->Makedcls Options: All variables * * Local variables * 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) * 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 * 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 * * Namelists * 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 * *====>End Module GRFGG3 File namelist.f