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

Commit

Permalink
Fixed typo that was preventing any encounters from being found in the…
Browse files Browse the repository at this point in the history
… sort & sweep method
  • Loading branch information
daminton committed Nov 23, 2021
1 parent 0987484 commit 5b00001
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/encounter/encounter_check.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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()
Expand Down Expand Up @@ -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()
Expand Down

0 comments on commit 5b00001

Please sign in to comment.