===============================================================
 
      THIS ROUTINE PRODUCES
      EX, EY,  RMS EMITTANCE WHICH CONTAIN perc (in %)
      OF THE PARTICLES.
      BETA, AND ALPHA ARE THOSE OF THE LATTICE
 
 
      perc  =  percent of the particle which will
               fix the emittances
 
      exp   = x emittance which contain 'perc' of particles
      px    = effective percent of perticles inside exp
              (it is very close to perc)
 
      eyp   = like for exp
      py    = like for px
 
 
 
 =========================================================
 
SUBROUTINE RMSPERC1L(perc,exp,px,eyp,py,betxr,axr,betyr,ayr)
 
COMMONS: 
common-initi.f
common-2Dsc-beam.f
common-mml-lattice.f
 
SUBROUTINES USED:
  betanew
  messages_n
 
micromap-index
Mon Jul 17 08:57:39 CEST 2017