Consolidated box index creation and endpoint index shift operations

MintonGroup · Nov 17, 2021 · fc37e04 · fc37e04
1 parent 6aaa4a6
commit fc37e04
Showing 1 changed file with 8 additions and 6 deletions.
diff --git a/src/encounter/encounter_check.f90 b/src/encounter/encounter_check.f90
@@ -1112,10 +1112,11 @@ subroutine sweep_dl(i, n1, n2, ntot, ext_ind, ibegi, iendi, ibeg, iend, lencount
 
             lencounteri(:) = .false.
             lencounterj(jlo:jhi) = .false.
-            box(:) = ext_ind(jlo:jhi)
 
-            where(box(jlo:jhi) > ntot)
-               box(jlo:jhi) = box(jlo:jhi) - ntot
+            where(ext_ind(jlo:jhi) > ntot)
+               box(jlo:jhi) = ext_ind(jlo:jhi) - ntot
+            elsewhere
+               box(jlo:jhi) = ext_ind(jlo:jhi)
             endwhere
 
             call timer1%stop()
@@ -1215,10 +1216,11 @@ pure subroutine sweep_sl(n, ext_ind, ibegi, iendi, ibeg, iend, lencounteri)
 
             lencounteri(:) = .false.
             lencounterj(jlo:jhi) = .false.
-            box(:) = ext_ind(jlo:jhi)
 
-            where(box(:) > n)
-               box(:) = box(:) - n
+            where(ext_ind(jlo:jhi) > n)
+               box(jlo:jhi) = ext_ind(jlo:jhi) - n
+            elsewhere
+               box(jlo:jhi) = ext_ind(jlo:jhi)
             endwhere
 
             ibegy(jlo:jhi) = ibeg(2,box(jlo:jhi))