From f44e6958ed401c6a7104b85be06b569804983018 Mon Sep 17 00:00:00 2001
From: David A Minton <daminton@purdue.edu>
Date: Tue, 14 Sep 2021 09:23:06 -0400
Subject: [PATCH] Fixed OMP directives in kick_getacch_int_all_tp loop

---
 src/kick/kick.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/kick/kick.f90 b/src/kick/kick.f90
index fd26a08f3..f6c1d5a5e 100644
--- a/src/kick/kick.f90
+++ b/src/kick/kick.f90
@@ -113,7 +113,8 @@ module subroutine kick_getacch_int_all_tp(ntp, npl, xtp, xpl, GMpl, lmask, acc)
       integer(I4B) :: i, j
 
       !$omp parallel do default(private) schedule(static)&
-      !$omp shared(npl, ntp, lmask, xtp, xpl, acc)
+      !$omp shared(npl, ntp, lmask, xtp, xpl) &
+      !$omp reduction(-:acc)
       do i = 1, ntp
          if (lmask(i)) then
             do j = 1, npl