real R$2r(2*mxgrid),q$2r(2*mxgrid),kap$2r(2*mxgrid),
     .     shift$2r(2*mxgrid),shear$2r(2*mxgrid),tri$2r(2*mxgrid),
     .     kappri$2r(2*mxgrid),avgrmid$,B_T0$,Brho$2r(2*mxgrid),
     .	   Out$2r(2*mxgrid),tripri$2r(2*mxgrid)
      integer nrhogrid$

      common /ntcmn/R$2r,q$2r,kap$2r,kappri$2r,shift$2r,tripri$2r,
     .     shear$2r,tri$2r,nrhogrid$,avgrmid$,B_T0$,Brho$2r,Out$2r