============================================================
 
subroutine betam(xs2,betx0,ax0,qx0,bety0,ay0,qy0)
 
COMMONS: 
common-initi.f
common-mml-lattice.f
 
SUBROUTINES USED:
  FINDELEA
  optic_ric_m
 
micromap-index
Mon Jul 17 08:57:33 CEST 2017