      COMMON/CGAS/IDOGAS,NGAS,NGSSH(MXPIRR,MXPNGAS),
     &            NGSOB(MXPOBS,MXPNGAS),
     &            NGSOBT(MXPNGAS),IGSOCC(MXPNGAS,2),IGSINA,IGSDEL,
     &            IGSOCCX(MXPNGAS,2,MXPICI),NCISPC,
     &            NCMBSPC, LCMBSPC(MXPICI),ICMBSPC(MXPSTT,MXPICI),
     &            NMXOCCLS,IPHGAS(MXPNGAS),IHPVGAS(MXPNGAS),     
     &            IPHGAS1(MXPNGAS),NGSOCC_AS,IGSOCCG(MXPNGAS,2,MXPICI),
     &            IHPVGAS_AB(MXPNGAS,2),
     &            IREFOCC(MXPNGAS),IREFOCC_ACC(MXPNGAS,2),
     &            IALTP_FOR_GAS(MXPICI),IBETP_FOR_GAS(MXPICI),
     &            IPHGASS(MXPNGAS),IOCCPSPC(MXPNGAS,2),
     &            NOCCLS_MAX, N_ABSPGP_MAX, I_CHECK_ENSGS,
     &            IENSGS(MXPNGAS,MXPICI),LENSGS(MXPICI),NENSGS,
     &            NELVAL_IN_ENSGS(MXPICI),IEL_IN_ENSGS(MXPNEL,MXPICI),
     &            NELVAL_IN_ENSGS_CMP,IEL_IN_ENSGS_CMP(MXPNEL),
     &            NOCSBCLST,IBOCSBCLS(MXPNGAS),
     &            NOCSBSLS(MXPNGAS),MINOPGAS(MXPNGAS),
     &            ngas_bu,ihpvgas_bu(mxpngas)
