home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / fortran / tidy64.zip / TIDY.INC < prev    next >
Text File  |  1993-10-11  |  2KB  |  45 lines
  1. C     *****************************************************************
  2. C     This is the file TIDY.INC, which is included by the line
  3. C     INCLUDE 'TIDY.INC'
  4. C     wherever that line is found in the TIDY SOURCE.
  5. C
  6.       COMMON LDEF(1500), LOCDEF(1500), LREF(1000), NEWNUM(1500),
  7.      1 IOUTN(256)
  8. C
  9. C
  10.       COMMON /MISCAL/ KEND(3), KBUFF(80), JINT(1600), JOB(80),
  11.      1 IOUT(1326), SERIAL(8), LCPY, KOL73(3), NTEMP(5)
  12.       CHARACTER*2 KEND, KBUFF, JINT, JOB, KIM(80,20), IOUT, SERIAL
  13.      1 ,LCPY, KOL73, NTEMP
  14.       EQUIVALENCE (JINT(1),KIM(1,1))
  15. C
  16.       COMMON /MISC/ L772
  17.      1 ,ICOL       ,IFIR       ,INDENT     ,IPASS      ,IQUIT
  18.      2 ,ISTAR
  19.      3 ,JCOL       ,JMAX       ,JUST       ,KBKCOK     ,KFSPL
  20.      4 ,KB15       ,KCTCTL     ,KD15       ,KD79       ,KDTRAN
  21.      5 ,KHLOG      ,KHTRAN     ,KILI(8)    ,KOUNT      ,KPRIN
  22.      6 ,KPUN       ,L25        ,LAST       ,LDOS(10)   ,LERR
  23.      7 ,LFIR       ,LINE       ,LQUAL
  24.      8 ,MANSI      ,MCOL       ,MCOM       ,MCONT      ,MDEB
  25.      9 ,MEOF       ,MILDO      ,MLBL       ,MLGC       ,MLIST
  26.      X ,MP2        ,MPAGE      ,MPRIN      ,MPUN       ,MREF
  27.      X ,MRIT       ,MSER       ,MSKP       ,MSTOP      ,MXREF
  28.      X ,MXRGHT     ,MCASE      ,MNDOO
  29.      X ,NBLC       ,NCD        ,NDEF       ,NDOS       ,NFEND
  30.      X ,NINS       ,NLHTRN     ,NMSG       ,NPAGE      ,NPAR
  31.      X ,NPUN       ,NREC       ,NREF       ,NROUT      ,NRT1
  32.      X ,NRT2       ,NTRAN      ,NXEQ
  33.       DOUBLE PRECISION L772
  34.       EQUIVALENCE (KILI(1),KLASS), (KILI(2),JTYPE), (KILI(3),L15),
  35.      1 (KILI(4),IMAX), (KILI(5),MTRAN), (KILI(6),NXRF), (KILI(7),MEX),
  36.      2 (KILI(8),ICOLSV)
  37. C
  38.       COMMON /ALPHA/ KBL,KDIG(10),KABC(26),KSPK(14),KBL2,KLR2,KLP2,KRP2
  39.      1 ,KERM, KTAB, KAMPR, KAT, KCTCHR, KDEL1, KDEL2, KAPSTR, KALMRK,
  40.      2 KALTRN, KBLCMT
  41.       CHARACTER*2 KBL,KDIG,KABC,KSPK,KBL2,KLR2,KLP2,KRP2,KERM,KTAB,KAMPR
  42.      1, KAT, KCTCHR, KDEL1, KDEL2, KAPSTR, KALMRK, KALTRN, KBLCMT
  43. C     *****************************************************************
  44.       SAVE
  45.