C     from CDISP.INC   
C     DISPLY module common
      COMMON/SCRTCH/TITLE,TRAN,PIVL,DIGIT1,FILE1,PYRFG,DIGIT2,FILE2,
     $              PYREND,DUMA,UUNITS,PSHFG,PDELT,NIVL,DISPNO,NDAY,
     $              TRNCOD,MSGFL,MESSU,FMT1,FMT2,FMT3,FMT4,FMT5,
     $              MONTHS,IVLDAY,HRSPAN,DASPAN,MNSPAN,BLANKR,STVAL,
     $              DELT,A,B,THRSH1,THRSH2,DATA,DYVAL,YR,MON,DAY,HR,
     $              MIN,IVL,IVL1,NDAYS,PIVLNO,NXTMON,HRFG,DAYFG,
     $              EDAYFG,EMONFG,EPYRFG,IFP,DUMDIS
      INTEGER       TITLE(7),TRAN(1),PIVL,DIGIT1,FILE1,PYRFG,DIGIT2,
     $              FILE2,PYREND,DUMA(13),UUNITS,PSHFG,PDELT,NIVL,
     $              DISPNO,NDAY(12),TRNCOD,MSGFL,MESSU,FMT1(16),
     $              FMT2(30),FMT3(30),FMT4(30),FMT5(30),MONTHS(2,12),
     $              IVLDAY,HRSPAN(2),DASPAN(2),MNSPAN(2),YR,MON,DAY,
     $              HR,MIN,IVL,IVL1,NDAYS,PIVLNO,NXTMON,HRFG,DAYFG,
     $              EDAYFG,EMONFG,EPYRFG,IFP
      REAL          BLANKR,STVAL,DELT,A,B,THRSH1,THRSH2,DATA(60,31),
     $              DYVAL(31,12)
      INTEGER       DUMDIS(4530)
C
      EQUIVALENCE   (ASVEC,TITLE(1)),(INFO1,TITLE(1)),(INFO2,A),
     $              (DATIM,YR)
      INTEGER       ASVEC(1),INFO1(15),DATIM(5)
      REAL          INFO2(4)
C     end byte:  28000 word: 7000
