From 618ee628e7df945f5b9d68e2d4ed4ebdb1804a2a Mon Sep 17 00:00:00 2001
From: David A Minton <daminton@purdue.edu>
Date: Wed, 4 Oct 2023 16:57:45 -0400
Subject: [PATCH] Fixed typo in omp reduction statement.

---
 src/swiftest/swiftest_kick.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/swiftest/swiftest_kick.f90 b/src/swiftest/swiftest_kick.f90
index d0700d321..cfd9ef54c 100644
--- a/src/swiftest/swiftest_kick.f90
+++ b/src/swiftest/swiftest_kick.f90
@@ -191,7 +191,7 @@ module subroutine swiftest_kick_getacch_int_all_tri_rad_pl(npl, nplm, r, Gmass,
          ahj(:,:) = 0.0_DP
          !$omp parallel do default(private) schedule(static)&
          !$omp shared(npl, nplm, r, Gmass, radius) &
-         !$omp reduction(+:ahi,j)
+         !$omp reduction(+:ahi,ahj)
          do i = 1, nplm
 #ifdef DOCONLOC
             do concurrent(j = i+1:npl) shared(i,r,radius,ahi,ahj,Gmass) local(rx,ry,rz,rji2,rlim2)