==========================================================
 
      Description:
      This routine tracks a particle for nturn.
 
      Arguments:
      X     = vector of 6 components of a particle
      mturn = number of turns
      iturn = if the particle is lost iturn is the turn
              at which the particle is lost.
              if the particle is not lost iturn=nturn.
 
 ==========================================================
 
SUBROUTINE MANYTURN1(X,NTURN,ITURN)
 
COMMONS: 
common-initi.f
common-mml-lattice.f
 
SUBROUTINES USED:
 
micromap-index
Mon Jul 17 08:57:31 CEST 2017