================================================== FIND THE CLOSED at xs WHEN DISTORTED BY LATTICE FAST TRACKING ================================================== SUBROUTINE FINDXCNLa(xs,X) COMMONS: common-initi.f common-mml-lattice.f SUBROUTINES USED: DYNMAP micromap-index Mon Jul 17 08:57:33 CEST 2017