C     from CPLTG.INC   
C     PLTGEN module common
      COMMON/SCRTCH/PLOTFL,NPT,NMN,LABLFG,PYREND,NCURV,MESSU,MSGFL,
     $              PLTNO,SPAFP,SPAKND,SPIVL,SPOPNO,DUMA,UUNITS,TITLE,
     $              YLABL,YMIN,YMAX,IVLIN,THRESH,CUVDAT,DELT,NDAY,
     $              PIVL,VAL,YR,MON,DAY,HR,MIN,IVL,IVL1,NDAYS,PIVLNO,
     $              STFG,PLTFLG,PTFP,MNFP,PIVLTM,DUMPLT
      INTEGER       PLOTFL,NPT,NMN,LABLFG,PYREND,NCURV,MESSU,MSGFL,
     $              PLTNO,SPAFP,SPAKND,SPIVL,SPOPNO,DUMA(15),UUNITS,
     $              TITLE(10),YLABL(5),CUVDAT(9,10),NDAY(12),PIVL,YR,
     $              MON,DAY,HR,MIN,IVL,IVL1,NDAYS,PIVLNO,STFG,PLTFLG,
     $              PTFP(10),MNFP(10),PIVLTM
      REAL          YMIN,YMAX,IVLIN,THRESH,DELT,VAL(10)
      INTEGER       DUMPLT(6806)
C
      EQUIVALENCE   (ASVEC,PLOTFL),(PLTINF,PLOTFL),(CODE,TITLE(1)),
     $              (GLABL,TITLE(1)),(SCALE,YMIN),(DATIM,YR)
      INTEGER       ASVEC(1),PLTINF(6),CODE(1),GLABL(15),DATIM(5)
      REAL          SCALE(4)
C     end byte:  28000 word: 7000
