C     from CRHGQ.INC   
C     RCHRES module common
C            GQUAL section
C
C     + + + PARAMETERS + + +
      INCLUDE 'pmxexi.inc'
      INTEGER    MXGQAL,MXGQ2
      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,PREC,DUM2,PRECFP,
     $              DUM3,AUX1FG,AUX2FG,DUM4,DELTH,DUM5,LEN,DUM6,VOL,
     $              VOLS,DUM7,AVDEP,DUM8,SAREA,AVVEL,DUM9,AVDFP,DUM10,
     $              SAFP,AVVFP,DUM11,SROVOL,EROVOL,SOVOL,EOVOL,DUM12,
     $              CLOUD,DUM13,WIND,DUM14,CCFP,DUM15,WDFP,DUM16,ELEV,
     $              DUM17,CFSAEX,DUM18,CFPRES,DUM19,TW,DUM20,TWFP,
     $              DUM21,RSED,SSED,DUM22,SSEDFP,DUM23,SDCF1,SDCF2,
     $              DUM24,SDCF3,DUM25,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
      COMMON/SCRTCH/CINV,GQAFXM,GQACNM,TEMPM,PHVALM,HYDPM,ROCM,ROXPM,
     $              SDCNCM,PHYM,CLDM,ALPH,GAMM,DEL,LIT,PHOTPM,FACT1,
     $              KCLD,CFGAS,BIOM,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,DUM26,
     $              REAMFG,DUM27,CFOREA,REAKT,DUM28,TCGINV,REAK,
     $              EXPRED,EXPREV,DUM29,KOREA,DUM30,PHYFG,DUM31,PHYTO,
     $              DUM32,PYFP,DUM33,PH,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,AUX1FG,AUX2FG,AVDFP,SAFP,AVVFP,CCFP,WDFP,
     $              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)
      INTEGER       RRFP(MXGQAL),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),
     $              REAMFG,PHYFG,PYFP
      REAL          DELT,DELT60,DELTS,PREC,DELTH,LEN,AVDEP,SAREA,
     $              AVVEL,SROVOL,EROVOL,SOVOL(MXEXIT),EOVOL(MXEXIT),
     $              CLOUD,WIND,ELEV,CFSAEX,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)
      REAL          GQCF5(4,MXGQAL,5),TROQAL(MXGQAL),
     $              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),
     $              CFOREA,REAKT,TCGINV,REAK,EXPRED,EXPREV,KOREA,
     $              PHYTO,PH
      DOUBLE PRECISION  VOL,VOLS,GQST(MXGQAL,5)
      INTEGER       DUM1(505),DUM2(207),DUM3(1523),DUM4(505),
     $              DUM5(504),DUM6(15),DUM7(712),DUM8(2),DUM9(709),
     $              DUM10(2),DUM11(4780),DUM12(1097),DUM13(2),
     $              DUM14(4),DUM15(2),DUM16(5),DUM17,DUM18(27),
     $              DUM19(230),DUM20,DUM21(181),DUM22(14),DUM23(4),
     $              DUM24(8),DUM25(20),DUM26(23),DUM27(4),DUM28(6),
     $              DUM29(29),DUM30(1313),DUM31(226),DUM32(33),
     $              DUM33(670),DUMRCH(31903)
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)),(OXPM1,REAMFG)
      EQUIVALENCE   (OXPM4,TCGINV)
      INTEGER       ASVEC(11),UNIT(7),TIMFG(6),DATIM(5),GQPM1(8),
     $              OXPM1
      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),OXPM4(4)
C     end byte: 200000 word:50000
