C====>Begin Module %MAIN File namelist.f C---->Makedcls Options: All variables C C Local variables C INTEGER L, L6, M C REAL A, C, X, X1, 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 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