diff --git a/src/encounter/encounter_check.f90 b/src/encounter/encounter_check.f90 index 14e666855..4fc06b559 100644 --- 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)