C     from CRHOX.INC   
C     RCHRES module common
C
C     + + + PARAMETERS + + +
      INCLUDE 'pmxexi.inc'
C
C            OXRX section
      COMMON/SCRTCH/HYDRFG,ADFG,CONSFG,HTFG,SEDFG,GQFG,OXFG,NUTFG,
     $              PLKFG,PHFG,ACIDFG,DUMZ,PFLAG,DUMY,PIVL,PYREND,
     $              RCHPFG,UUNITS,IUNITS,OUNITS,PUNIT,MESSU,MSGFL,
     $              RCHNO,RCHID,DELT,DELT60,DELTS,NDAY,NDAYS,LKFG,
     $              NEXITS,HRFG,DAYFG,STFG,EDAYFG,EMONFG,EPYRFG,YR,
     $              MON,DAY,HR,MIN,IVL,IVL1,PIVLNO,NXTMON,SPAFP,
     $              SPAKND,SPIVL,SPOPNO,DUMGEN,DUM1,DELTH,DUM2,LEN,
     $              DUM3,VOL,VOLS,DUM4,VOLFP,DUM5,SROVOL,EROVOL,SOVOL,
     $              EOVOL,DUM6,WIND,DUM7,WDFP,DUM8,ELEV,DUM9,CFPRES,
     $              DUM10,TW,DUM11,TWFP,DUM12,GQALFG,DUM13,BENRFG,
     $              DUM14,SCRFAC,DEPCOR,AVDEPE,AVVELE,OXIF,OXIFX,
     $              REAMFG,KBOD20,TCBOD,KODSET,SUPSAT,CFOREA,REAKT,
     $              BENOD,TCBEN,EXPOD,BRBOD,EXPREL,TCGINV,REAK,EXPRED,
     $              EXPREV,OXWCNT,DOX,BOD,OXST2,SATDO,DOFP,BODFP,
     $              SATFP,OXCF1,OXCF1X,KOREA,BODOX,OXCF2,OXCF2X,OXCF3,
     $              OXCF4,DUMRCH
      INTEGER       HYDRFG,ADFG,CONSFG,HTFG,SEDFG,GQFG,OXFG,NUTFG,
     $              PLKFG,PHFG,ACIDFG,DUMZ(2),PFLAG(11),DUMY(1),PIVL,
     $              PYREND,RCHPFG,UUNITS,IUNITS,OUNITS,PUNIT(2),MESSU,
     $              MSGFL,RCHNO,RCHID(5),NDAY(12),NDAYS,LKFG,NEXITS,
     $              HRFG,DAYFG,STFG,EDAYFG,EMONFG,EPYRFG,YR,MON,DAY,
     $              HR,MIN,IVL,IVL1,PIVLNO,NXTMON,SPAFP,SPAKND,SPIVL,
     $              SPOPNO,DUMGEN(15),VOLFP,WDFP,TWFP,GQALFG(7),
     $              BENRFG,OXIFX(2),REAMFG,OXWCNT,DOFP,BODFP,SATFP,
     $              OXCF1X(2),OXCF2X(MXEXIT,2)
      REAL          DELT,DELT60,DELTS,DELTH,LEN,SROVOL,EROVOL,
     $              SOVOL(MXEXIT),EOVOL(MXEXIT),WIND,ELEV,CFPRES,TW,
     $              SCRFAC,DEPCOR,AVDEPE,AVVELE,OXIF(2,5),KBOD20,TCBOD,
     $              KODSET,SUPSAT,CFOREA,REAKT,BENOD,TCBEN,EXPOD,
     $              BRBOD(2),EXPREL,TCGINV,REAK,EXPRED,EXPREV,DOX,BOD,
     $              OXST2(2,5),SATDO,OXCF1(2,5),KOREA,BODOX,
     $              OXCF2(MXEXIT,2,5),OXCF3(7,5),OXCF4(7,5)
      DOUBLE PRECISION  VOL,VOLS
      INTEGER       DUM1(2638),DUM2(104),DUM3(11),DUM4(821),
     $              DUM5(5375),DUM6(1070),DUM7(5),DUM8(3),DUM9(29),
     $              DUM10(230),DUM11,DUM12(523),DUM13(1696),DUM14(4),
     $              DUMRCH(5170)
C
      EQUIVALENCE   (ASVEC,HYDRFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(IDOX,OXIF(1,1)),(IBOD,OXIF(2,1)),
     $              (IDOFP,OXIFX(1)),(IODFP,OXIFX(2)),(OXPM1,REAMFG),
     $              (OXPM2,KBOD20),(OXPM3,BENOD),(OXPM4,TCGINV),
     $              (OXST,DOX),(RDOX,OXST2(1,1)),(RBOD,OXST2(2,1)),
     $              (OXSTX,DOFP),(RODOX,OXCF1(1,1)),
     $              (ROBOD,OXCF1(2,1)),(RODOFP,OXCF1X(1)),
     $              (ROODFP,OXCF1X(2)),(ODOX,OXCF2(1,1,1)),
     $              (OBOD,OXCF2(1,2,1)),(ODOFP,OXCF2X(1,1)),
     $              (OODFP,OXCF2X(1,2)),(READOX,OXCF3(1,1))
      EQUIVALENCE   (BODDOX,OXCF3(2,1)),(BENDOX,OXCF3(3,1)),
     $              (NITDOX,OXCF3(4,1)),(PHYDOX,OXCF3(5,1)),
     $              (ZOODOX,OXCF3(6,1)),(BALDOX,OXCF3(7,1)),
     $              (DECBOD,OXCF4(1,1)),(BNRBOD,OXCF4(2,1)),
     $              (SNKBOD,OXCF4(3,1)),(DENBOD,OXCF4(4,1)),
     $              (PHYBOD,OXCF4(5,1)),(ZOOBOD,OXCF4(6,1)),
     $              (BALBOD,OXCF4(7,1))
      INTEGER       ASVEC(11),UNIT(5),TIMFG(6),DATIM(5),IDOFP,IODFP,
     $              OXPM1,OXSTX(2),RODOFP,ROODFP,ODOFP(MXEXIT),
     $              OODFP(MXEXIT)
      REAL          IDOX,IBOD,OXPM2(4),OXPM3(6),OXPM4(4),OXST(2),RDOX,
     $              RBOD,RODOX,ROBOD,ODOX(MXEXIT),OBOD(MXEXIT),READOX,
     $              BODDOX,BENDOX,NITDOX,PHYDOX,ZOODOX,BALDOX,DECBOD,
     $              BNRBOD,SNKBOD,DENBOD,PHYBOD,ZOOBOD,BALBOD
C     end byte:  72000 word:18000
