Fixed typo in omp reduction statement.

MintonGroup · Oct 4, 2023 · 618ee62 · 618ee62
1 parent 5e87b55
commit 618ee62
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)