From 2107b343783edd2aaa68c7dc6a19a8b45b8f073c Mon Sep 17 00:00:00 2001 From: David A Minton Date: Thu, 22 Jul 2021 20:44:43 -0400 Subject: [PATCH] Flipped boolean to correct condition --- src/symba/symba_encounter_check.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/symba/symba_encounter_check.f90 b/src/symba/symba_encounter_check.f90 index fc38cce69..4e71bf648 100644 --- a/src/symba/symba_encounter_check.f90 +++ b/src/symba/symba_encounter_check.f90 @@ -19,7 +19,7 @@ module function symba_encounter_check_pl(self, system, dt, irec) result(lencount associate(pl => self, npl => self%nbody) lencounter = .false. - do concurrent(j = 1:npl, pl%lmtiny(j)) + do concurrent(j = 1:npl, .not.pl%lmtiny(j)) do i = 1, npl rcrit = (pl%rhill(i) + pl%rhill(j)) * RHSCALE * (RSHELL**(irec)) r2crit = r2crit**2