C     from CILIG.INC   
C     IMPLND module common
C            IWTGAS 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,
     $              AIRTMP,DUM2,AIRTFP,DUM3,SNCF1,DUM4,WYFP,DUM5,
     $              CSNOFG,DUM6,IWCF1,DUM7,SOFP,DUM8,WTFVFG,ELEVGC,
     $              AWTFM,BWTFM,AIRTC,SOTMP,SODOX,SOCO2,SOTFP,SODOFP,
     $              SOCDFP,AWTF,BWTF,IGCF1,SOHTFP,SODOMX,SOCDMX,
     $              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),
     $              AIRTFP,WYFP,CSNOFG,SOFP,WTFVFG,SOTFP,SODOFP,
     $              SOCDFP,SOHTFP,SODOMX,SOCDMX
      REAL          DELT,DELT60,AIRTMP,SNCF1(5,5),IWCF1(4,5),ELEVGC,
     $              AWTFM(12),BWTFM(12),AIRTC,SOTMP,SODOX,SOCO2,AWTF,
     $              BWTF,IGCF1(3,5)
      INTEGER       DUM1(29),DUM2,DUM3(110),DUM4(13),DUM5(10),
     $              DUM6(50),DUM7(12),DUM8(49),DUMIMP(17530)
C
      EQUIVALENCE   (ASVEC,AIRTFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(WYIELD,SNCF1(4,1)),(SURO,IWCF1(2,1)),
     $              (IGST1,SOTMP),(IGST1X,SOTFP),(SOHT,IGCF1(1,1)),
     $              (SODOXM,IGCF1(2,1)),(SOCO2M,IGCF1(3,1)),
     $              (IGCF1X,SOHTFP)
      INTEGER       ASVEC(6),UNIT(5),TIMFG(6),DATIM(5),IGST1X(3),
     $              IGCF1X(3)
      REAL          WYIELD,SURO,IGST1(3),SOHT,SODOXM,SOCO2M
C     end byte:  72000 word:18000
