Fixed OMP directives in kick_getacch_int_all_tp loop

MintonGroup · Sep 14, 2021 · f44e695 · f44e695
1 parent 1b708a5
commit f44e695
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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