COMMON/RE/BSJKLM(4,3,9,6),RPJ(4),RPJK(4,3),RPK,RPKK(3),RYJ(4), &RYJK(4,3),RYKL(2),RYKK(3),SJKL(4,3,9),ZLM(9,6),ZLXM(10,6) COMMON/REPN/BPSLM(9,6),BPKL(3,9),BSUILM(6,9,6),GNP(9,6), & GNPLM(10,6),GNPBL(9),HIJ(3),HJ(4),HJK(4,3),HUIL(6,9),ZL(9), & RPKL(3,9),PHYDRO(9),RUI(5),RYL(9),SJKLP(4,3,9),TEST,TRI(3), & TXILM(3,9,6),TXJKLM(4,3,9,6),XIL(3,9) COMMON/REVX/EDIMKT(6),ESIMKT(6),UIJ(3,3),VIJ(3,3),XI(3),OLDXI(3), & OLDPI(3),DX(3),NAGN,NFAIL,NTIMES COMMON/RES/BESILM(5,9,6),ESRL1M(9,6),ESRL2M(9,6), & BSCIL(2,9),CIL(5,9),CSLT(9,3),ESR1M(6),ESR2M(6), & ESIL1M(3,9,6),ESIL2M(3,9,6),ESRILM(6,9,6), & FLRL(3,9),HCILT(2,9,3),RCI(2),SFLRL(9),RYSHT,EBRSLM(9,6) COMMON/DREPT/BSKL(3,9),GJ(4),GJK(4,3),PAUIL(3,9),PCIL(3,9), & PIM(3,6),PJLM(4,9,6),PJKLM(4,3,9,6),PKLM(3,9,6), & PUILM(6,9,6),TKL(3,9),NUB COMMON/DOSPER/EDIL(6,9),EDIKL(6,4,9), & EDRIKL(6,4,9),EFJKL(4,4,9),ESIL(6,9),FJKL(4,3,9), & FJL(4,9),GCI(2),GIJ(3),GUI(6),HYDRO(5,9),PILM(6,9,6),PROL(9), & SCIL(3,9),SUIL(6,9),TESIL(9),YLM(9,6),BIOLM(9,2),BIOPSM(4,2,2),M COMMON/OUT1/CEFLM(9,6),CEFM(6),CONLM(9,6),CONM(6),EDM(6), & EDIM(6,6),EDKL(4,9),EDLM(9,6),EDRM(6),EDRKM(6), & EDRIM(6,9),EDRIKM(6,6),EDRIL(6,9),EDRKLM(4,9,6),EDRLM(9,6), & EFM(6),EFJM(4,6),EFJL(4,9),EFKL(4,9),EFLM(9,6), & EPCLM(10,6),EPGLM(10,6) COMMON/OUT2/ESM(6),ESIM(6,6),ESLM(9,6),ESRM(6),ESRIM(6,6), & ESI1M(6,6),ESI2M(6,6),ESL1M(9,6),ESL2M(9,6),ESRLM(9,6), & ESUM(6),ESUIM(6,6),ESUILM(6,9,6), & ESULM(9,6),EXM(6),EXIL(6,9),EXIM(6,6),EXLM(9,6), & GNPFLM(10,6),GNPPCM(10,6),SYNM(6),SYNIM(6,6), & SYNILM(6,9,6),SYNLM(9,6) COMMON/PCP/NF,NFF,NI,NIG,NIM,NIP,NIS,NNIS,NJ,NJUMP,NKKL(9),NKL(9), & NKMAX,NKKMAX,NL,NM,NMREAD,NMKT,NU,MAXAGN,NCO2,NOPT(10), & NSTEP,NPUNT COMMON/RC/COI(7),SBURNL(9,3),SFEDIL(3,9),SHALE(9,3), & CO2IM(8,6),CO2LM(9,6),CO2M(6),CO2IIM(6,6) COMMON/RHM/SVENTL(9,3),CHI(5),CHILM(2,9,6),CMSWL(9),SDOCLM(9,6), & CICWL(9),SAXLM(9,6),CH4LM(9,6),CH4IM(7,6),CH4M(6),SBIO(9,6), & SGAST(9,6),SGASP(9,6),CLDF,SLDFLM(9,6),EBIOL(9),RPBIOL(9), & RYBIOL(9),SWASL(9) COMMON/RS/QISLM(5,9,6),RIGISL(5,5,9),CIGIS(6,5),VISL(5,9), & RIL(5,9),STISL(5,9),BESIL(5,9),ESFIL(5,9) COMMON/IOCNTRL/IUNIT,IOUNIT,JUNIT COMMON/OPT/JOPT(2),MALL,KOPT COMMON/EG/SOLUSE(2,6) COMMON/BLKRAN/PARMT(79) COMMON/TEM/TPIM(3,6)