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,SPOUT,UUNITS,
     $              IPTFP,IMNFP,OPTFP,OMNFP,PTVAL,MNVAL,SPNUND,DUMCOP
      INTEGER       COPYNO,NPT,NMN,MESSU,NDAY(12),YR,MON,DAY,HR,MIN,
     $              NDAYS,SPAFP,SPAKND,SPIVL,SPOPNO,SPOUT,UUNITS,
     $              IPTFP(20),IMNFP(20),OPTFP(20),OMNFP(20),SPNUND
      REAL          DELT,PTVAL(20),MNVAL(20)
      INTEGER       DUMCOP(17850)
C
      EQUIVALENCE   (ASVEC,COPYNO),(NUMBR,NPT),(DATIM,YR)
      INTEGER       ASVEC(1),NUMBR(2),DATIM(5)
C     end byte:  72000 word:18000
