C     from CILIW.INC   
C     IMPLND module common
C            IWATER section
      COMMON/SCRTCH/AIRTFG,SNOWFG,IWATFG,SLDFG,IWGFG,IQALFG,DUMZ,
     $              PFLAG,DUMY,PIVL,PYREND,IMPPFG,UUNITS,IUNITS,
     $              OUNITS,PUNIT,MESSU,MSGFL,LSNO,LSID,DELT,DELT60,
     $              DUMX,NDAY,NDAYS,DUMW,HRFG,DAYFG,STFG,EDAYFG,
     $              EMONFG,EPYRFG,YR,MON,DAY,HR,MIN,IVL,IVL1,PIVLNO,
     $              NXTMON,SPAFP,SPAKND,SPIVL,SPOPNO,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,IWCF1,IWCF2,RETO,
     $              SURI,SOFP,PETFP,IEVFP,SURIFP,DUMIMP
      INTEGER       AIRTFG,SNOWFG,IWATFG,SLDFG,IWGFG,IQALFG,DUMZ(7),
     $              PFLAG(6),DUMY(6),PIVL,PYREND,IMPPFG,UUNITS,IUNITS,
     $              OUNITS,PUNIT(2),MESSU,MSGFL,LSNO,LSID(5),DUMX(1),
     $              NDAY(12),NDAYS,DUMW(2),HRFG,DAYFG,STFG,EDAYFG,
     $              EMONFG,EPYRFG,YR,MON,DAY,HR,MIN,IVL,IVL1,PIVLNO,
     $              NXTMON,SPAFP,SPAKND,SPIVL,SPOPNO,DUMGEN(15),
     $              PRECFP,AIRTFP,ICEFG,PIFP,SNOCFP,WYFP,RNFFP,SLIFP,
     $              PETIFP,CSNOFG,RTOPFG,VRSFG,VNNFG,RTLIFG,SMSFG,
     $              FSMSFG,IWWCNT(1),IMPSFP,RETSFP,SSFP,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(61),DUM6(6),
     $              DUM7(22),DUM8(2),DUM9(2),DUM10(10),DUM11(2),DUM12,
     $              DUMIMP(17629)
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(5),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
