C     from CILIQ.INC   
C     IMPLND module common
C            IQUAL 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,SNIF,DUM3,IWCF1,DUM4,SOFP,DUM5,SDCF1,
     $              SOSDFP,DUM6,IQAFFP,IQACFP,NQUAL,NQSD,NQOF,IQADFG,
     $              QSDFP,VPFWFG,QSOFP,VQOFG,QUALID,QTYID,IQAFXM,
     $              IQACNM,POTFWM,ACQOPM,REMQOM,WSFAC,SQO,POTFW,ACQOP,
     $              REMQOP,SQOFP,IQCF1,IQCF2,SOQOC,SOQUAL,SOQC,IQCF3,
     $              IQCF4,SOQSFP,SOQOFP,SOQOCX,SOQFP,SOQCFP,IQADDX,
     $              IQADWX,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,SOFP,SOSDFP,IQAFFP(10),IQACFP(10),NQUAL,
     $              NQSD,NQOF,IQADFG(20),QSDFP(10),VPFWFG(7),
     $              QSOFP(10),VQOFG(7),QUALID(3,10),QTYID(1,10),
     $              SQOFP(7),SOQSFP(7),SOQOFP(7),SOQOCX(7),SOQFP(10),
     $              SOQCFP(10),IQADDX(10),IQADWX(10)
      REAL          DELT,DELT60,SNIF(5),IWCF1(4,5),SDCF1(5),
     $              IQAFXM(12,10),IQACNM(12,10),POTFWM(12,7),
     $              ACQOPM(12,7),REMQOM(12,7),WSFAC(7),SQO(7),
     $              POTFW(7),ACQOP(7),REMQOP(7),IQCF1(7,5),IQCF2(7,5),
     $              SOQOC(7),SOQUAL(10),SOQC(10),IQCF3(10,5),
     $              IQCF4(10,5)
      INTEGER       DUM1(3),DUM2(28),DUM3(205),DUM4(12),DUM5(43),
     $              DUM6(53),DUMIMP(16621)
C
      EQUIVALENCE   (ASVEC,AIRTFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(PREC,SNIF),(SURO,IWCF1(2,1)),
     $              (SOSLD,SDCF1(1)),(SOQS,IQCF1(1,1)),
     $              (SOQO,IQCF2(1,1)),(IQADDR,IQCF3(1,1)),
     $              (IQADWT,IQCF4(1,1))
      INTEGER       ASVEC(6),UNIT(5),TIMFG(6),DATIM(5)
      REAL          PREC,SURO,SOSLD,SOQS(7),SOQO(7),IQADDR(10),
     $              IQADWT(10)
C     end byte:  72000 word:18000
