============================================================
 
      ONETURN LUMPED
 
 ============================================================
 
subroutine oneturn(x,nl,ILOST)
 
COMMONS: 
common-initi.f
common-mml-lattice.f
 
SUBROUTINES USED:
  tipomap
 
micromap-index
Mon Jul 17 08:57:32 CEST 2017