c
c     common block for EE-MCMM
c
      common /eemci1/ mciee, mciuph, mccdqv, mccdqr,
     &                mciups, mciuvs, mciurs, mcifqs, mcifqv, mcifqr
      common /eemci2/ menicz, mendiz, menanz, menadz, mendaz,             0529MH10
     &                meidiz(2,mcmics), meianz(3,mcmics),                 0529MH10
     &                meiadz(3,mcmics), meidaz(4,mcmics), meiczr(mcmics)  0529MH10
c
      common /eemcr1/ chg0(mcmatm,2), phi0(mcmatm,2),qii0(mcmics,2),
     &                dqdv0(mcmatm,mcmatm,2), dqdr0(mcmcar,mcmatm,2),
     &                dqdri0(mcmics,mcmatm,2)
      common /eemcr2/ chgs(mcmatm,mcmesp), phis(mcmatm,mcmesp),
     &                dqdvs(mcmatm,mcmatm,mcmesp),
     &                dqdrs(mcmcar,mcmatm,mcmesp),
     &                bee(mcmatm,mcmesp),ceerv(mcmcar,mcmatm,mcmesp),
     &                ceevv(mcmatm,mcmatm,mcmesp)
      common /eemcr3/ chgr(mcmatm),dqdvr(mcmatm,mcmatm),
     &                dqdrr0(mcmcar,mcmatm,2),dqdrr(mcmcar,mcmatm)
c
