From a3acd62daafa7c444fa21a50b703cd52418830d2 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Wed, 29 Sep 2021 12:18:33 -0400 Subject: [PATCH] Fixed bug in omp directive variable list --- src/encounter/encounter.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/encounter/encounter.f90 b/src/encounter/encounter.f90 index e2830445b..c688a3238 100644 --- a/src/encounter/encounter.f90 +++ b/src/encounter/encounter.f90 @@ -25,7 +25,7 @@ module subroutine encounter_check_all_flat_plpl(nplplm, k_plpl, x, v, renc, dt, !$omp parallel do simd default(private) schedule(static)& !$omp shared(nplplm, k_plpl, x, v, renc, dt, lencounter, loc_lvdotr) & - !$omp lastprivate(xr, yr, zr, vxr, vyr, vzr, renc1, renc2) + !$omp lastprivate(xr, yr, zr, vxr, vyr, vzr, renc12) do k = 1_I8B, nplplm i = k_plpl(1, k) j = k_plpl(2, k)