home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / fortran / library / tidy621 / tidy.inc < prev    next >
Text File  |  1990-05-21  |  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
  20.      4 ,KB15       ,KCTCTL     ,KD15       ,KD79       ,KDTRAN
  21.      5 ,KHTRAN     ,KILI(8)    ,KOUNT      ,KPRIN      ,KPUN
  22.      6 ,L25        ,LAST       ,LDOS(10)   ,LERR       ,LFIR
  23.      7 ,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
  29.      X ,NBLC       ,NCD        ,NDEF       ,NDOS       ,NFEND
  30.      X ,NINS       ,NMSG       ,NPAGE      ,NPAR       ,NPUN
  31.      X ,NREC       ,NREF       ,NROUT      ,NRT1       ,NRT2
  32.      X ,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
  41.       CHARACTER*2 KBL,KDIG,KABC,KSPK,KBL2,KLR2,KLP2,KRP2,KERM,KTAB,KAMPR
  42.      1, KAT, KCTCHR, KDEL1, KDEL2, KAPSTR, KALMRK, KALTRN
  43. C     *****************************************************************
  44.       SAVE
  45.