--- DarthVader/TrackerLevel2/src/F77/grkuta.f 2007/02/16 14:56:02 1.4 +++ DarthVader/TrackerLevel2/src/F77/grkuta.f 2007/04/27 11:19:51 1.5 @@ -500,8 +500,8 @@ $ +(VOUT(IY)-VECT(IY))**2 $ +(VOUT(IZ)-VECT(IZ))**2 $ ) - print*,'WARNING: GRKUTA2 --> ' - $ ,'helix :-( ... length evaluated with straight line' +c print*,'WARNING: GRKUTA2 --> ' +c $ ,'helix :-( ... length evaluated with straight line' * 999 END