==================================================
 
 
      FIND THE CLOSED  ORBIT FOR A PARTICLE WITH
      OFF MOMENTUM delta AT THE POSITION xs
 
 
 ==================================================
 
SUBROUTINE FINDXC(xs,delta,X)
 
COMMONS: 
common-initi.f
common-mml-lattice.f
 
SUBROUTINES USED:
  betanew
  PERIODICDISPERSION
  DYNMAP
  messages_n
 
micromap-index
Mon Jul 17 08:57:33 CEST 2017