From 589f4cb2ef32f63fc78cc4a55dedea40a7b27e8c Mon Sep 17 00:00:00 2001
From: David Minton <daminton@purdue.edu>
Date: Wed, 26 May 2021 23:37:09 -0400
Subject: [PATCH] Safety to prevent fpe after a failed attempt

---
 src/symba/symba_frag_pos.f90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90
index b7934044b..b18a19dc0 100644
--- a/src/symba/symba_frag_pos.f90
+++ b/src/symba/symba_frag_pos.f90
@@ -117,6 +117,9 @@ subroutine symba_frag_pos(param, symba_plA, family, x, v, L_spin, Ip, mass, radi
    !write(*,        "(' -------------------------------------------------------------------------------------')")
    if (lmerge) then
       write(*,*) "symba_frag_pos failed after: ",try," tries"
+      do i = 1, nfrag
+         vb_frag(:, i) = vcom(:)
+      end do
    else
       write(*,*) "symba_frag_pos succeeded after: ",try," tries"
    !   write(*,        "(' dL_tot should be very small' )")