From 1052bd52cba717ded984823036c5e42956429a8c Mon Sep 17 00:00:00 2001 From: David A Minton Date: Tue, 23 Nov 2021 17:12:04 -0500 Subject: [PATCH] Fixed typo in OpenMP directive --- src/kick/kick.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/kick/kick.f90 b/src/kick/kick.f90 index c3e37d927..e680fde98 100644 --- a/src/kick/kick.f90 +++ b/src/kick/kick.f90 @@ -190,7 +190,7 @@ module subroutine kick_getacch_int_all_triangular_pl(npl, nplm, x, Gmass, radius !$omp end parallel do else !$omp parallel do default(private) schedule(static)& - !$omp shared(npl, nplm, x, Gmass, radius) & + !$omp shared(npl, nplm, x, Gmass) & !$omp lastprivate(rji2, xr, yr, zr) & !$omp reduction(+:ahi) & !$omp reduction(-:ahj)