c dipole.inc
 	common /dipole/geoqmu,rinner,router,rstop,drinv,a0,b0,a1,b1,
     $		aq,bq,xq_off,souter,sinner,cos_tilt,sin_tilt,bxq
      real geoqmu,rinner,router,rstop,drinv,a0,b0,a1,b1,aq,bq,xq_off,
     *            souter,sinner,cos_tilt,sin_tilt,bxq