--- DarthVader/TrackerLevel2/inc/F77/common_B.f 2006/05/19 13:15:52 1.1.1.1 +++ DarthVader/TrackerLevel2/inc/F77/common_B.f 2009/08/04 14:01:34 1.2 @@ -28,7 +28,8 @@ real*8 b1(nx,ny,nz,3) !magnetic field values: c e.g. b1(nx,ny,nz,2) = By (=2) component of magnetic field measured in (nx, ny, nz) - real*8 px1max(3),px1min(3),py1max(3),py1min(3),pz1max(3),pz1min(3) !grid edges + real*8 px1max(3),px1min(3),py1max(3),py1min(3), + $ pz1max(3),pz1min(3) !grid edges common/interpolation1/px1,py1,pz1,b1 $ ,px1max,px1min,py1max,py1min,pz1max,pz1min @@ -37,7 +38,8 @@ c second map real*8 px2(nx,3),py2(ny,3),pz2(nz,3) real*8 b2(nx,ny,nz,3) - real*8 px2max(3),px2min(3),py2max(3),py2min(3),pz2max(3),pz2min(3) !grid edges + real*8 px2max(3),px2min(3),py2max(3),py2min(3), + $ pz2max(3),pz2min(3) !grid edges common/interpolation2/px2,py2,pz2,b2 $ ,px2max,px2min,py2max,py2min,pz2max,pz2min @@ -86,7 +88,8 @@ real*8 bo(nox,noy,noz,3) !magnetic field values: c e.g. b1(nx,ny,nz,2) = By (=2) component of magnetic field measured in (nx, ny, nz) - real*8 poxmax(3),poxmin(3),poymax(3),poymin(3),pozmax(3),pozmin(3) + real*8 poxmax(3),poxmin(3),poymax(3),poymin(3), + $ pozmax(3),pozmin(3) c grid edges common/interpolationo/pox,poy,poz,bo