==========================================================
 
      DESCRIPTION:
      FIND THE number of ELEMENT at the longitudinal position xs
 
      ARGUMENTS:
      xs = longitudinal position.
      NN = sequential number of the element which xs belong.
 
 ==========================================================
 
SUBROUTINE FINDELE(XS,NN)
 
COMMONS: 
common-initi.f
 
SUBROUTINES USED:
  messages_n
 
micromap-index
Mon Jul 17 08:57:31 CEST 2017