remove LOCAL, which causes problems

UoB-HPC · Aug 17, 2022 · 3a0fec6 · 3a0fec6
1 parent e5a70dd
commit 3a0fec6
Showing 1 changed file with 0 additions and 4 deletions.
diff --git a/src/fortran/DoConcurrentStream.F90 b/src/fortran/DoConcurrentStream.F90
@@ -94,11 +94,7 @@ subroutine mul(startScalar)
             real(kind=REAL64) :: scalar
             integer(kind=StreamIntKind) :: i
             scalar = startScalar
-#if LOCAL
-            do concurrent (i=1:N) shared(B,C) local(scalar)
-#else
             do concurrent (i=1:N) shared(B,C)
-#endif
                B(i) = scalar * C(i)
             end do
         end subroutine mul