===============================================================
 
      THIS ROUTINE PRODUCES
      EX, EY,  RMS EMITTANCE WHICH CONTAIN perc (in %)
      OF THE PARTICLES.
      IT PRODUCES ALSO BETA, AND ALPHA OF THE BEAM
 
      XM(i,1) = average[Xi*Xi]   i=x,y,s  [M^2]
      XM(i,2) = average[PXi*PXi] i=x,y,s  [RAD^2]
      XM(i,3) = average[Xi*PXi]  i=x,y,s  [M*RAD]
 
 
      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
 
      betxr = betx from the beam
      axr   = ax   from the beam
 
      betyr = as for betxr
      ayr   = as for axr
 
 
 
 =========================================================
 
SUBROUTINE RMSPERC(perc,exp,px,eyp,py,betxr,axr,betyr,ayr)
 
COMMONS: 
common-initi.f
common-2Dsc-beam.f
 
SUBROUTINES USED:
  messages_n
 
micromap-index
Mon Jul 17 08:57:39 CEST 2017