From 82ff8b161100f4bf23bb65c1055afabb9bc38995 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Wed, 21 Dec 2022 13:08:14 -0500 Subject: [PATCH] fixed typo --- src/collision/collision_check.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/collision/collision_check.f90 b/src/collision/collision_check.f90 index 772d4a1a7..2fda012bd 100644 --- a/src/collision/collision_check.f90 +++ b/src/collision/collision_check.f90 @@ -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) @@ -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