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,
     $              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,PRECFP,DUM2,
     $              SNIF,DUM3,SOSED,DUM4,SOSDFP,DUM5,SOSDB,DUM6,
     $              SOSDBX,DUM7,SLTMP,ULTMP,LGTMP,DUM8,SLTFP,ULTFP,
     $              LGTFP,DUM9,MST,FRAC,MSTFP,FRACFP,MSTB,FRACB,
     $              MSTBFP,FRACBX,PEAFFP,PEACFP,NPST,ITMXPS,ADOPFG,
     $              PEADFG,PEAFXM,PEACNM,SLME,SLSM,ULSM,LLSM,ALSM,
     $              GPSPM,SPSPM,UPSPM,LPSPM,APSPM,AGGTFG,PSWCNT,
     $              PSECNT,SCVFG,UCVFG,LCVFG,ACVFG,SCVBFG,UCVBFG,SPS,
     $              UPS,IPS,LPS,APS,TPS,TOTPS,SXJCT,UXJCT,LXJCT,AXJCT,
     $              SXST,UXST,LXST,AXST,SPSFP,UPSFP,IPSFP,LPSFP,APSFP,
     $              TPSFP,TPSTFP,SPSB,UPSB,IPSB,SXJCTB,UXJCTB,SXSTB,
     $              UXSTB,PSCFX1,PSCFX2,PSCFX3,PSCFX4,SOSDPS,POPST,
     $              TOPST,PSCFX5,PSCFX6,SDPSFP,TSPSSX,SSPSSX,SDEGFP
      COMMON/SCRTCH/UDEGFP,LDEGFP,ADEGFP,TDEGFP,OSDPSX,POPSFP,TOPSFP,
     $              PEADDX,PEADWX,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,SOSDFP,SOSDBX(5),SLTFP,
     $              ULTFP,LGTFP,MSTFP(5),FRACFP(8),MSTBFP(3,5),
     $              FRACBX(5,5),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),
     $              SCVBFG(5,3),UCVBFG(5,3),SPSFP(3,3),UPSFP(3,3),
     $              IPSFP(3),LPSFP(3,3),APSFP(3,3),TPSFP(3,3),
     $              TPSTFP(3),SDPSFP(2,3),TSPSSX(5,3),SSPSSX(3,3),
     $              SDEGFP(3),UDEGFP(3),LDEGFP(3),ADEGFP(3),TDEGFP(3),
     $              OSDPSX(3),POPSFP(3),TOPSFP(3),PEADDX(3,3),
     $              PEADWX(3,3)
      REAL          DELT,DELT60,DELT5,NBLKSI,SNIF(5),SOSED,SOSDB(5),
     $              SLTMP,ULTMP,LGTMP,MST(5),FRAC(8),MSTB(3,5),
     $              FRACB(5,5),PEAFXM(12,3,3),PEACNM(12,3,3),SLME,
     $              SLSM,ULSM,LLSM,ALSM,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),
     $              TOTPS(3,5),SXJCT(3),UXJCT(3),LXJCT(3),AXJCT(3),
     $              SXST(3),UXST(3),LXST(3),AXST(3),SPSB(3,5,3),
     $              UPSB(3,5,3),IPSB(5,3),SXJCTB(5,3),UXJCTB(5,3),
     $              SXSTB(5,3),UXSTB(5,3),PSCFX1(2,3,5),PSCFX2(5,3,5),
     $              PSCFX3(3,3,5),PSCFX4(5,3,5),SOSDPS(3),POPST(3),
     $              TOPST(3),PSCFX5(3,3,5),PSCFX6(3,3,5)
      INTEGER       DUM1(3),DUM2(28),DUM3(772),DUM4(12),DUM5(51),
     $              DUM6(10),DUM7(77),DUM8(8),DUM9(1544),
     $              DUMPER(14139)
C
      EQUIVALENCE   (ASVEC,AIRTFG),(PRTDAT,PFLAG),(UNIT,UUNITS),
     $              (TIMFG,HRFG),(DATIM,YR),(PREC,SNIF),(PSFLAG,NPST),
     $              (SOILM,SLME),(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),PRTDAT(14),UNIT(5),TIMFG(6),DATIM(5),
     $              PSFLAG(7)
      REAL          PREC,SOILM(5),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
