module mesh
	use mesh_parms
	save
c
        double precision:: dxi,deta
c
        double precision, allocatable,
     &       dimension(:,:):: Rc, zc,dRdXi, dRdEta, dZdEta, dZdXi,
     &       JacI, RJC,dlXi,dlEta, RXi,REta, 
     &       dRdXiC, dRdEtaC, dZdEtaC, dZdXiC
c     &       Rn, Zn
  

c
	  integer:: hasxlo,hasylo,hasxhi,hasyhi
	end module mesh