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

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

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

revision 1.2 by pam-fi, Thu Jun 1 09:03:09 2006 UTC revision 1.3 by pam-fi, Wed Nov 8 16:42:28 2006 UTC
# Line 525  c      print*,'- ',VOUT(3),z,VOUT(1),x,V Line 525  c      print*,'- ',VOUT(3),z,VOUT(1),x,V
525            vv(i)=v(i)/100.       !inter_B.f works in meters            vv(i)=v(i)/100.       !inter_B.f works in meters
526          enddo          enddo
527  c       inter_B: coordinates in m, B field in Tesla  c       inter_B: coordinates in m, B field in Tesla
528    c        print*,'GUFLD: v ',v
529          call inter_B(vv(1),vv(2),vv(3),ff)          call inter_B(vv(1),vv(2),vv(3),ff)
530          do i=1,3                !change back the field in kGauss          do i=1,3                !change back the field in kGauss
531            f(i)=ff(i)*10.            f(i)=ff(i)*10.
532          enddo          enddo
533    c        print*,'GUFLD: b ',f
534    c        print*,vv,ff
535    
536        return        return
537        end        end
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23