Added explanatory text

MintonGroup · May 20, 2021 · 9f9906c · 9f9906c
1 parent 2b99b3c
commit 9f9906c
Showing 1 changed file with 2 additions and 0 deletions.
diff --git 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