C     from CRHPH.INC   
C     RCHRES module common
C            PHCARB section
C
C     + + + PARAMETERS + + +
      INCLUDE 'pmxexi.inc'
      INTEGER    MXCONS
      PARAMETER (MXCONS = 10) 
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,VOL,VOLS,DUM2,
     $              VOLFP,DUM3,SROVOL,EROVOL,SOVOL,EOVOL,DUM4,NCONS,
     $              DUM5,CON,DUM6,CNFP,DUM7,CFPRES,DUM8,TW,DUM9,TWFP,
     $              DUM10,BENRFG,DUM11,SCRFAC,DEPCOR,AVDEPE,DUM12,DOX,
     $              DUM13,DOFP,DUM14,KOREA,DUM15,ANAER,DUM16,DECCO2,
     $              DUM17,DECFG,DUM18,PYCO2,ZOCO2,BACO2,DUM19,PHIF,
     $              PHIFX,RCPHFP,PHCNT,ALKCON,CFCINV,BRCO2,PHECNT,TIC,
     $              CO2,PH,PHSTX,SATCO2,SATCFP,PHCF1,PHCF1X,PHCF2,
     $              PHCF2X,PHCF3,PHCF3X,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),
     $              VOLFP,NCONS,CNFP(MXCONS),TWFP,BENRFG,DOFP,DECFG,
     $              PHIFX(2),RCPHFP(2),PHCNT,ALKCON,PHECNT(2),
     $              PHSTX(3),SATCFP,PHCF1X(2),PHCF2X(MXEXIT,2),
     $              PHCF3X(7)
      REAL          DELT,DELT60,DELTS,SROVOL,EROVOL,SOVOL(MXEXIT),
     $              EOVOL(MXEXIT),CFPRES,TW,SCRFAC,DEPCOR,AVDEPE,DOX,
     $              KOREA,ANAER,DECCO2,PYCO2,ZOCO2,BACO2,PHIF(2,5),
     $              CFCINV,BRCO2(2),TIC,CO2,PH,SATCO2,PHCF1(2,5),
     $              PHCF2(MXEXIT,2,5),PHCF3(7,5)
      DOUBLE PRECISION  VOL,VOLS,CON(MXCONS)
      INTEGER       DUM1(3265),DUM2(823),DUM3(5387),DUM4(90),
     $              DUM5(370),DUM6(100),DUM7(553),DUM8(230),DUM9,
     $              DUM10(4800),DUM11(4),DUM12(33),DUM13(12),
     $              DUM14(14),DUM15(351),DUM16(707),DUM17(258),
     $              DUM18(793),DUM19(107),DUMRCH(31784)
C
      EQUIVALENCE   (ASVEC,HYDRFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(OXST,DOX),(OXSTX,DOFP),
     $              (ITIC,PHIF(1,1)),(ICO2,PHIF(2,1)),
     $              (IICFP,PHIFX(1)),(ICDFP,PHIFX(2)),(PHPM1,PHCNT),
     $              (PHPM2,CFCINV),(PHST,TIC),(ICFP,PHSTX(1)),
     $              (CDFP,PHSTX(2)),(PHFP,PHSTX(3)),
     $              (ROTIC,PHCF1(1,1)),(ROCO2,PHCF1(2,1)),
     $              (ROICFP,PHCF1X(1)),(ROCDFP,PHCF1X(2)),
     $              (OTIC,PHCF2(1,1,1)),(OCO2,PHCF2(1,2,1)),
     $              (OICFP,PHCF2X(1,1)),(OCDFP,PHCF2X(1,2))
      EQUIVALENCE   (BODCO2,PHCF3(1,1)),(PHYCO2,PHCF3(2,1)),
     $              (ZOOCO2,PHCF3(3,1)),(BALCO2,PHCF3(4,1)),
     $              (BENCO2,PHCF3(5,1)),(INVCO2,PHCF3(6,1)),
     $              (TOTCO2,PHCF3(7,1))
      INTEGER       ASVEC(11),UNIT(7),TIMFG(6),DATIM(5),OXSTX(2),
     $              IICFP,ICDFP,PHPM1(2),ICFP,CDFP,PHFP,ROICFP,ROCDFP,
     $              OICFP(MXEXIT),OCDFP(MXEXIT)
      REAL          OXST(2),ITIC,ICO2,PHPM2(3),PHST(3),ROTIC,ROCO2,
     $              OTIC(MXEXIT),OCO2(MXEXIT),BODCO2,PHYCO2,ZOOCO2,
     $              BALCO2,BENCO2,INVCO2,TOTCO2
C     end byte: 200000 word:50000
