From 5b000019cde64eeb281ddc54fc838b8fa0831f7b Mon Sep 17 00:00:00 2001 From: David A Minton Date: Tue, 23 Nov 2021 16:16:59 -0500 Subject: [PATCH] Fixed typo that was preventing any encounters from being found in the sort & sweep method --- src/encounter/encounter_check.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/encounter/encounter_check.f90 b/src/encounter/encounter_check.f90 index ccd3d23ce..763243b81 100644 --- a/src/encounter/encounter_check.f90 +++ b/src/encounter/encounter_check.f90 @@ -1020,7 +1020,7 @@ module subroutine encounter_check_sweep_aabb_double_list(self, n1, n2, x1, v1, x endwhere llist1(:) = ext_ind_true(:) <= n1 - loverlap(:) = (self%aabb(1)%ibeg(:) + 1_I8B) > (self%aabb(1)%iend(:) - 1_I8B) + loverlap(:) = (self%aabb(1)%ibeg(:) + 1_I8B) < (self%aabb(1)%iend(:) - 1_I8B) where(.not.loverlap(:)) lenc(:)%nenc = 0 call timer1%start() @@ -1124,7 +1124,7 @@ module subroutine encounter_check_sweep_aabb_single_list(self, n, x, v, renc, dt ext_ind_true(:) = ext_ind(:) endwhere - loverlap(:) = (self%aabb(1)%ibeg(:) + 1_I8B) > (self%aabb(1)%iend(:) - 1_I8B) + loverlap(:) = (self%aabb(1)%ibeg(:) + 1_I8B) < (self%aabb(1)%iend(:) - 1_I8B) where(.not.loverlap(:)) lenc(:)%nenc = 0 call timer1%start()