From 73407cde416ba360c7ecaac105d86912e52ec40c Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 1 Oct 2021 14:42:32 -0400 Subject: [PATCH] Fixed bad openmp sharing directives. --- src/encounter/encounter.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/encounter/encounter.f90 b/src/encounter/encounter.f90 index 0e4b6952e..7133814e1 100644 --- a/src/encounter/encounter.f90 +++ b/src/encounter/encounter.f90 @@ -186,7 +186,8 @@ subroutine encounter_check_all_sort_and_sweep_plpl(npl, nplm, x, v, renc, dt, lv ! Sweep the intervals for each of the massive bodies along one dimension !$omp parallel do default(private) schedule(static)& - !$omp shared(aabb, lenc, ind_arr) + !$omp shared(aabb, lenc, ind_arr) & + !$omp firstprivate(npl) do i = 1, npl ibox = aabb(1)%ibeg(i) nbox = aabb(1)%iend(i) - 1 @@ -229,7 +230,7 @@ subroutine encounter_check_all_sort_and_sweep_plpl(npl, nplm, x, v, renc, dt, lv lenc_final(:) = .true. !$omp parallel do simd default(firstprivate) schedule(static)& - !$omp shared(lenc_final, lvdotr_final) & + !$omp shared(lenc_final, lvdotr_final, index1, index2, x, v) & !$omp lastprivate(i, j, xr, yr, zr, vxr, vyr, vzr, renc12) do k = 1, nenc i = index1(k)