==================================================================
 
      DESCRIPTION:
      This routine is a DYNAMIC MAP and COMPUTE THE EVOLUTION FORM
      S1 TO S2 OF THE TRANSVERSE COORDINATES AND THE EFFECT OF A
      CAVITY ON THE OFF-MOMENTUM OF THE PARTICLE.
 
      ARGUMENTS:
      S1    = INITIAL LONGITUDINAL COORDINATE (ON THE DESIGN ORBIT) [M].
      S2    = FINAL   LONGITUDINAL COORDINATE (ON THE DESIGN ORBIT) [M].
      X     =  this is the vector identifiying the particle to be
               tracked.
               X(1) = x  [M]
               X(2) = px [RAD]
               X(3) = y  [M]
               X(4) = py [RAD]
               X(5) = longitudinal coordinate [M]
               X(6) = relative off-momentum = (p - ps)/ps  [1].
      NL    = flag for lattice nonlinearities: 1 = on; 0 = off
      ndisp = flag for dispersion            : 1 = on; 0 = off
      nchar = flag for chromaticity          : 1 = on; 0 = off
      ncav  = flag for cavity                : 1 = on; 0 = off
      npipe = flag for activating all the geometrical limitations
              defined by each element: 1 - on; 0 = off.
 
      WARNING: the flags should be only 1 or 0, do not use number different
               then 1 or zero.... otherwise the results might come
               wrong.
 
      CHECK IF THE PARTICLE IS LOST:
      This subroutine automatically checks if the particle tracked
      is lost (scraped). The variable NPARCHECK, part of the common
      "common-2Dsc-beam.f",  is set to NPARCHECK=1 if the particle
      during tracking  is found beyond transverse aperture limitations
      at the entrance/exit of each and any element from S1 to S2.
      If S1 to S2 are inside one element, then the check is done anyway.
      To distinguish if the particle is scraped or not, the variable
      NPARCHECK should just be initialized before calling DYNAMP,
      and then you look at it after you have tracked the particle.
 
 ===================================================================
 
subroutine DYNMAP(S1,S2,X,NL,ndisp,nchr,ncav,npipe)
 
COMMONS: 
common-initi.f
 
SUBROUTINES USED:
 y checks if the particle tracked
 ing DYNAMP,
  FINDELEA
  messages_n
  tipomap
 
micromap-index
Mon Jul 17 08:57:31 CEST 2017