From ae78287e7813f2d74a1852cf6b79188fd0850647 Mon Sep 17 00:00:00 2001 From: David Minton Date: Mon, 10 May 2021 12:22:35 -0400 Subject: [PATCH] *sigh* --- src/symba/symba_frag_pos.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90 index e3f8076e8..eb3910c82 100644 --- a/src/symba/symba_frag_pos.f90 +++ b/src/symba/symba_frag_pos.f90 @@ -447,7 +447,7 @@ subroutine symba_frag_pos_energy_calc(npl, symba_plA, lexclude, ke_orbit, ke_spi if (present(nfrag)) then ! Append the fragments if they are included symba_plwksp%helio%swiftest%Ip(:,npl+1:npl_new) = Ip_frag(:,:) symba_plwksp%helio%swiftest%mass(npl+1:npl_new) = m_frag(:) - symba_plwksp%helio%swiftest%radius(npl+1:npl_new) = m_frag(:) + symba_plwksp%helio%swiftest%radius(npl+1:npl_new) = rad_frag(:) symba_plwksp%helio%swiftest%xb(:,npl+1:npl_new) = xb_frag(:,:) symba_plwksp%helio%swiftest%vb(:,npl+1:npl_new) = vb_frag(:,:) symba_plwksp%helio%swiftest%rot(:,npl+1:npl_new) = rot_frag(:,:)