From 2d497f41e811acb1b2438f509eb0bb31d15b2fc0 Mon Sep 17 00:00:00 2001
From: David Minton <daminton@purdue.edu>
Date: Tue, 13 Apr 2021 16:00:47 -0400
Subject: [PATCH] Added SIMD directive to tp acceleration inner loop

---
 src/whm/whm_getacch.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/whm/whm_getacch.f90 b/src/whm/whm_getacch.f90
index fb21789c0..13eafe05d 100644
--- a/src/whm/whm_getacch.f90
+++ b/src/whm/whm_getacch.f90
@@ -223,6 +223,7 @@ pure subroutine whm_getacch_ah3_tp(cb, pl, tp, xh)
          if (ntp == 0) return
          do i = 1, ntp
             acc(:) = 0.0_DP
+            !$omp simd private(dx,rji2,irij3,fac) reduction(-:acc)
             do j = 1, npl
                dx(:) = xht(:, i) - xh(:, j)
                rji2 = dot_product(dx(:), dx(:))