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()