diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90 index 2935502ff..2f3ccafa3 100644 --- a/src/symba/symba_frag_pos.f90 +++ b/src/symba/symba_frag_pos.f90 @@ -751,6 +751,8 @@ subroutine restructure_failed_fragments() !! Author: David A. Minton !! !! We failed to find a set of positions and velocities that satisfy all the constraints, and so we will alter the fragments and try again. + !! Currently, this code will take the last fragment in the list and merge it with the first or second, alternating back and forth each time + !! it is called. implicit none integer(I4B) :: i integer(I4B), save :: iflip = 1