c jpara.inc
	common /parallel/ x2c(ni,nj),y2c(ni,nj),volq2(nim1,njm1),
     $		phiq2(nkp1),
     $		cos2phi(nkp1),sin2phi(nkp1),darc2(nkp1),cosarc2(nkp1),
     $		bxdot(njp1,nkp1),bydot(njp1,nkp1),bzdot(njp1,nkp1)