C     from CCOPY.INC   
C     COPY module common
      COMMON/SCRTCH/COPYNO,NPT,NMN,MESSU,DELT,NDAY,YR,MON,DAY,HR,MIN,
     $              NDAYS,SPAFP,SPAKND,SPIVL,SPOPNO,DUMA,UUNITS,IPTFP,
     $              IMNFP,OPTFP,OMNFP,PTVAL,MNVAL,DUMCOP
      INTEGER       COPYNO,NPT,NMN,MESSU,NDAY(12),YR,MON,DAY,HR,MIN,
     $              NDAYS,SPAFP,SPAKND,SPIVL,SPOPNO,DUMA(1),UUNITS,
     $              IPTFP(20),IMNFP(20),OPTFP(20),OMNFP(20)
      REAL          DELT,PTVAL(20),MNVAL(20)
      INTEGER       DUMCOP(6851)
C
      EQUIVALENCE   (ASVEC,COPYNO),(NUMBR,NPT),(DATIM,YR)
      INTEGER       ASVEC(1),NUMBR(2),DATIM(5)
C     end byte:  28000 word: 7000
