C     from CRHHD.INC   
C     RCHRES module common
C            HYDR section
C
C     + + + PARAMETERS + + +
      INCLUDE 'pmxexi.inc'
      INCLUDE 'phcat.inc'
C
      COMMON/SCRTCH/HYDRFG,ADFG,CONSFG,HTFG,SEDFG,GQFG,OXFG,NUTFG,
     $              PLKFG,PHFG,ACIDFG,DUMZ,PFLAG,BFLAG,DUMY,PIVL,BIVL,
     $              PYREND,BYREND,RCHPFG,RCHBFG,UUNITS,IUNITS,OUNITS,
     $              PUNIT,BUNIT,MESSU,MSGFL,RCHNO,RCHID,DELT,DELT60,
     $              DELTS,NDAY,NDAYS,LKFG,NEXITS,HRFG,DAYFG,STFG,
     $              EDAYFG,EMONFG,EPYRFG,EBYRFG,YR,MON,DAY,HR,MIN,IVL,
     $              IVL1,PIVLNO,BIVLNO,NXTMON,SPAFP,SPAKND,SPIVL,
     $              SPOPNO,SPOUT,SPNUND,DUMGEN,HYIF,HYIFC,PREC,POTEV,
     $              IVOLFP,RCVFP,CIVLFP,RCCVFP,PRECFP,PEVFP,COLIND,
     $              OUTDGT,COTDGT,COREL,COLIFP,ODGTFP,CODGTX,NCATS,
     $              VCONFG,AUX1FG,AUX2FG,AUX3FG,ODFVFG,ODGTFG,FUNCT,
     $              VZERPT,NROWS,NCOLS,NODFV,NODGT,IREXIT,CPREC,CEVAP,
     $              CFVOL,NCOGT,CPRECC,CEVAPC,CEVAPP,CFVOLC,CFVOLP,
     $              COGTC,COGTE,CPRECF,CFVOLF,CEVAPF,COGTP,KS,COKS,
     $              FACTA1,CONVFM,DELTH,DB50,AKAPPA,GAM,GRAV,RCHTAB,
     $              LEN,STCOR,SLOPE,DUMIRR,IRMINV,ROWPT,HYWCNT,HYECNT,
     $              DUMVOL,VOL,VOLS,PREVOL,RIRWDL,CVOL,CDFVOL,DEP,
     $              STAGE,AVDEP,TWID,HRAD,SAREA,AVVEL,AVSECT,USTAR,
     $              TAU,RO,ROS,CRO,CONVF,VOLFP,CVOLFP,CDFVFP,DEPFP
      COMMON/SCRTCH/STAGFP,AVDFP,TWIDFP,HRADFP,SAFP,AVVFP,AVSFP,USTFP,
     $              TAUFP,ROFP,CROFP,O,OS,CO,OFP,COFP,HYCF1,HYCF1C,
     $              PRSFP,VEVFP,ROVFP,CROVFP,HYCF2,HYCF2C,OVFP,COVFP,
     $              HYIRCF,RIRDMX,RIRSHX,DUMRCH
      INTEGER       HYDRFG,ADFG,CONSFG,HTFG,SEDFG,GQFG,OXFG,NUTFG,
     $              PLKFG,PHFG,ACIDFG,DUMZ(2),PFLAG(11),BFLAG(11),
     $              DUMY(1),PIVL,BIVL,PYREND,BYREND,RCHPFG,RCHBFG,
     $              UUNITS,IUNITS,OUNITS,PUNIT(2),BUNIT(2),MESSU,
     $              MSGFL,RCHNO,RCHID(5),NDAY(12),NDAYS,LKFG,NEXITS,
     $              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),
     $              IVOLFP,RCVFP,CIVLFP(MXCAT),RCCVFP(MXCAT),PRECFP,
     $              PEVFP,COLIFP(MXEXIT),ODGTFP(MXEXIT),
     $              CODGTX(MXEXIT,MXCAT),NCATS,VCONFG,AUX1FG,AUX2FG,
     $              AUX3FG,ODFVFG(MXEXIT),ODGTFG(MXEXIT),
     $              FUNCT(MXEXIT),VZERPT,NROWS,NCOLS,NODFV,NODGT,
     $              IREXIT,CPREC,CEVAP,CFVOL(MXEXIT),NCOGT,
     $              CPRECC(MXCUSR),CEVAPC(MXCUSR),CEVAPP(MXCUSR),
     $              CFVOLC(MXCUSR,MXEXIT),CFVOLP(MXCUSR,MXEXIT),
     $              COGTC(MXCUSR),COGTE(MXCUSR),DUMIRR,ROWPT,
     $              HYWCNT(2),HYECNT(6),DUMVOL,VOLFP,CVOLFP(MXCAT)
      INTEGER       CDFVFP(MXEXIT,MXCAT),DEPFP,STAGFP,AVDFP,TWIDFP,
     $              HRADFP,SAFP,AVVFP,AVSFP,USTFP,TAUFP,ROFP,
     $              CROFP(MXCAT),OFP(MXEXIT),COFP(MXEXIT,MXCAT),PRSFP,
     $              VEVFP,ROVFP,CROVFP(MXCAT),OVFP(MXEXIT),
     $              COVFP(MXEXIT,MXCAT),RIRDMX,RIRSHX
      REAL          DELT,DELT60,DELTS,HYIF(5),HYIFC(MXCAT,5),PREC,
     $              POTEV(5),COLIND(MXEXIT),OUTDGT(MXEXIT),
     $              COTDGT(MXEXIT,MXCAT),COREL(MXEXIT,MXCAT),
     $              CPRECF(MXCUSR),CFVOLF(MXCUSR,MXEXIT),
     $              CEVAPF(MXCUSR),COGTP(MXCUSR),KS,COKS,FACTA1,
     $              CONVFM(12),DELTH,DB50,AKAPPA,GAM,GRAV,RCHTAB(500),
     $              LEN,STCOR,SLOPE,CDFVOL(MXEXIT,MXCAT),DEP,STAGE,
     $              AVDEP,TWID,HRAD,SAREA,AVVEL,AVSECT,USTAR,TAU,RO,
     $              ROS,CRO(MXCAT),CONVF,O(MXEXIT),OS(MXEXIT),
     $              CO(MXEXIT,MXCAT),HYCF1(3,5),HYCF1C(MXCAT,5),
     $              HYCF2(MXEXIT,5),HYCF2C(MXEXIT,MXCAT,5),
     $              HYIRCF(2,5)
      DOUBLE PRECISION  IRMINV,VOL,VOLS,PREVOL(4),RIRWDL,CVOL(MXCAT)
      INTEGER       DUMRCH(40410)
C
      EQUIVALENCE   (ASVEC,HYDRFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(IVOL,HYIF(1)),(CIVOL,HYIFC(1,1)),
     $              (HYPM1,VCONFG),(CATEG,CPREC),(VOLUME,VOL),
     $              (HYST,DEP),(ROFLO,RO),(HYSTX,DEPFP),(OFLO,O(1)),
     $              (PRSUPY,HYCF1(1,1)),(VOLEV,HYCF1(2,1)),
     $              (ROVOL,HYCF1(3,1)),(CROVOL,HYCF1C(1,1)),
     $              (HYCF1X,PRSFP),(OVOL,HYCF2(1,1)),
     $              (COVOL,HYCF2C(1,1,1)),(RIRDEM,HYIRCF(1,1)),
     $              (RIRSHT,HYIRCF(2,1))
      INTEGER       ASVEC(11),UNIT(7),TIMFG(6),DATIM(5),HYPM1(19),
     $              CATEG(8),HYSTX(5),HYCF1X(3)
      REAL          IVOL,CIVOL(MXCAT),HYST(5),ROFLO(2),OFLO(MXEXIT,2),
     $              PRSUPY,VOLEV,ROVOL,CROVOL(MXCAT),OVOL(MXEXIT),
     $              COVOL(MXEXIT,MXCAT),RIRDEM,RIRSHT
      DOUBLE PRECISION  VOLUME(2)
C     end byte: 200000 word:50000
