/[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.4 by pam-fi, Fri Feb 16 14:56:02 2007 UTC revision 1.5 by pam-fi, Fri Apr 27 11:19:51 2007 UTC
# Line 500  c      print*,'- ',VOUT(3),z,VOUT(1),x,V Line 500  c      print*,'- ',VOUT(3),z,VOUT(1),x,V
500       $     +(VOUT(IY)-VECT(IY))**2       $     +(VOUT(IY)-VECT(IY))**2
501       $     +(VOUT(IZ)-VECT(IZ))**2       $     +(VOUT(IZ)-VECT(IZ))**2
502       $     )       $     )
503        print*,'WARNING: GRKUTA2 --> '  c      print*,'WARNING: GRKUTA2 --> '
504       $     ,'helix :-( ... length evaluated with straight line'  c     $     ,'helix :-( ... length evaluated with straight line'
505    
506  *  *
507    999 END    999 END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.23