C     from CILIW.INC   
C     IMPLND module common
C            IWATER section
      COMMON/SCRTCH/AIRTFG,SNOWFG,IWATFG,SLDFG,IWGFG,IQALFG,DUMZ,
     $              PFLAG,BFLAG,DUMY,PIVL,BIVL,PYREND,BYREND,IMPPFG,
     $              IMPBFG,UUNITS,IUNITS,OUNITS,PUNIT,BUNIT,MESSU,
     $              MSGFL,LSNO,LSID,DELT,DELT60,DUMX,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,AIRTMP,DUM3,AIRTFP,SNIF,DUM4,
     $              ICEFG,DUM5,PACKI,DUM6,SNOCOV,DUM7,PIFP,DUM8,
     $              SNOCFP,DUM9,SNCF1,DUM10,RAINF,DUM11,WYFP,DUM12,
     $              RNFFP,IWIF,PETINP,SLIFP,PETIFP,CSNOFG,RTOPFG,
     $              VRSFG,VNNFG,RTLIFG,LSUR,SLSUR,PETMAX,PETMIN,
     $              RETSCM,NSURM,SMSFG,FSMSFG,IWWCNT,RETS,SURS,IWST2,
     $              IWST3,RETSC,NSUR,SRC,DEC,IMPSFP,RETSFP,SSFP,
     $              PETAFP,IWCF1,IWCF2,RETO,SURI,SUPYFP,SOFP,PETFP,
     $              IEVFP,SURIFP,DUMIMP
      INTEGER       AIRTFG,SNOWFG,IWATFG,SLDFG,IWGFG,IQALFG,DUMZ(7),
     $              PFLAG(6),BFLAG(6),DUMY(12),PIVL,BIVL,PYREND,
     $              BYREND,IMPPFG,IMPBFG,UUNITS,IUNITS,OUNITS,
     $              PUNIT(2),BUNIT(2),MESSU,MSGFL,LSNO,LSID(5),
     $              DUMX(1),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,PETIFP,CSNOFG,
     $              RTOPFG,VRSFG,VNNFG,RTLIFG,SMSFG,FSMSFG,IWWCNT(1),
     $              IMPSFP,RETSFP,SSFP,PETAFP,SUPYFP,SOFP,PETFP,IEVFP,
     $              SURIFP
      REAL          DELT,DELT60,AIRTMP,SNIF(5),PACKI,SNOCOV,
     $              SNCF1(5,5),RAINF,IWIF(5),PETINP,LSUR,SLSUR,PETMAX,
     $              PETMIN,RETSCM(12),NSURM(12),RETS,SURS,IWST2,
     $              IWST3(5),RETSC,NSUR,SRC,DEC,IWCF1(4,5),IWCF2(2,5),
     $              RETO,SURI
      INTEGER       DUM1(3),DUM2(25),DUM3,DUM4(7),DUM5(77),DUM6(6),
     $              DUM7(22),DUM8(6),DUM9(5),DUM10(10),DUM11(3),DUM12,
     $              DUMIMP(17584)
C
      EQUIVALENCE   (ASVEC,AIRTFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(PREC,SNIF),(WYIELD,SNCF1(4,1)),
     $              (SURLI,IWIF(1)),(IWPM1,CSNOFG),(IWPM2,LSUR),
     $              (IWPM3,PETMAX),(IWST1,RETS),(PETADJ,IWST2),
     $              (IMPS,IWST3),(SUPY,IWCF1(1,1)),(SURO,IWCF1(2,1)),
     $              (PET,IWCF1(3,1)),(IMPEV,IWCF1(4,1)),
     $              (WATIN,IWCF2(1,1)),(WATDIF,IWCF2(2,1))
      INTEGER       ASVEC(6),UNIT(7),TIMFG(6),DATIM(5),IWPM1(5)
      REAL          PREC,WYIELD,SURLI,IWPM2(2),IWPM3(2),IWST1(2),
     $              PETADJ,IMPS,SUPY,SURO,PET,IMPEV,WATIN,WATDIF
C     end byte:  72000 word:18000
