--- DarthVader/TrackerLevel2/src/F77/bdll.f	2007/02/21 10:33:13	1.1
+++ DarthVader/TrackerLevel2/src/F77/bdll.f	2009/08/04 14:01:36	1.2
@@ -91,7 +91,8 @@
          enddo
 c         zout=vout(3)-dz
          step = dz
- 20      DO J=1,7
+c 20      DO J=1,7
+         DO J=1,7
             VECT(J)=VOUT(J)
             VECTINI(J)=VOUT(J)
          ENDDO
@@ -120,7 +121,8 @@
             print*,'step',step
             RETURN
          ENDIF
- 200     continue
+c 200     continue
+         continue
          BdL = BdL + (BdLstep*1.D-3) !Tesla * meters
          L = L + (Lstep*1.D-2) !meters
 c$$$         print*,i,' #### ',BdL,L