C     from CRHRQ.INC   
C     RCHRES module common
C            RQUAL section
      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,
     $              AVDEP,DUM3,AVVEL,DUM4,VOLFP,DUM5,AVDFP,DUM6,AVVFP,
     $              DUM7,TW,DUM8,TWFP,DUM9,BENRFG,SCRVEL,SCRMUL,
     $              RQFLID,SCRFAC,DEPCOR,AVDEPE,AVVELE,DUM10,SUPSAT,
     $              DUM11,DOX,BOD,OXST2,SATDO,DUM12,OXCF3,DUM13,TAMFG,
     $              NO2FG,PO4FG,AMVFG,DENFG,ADNHFG,ADPOFG,DUM14,NO3,
     $              TAM,NO2,PO4,NH4,NH3,DUM15,RNO3,RTAM,RNO2,RPO4,
     $              RNH4,RNH3,RSNH4,RSPO4,NUST,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,AVDFP,AVVFP,TWFP,BENRFG,TAMFG,NO2FG,PO4FG,
     $              AMVFG,DENFG,ADNHFG,ADPOFG
      REAL          DELT,DELT60,DELTS,AVDEP,AVVEL,TW,SCRVEL,SCRMUL,
     $              RQFLID(2),SCRFAC,DEPCOR,AVDEPE,AVVELE,SUPSAT,DOX,
     $              BOD,OXST2(2,5),SATDO,OXCF3(8,5),NO3,TAM,NO2,PO4,
     $              NH4,NH3,RNO3,RTAM,RNO2,RPO4,RNH4,RNH3,RSNH4(12),
     $              RSPO4(12),NUST(4,5)
      DOUBLE PRECISION  VOL,VOLS
      INTEGER       DUM1(3265),DUM2(712),DUM3(3),DUM4(106),DUM5(602),
     $              DUM6(3),DUM7(6167),DUM8,DUM9(4800),DUM10(18),
     $              DUM11(13),DUM12(77),DUM13(158),DUM14(111),
     $              DUM15(6),DUMRCH(33710)
C
      EQUIVALENCE   (ASVEC,HYDRFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(SCRPM,SCRVEL),(OXST,DOX),
     $              (RDOX,OXST2(1,1)),(RBOD,OXST2(2,1)),
     $              (READOX,OXCF3(1,1)),(BODDOX,OXCF3(2,1)),
     $              (BENDOX,OXCF3(3,1)),(NITDOX,OXCF3(4,1)),
     $              (PHYDOX,OXCF3(5,1)),(ZOODOX,OXCF3(6,1)),
     $              (BALDOX,OXCF3(7,1)),(TOTDOX,OXCF3(8,1)),
     $              (NUPM1,TAMFG),(DNUST,NO3),(DNUST2,RNO3),
     $              (RRNO3,NUST(1,1)),(RRTAM,NUST(2,1)),
     $              (RRNO2,NUST(3,1)),(RRPO4,NUST(4,1))
      INTEGER       ASVEC(11),UNIT(7),TIMFG(6),DATIM(5),NUPM1(7)
      REAL          SCRPM(2),OXST(2),RDOX,RBOD,READOX,BODDOX,BENDOX,
     $              NITDOX,PHYDOX,ZOODOX,BALDOX,TOTDOX,DNUST(6),
     $              DNUST2(6),RRNO3,RRTAM,RRNO2,RRPO4
C     end byte: 200000 word:50000
