C     from CILGE.INC   
C     IMPLND module common
C            GENERAL 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,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)
      REAL          DELT,DELT60
      INTEGER       DUMIMP(17907)
C
      EQUIVALENCE   (ASVEC,AIRTFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR)
      INTEGER       ASVEC(6),UNIT(5),TIMFG(6),DATIM(5)
C     end byte:  72000 word:18000
