==========================================================
 
      save the beam in fort.60 end the parameter in fort.70
 
 ==========================================================
 
subroutine SAVEBP
 
COMMONS: 
common-initi.f
common-2Dsc-beam.f
common-2Dsc-simulation.f
common-mml-lattice.f
 
SUBROUTINES USED:
 
micromap-index
Mon Jul 17 08:57:40 CEST 2017