C     from CPLPW.INC   
C     PERLND module common
C            PWATER 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,AIRTMP,DUM4,AIRTFP,DUM5,ICEFG,DUM6,
     $              MELEV,DUM7,PACKI,DUM8,SNOCOV,DUM9,PIFP,DUM10,
     $              SNOCFP,DUM11,SNCF1,DUM12,RAINF,DUM13,WYFP,DUM14,
     $              RNFFP,PWIF,PETINP,SLIFP,ULIFP,ILIFP,LLIFP,ALIFP,
     $              PETIFP,PIRIF,IRRIFP,CSNOFG,RTOPFG,UZFG,VCSFG,
     $              VUZFG,VNNFG,VIFWFG,VIRCFG,VLEFG,IFFCFG,HWTFG,
     $              IRRGFG,IFRDFG,NSROWS,NSCOLS,NCRP,CRPDAT,NSKED,
     $              SZONFG,VCRDFG,VAWDFG,IROPFG,IRDATE,IRDURA,IRCHNO,
     $              IROSVK,FOREST,LZSN,INFILT,LSUR,SLSUR,KVARY,KGW,
     $              PETMAX,PETMIN,INFEXP,INFILD,DEEPFR,BASETP,AGWETP,
     $              FZG,FZGL,BELV,GWDATM,PCW,PGW,UPGW,SRRC,SREXP
      COMMON/SCRTCH/IFWSC,DELTA,UELFAC,LELFAC,SELV,UELV,LELV,ULGWS,
     $              LLGWS,BGWS,CEPSCM,UZSNM,NSURM,INTFWM,UZRA,INTGRL,
     $              IRCM,LZETPM,SURTAB,SOILD,SLME,SLSM,ULSM,LLSM,ALSM,
     $              WILTPT,FDCAP,AWC,CRPSTG,CRPAWD,CRPRDP,IRAFAC,
     $              IREFF,ARZI,WILTP,FLDCAP,CRDEP,IRAWD,CAPRIS,CRDEPM,
     $              IRAWDM,IRRATE,IRRSRC,IRRTGT,SMSFG,FSMSFG,PWWCNT,
     $              PWECNT,CEPS,SURS,UZS,IFWS,LZS,AGWS,GWVS,TGWS,GWEL,
     $              INFFAC,PETADJ,PWST4,CEPSC,UZSN,NSUR,INTFW,IRC,
     $              LZETP,SURSS,SRC,DEC,IFWK1,IFWK2,LZFRAC,RLZRAT,
     $              RPARM,RZWSC,RZWS,PERSFP,CEPSFP,SSFP,UZSFP,ISFP,
     $              LZSFP,AGWSFP,TGWSFP,GWELFP,GWVSFP,INFCFP,PETAFP,
     $              RPMFP,RZWSFP,PWCF1,PWCF3,PWCF5,PWCF7,CEPO,SURI,
     $              IRRCF1,IRRCF2,IRRCF3,SUPYFP,SOFP,IOFP,AOFP,POFP,
     $              IGIFP,PETFP,CEFP,SEFP,UEFP,LZETFP,AEFP,BASEFP,
     $              TAETFP,IIFP,UZIFP,INFFP,PCFP,LZIFP,AIFP,SURIFP,
     $              IRDMFP,IRSHFP,IRDRFP,IRAPFP,DUM15,LGTMP,DUM16,
     $              LGTFP,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,
     $              AIRTFP,ICEFG,PIFP,SNOCFP,WYFP,RNFFP,SLIFP,ULIFP,
     $              ILIFP,LLIFP,ALIFP,PETIFP,IRRIFP,CSNOFG,RTOPFG,
     $              UZFG,VCSFG,VUZFG,VNNFG,VIFWFG,VIRCFG,VLEFG,IFFCFG,
     $              HWTFG,IRRGFG,IFRDFG,NSROWS,NSCOLS,NCRP,
     $              CRPDAT(4,3),NSKED,SZONFG,VCRDFG,VAWDFG,IROPFG,
     $              IRDATE(5,20),IRDURA(20),IRCHNO,IROSVK,SMSFG,
     $              FSMSFG,PWWCNT(1),PWECNT(2),PERSFP,CEPSFP,SSFP,
     $              UZSFP,ISFP,LZSFP,AGWSFP,TGWSFP,GWELFP,GWVSFP,
     $              INFCFP,PETAFP,RPMFP,RZWSFP,SUPYFP,SOFP,IOFP,AOFP,
     $              POFP,IGIFP,PETFP,CEFP,SEFP,UEFP,LZETFP,AEFP
      INTEGER       BASEFP,TAETFP,IIFP,UZIFP,INFFP,PCFP,LZIFP,AIFP,
     $              SURIFP,IRDMFP,IRSHFP,IRDRFP(3),IRAPFP(6),LGTFP
      REAL          DELT,DELT60,DELT5,PRECA,AIRTMP,MELEV,PACKI,SNOCOV,
     $              SNCF1(5,5),RAINF,PWIF(5,5),PETINP,PIRIF(5),FOREST,
     $              LZSN,INFILT,LSUR,SLSUR,KVARY,KGW,PETMAX,PETMIN,
     $              INFEXP,INFILD,DEEPFR,BASETP,AGWETP,FZG,FZGL,BELV,
     $              GWDATM,PCW,PGW,UPGW,SRRC,SREXP,IFWSC,DELTA,UELFAC,
     $              LELFAC,SELV,UELV,LELV,ULGWS,LLGWS,BGWS,CEPSCM(12),
     $              UZSNM(12),NSURM(12),INTFWM(12),UZRA(10),
     $              INTGRL(10),IRCM(12),LZETPM(12),SURTAB(100),
     $              SOILD(4),SLME,SLSM,ULSM,LLSM,ALSM,WILTPT(4),
     $              FDCAP(4),AWC(4),CRPSTG(4,3),CRPAWD(4,3),
     $              CRPRDP(2,3),IRAFAC,IREFF,ARZI,WILTP,FLDCAP,CRDEP,
     $              IRAWD,CAPRIS,CRDEPM(12),IRAWDM(12),IRRATE(20),
     $              IRRSRC(3,3),IRRTGT(5),CEPS,SURS,UZS,IFWS,LZS,AGWS,
     $              GWVS,TGWS,GWEL,INFFAC,PETADJ,PWST4(5),CEPSC,UZSN,
     $              NSUR,INTFW,IRC,LZETP,SURSS,SRC,DEC,IFWK1,IFWK2,
     $              LZFRAC,RLZRAT,RPARM,RZWSC,RZWS,PWCF1(6,5),
     $              PWCF3(8,5),PWCF5(6,5),PWCF7(2,5),CEPO,SURI,
     $              IRRCF1(2,5),IRRCF2(3,5),IRRCF3(6,5),LGTMP
      INTEGER       DUM1,DUM2,DUM3(25),DUM4,DUM5(12),DUM6(43),
     $              DUM7(33),DUM8(6),DUM9(22),DUM10(6),DUM11(5),
     $              DUM12(10),DUM13(3),DUM14,DUM15(153),DUM16(10),
     $              DUMPER(16731)
C
      EQUIVALENCE   (ASVEC,AIRTFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(WYIELD,SNCF1(4,1)),(SURLI,PWIF(1,1)),
     $              (UZLI,PWIF(2,1)),(IFWLI,PWIF(3,1)),
     $              (LZLI,PWIF(4,1)),(AGWLI,PWIF(5,1)),
     $              (IRRINP,PIRIF(1)),(PWPM1,CSNOFG),(IRPM1,NSKED),
     $              (PWPM2,FOREST),(PWPM3,PETMAX),(PWPM5,FZG),
     $              (PWPM6,BELV),(PWPM7,SRRC),(SOILM,SLME),
     $              (IRPM2,IRAFAC),(PWST1,CEPS),(PWST3,INFFAC),
     $              (PERS,PWST4),(PWST5,CEPSC),(IRST1,RZWSC),
     $              (SUPY,PWCF1(1,1)),(SURO,PWCF1(2,1))
      EQUIVALENCE   (IFWO,PWCF1(3,1)),(AGWO,PWCF1(4,1)),
     $              (PERO,PWCF1(5,1)),(IGWI,PWCF1(6,1)),
     $              (PET,PWCF3(1,1)),(CEPE,PWCF3(2,1)),
     $              (SURET,PWCF3(3,1)),(UZET,PWCF3(4,1)),
     $              (LZET,PWCF3(5,1)),(AGWET,PWCF3(6,1)),
     $              (BASET,PWCF3(7,1)),(TAET,PWCF3(8,1)),
     $              (IFWI,PWCF5(1,1)),(UZI,PWCF5(2,1)),
     $              (INFIL,PWCF5(3,1)),(PERC,PWCF5(4,1)),
     $              (LZI,PWCF5(5,1)),(AGWI,PWCF5(6,1)),
     $              (WATIN,PWCF7(1,1)),(WATDIF,PWCF7(2,1))
      EQUIVALENCE   (IRRDEM,IRRCF1(1,1)),(IRSHRT,IRRCF1(2,1)),
     $              (IRDRAW,IRRCF2(1,1)),(IRRAPP,IRRCF3(1,1))
      INTEGER       ASVEC(12),UNIT(7),TIMFG(6),DATIM(5),PWPM1(13),
     $              IRPM1(5)
      REAL          WYIELD,SURLI,UZLI,IFWLI,LZLI,AGWLI,IRRINP,
     $              PWPM2(7),PWPM3(7),PWPM5(2),PWPM6(5),PWPM7(6),
     $              SOILM(5),IRPM2(7),PWST1(9),PWST3(2),PERS,PWST5(6),
     $              IRST1(2),SUPY,SURO,IFWO,AGWO,PERO,IGWI,PET,CEPE,
     $              SURET,UZET,LZET,AGWET,BASET,TAET,IFWI,UZI,INFIL,
     $              PERC,LZI,AGWI,WATIN,WATDIF,IRRDEM,IRSHRT,
     $              IRDRAW(3),IRRAPP(6)
C     end byte:  72000 word:18000
