c..number of zones
      integer   kdm
      parameter (kdm = 1002)

c..zone communication
      real*8         t(kdm),d(kdm),v(kdm),p(kdm),e(kdm),
     1               et(kdm),ev(kdm),pt(kdm),pv(kdm)
      common/comodr/ t,d,v,p,e,et,ev,pt,pv

c..more zone communication
      real*8        tem(kdm),rho(kdm),pe(kdm),pet(kdm),pev(kdm), 
     1              ee(kdm),eet(kdm),eev(kdm),
     2              pdeg(kdm),edeg(kdm),ye(kdm),pdv(kdm),edv(kdm),
     3              pcoul(kdm),ecoul(kdm),pcv(kdm),ecv(kdm),
     4              pgas(kdm),egas(kdm),prad(kdm),erad(kdm),eta(kdm),
     5              etabd(kdm),etabt(kdm)
      common/eoset/ tem,rho,pe,pet,pev, 
     1              ee,eet,eev,
     2              pdeg,edeg,ye,pdv,edv,
     3              pcoul,ecoul,pcv,ecv,
     4              pgas,egas,prad,erad,eta,
     5              etabd,etabt

c..table communication
c..for eos8.d
      integer         ndd,ntt,nerfd
      parameter       (ndd=117, ntt=101, nerfd=29 )

      real*8          asi(nerfd),aj2(nerfd),aj3(nerfd),aphi(nerfd),
     1                bsi(nerfd),bj2(nerfd),bj3(nerfd),bphi(nerfd),
     2                dd(ndd),tt(ntt),array(ndd,ntt,3), 
     3                ddd(4,ndd),ttd(4,ntt)

      common/eosdata/ asi,aj2,aj3,aphi,
     1                bsi,bj2,bj3,bphi,
     2                dd,tt,array, 
     3                ddd,ttd