From bd2e19431e5ed49aad2643a8db3272da9e1b88ff Mon Sep 17 00:00:00 2001 From: David A Minton Date: Tue, 27 Jul 2021 14:05:36 -0400 Subject: [PATCH] Fixed bad index bug --- src/symba/symba_collision.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/symba/symba_collision.f90 b/src/symba/symba_collision.f90 index 59f43c69c..b8060829c 100644 --- a/src/symba/symba_collision.f90 +++ b/src/symba/symba_collision.f90 @@ -53,7 +53,7 @@ module subroutine symba_collision_check_pltpenc(self, system, param, t, dt, irec associate(i => plind(k), j => tpind(k)) xr(:) = pl%xh(:, i) - tp%xh(:, j) vr(:) = pl%vb(:, i) - tp%vb(:, j) - lcollision(i) = symba_collision_check_one(xr(1), xr(2), xr(3), vr(1), vr(2), vr(3), pl%Gmass(i), pl%radius(i), dt, pltpenc_list%lvdotr(k)) + lcollision(k) = symba_collision_check_one(xr(1), xr(2), xr(3), vr(1), vr(2), vr(3), pl%Gmass(i), pl%radius(i), dt, pltpenc_list%lvdotr(k)) end associate end do