From b80d6828dbfb1677a28b362dc6f61f466e515b70 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Wed, 18 Aug 2021 22:52:25 -0400 Subject: [PATCH] Fixed bug in which accelerations were accidentally zeroed out for all encountering bodies --- src/symba/symba_kick.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/symba/symba_kick.f90 b/src/symba/symba_kick.f90 index b531e447a..b3449e04e 100644 --- a/src/symba/symba_kick.f90 +++ b/src/symba/symba_kick.f90 @@ -213,8 +213,8 @@ module subroutine symba_kick_encounter(self, system, dt, irec, sgn) associate(i1 => ind1(good_idx(i)), i2 => ind2(good_idx(i))) pl%vb(:,i1) = pl%vb(:,i1) + sgn * dt * pl%ah(:,i1) pl%vb(:,i2) = pl%vb(:,i2) + sgn * dt * pl%ah(:,i2) - pl%ah(:,ind1(1:nenc)) = 0.0_DP - pl%ah(:,ind2(1:nenc)) = 0.0_DP + pl%ah(:,i1) = 0.0_DP + pl%ah(:,i2) = 0.0_DP end associate end do else