C     from CRHCO.INC   
C     RCHRES module common
C            CONS section
C
C     + + + PARAMETERS + + +
      INCLUDE 'pmxexi.inc'
      INTEGER    MXCONS,MXCON2
      PARAMETER (MXCONS = 10) 
      PARAMETER (MXCON2 = 20) 
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,DUM1,PREC,DUM2,PRECFP,
     $              DUM3,VOL,VOLS,DUM4,SAREA,DUM5,VOLFP,DUM6,SAFP,
     $              DUM7,SROVOL,EROVOL,SOVOL,EOVOL,CNIF,ICNFP,RCCNFP,
     $              COAFFP,COACFP,NCONS,COADFG,CONID,CQTYID,CCONCD,
     $              CCONV,COAFXM,COACNM,CNWCNT,CON,CNST,CNFP,CNCF1,
     $              ROCNFP,CNCF2,OCNFP,CNCF3,CNCF4,COADEP,COADDX,
     $              COADWX,COADPX,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),
     $              PRECFP,VOLFP,SAFP,ICNFP(MXCONS),RCCNFP(MXCONS),
     $              COAFFP(MXCONS),COACFP(MXCONS),NCONS,
     $              COADFG(MXCON2),CNWCNT(MXCONS),CNFP(MXCONS),
     $              ROCNFP(MXCONS),OCNFP(MXEXIT,MXCONS),
     $              COADDX(MXCONS),COADWX(MXCONS),COADPX(MXCONS)
      REAL          DELT,DELT60,DELTS,PREC,SAREA,SROVOL,EROVOL,
     $              SOVOL(MXEXIT),EOVOL(MXEXIT),CNIF(MXCONS,5),
     $              CONID(5,MXCONS),CQTYID(2,MXCONS),CCONCD(2,MXCONS),
     $              CCONV(MXCONS),COAFXM(12,MXCONS),COACNM(12,MXCONS),
     $              CNCF1(MXCONS,5),CNCF2(MXEXIT,MXCONS,5),
     $              CNCF3(MXCONS,5),CNCF4(MXCONS,5),COADEP(MXCONS)
      DOUBLE PRECISION  VOL,VOLS,CON(MXCONS),CNST(MXCONS,5)
      INTEGER       DUM1(505),DUM2(207),DUM3(2551),DUM4(715),
     $              DUM5(107),DUM6(605),DUM7(4781),DUMRCH(39306)
C
      EQUIVALENCE   (ASVEC,HYDRFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(ICON,CNIF(1,1)),(RCON,CNST(1,1)),
     $              (ROCON,CNCF1(1,1)),(OCON,CNCF2(1,1,1)),
     $              (COADDR,CNCF3(1,1)),(COADWT,CNCF4(1,1))
      INTEGER       ASVEC(11),UNIT(7),TIMFG(6),DATIM(5)
      REAL          ICON(MXCONS),ROCON(MXCONS),OCON(MXEXIT,MXCONS),
     $              COADDR(MXCONS),COADWT(MXCONS)
      DOUBLE PRECISION  RCON(MXCONS)
C     end byte: 200000 word:50000
