home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchek284.zip / test / namelist.f < prev    next >
Text File  |  1995-03-13  |  7KB  |  140 lines

  1. c-----------------------------------------------------------------------
  2. c     ftnchek test file: namelist.f, Mon Mar 13 14:01:03 1995
  3. c-----------------------------------------------------------------------
  4.  
  5.       common b,e,f
  6.       namelist /n1/ a,b,c
  7.       namelist /n2/ x,y,z /n3/ l,m,
  8.       namelist /n4/ x1,y2 z3, /n5/ l6
  9.       read(*,n1)
  10.       write(*,n2)
  11.       read(1,nml=n3)
  12.       write(1,nml=n4)
  13.       end
  14.  
  15.  
  16.       subroutine grfgg3
  17. C$    (grfgg3)
  18. C$    This is a substantial portion of the declaration section from
  19. C$    the PLOT79 grfgg3.sf3 file.  The formatting was done by the
  20. C$    Extended PFORT Verifier, and the extensive NAMELIST block serves
  21. C$    as a test for ftnchek.
  22. C$    (13-Mar-1995)
  23. C$ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  24. C$
  25. C$    EXTERNAL FUNCTIONS AND SUBROUTINES
  26. C$
  27.       INTEGER             I1MACH,      NINT,        UTISL
  28.       REAL                ALOG10,      R1MACH,      UTRE3
  29. C$ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  30. C$
  31. C$    INTRINSIC FUNCTIONS
  32. C$
  33.       INTEGER             IABS,        MAX0,        MIN0
  34.       REAL                ABS,         AMAX1,       AMIN1,       FLOAT
  35.       REAL                SIGN
  36. C$ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  37. C$
  38. C$    STATEMENT FUNCTIONS
  39. C$
  40.       LOGICAL             IN
  41.       REAL                CMTOIN,      CMTOUN,      FRAC,        INTOCM
  42.       REAL                INTOUN,      MMTOCM,      UNTOCM,      UNTOIN
  43. C$ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  44. C$
  45. C$    HOLLERITH STRING VARIABLES
  46. C$
  47.       INTEGER             BLANK,       GREEK,       QUOTE,       ROMAN
  48. C$
  49. C$ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  50. C$
  51. C$    NON-COMMON VARIABLES
  52. C$
  53.       INTEGER             BIGINT,      CARD(500),   CURCOL,      CURROW
  54.       INTEGER             FSTYLE,      I,           IARG,        IARG1
  55.       INTEGER             IARG2,       IDFONT,      IERVAL(1),   II
  56.       INTEGER             J,           JX,          JY,          JZ
  57.       INTEGER             K,           KX,          KXYZ,        KY
  58.       INTEGER             KZ,          LSTYLE(06),  MARK(06),    MAXCRD
  59.       INTEGER             MAXCRV,      MAXVAL,      MODEU,       MODEV
  60.       INTEGER             MODEX,       MODEY,       MODEZ,       N(06)
  61.       INTEGER             NC,          NCELLX,      NCELLY,      NCINIT
  62.       INTEGER             NCISAV,      NCSTEP,      NCTERM,      NCU
  63.       INTEGER             NCV,         NCX,         NCY,         NCZ
  64.       INTEGER             NIN,         NJ,          NOUT,        NRINIT
  65.       INTEGER             NRISAV,      NRSTEP,      NRTERM,      NSUM
  66.       INTEGER             NU(06),      NUJ,         NUMINT(06),  NUSUB
  67.       INTEGER             NVSUB,       NXSUB,       NYSUB,       NZSUB
  68.       INTEGER             PEN(06),     TITLE(500),  UTITLE(500)
  69.       INTEGER             VTITLE(500), XTITLE(500), YTITLE(500)
  70.       INTEGER             ZTITLE(500)
  71.       LOGICAL             AUTOX,       AUTOY,       AUTOZ
  72.       LOGICAL             AVRAGE(06),  AXES3D,      BCLIP,       BOX
  73.       LOGICAL             BYROWS,      CHKDUP,      CVTX(06)
  74.       LOGICAL             CVTY(06),    CVTZ(06),    DERIV(06),   EOFILE
  75.       LOGICAL             FCLIP,       INTGRT(06),  LOGX,        LOGY
  76.       LOGICAL             LOGZ,        LSTXYZ,      PARLEL,      PLOPEN
  77.       LOGICAL             PLOTID,      RESET,       RIGHT,       UAXIS
  78.       LOGICAL             UVAXES,      VARPEN,      VAXIS,       WCLIP
  79.       LOGICAL             XAXIS,       XFALLS,      YAXIS,       YFALLS
  80.       LOGICAL             ZAXIS,       ZFALLS
  81.       REAL                ARCLEN,      ARG,         ARG1,        ARG2
  82.       REAL                ARX,         ARY,         CMFACT,      CPX
  83.       REAL                CPY,         DEFHT,       DEFMAR,      DT
  84.       REAL                DUSUB,       DVSUB,       DXSUB,       DYSUB
  85.       REAL                DZSUB,       FSCALE,      GSCALE,      HALF
  86.       REAL                HH,          HSCALE,      HT,          HTDEF
  87.       REAL                HTFACT,      HX,          HY,          INFITY
  88.       REAL                LWIDTH(06),  MARGIN(4),   MSCALE,      NINETY
  89.       REAL                ONE,         PAGESQ,      PAGEX,       PAGEY
  90.       REAL                PENDIA,      PERDST,      PICTHX,      PICTHY
  91.       REAL                PICTX,       PICTY,       PPXYZ(3)
  92.       REAL                RPXYZ(3),    SIGMA(06),   SWAP,        T(4,4)
  93.       REAL                TICDEF,      TICKU,       TICKV,       TICKX
  94.       REAL                TICKY,       TICKZ,       TIMAGE(4,4)
  95.       REAL                TMODEL(4,4), TOPMAR,      TT,          TTLHEI
  96.       REAL                TTLLEN,      TTOTAL(4,4), TWO,         U1
  97.       REAL                U2,          UDIST,       UMAX,        UMAXP
  98.       REAL                UMAXRC,      UMIN,        UMINP,       UMINRC
  99.       REAL                UNITS,       UNSPEC,      UPXYZ(3),    V1
  100.       REAL                V2,          VDIST,       VIEWD,       VMAX
  101.       REAL                VMAXP,       VMAXRC,      VMIN,        VMINP
  102.       REAL                VMINRC,      VNXYZ(3),    VPUMAX,      VPUMIN
  103.       REAL                VPVMAX,      VPVMIN,      VSCALE,      WMAX
  104.       REAL                WMAXP,       WMIN,        WMINP
  105.       REAL                WORK(1600,5),X(1600,06),  X0,          XDIST
  106.       REAL                XFACT(06),   XINT,        XMAX,        XMAXJ
  107.       REAL                XMAXP,       XMIN,        XMINJ,       XMINP
  108.       REAL                XORG,        XSHIFT(06),  XX
  109.       REAL                Y(1600,06),  Y0,          YDIST
  110.       REAL                YFACT(06),   YINT,        YMAX,        YMAXJ
  111.       REAL                YMAXP,       YMIN,        YMINJ,       YMINP
  112.       REAL                YORG,        YSHIFT(06),  YY
  113.       REAL                Z(1600,06),  Z0,          ZDIST,       ZERO
  114.       REAL                ZFACT(06),   ZINT,        ZMAX,        ZMAXJ
  115.       REAL                ZMAXP,       ZMIN,        ZMINJ,       ZMINP
  116.       REAL                ZORG,        ZSHIFT(06),  ZZ
  117. C$ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  118. C$
  119. C$    NAMELIST BLOCKS
  120. C$
  121.       NAMELIST / DATA /
  122.      X                  AVRAGE, AXES3D, BCLIP,  BOX,    BYROWS, CHKDUP,
  123.      X                  DERIV,  DUSUB,  DVSUB,  DXSUB,  DYSUB,  DZSUB,
  124.      X                  FCLIP,  FSCALE, FSTYLE, GSCALE, HSCALE, IDFONT,
  125.      X                  INTGRT, KX,     KY,     KZ,     LOGX,   LOGY,
  126.      X                  LOGZ,   LSTXYZ, LSTYLE, LWIDTH, MARGIN, MARK,
  127.      X                  MODEU,  MODEV,  MODEX,  MODEY,  MODEZ,  MSCALE,
  128.      X                  N,      NCINIT, NCSTEP, NCTERM, NRINIT, NRSTEP,
  129.      X                  NRTERM, NU,     NUMINT, NUSUB,  NVSUB,  NXSUB,
  130.      X                  NYSUB,  NZSUB,  PARLEL, PEN,    PENDIA, PERDST,
  131.      X                  PLOTID, PPXYZ,  RESET,  RIGHT,  RPXYZ,  SIGMA,
  132.      X                  TICKU,  TICKV,  TICKX,  TICKY,  TICKZ,  TIMAGE,
  133.      X                  TMODEL, UAXIS,  UMAX,   UMIN,   UPXYZ,  UVAXES,
  134.      X                  VAXIS,  VIEWD,  VMAX,   VMIN,   VNXYZ,  VSCALE,
  135.      X                  WCLIP,  WMAX,   WMIN,   X,      XAXIS,  XFACT,
  136.      X                  XFALLS, XMAX,   XMIN,   XSHIFT, Y,      YAXIS,
  137.      X                  YFACT,  YFALLS, YMAX,   YMIN,   YSHIFT, Z,
  138.      X                  ZAXIS,  ZFACT,  ZFALLS, ZMAX,   ZMIN,   ZSHIFT
  139.       END
  140.