c
c------------------------------------------------------------------
c Begin file /home/sting/foster/tigcm/mkuivi.h
c------------------------------------------------------------------
c
c Used in calculating ion drifts from potential
c (see mkuivi.f and mkuivih.f)
c (magrd = 1 if mag fields (bx,by,bz) have been read)
c
      parameter(imxp3=imx+3,jmxp2=jmx+2)
      common/mkion/ wrk(imxp3,kmx,jmxp2),b(imx,jmx),
     +  bx(imx,jmx),by(imx,jmx),bz(imx,jmx),
     +  ex(kmx),ey(kmx),ez(kmx),magrd,lumag