C     from CPLPE.INC   
C     PERLND module common
C            PEST 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,PRECFP,DUM2,
     $              SNIF,DUM3,SOILD,SLME,SLSM,ULSM,LLSM,ALSM,DUM4,
     $              SOSED,DUM5,SOSDFP,DUM6,SLTMP,ULTMP,LGTMP,DUM7,
     $              SLTFP,ULTFP,LGTFP,DUM8,MST,FRAC,MSTFP,FRACFP,
     $              PSSIF,SDPSIF,LIPSSX,LISDPX,PEAFFP,PEACFP,NPST,
     $              ITMXPS,ADOPFG,PEADFG,PEAFXM,PEACNM,GPSPM,SPSPM,
     $              UPSPM,LPSPM,APSPM,AGGTFG,PSWCNT,PSECNT,SCVFG,
     $              UCVFG,LCVFG,ACVFG,SPS,UPS,IPS,LPS,APS,TPS,TPST,
     $              TOTPS,SXJCT,UXJCT,LXJCT,AXJCT,SXST,UXST,LXST,AXST,
     $              SPSFP,UPSFP,IPSFP,LPSFP,APSFP,TPSFP,TPESFP,TPSTFP,
     $              PSCFX1,PSCFX2,PSCFX3,PSCFX4,SOSDPS,SOPEST,POPST,
     $              TOPST,PSCFX5,PSCFX6,PEADEP,SDPSFP,TSPSSX,SSPSSX
      COMMON/SCRTCH/SDEGFP,UDEGFP,LDEGFP,ADEGFP,TDEGFP,OSDPSX,SOPSFP,
     $              POPSFP,TOPSFP,PEADDX,PEADWX,PEADPX,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,
     $              SOSDFP,SLTFP,ULTFP,LGTFP,MSTFP(5),FRACFP(8),
     $              LIPSSX(5,3),LISDPX(2,3),PEAFFP(3,3),PEACFP(3,3),
     $              NPST,ITMXPS(3),ADOPFG(3),PEADFG(18),AGGTFG,
     $              PSWCNT(6),PSECNT(1),SCVFG(3),UCVFG(3),LCVFG(3),
     $              ACVFG(3),SPSFP(3,3),UPSFP(3,3),IPSFP(3),
     $              LPSFP(3,3),APSFP(3,3),TPSFP(3,3),TPESFP(5,3),
     $              TPSTFP(3),SDPSFP(2,3),TSPSSX(5,3),SSPSSX(3,3),
     $              SDEGFP(3),UDEGFP(3),LDEGFP(3),ADEGFP(3),TDEGFP(3),
     $              OSDPSX(3),SOPSFP(3),POPSFP(3),TOPSFP(3),
     $              PEADDX(3,3),PEADWX(3,3),PEADPX(3,3)
      REAL          DELT,DELT60,DELT5,SNIF(5),SOILD(4),SLME,SLSM,ULSM,
     $              LLSM,ALSM,SOSED,SLTMP,ULTMP,LGTMP,MST(5),FRAC(8),
     $              PSSIF(5,3,5),SDPSIF(2,3,5),PEAFXM(12,3,3),
     $              PEACNM(12,3,3),GPSPM(8,3),SPSPM(8,3),UPSPM(8,3),
     $              LPSPM(8,3),APSPM(8,3),SPS(3,3),UPS(3,3),IPS(3),
     $              LPS(3,3),APS(3,3),TPS(3,3),TPST(5,3),TOTPS(3,5),
     $              SXJCT(3),UXJCT(3),LXJCT(3),AXJCT(3),SXST(3),
     $              UXST(3),LXST(3),AXST(3),PSCFX1(2,3,5),
     $              PSCFX2(5,3,5),PSCFX3(3,3,5),PSCFX4(5,3,5),
     $              SOSDPS(3),SOPEST(3),POPST(3),TOPST(3),
     $              PSCFX5(3,3,5),PSCFX6(3,3,5),PEADEP(3,3)
      INTEGER       DUM1(3),DUM2(28),DUM3(588),DUM4(416),DUM5(12),
     $              DUM6(79),DUM7(8),DUM8(2186),DUMPER(13406)
C
      EQUIVALENCE   (ASVEC,AIRTFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(PREC,SNIF),(SOILM,SLME),
     $              (LIPSS,PSSIF(1,1,1)),(LISDPS,SDPSIF(1,1,1)),
     $              (PSFLAG,NPST),(TOTPST,TOTPS(1,1)),
     $              (SDPS,PSCFX1(1,1,1)),(TSPSS,PSCFX2(1,1,1)),
     $              (SSPSS,PSCFX3(1,1,1)),(DEGPS,PSCFX4(1,1,1)),
     $              (PEADDR,PSCFX5(1,1,1)),(PEADWT,PSCFX6(1,1,1))
      INTEGER       ASVEC(12),UNIT(7),TIMFG(6),DATIM(5),PSFLAG(7)
      REAL          PREC,SOILM(5),LIPSS(5,3),LISDPS(2,3),TOTPST(3),
     $              SDPS(2,3),TSPSS(5,3),SSPSS(3,3),DEGPS(5,3),
     $              PEADDR(3,3),PEADWT(3,3)
C     end byte:  72000 word:18000
