Fixed bad index bug

MintonGroup · Jul 27, 2021 · bd2e194 · bd2e194
1 parent 6703c5e
commit bd2e194
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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