forgotten do concurrency in drivers.

Author: loiseaujc

src/cfftb1.f90

@@ -63,7 +63,7 @@ subroutine cfftb1(n, c, ch, wa, ifac)
          end do
          if (na == 0) return
          n2 = n + n
-         do i = 1, n2
+         do concurrent(i=1:n2)
             c(i) = ch(i)
          end do
       end subroutine cfftb1

src/cfftf1.f90

@@ -63,7 +63,7 @@ subroutine cfftf1(n, c, ch, wa, ifac)
          end do
          if (na == 0) return
          n2 = n + n
-         do i = 1, n2
+         do concurrent(i=1:n2)
             c(i) = ch(i)
          end do
       end subroutine cfftf1

src/dzfftb.f90

@@ -15,7 +15,7 @@ subroutine dzfftb(n, r, azero, a, b, wsave)
             return
          else
             ns2 = (n - 1)/2
-            do i = 1, ns2
+            do concurrent(i=1:ns2)
                r(2*i) = 0.5_dp*a(i)
                r(2*i + 1) = -0.5_dp*b(i)
             end do

src/dzfftf.f90

@@ -16,7 +16,7 @@ subroutine dzfftf(n, r, azero, a, b, wsave)
             a(1) = 0.5_dp*(r(1) - r(2))
             return
          else
-            do i = 1, n
+            do concurrent(i=1:n)
                wsave(i) = r(i)
             end do
             call dfftf(n, wsave, wsave(n + 1))
@@ -25,7 +25,7 @@ subroutine dzfftf(n, r, azero, a, b, wsave)
             azero = 0.5_dp*cf*wsave(1)
             ns2 = (n + 1)/2
             ns2m = ns2 - 1
-            do i = 1, ns2m
+            do concurrent(i=1:ns2m)
                a(i) = cf*wsave(2*i)
                b(i) = cfm*wsave(2*i + 1)
             end do

src/rfftb1.f90

@@ -63,7 +63,7 @@ subroutine rfftb1(n, c, ch, wa, ifac)
             iw = iw + (ip - 1)*ido
          end do
          if (na == 0) return
-         do i = 1, n
+         do concurrent(i=1:n)
             c(i) = ch(i)
          end do
       end subroutine rfftb1

src/rfftf1.f90

@@ -63,7 +63,7 @@ subroutine rfftf1(n, c, ch, wa, ifac)
             l2 = l1
          end do
          if (na == 1) return
-         do i = 1, n
+         do concurrent(i=1:n)
             c(i) = ch(i)
          end do
       end subroutine rfftf1