From 167c09a33744ee0f72a5d37b7da9672ca842ec81 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Thu, 17 Nov 2022 16:01:36 -0500 Subject: [PATCH] Removed simd call as it isn't compatible with the function anyway --- src/helio/helio_drift.f90 | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/helio/helio_drift.f90 b/src/helio/helio_drift.f90 index 60c6d52a8..1076532c0 100644 --- a/src/helio/helio_drift.f90 +++ b/src/helio/helio_drift.f90 @@ -114,11 +114,9 @@ subroutine helio_drift_linear_all(xh, pt, dt, n, lmask) ! Internals integer(I4B) :: i - !$omp parallel do simd default(shared) schedule(static) do i = 1, n if (lmask(i)) call helio_drift_linear_one(xh(1,i), xh(2,i), xh(3,i), pt(1), pt(2), pt(3), dt) end do - !$omp end parallel do simd return end subroutine helio_drift_linear_all