C     from CRHGQ.INC   
C     RCHRES module common
C
C     + + + PARAMETERS + + +
      INCLUDE 'pmxexi.inc'
C
C            GQUAL 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,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,PHVAL,ROC,BIO,
     $              GQIF1X,GQIF2X,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
      COMMON/SCRTCH/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,GQCF6,GQCF7,GQCF8,GQCF9,GQCF10,
     $              GQCF11,PDFP,DDFP,RODFP,DSFP,ROSFP,SQDFP,ADFP,ODFP,
     $              OSFP,GQADDX,GQADWX,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),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),PRECFP,AUX1FG,AUX2FG,AVDFP,SAFP,
     $              AVVFP,CCFP,WDFP,TWFP,SSEDFP(4),GQIF1X(3),
     $              GQIF2X(3,3),PHVFP,ROCFP,BIOFP(3),GQAFFP(3),
     $              GQACFP(3),NGQUAL,TEMPFG,PHFLAG,ROXFG,CLDFG,SDFG,
     $              PHYTFG,LAT,GQADFG(6),GQPM2(7,3),DAUGFG(3),
     $              GDAUFG(6),QALFG(7,3),QALGFG(3),GQALFG(7),NGQ3,
     $              LITFG,LSET,GQECNT(8),GQWCNT(3),DQFP(3),SQFP(6,3),
     $              RDFP(3),RSFP(12,3),RRFP(3),PDFP(3),DDFP(7,3),
     $              RODFP(3),DSFP(4,3),ROSFP(4,3),SQDFP(7,3),
     $              ADFP(7,3),ODFP(MXEXIT,3),OSFP(MXEXIT,3,3),GQADDX(3),
     $              GQADWX(3),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(3,5),
     $              GQIF2(3,3,5),PHVAL,ROC,BIO(3),GQID(5,3),QTYID(2,3),
     $              CONCID(3),CONV(3),CINV(3),GQAFXM(12,3),GQACNM(12,3),
     $              TEMPM(12),PHVALM(12),HYDPM(4,3),ROCM(12),
     $              ROXPM(2,3),SDCNCM(12),PHYM(12),CLDM(12),ALPH(18),
     $              GAMM(18),DEL(18),LIT(18,4),PHOTPM(20,3),FACT1,
     $              KCLD(18),CFGAS(3),BIOM(12,3),BIOPM(2,3),
     $              GENPM(2,3),C(3,3,6),ADPM(6,3,3),ADDCPM(4,3),TWAT,
     $              PHY,SDCNC,CLD,DQAL(3),SQAL(6,3),RDQAL(3),
     $              RSQAL(12,3),RRQAL(3),GQCF1(3,5),GQCF2(7,3,5),
     $              GQCF3(3,5),GQCF4(4,3,5),GQCF5(4,3,5),GQCF6(7,3,5),
     $              GQCF7(7,3,5),GQCF8(MXEXIT,3,5),GQCF9(MXEXIT,3,3,5),
     $              GQCF10(3,5),GQCF11(3,5),CFOREA,REAKT,TCGINV,REAK,
     $              EXPRED,EXPREV,KOREA,PHYTO,PH
      DOUBLE PRECISION  VOL,VOLS,GQST(3,5)
      INTEGER       DUM1(505),DUM2(102),DUM3(1523),DUM4(504),
     $              DUM5(104),DUM6(11),DUM7(710),DUM8(2),DUM9(709),
     $              DUM10(2),DUM11(4768),DUM12(1067),DUM13(2),
     $              DUM14(2),DUM15(2),DUM16(3),DUM17,DUM18(27),
     $              DUM19(230),DUM20,DUM21(169),DUM22(11),DUM23,
     $              DUM24(8),DUM25(20),DUM26(21),DUM27(4),DUM28(6),
     $              DUM29(29),DUM30(1090),DUM31(124),DUM32(20),
     $              DUM33(244),DUMRCH(3819)
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(5),TIMFG(6),DATIM(5),GQPM1(8),
     $              OXPM1
      REAL          DEPSCR(4),ROSED(4),OSED(MXEXIT,4),IDQAL(3),
     $              ISQAL(3,3),PDQAL(3),DDQAL(7,3),RODQAL(3),DSQAL(4,3),
     $              ROSQAL(4,3),SQDEC(7,3),ADQAL(7,3),ODQAL(MXEXIT,3),
     $              OSQAL(MXEXIT,3,3),GQADDR(3),GQADWT(3),OXPM4(4)
C     end byte:  72000 word:18000
