Fixed bug in which accelerations were accidentally zeroed out for all…

… encountering bodies
MintonGroup · Aug 19, 2021 · b80d682 · b80d682
1 parent d709d55
commit b80d682
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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