=====================================================
 
 
      ENVELOPE MATCHING WITH SPACE CHARGE AND DISPERSION
      IT USES ENVELOPEMAP
 
 
 =====================================================
 
subroutine env_matching(xs,x)
 
COMMONS: 
common-initi.f
common-mml-lattice.f
common-2Dsc-beam.f
common-2Dsc-simulation.f
 
SUBROUTINES USED:
  betanew
  ENVELOPEMAP
  messages_n
 
micromap-index
Mon Jul 17 08:57:43 CEST 2017