========================================================== 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