Fixed bad boolean operation resulting from copying the double list ve…

…rsion of the sweep function to the single list version
MintonGroup · Nov 17, 2021 · 5df4bc4 · 5df4bc4
1 parent c6ece4e
commit 5df4bc4
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/encounter/encounter_check.f90 b/src/encounter/encounter_check.f90
@@ -1226,10 +1226,10 @@ pure subroutine sweep_sl(n, ext_ind, ibegi, iendi, ibeg, iend, lencounteri)
             ibegz(jlo:jhi) = ibeg(3,box(jlo:jhi))
             iendz(jlo:jhi) = iend(3,box(jlo:jhi))
 
-            lencounterj(jlo:jhi) = lencounterj(jlo:jhi) .and. (iendy(jlo:jhi) > ibegi(2)) &
-                                                        .and. (ibegy(jlo:jhi) < iendi(2)) &
-                                                        .and. (iendz(jlo:jhi) > ibegi(3)) &
-                                                        .and. (ibegz(jlo:jhi) < iendi(3)) 
+            lencounterj(jlo:jhi) =       iendy(jlo:jhi) > ibegi(2) &
+                                   .and. (ibegy(jlo:jhi) < iendi(2)) &
+                                   .and. (iendz(jlo:jhi) > ibegi(3)) &
+                                   .and. (ibegz(jlo:jhi) < iendi(3)) 
 
             do concurrent(jbox = jlo:jhi)
                lencounteri(box(jbox)) = lencounterj(jbox)