/[PAMELA software]/DarthVader/TrackerLevel2/src/F77/bdll.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/src/F77/bdll.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pam-fi, Wed Feb 21 10:33:13 2007 UTC revision 1.2 by mocchiut, Tue Aug 4 14:01:36 2009 UTC
# Line 91  c$$$      IF(AL(5).NE.0) CHARGE=AL(5)/DA Line 91  c$$$      IF(AL(5).NE.0) CHARGE=AL(5)/DA
91           enddo           enddo
92  c         zout=vout(3)-dz  c         zout=vout(3)-dz
93           step = dz           step = dz
94   20      DO J=1,7  c 20      DO J=1,7
95             DO J=1,7
96              VECT(J)=VOUT(J)              VECT(J)=VOUT(J)
97              VECTINI(J)=VOUT(J)              VECTINI(J)=VOUT(J)
98           ENDDO           ENDDO
# Line 120  c$$$     $        (vout(3)-vect(3))*f(3) Line 121  c$$$     $        (vout(3)-vect(3))*f(3)
121              print*,'step',step              print*,'step',step
122              RETURN              RETURN
123           ENDIF           ENDIF
124   200     continue  c 200     continue
125             continue
126           BdL = BdL + (BdLstep*1.D-3) !Tesla * meters           BdL = BdL + (BdLstep*1.D-3) !Tesla * meters
127           L = L + (Lstep*1.D-2) !meters           L = L + (Lstep*1.D-2) !meters
128  c$$$         print*,i,' #### ',BdL,L  c$$$         print*,i,' #### ',BdL,L
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23