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,
     $              PIVL,PYREND,PERPFG,UUNITS,IUNITS,OUNITS,PUNIT,
     $              MESSU,MSGFL,LSNO,LSID,DELT,DELT60,DELT5,NDAY,
     $              NDAYS,NBLKSI,NBLKS,HRFG,DAYFG,STFG,EDAYFG,EMONFG,
     $              EPYRFG,YR,MON,DAY,HR,MIN,IVL,IVL1,PIVLNO,NXTMON,
     $              SPAFP,SPAKND,SPIVL,SPOPNO,DUMGEN,DUM1,PRECA,DUM2,
     $              PRECFP,DUM3,SNOCOV,DUM4,SNOCFP,DUM5,RAINF,DUM6,
     $              RNFFP,DUM7,CSNOFG,DUM8,SURS,DUM9,SSFP,DUM10,SURSB,
     $              DUM11,SSBFP,DUM12,PWCF1,DUM13,SOFP,DUM14,PWCF2,
     $              DUM15,SOBFP,DUM16,SDIF,SLSDFP,CRVFG,VSIVFG,SDOPFG,
     $              SMPF,KRER,JRER,AFFIX,KSER,JSER,KGER,JGER,COVERM,
     $              NVSIM,DRYDFG,DETS,STCAP,COVER,DETSFP,STCFP,DETSB,
     $              STCAPB,DETSBX,STCFPB,SDCF1,SOSED,SDCF3,WSDFP,
     $              CSDFP,SOSDFP,DETFP,SDCF2,SOSDB,WSDBFP,CSDBFP,
     $              SOSDBX,DUMPER
      INTEGER       AIRTFG,SNOWFG,PWATFG,SEDFG,PSTFG,PWGFG,PQALFG,
     $              MSTLFG,PESTFG,NITRFG,PHOSFG,TRACFG,AGFG,PFLAG(12),
     $              PIVL,PYREND,PERPFG,UUNITS,IUNITS,OUNITS,PUNIT(2),
     $              MESSU,MSGFL,LSNO,LSID(5),NDAY(12),NDAYS,NBLKS,
     $              HRFG,DAYFG,STFG,EDAYFG,EMONFG,EPYRFG,YR,MON,DAY,
     $              HR,MIN,IVL,IVL1,PIVLNO,NXTMON,SPAFP,SPAKND,SPIVL,
     $              SPOPNO,DUMGEN(15),PRECFP,SNOCFP,RNFFP,CSNOFG,SSFP,
     $              SSBFP(5),SOFP,SOBFP(5),SLSDFP,CRVFG,VSIVFG,SDOPFG,
     $              DRYDFG,DETSFP,STCFP,DETSBX(5),STCFPB(5),WSDFP,
     $              CSDFP,SOSDFP,DETFP,WSDBFP(5),CSDBFP(5),SOSDBX(5)
      REAL          DELT,DELT60,DELT5,NBLKSI,PRECA,SNOCOV,RAINF,SURS,
     $              SURSB(5),PWCF1(6,5),PWCF2(5,2,5),SDIF(5),SMPF,
     $              KRER,JRER,AFFIX,KSER,JSER,KGER,JGER,COVERM(12),
     $              NVSIM(12),DETS,STCAP,COVER,DETSB(5),STCAPB(5),
     $              SDCF1(2,5),SOSED,SDCF3(2,5),SDCF2(5,2,5),SOSDB(5)
      INTEGER       DUM1,DUM2,DUM3(109),DUM4(25),DUM5(37),DUM6(4),
     $              DUM7(20),DUM8(122),DUM9(28),DUM10(5),DUM11(15),
     $              DUM12(10),DUM13(77),DUM14(18),DUM15(125),
     $              DUM16(30),DUMPER(17013)
C
      EQUIVALENCE   (ASVEC,AIRTFG),(PRTDAT,PFLAG),(UNIT,UUNITS),
     $              (TIMFG,HRFG),(DATIM,YR),(SURO,PWCF1(2,1)),
     $              (SUROB,PWCF2(1,1,1)),(SLSED,SDIF),(SEDPM1,CRVFG),
     $              (WSSD,SDCF1(1,1)),(SCRSD,SDCF1(2,1)),
     $              (DET,SDCF3(1,1)),(NVSI,SDCF3(2,1)),
     $              (WSSDB,SDCF2(1,1,1)),(SCRSDB,SDCF2(1,2,1))
      INTEGER       ASVEC(12),PRTDAT(14),UNIT(5),TIMFG(6),DATIM(5),
     $              SEDPM1(3)
      REAL          SURO,SUROB(5),SLSED,WSSD,SCRSD,DET,NVSI,WSSDB(5),
     $              SCRSDB(5)
C     end byte:  72000 word:18000
