C     from CPLTG.INC   
C     PLTGEN module common
      COMMON/SCRTCH/PLOTFL,NPT,NMN,LABLFG,PYREND,NCURV,TYPEFG,MESSU,
     $              MSGFL,PLTNO,SPAFP,SPAKND,SPIVL,SPOPNO,SPOUT,
     $              SPNUND,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,CURREC,DUMPLT
      INTEGER       PLOTFL,NPT,NMN,LABLFG,PYREND,NCURV,TYPEFG,MESSU,
     $              MSGFL,PLTNO,SPAFP,SPAKND,SPIVL,SPOPNO,SPOUT,
     $              SPNUND,DUMA(12),UUNITS,TITLE(10),YLABL(5),
     $              CUVDAT(9,99),NDAY(12),PIVL,YR,MON,DAY,HR,MIN,IVL,
     $              IVL1,NDAYS,PIVLNO,STFG,PLTFLG,PTFP(20),MNFP(99),
     $              PIVLTM,CURREC
      REAL          YMIN,YMAX,IVLIN,THRESH,DELT,VAL(99)
      INTEGER       DUMPLT(16816)
C
      EQUIVALENCE   (ASVEC,PLOTFL),(PLTINF,PLOTFL),(CODE,TITLE(1)),
     $              (GLABL,TITLE(1)),(SCALE,YMIN),(DATIM,YR)
      INTEGER       ASVEC(1),PLTINF(7),CODE(1),GLABL(15),DATIM(5)
      REAL          SCALE(4)
C     end byte:  72000 word:18000
