From 5688e850cb13d0a04b082f0c9bad69afb867ebcb Mon Sep 17 00:00:00 2001 From: David A Minton Date: Tue, 7 Mar 2023 12:36:43 -0500 Subject: [PATCH] removed redundant mask --- src/swiftest/swiftest_kick.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/swiftest/swiftest_kick.f90 b/src/swiftest/swiftest_kick.f90 index b3a5f7d39..e7d454c12 100644 --- a/src/swiftest/swiftest_kick.f90 +++ b/src/swiftest/swiftest_kick.f90 @@ -232,7 +232,7 @@ module subroutine swiftest_kick_getacch_int_all_tri_rad_pl(npl, nplm, r, Gmass, !$omp parallel do default(private) schedule(static)& !$omp shared(npl,nplm, r, Gmass, radius, acc) do i = nplm+1,npl - do concurrent(j = 1:nplm, j/=i) + do concurrent(j = 1:nplm) rx = r(1,j) - r(1,i) ry = r(2,j) - r(2,i) rz = r(3,j) - r(3,i) @@ -319,7 +319,7 @@ module subroutine swiftest_kick_getacch_int_all_tri_norad_pl(npl, nplm, r, Gmass !$omp parallel do default(private) schedule(static)& !$omp shared(npl,nplm, r, Gmass, acc) do i = nplm+1,npl - do concurrent(j = 1:nplm, j/=i) + do concurrent(j = 1:nplm) rx = r(1,j) - r(1,i) ry = r(2,j) - r(2,i) rz = r(3,j) - r(3,i)