C     from CDURA.INC   
C     DURANL module common
      COMMON/SCRTCH/TITLE,NDUR,NLEV,PRFG,PUNIT,LCNUM,LCOUT,M,MESSU,
     $              DUMA,UUNITS,MSGFL,PIVL,PYREND,DURAT,LEVEL,DURANO,
     $              DELT,NDAY,DATIMS,DATIME,YR,MON,DAY,HR,MIN,SESONS,
     $              SESONE,IVL,IVL1,NDAYS,PIVLNO,SESFG,DSFP,NUM,SUM,
     $              SUMSQ,MEAN,MAX,MINIM,LASPOS,LASNEG,CURPOS,CURNEG,
     $              LGTPOS,LGTNEG,LGTNW,FRQPOS,FRQNEG,FRQNW,SPOS,SNEG,
     $              SNW,SQPOS,SQNEG,SQNW,MPOS,MNEG,MNW,PTPOS,PTNEG,
     $              PTNW,PT1POS,PT1NEG,PT1NW,LCTSCT,LCTSTO,LCTIML,
     $              LCLEV,LCCONC,DUMDUR
      INTEGER       TITLE(10),NDUR,NLEV,PRFG,PUNIT,LCNUM,LCOUT,M,
     $              MESSU,DUMA(10),UUNITS,MSGFL,PIVL,PYREND,DURAT(10),
     $              DURANO,NDAY(12),DATIMS(5),DATIME(5),YR,MON,DAY,HR,
     $              MIN,SESONS(5),SESONE(5),IVL,IVL1,NDAYS,PIVLNO,
     $              SESFG,DSFP,NUM,LASPOS,LASNEG,CURPOS,CURNEG,
     $              LGTPOS(22),LGTNEG(22),LGTNW,LCTSCT(10,5),
     $              LCTSTO(5),LCTIML(10,5),LCLEV(10,5)
      REAL          LEVEL(22),DELT,SUM,SUMSQ,MEAN,MAX,MINIM,
     $              FRQPOS(10,22),FRQNEG(10,22),FRQNW(10),SPOS(10,22),
     $              SNEG(10,22),SNW(10),SQPOS(10,22),SQNEG(10,22),
     $              SQNW(10),MPOS(10,22),MNEG(10,22),MNW(10),
     $              PTPOS(10,22),PTNEG(10,22),PTNW(10),PT1POS(10,22),
     $              PT1NEG(10,22),PT1NW(10),LCCONC(10,5)
      INTEGER       DUMDUR(14931)
C
      EQUIVALENCE   (ASVEC,TITLE(1)),(GENDAT,TITLE(1)),(DATIM,YR),
     $              (SEASON,SESONS(1)),(LGTNW1,LGTNW)
      INTEGER       ASVEC(1),GENDAT(16),DATIM(5),SEASON(10),LGTNW1(1)
C     end byte:  72000 word:18000
