C     from CPLSE.INC   
C     PERLND module common
C            SEDMNT section
      COMMON/SCRTCH/AIRTFG,SNOWFG,PWATFG,SEDFG,PSTFG,PWGFG,PQALFG,
     $              MSTLFG,PESTFG,NITRFG,PHOSFG,TRACFG,AGFG,PFLAG,
     $              BFLAG,PIVL,BIVL,PYREND,BYREND,PERPFG,PERBFG,
     $              UUNITS,IUNITS,OUNITS,PUNIT,BUNIT,MESSU,MSGFL,LSNO,
     $              LSID,DELT,DELT60,DELT5,NDAY,NDAYS,DUMW,HRFG,DAYFG,
     $              STFG,EDAYFG,EMONFG,EPYRFG,EBYRFG,YR,MON,DAY,HR,
     $              MIN,IVL,IVL1,PIVLNO,BIVLNO,NXTMON,SPAFP,SPAKND,
     $              SPIVL,SPOPNO,SPOUT,SPNUND,DUMGEN,DUM1,PRECA,DUM2,
     $              PRECFP,DUM3,SNOCOV,DUM4,SNOCFP,DUM5,RAINF,DUM6,
     $              RNFFP,DUM7,CSNOFG,DUM8,SURS,DUM9,SSFP,DUM10,PWCF1,
     $              DUM11,SOFP,DUM12,SDIF,SLSDFP,CRVFG,VSIVFG,SDOPFG,
     $              SMPF,KRER,JRER,AFFIX,KSER,JSER,KGER,JGER,COVERM,
     $              NVSIM,DRYDFG,DETS,STCAP,COVER,DETSFP,STCFP,COVRFP,
     $              SDCF1,SOSED,SDCF3,WSDFP,CSDFP,SOSDFP,DETFP,NVSIFP,
     $              DUMPER
      INTEGER       AIRTFG,SNOWFG,PWATFG,SEDFG,PSTFG,PWGFG,PQALFG,
     $              MSTLFG,PESTFG,NITRFG,PHOSFG,TRACFG,AGFG,PFLAG(12),
     $              BFLAG(12),PIVL,BIVL,PYREND,BYREND,PERPFG,PERBFG,
     $              UUNITS,IUNITS,OUNITS,PUNIT(2),BUNIT(2),MESSU,
     $              MSGFL,LSNO,LSID(5),NDAY(12),NDAYS,DUMW(2),HRFG,
     $              DAYFG,STFG,EDAYFG,EMONFG,EPYRFG,EBYRFG,YR,MON,DAY,
     $              HR,MIN,IVL,IVL1,PIVLNO,BIVLNO,NXTMON,SPAFP,SPAKND,
     $              SPIVL,SPOPNO,SPOUT,SPNUND,DUMGEN(13),PRECFP,
     $              SNOCFP,RNFFP,CSNOFG,SSFP,SOFP,SLSDFP,CRVFG,VSIVFG,
     $              SDOPFG,DRYDFG,DETSFP,STCFP,COVRFP,WSDFP,CSDFP,
     $              SOSDFP,DETFP,NVSIFP
      REAL          DELT,DELT60,DELT5,PRECA,SNOCOV,RAINF,SURS,
     $              PWCF1(6,5),SDIF(5),SMPF,KRER,JRER,AFFIX,KSER,JSER,
     $              KGER,JGER,COVERM(12),NVSIM(12),DETS,STCAP,COVER,
     $              SDCF1(2,5),SOSED,SDCF3(2,5)
      INTEGER       DUM1,DUM2,DUM3(125),DUM4(29),DUM5(40),DUM6(5),
     $              DUM7(38),DUM8(502),DUM9(32),DUM10(11),DUM11(138),
     $              DUM12(30),DUMPER(16822)
C
      EQUIVALENCE   (ASVEC,AIRTFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(SURO,PWCF1(2,1)),(SLSED,SDIF),
     $              (SEDPM1,CRVFG),(WSSD,SDCF1(1,1)),
     $              (SCRSD,SDCF1(2,1)),(DET,SDCF3(1,1)),
     $              (NVSI,SDCF3(2,1))
      INTEGER       ASVEC(12),UNIT(7),TIMFG(6),DATIM(5),SEDPM1(3)
      REAL          SURO,SLSED,WSSD,SCRSD,DET,NVSI
C     end byte:  72000 word:18000
