From 6aaa4a63f5b2ca525ecb014221bc1b5f8e67922e Mon Sep 17 00:00:00 2001 From: David A Minton Date: Wed, 17 Nov 2021 12:44:04 -0500 Subject: [PATCH] Added parens for consistency --- src/encounter/encounter_check.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/encounter/encounter_check.f90 b/src/encounter/encounter_check.f90 index 4fc06b559..6e5e11c88 100644 --- a/src/encounter/encounter_check.f90 +++ b/src/encounter/encounter_check.f90 @@ -1226,7 +1226,7 @@ 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) = iendy(jlo:jhi) > ibegi(2) & + 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))