home *** CD-ROM | disk | FTP | other *** search
- C *****************************************************************
- C This is the file TIDY.INC, which is included by the line
- C INCLUDE 'TIDY.INC'
- C wherever that line is found in the TIDY SOURCE.
- C
- COMMON LDEF(1500), LOCDEF(1500), LREF(1000), NEWNUM(1500),
- 1 IOUTN(256)
- C
- C
- COMMON /MISCAL/ KEND(3), KBUFF(80), JINT(1600), JOB(80),
- 1 IOUT(1326), SERIAL(8), LCPY, KOL73(3), NTEMP(5)
- CHARACTER*2 KEND, KBUFF, JINT, JOB, KIM(80,20), IOUT, SERIAL
- 1 ,LCPY, KOL73, NTEMP
- EQUIVALENCE (JINT(1),KIM(1,1))
- C
- COMMON /MISC L772
- 1 ,ICOL ,IFIR ,INDENT ,IPASS ,IQUIT
- 2 ,ISTAR
- 3 ,JCOL ,JMAX ,JUST
- 4 ,KB15 ,KCTCTL ,KD15 ,KD79 ,KDTRAN
- 5 ,KHTRAN ,KILI(8) ,KOUNT ,KPRIN ,KPUN
- 6 ,L25 ,LAST ,LDOS(10) ,LERR ,LFIR
- 7 ,LINE ,LQUAL
- 8 ,MANSI ,MCOL ,MCOM ,MCONT ,MDEB
- 9 ,MEOF ,MILDO ,MLBL ,MLGC ,MLIST
- X ,MP2 ,MPAGE ,MPRIN ,MPUN ,MREF
- X ,MRIT ,MSER ,MSKP ,MSTOP ,MXREF
- X ,MXRGHT
- X ,NBLC ,NCD ,NDEF ,NDOS ,NFEND
- X ,NINS ,NMSG ,NPAGE ,NPAR ,NPUN
- X ,NREC ,NREF ,NROUT ,NRT1 ,NRT2
- X ,NTRAN ,NXEQ
- DOUBLE PRECISION L772
- EQUIVALENCE (KILI(1),KLASS), (KILI(2),JTYPE), (KILI(3),L15),
- 1 (KILI(4),IMAX), (KILI(5),MTRAN), (KILI(6),NXRF), (KILI(7),MEX),
- 2 (KILI(8),ICOLSV)
- C
- COMMON /ALPHA/ KBL,KDIG(10),KABC(26),KSPK(14),KBL2,KLR2,KLP2,KRP2
- 1 ,KERM, KTAB, KAMPR, KAT, KCTCHR, KDEL1, KDEL2, KAPSTR, KALMRK,
- 2 KALTRN
- CHARACTER*2 KBL,KDIG,KABC,KSPK,KBL2,KLR2,KLP2,KRP2,KERM,KTAB,KAMPR
- 1, KAT, KCTCHR, KDEL1, KDEL2, KAPSTR, KALMRK, KALTRN
- C *****************************************************************
- SAVE