==================================================================
 
      ENVELOPE MAP
 
      COMPUTE THE EVOLUTION FORM S1 TO S2 OF THE TRANSVERSE COORDINATES
      AND THE EFFECT OF THE CAVITY ON THE OFF-MOMENTUM OF THE PARTICLE
 
      S1 = INITIAL LONGITUDINAL COORDINATE (ON THE DESIGN ORBIT) [M]
      S2 = FINAL   LONGITUDINAL COORDINATE (ON THE DESIGN ORBIT) [M]
 
 
      X(1) = X  [M]
      X(2) = X' [RAD]
      X(3) = Y  [M]
      X(4) = Y' [RAD]
      X(5) = D  [M]
      X(6) = D' [RAD]
 
 
      THIS ROUTINE NEEDS A FUNCTION CALLED compfac(Se)
      WERE Se IS THE LONGITUDINAL COORDINATE (M).
      NEXT IS REPORTED AN EXAMPLE USED FOR BUNCH
      COMPRESSION
 
 
 
 
      C=============================================
      Function compfac(Se)
      include'common-initi.f'
      include'common-mml-lattice.f'
      common/Env_funct3/dp2
 
      dp2 = (5.3580786d-05)**2d0
      aks = 2d0*PI/(4d0*49.3165d0*alength)
 
      c      Se1 = 47d0*alength
      c1  = dcos(aks*Se)
      s1  = dsin(aks*Se)
      rc  = 0.01123d0
      f   = dsqrt(c1*c1 + rc*rc*s1*s1)
      compfac = 1d0/f
 
      return
      end
 
 
 
 
 ===================================================================
 
subroutine ENVELOPEMAP(S1,S2,X)
 
COMMONS: 
common-initi.f
common-mml-lattice.f
common-initi.f
 
SUBROUTINES USED:
  FINDELEA
  tipomap
  DRKNYS
 
micromap-index
Mon Jul 17 08:57:42 CEST 2017