==============================================================
 
      find the initial beta at xs=0
 
 ==============================================================
 
subroutine find_betam_ini
 
COMMONS: 
common-initi.f
common-mml-lattice.f
 
SUBROUTINES USED:
  lineariz_lattice
  betam_ini
  lineariz_lattice_back
 
micromap-index
Mon Jul 17 08:57:34 CEST 2017