/[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.8 by pam-fi, Wed Mar 5 17:00:20 2008 UTC revision 1.9 by mocchiut, Thu Jan 16 15:29:55 2014 UTC
# Line 545  c     inter_B: coordinates in m, B field Line 545  c     inter_B: coordinates in m, B field
545  c$$$      print*,'GUFLD: v ',v  c$$$      print*,'GUFLD: v ',v
546        call inter_B(vv(1),vv(2),vv(3),ff)        call inter_B(vv(1),vv(2),vv(3),ff)
547        do i=1,3                  !change back the field in kGauss        do i=1,3                  !change back the field in kGauss
548           f(i)=ff(i)*10.           f(i)=REAL(ff(i)*10.) ! EM GCC4.7
549        enddo        enddo
550  c$$$      print*,'GUFLD: b ',f  c$$$      print*,'GUFLD: b ',f
551                
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.23