removed redundant mask

MintonGroup · Mar 7, 2023 · 5688e85 · 5688e85
1 parent 4e4712e
commit 5688e85
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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)