      DATATYPE2 xH(lz,kz), yH(lz,kz), rv(lz), tv(lz,kz), zH(kz), 
     & kappa, gv(lz,kz)
      DATATYPE2 dxHdz(lz,kz), dyHdz(lz,kz)

      DATATYPE2 wklog,timo,gamm,pkinH, wkmax,wke,gaml
      integer ne
      common/cplot0/wklog,timo,gamm, pkinH, wkmax,wke,gaml, ne

      integer itnode(4,2*lz), nt, l0pi(lz), l2pi(lz)
      integer lHd, lHdb , lHdbb, nmesh, nprd, kf, ldprev
      common /gridxy/ xH, yH, zH, rv, tv, nmesh, nprd, lHd, lHdb, lHdbb,
     $   dxHdz, dyHdz, gv, itnode, nt, l0pi, l2pi, kf, ldprev 

      integer nptrb, itearing, nprntx, i3d
      DATATYPE2 cs, chipar, wkinH, delta
      common /extra/  nptrb, itearing, nprntx, i3d, cs, chipar, wkinH, 
     $   kappa, delta

      common /timing/ it_gcro, it_poiss, it_poismu, it_buf(5)
      integer it_gcro, it_poiss, it_poismu, it_buf
c  change weight(3, lint(4 -> 4 for 4h

      DATATYPE2 xplt(lHz,jz), yplt(lHz,jz), weight(4,lHz,jz),
     & weight2(4,lHz,kz)
      integer lint(4,lHz,jz), liH, miH, lint2(4,lHz,kz)
      common /interp/ xplt, yplt, weight, lint, liH, miH, weight2, lint2

      DATATYPE coss
      common /wfft/ coss(kz,kz)
