C     from CREPT.INC   
C     REPORT module common
C
C     + + + PARAMETERS + + +
      INTEGER    MAXSRC,MAXCON,MAXTIM,MAXACC
      PARAMETER (MAXSRC = 99) 
      PARAMETER (MAXCON = 50) 
      PARAMETER (MAXTIM = 500) 
      PARAMETER (MAXACC = 10000) 
C
      COMMON/SCRTCH/TITLE,REPTFL,NCON,NSRC,FORMFG,CWID,PWID,PLIN,
     $              PCODE,PYREND,REPTNO,MSGFL,MESSU,NDAYS,UUNITS,NDAY,
     $              SDATE,TRNKWD,SRCHED,SRCTRC,TIMHED,TIMTRC,STTRFG,
     $              SRCID,CONID,TRNCOD,SDIG,DECPLA,DELT,YR,MON,DAY,HR,
     $              MIN,IVL,IVL1,PIVLNO,EDAYFG,EMONFG,EPYRFG,CURTIM,
     $              MTIM,TIMLAB,ACCUM,IFP,DUMREP
      INTEGER       TITLE(15),REPTFL,NCON,NSRC,FORMFG,CWID,PWID,PLIN,
     $              PCODE,PYREND,REPTNO,MSGFL,MESSU,NDAYS,UUNITS,
     $              NDAY(12),SDATE(5),TRNKWD(7),SRCHED(5),SRCTRC,
     $              TIMHED(5),TIMTRC,STTRFG,SRCID(5,MAXSRC),
     $              CONID(5,MAXCON),TRNCOD(MAXCON),SDIG(MAXCON),
     $              DECPLA(MAXCON),YR,MON,DAY,HR,MIN,IVL,IVL1,PIVLNO,
     $              EDAYFG,EMONFG,EPYRFG,CURTIM,MTIM,TIMLAB(3,MAXTIM),
     $              IFP(MAXCON,MAXSRC)
      REAL          DELT,ACCUM(MAXACC)
      INTEGER       DUMREP(575)
C
      EQUIVALENCE   (ASVEC,TITLE(1)),(RPTINF,REPTFL),(DATIM,YR)
      INTEGER       ASVEC(1),RPTINF(9),DATIM(5)
C     end byte:  72000 word:18000
