From 2ad3c7d84111128ea3aedc82611800946010f7fd Mon Sep 17 00:00:00 2001 From: David A Minton Date: Thu, 25 May 2023 12:02:39 -0400 Subject: [PATCH] Fixed bad index resulting from refactor --- src/collision/collision_resolve.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/collision/collision_resolve.f90 b/src/collision/collision_resolve.f90 index 3fbbbee84..0166711ab 100644 --- a/src/collision/collision_resolve.f90 +++ b/src/collision/collision_resolve.f90 @@ -601,7 +601,7 @@ module subroutine collision_resolve_plpl(self, nbody_system, param, t, dt, irec) call collision_history%take_snapshot(param,nbody_system, t, "after") - plpl_collision%status(i) = collider%status + plpl_collision%status(k) = collider%status call impactors%dealloc() end do