Fixed bug in omp directive variable list

MintonGroup · Sep 29, 2021 · a3acd62 · a3acd62
1 parent 4d2332f
commit a3acd62
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)