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