Skip to content
This repository was archived by the owner on Aug 28, 2024. It is now read-only.

Commit

Permalink
fixed typo
Browse files Browse the repository at this point in the history
  • Loading branch information
daminton committed Dec 21, 2022
1 parent f62578f commit 82ff8b1
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion src/collision/collision_check.f90
Original file line number Diff line number Diff line change
Expand Up @@ -10,6 +10,7 @@

submodule (collision) s_collision_check
use swiftest
use symba, only : symba_pl, symba_tp
contains

pure elemental subroutine collision_check_one(xr, yr, zr, vxr, vyr, vzr, Gmtot, rlim, dt, lvdotr, lcollision, lclosest)
Expand Down Expand Up @@ -94,7 +95,7 @@ module subroutine collision_check_plpl(self, system, param, t, dt, irec, lany_co
lmask(:) = (self%status(1:nenc) == ACTIVE)
select type(pl)
class is (symba_pl)
lmask(:) = lmask(:).and. (pl%levelg(self%index1(1:nenc)) >= irec))
lmask(:) = lmask(:).and. (pl%levelg(self%index1(1:nenc)) >= irec)
end select
if (.not.any(lmask(:))) return

Expand Down

0 comments on commit 82ff8b1

Please sign in to comment.