C     from CRHAC.INC   
C     RCHRES module common
C            ACIDPH section
C
C     + + + PARAMETERS + + +
      INCLUDE 'pmxexi.inc'
      INTEGER    MXCONS,MXGQAL,MXGQ2
      PARAMETER (MXCONS = 10) 
      PARAMETER (MXGQAL = 7) 
      PARAMETER (MXGQ2 = 14) 
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,
     $              AVDEP,DUM3,VOLFP,DUM4,AVDFP,DUM5,SROVOL,EROVOL,
     $              SOVOL,EOVOL,DUM6,NCONS,DUM7,CON,DUM8,CNFP,DUM9,
     $              CFPRES,DUM10,TW,DUM11,TWFP,DUM12,RSED,SSED,DUM13,
     $              SSEDFP,DUM14,SDCF1,SDCF2,DUM15,SDCF3,DUM16,GQIF1,
     $              GQIF2,TIQAL,PHVAL,ROC,BIO,GQIF1X,RCDQFP,GQIF2X,
     $              RCSQFP,TIQALX,PHVFP,ROCFP,BIOFP,GQAFFP,GQACFP,
     $              NGQUAL,TEMPFG,PHFLAG,ROXFG,CLDFG,SDFG,PHYTFG,LAT,
     $              GQADFG,GQPM2,DAUGFG,GDAUFG,QALFG,QALGFG,GQALFG,
     $              NGQ3,GQID,QTYID,CONCID,CONV,CINV,GQAFXM,GQACNM,
     $              TEMPM,PHVALM,HYDPM,ROCM,ROXPM,SDCNCM,PHYM,CLDM,
     $              ALPH,GAMM,DEL,LIT,PHOTPM,FACT1,KCLD,CFGAS,BIOM
      COMMON/SCRTCH/BIOPM,GENPM,C,ADPM,ADDCPM,LITFG,LSET,GQECNT,
     $              GQWCNT,TWAT,PHY,SDCNC,CLD,DQAL,SQAL,RDQAL,RSQAL,
     $              RRQAL,GQST,DQFP,SQFP,RDFP,RSFP,RRFP,GQCF1,GQCF2,
     $              GQCF3,GQCF4,GQCF5,TROQAL,GQCF6,GQCF7,GQCF8,GQCF9,
     $              TOSQAL,TOQAL,GQCF10,GQCF11,GQADEP,PDFP,DDFP,RODFP,
     $              DSFP,ROSFP,TROQFP,SQDFP,ADFP,ODFP,OSFP,TOSFP,
     $              TOQFP,GQADDX,GQADWX,GQADPX,DUM17,ACFLAG,ACPARM,
     $              NUMCHM,NUMCON,NUMGQL,ACNAME,ACECNT,ACWCNT,ACCONC,
     $              ACCNFP,ACSTOR,ACSTFP,ACINFL,ACINFP,RCACIX,ACFLX1,
     $              ACF1FP,ACFLX2,ACF2FP,ACFLXC,ACFCFP,ACFLXG,ACFGFP,
     $              ACFLX3,ACPH,ACPHFP,ACCONV,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,NCONS,CNFP(MXCONS),TWFP,SSEDFP(4),
     $              GQIF1X(MXGQAL),RCDQFP(MXGQAL),GQIF2X(3,MXGQAL),
     $              RCSQFP(4,MXGQAL),TIQALX(MXGQAL),PHVFP,ROCFP,
     $              BIOFP(MXGQAL),GQAFFP(MXGQAL),GQACFP(MXGQAL),
     $              NGQUAL,TEMPFG,PHFLAG,ROXFG,CLDFG,SDFG,PHYTFG,LAT,
     $              GQADFG(MXGQ2),GQPM2(7,MXGQAL),DAUGFG(MXGQAL),
     $              GDAUFG(6),QALFG(7,MXGQAL),QALGFG(MXGQAL),
     $              GQALFG(7),NGQ3,LITFG,LSET,GQECNT(8),
     $              GQWCNT(MXGQAL),DQFP(MXGQAL),SQFP(6,MXGQAL),
     $              RDFP(MXGQAL),RSFP(12,MXGQAL),RRFP(MXGQAL)
      INTEGER       PDFP(MXGQAL),DDFP(7,MXGQAL),RODFP(MXGQAL),
     $              DSFP(4,MXGQAL),ROSFP(4,MXGQAL),TROQFP(MXGQAL),
     $              SQDFP(7,MXGQAL),ADFP(7,MXGQAL),
     $              ODFP(MXEXIT,MXGQAL),OSFP(MXEXIT,3,MXGQAL),
     $              TOSFP(MXEXIT,MXGQAL),TOQFP(MXEXIT,MXGQAL),
     $              GQADDX(MXGQAL),GQADWX(MXGQAL),GQADPX(MXGQAL),
     $              ACFLAG(14),NUMCHM,NUMCON,NUMGQL,ACNAME(7,3),
     $              ACECNT(10),ACWCNT(5),ACCNFP(7),ACSTFP(7),
     $              ACINFP(7),RCACIX(7),ACF1FP(7),ACF2FP(MXEXIT,7),
     $              ACFCFP(MXCONS),ACFGFP(MXGQAL),ACPHFP
      REAL          DELT,DELT60,DELTS,AVDEP,SROVOL,EROVOL,
     $              SOVOL(MXEXIT),EOVOL(MXEXIT),CFPRES,TW,RSED(10),
     $              SSED(4),SDCF1(4,5),SDCF2(4,5),SDCF3(MXEXIT,4,5),
     $              GQIF1(MXGQAL,5),GQIF2(4,MXGQAL,5),TIQAL(MXGQAL),
     $              PHVAL,ROC,BIO(MXGQAL),GQID(5,MXGQAL),
     $              QTYID(2,MXGQAL),CONCID(MXGQAL),CONV(MXGQAL),
     $              CINV(MXGQAL),GQAFXM(12,MXGQAL),GQACNM(12,MXGQAL),
     $              TEMPM(12),PHVALM(12),HYDPM(4,MXGQAL),ROCM(12),
     $              ROXPM(2,MXGQAL),SDCNCM(12),PHYM(12),CLDM(12),
     $              ALPH(18),GAMM(18),DEL(18),LIT(18,4),
     $              PHOTPM(20,MXGQAL),FACT1,KCLD(18),CFGAS(MXGQAL),
     $              BIOM(12,MXGQAL),BIOPM(2,MXGQAL),GENPM(2,MXGQAL),
     $              C(MXGQAL,MXGQAL,6),ADPM(6,3,MXGQAL),
     $              ADDCPM(4,MXGQAL),TWAT,PHY,SDCNC,CLD,DQAL(MXGQAL),
     $              SQAL(6,MXGQAL),RDQAL(MXGQAL),RSQAL(12,MXGQAL),
     $              RRQAL(MXGQAL),GQCF1(MXGQAL,5),GQCF2(7,MXGQAL,5),
     $              GQCF3(MXGQAL,5),GQCF4(4,MXGQAL,5),
     $              GQCF5(4,MXGQAL,5),TROQAL(MXGQAL)
      REAL          GQCF6(7,MXGQAL,5),GQCF7(7,MXGQAL,5),
     $              GQCF8(MXEXIT,MXGQAL,5),GQCF9(MXEXIT,3,MXGQAL,5),
     $              TOSQAL(MXEXIT,MXGQAL),TOQAL(MXEXIT,MXGQAL),
     $              GQCF10(MXGQAL,5),GQCF11(MXGQAL,5),GQADEP(MXGQAL),
     $              ACPARM(7),ACCONC(7),ACSTOR(7,5),ACINFL(7,5),
     $              ACFLX1(7,5),ACFLX2(MXEXIT,7,5),ACFLXC(MXCONS,5),
     $              ACFLXG(MXGQAL,5),ACFLX3(7,5),ACPH,ACCONV(7)
      DOUBLE PRECISION  VOL,VOLS,CON(MXCONS),GQST(MXGQAL,5)
      INTEGER       DUM1(3265),DUM2(712),DUM3(110),DUM4(602),
     $              DUM5(4784),DUM6(90),DUM7(370),DUM8(100),DUM9(553),
     $              DUM10(230),DUM11,DUM12(181),DUM13(14),DUM14(4),
     $              DUM15(8),DUM16(20),DUM17(2435),DUMRCH(31221)
C
      EQUIVALENCE   (ASVEC,HYDRFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(DEPSCR,SDCF1(1,1)),(ROSED,SDCF2(1,1)),
     $              (OSED,SDCF3(1,1,1)),(IDQAL,GQIF1(1,1)),
     $              (ISQAL,GQIF2(1,1,1)),(GQPM1,NGQUAL),
     $              (PDQAL,GQCF1(1,1)),(DDQAL,GQCF2(1,1,1)),
     $              (RODQAL,GQCF3(1,1)),(DSQAL,GQCF4(1,1,1)),
     $              (ROSQAL,GQCF5(1,1,1)),(SQDEC,GQCF6(1,1,1)),
     $              (ADQAL,GQCF7(1,1,1)),(ODQAL,GQCF8(1,1,1)),
     $              (OSQAL,GQCF9(1,1,1,1)),(GQADDR,GQCF10(1,1)),
     $              (GQADWT,GQCF11(1,1))
      INTEGER       ASVEC(11),UNIT(7),TIMFG(6),DATIM(5),GQPM1(8)
      REAL          DEPSCR(4),ROSED(4),OSED(MXEXIT,4),IDQAL(MXGQAL),
     $              ISQAL(4,MXGQAL),PDQAL(MXGQAL),DDQAL(7,MXGQAL),
     $              RODQAL(MXGQAL),DSQAL(4,MXGQAL),ROSQAL(4,MXGQAL),
     $              SQDEC(7,MXGQAL),ADQAL(7,MXGQAL),
     $              ODQAL(MXEXIT,MXGQAL),OSQAL(MXEXIT,3,MXGQAL),
     $              GQADDR(MXGQAL),GQADWT(MXGQAL)
C     end byte: 200000 word:50000
