==========================================================
 
      save the beam in the logic unit NUNIT
      of each particle of the beam the coordinates x,px,y,py,z,pz,nn
      are store in the format 7(1x,g12.5)
 
      The variable nn is a tag for identifying a specific particles
      [because when particles are lost they are changed of order in
       XPAR(n,i)]
 
 ==========================================================
 
subroutine SAVEB(NUNIT)
 
COMMONS: 
common-initi.f
common-2Dsc-beam.f
 
SUBROUTINES USED:
 
micromap-index
Mon Jul 17 08:57:40 CEST 2017