From 9f9906ccf32c3111b42c512dc10e354b19a33475 Mon Sep 17 00:00:00 2001 From: David Minton Date: Thu, 20 May 2021 11:01:01 -0400 Subject: [PATCH] Added explanatory text --- src/symba/symba_frag_pos.f90 | 2 ++ 1 file changed, 2 insertions(+) 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