====================================================================
 
      track the beta function including also the thin quadrupoles
 
 ====================================================================
 
subroutine optic_ric_m(n,dxs,betx0,ax0,dqx0,bety0,ay0,dqy0)
 
COMMONS: 
common-initi.f
common-mml-lattice.f
 
SUBROUTINES USED:
 
micromap-index
Mon Jul 17 08:57:35 CEST 2017