Fixed bad index resulting from refactor

MintonGroup · May 25, 2023 · 2ad3c7d · 2ad3c7d
1 parent 7b923bd
commit 2ad3c7d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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