================================================
 
      Description:
      find if a particle is lost
      lost = 0 ---> particle inside the acceptance
      lost = 1 ---> particle lost if outside acceptance
 
      Arguments:
      x = vector of particle
 
 ================================================
 
function lost_bp(x)
 
COMMONS: 
common-initi.f
common-2Dsc-simulation.f
 
SUBROUTINES USED:
 
micromap-index
Mon Jul 17 08:57:31 CEST 2017