Fix wrong directive

2 years ago · 4d15dbf73e
parent adbc75b22e
commit 4d15dbf73e
4 changed files with 8 additions and 8 deletions
--- a/base/modules/serial/psb_c_base_vect_mod.F90
+++ b/base/modules/serial/psb_c_base_vect_mod.F90
@ -1255,9 +1255,9 @@ contains
            z%v(i) = alpha*y(i)*x(i)
          end do
        else if (beta == cone) then
-          !$omp parallel do private(i)
+          !$omp parallel do private(i)  shared(alpha)
          do i=1, n
-            z%v(i) = z%v(i) + alpha*y(i)*x(i)  shared(alpha)
+            z%v(i) = z%v(i) + alpha*y(i)*x(i)
          end do
        else
          !$omp parallel do private(i)  shared(alpha, beta)
--- a/base/modules/serial/psb_d_base_vect_mod.F90
+++ b/base/modules/serial/psb_d_base_vect_mod.F90
@ -1262,9 +1262,9 @@ contains
            z%v(i) = alpha*y(i)*x(i)
          end do
        else if (beta == done) then
-          !$omp parallel do private(i)
+          !$omp parallel do private(i)  shared(alpha)
          do i=1, n
-            z%v(i) = z%v(i) + alpha*y(i)*x(i)  shared(alpha)
+            z%v(i) = z%v(i) + alpha*y(i)*x(i)
          end do
        else
          !$omp parallel do private(i)  shared(alpha, beta)
--- a/base/modules/serial/psb_s_base_vect_mod.F90
+++ b/base/modules/serial/psb_s_base_vect_mod.F90
@ -1262,9 +1262,9 @@ contains
            z%v(i) = alpha*y(i)*x(i)
          end do
        else if (beta == sone) then
-          !$omp parallel do private(i)
+          !$omp parallel do private(i)  shared(alpha)
          do i=1, n
-            z%v(i) = z%v(i) + alpha*y(i)*x(i)  shared(alpha)
+            z%v(i) = z%v(i) + alpha*y(i)*x(i)
          end do
        else
          !$omp parallel do private(i)  shared(alpha, beta)
--- a/base/modules/serial/psb_z_base_vect_mod.F90
+++ b/base/modules/serial/psb_z_base_vect_mod.F90
@ -1255,9 +1255,9 @@ contains
            z%v(i) = alpha*y(i)*x(i)
          end do
        else if (beta == zone) then
-          !$omp parallel do private(i)
+          !$omp parallel do private(i)  shared(alpha)
          do i=1, n
-            z%v(i) = z%v(i) + alpha*y(i)*x(i)  shared(alpha)
+            z%v(i) = z%v(i) + alpha*y(i)*x(i)
          end do
        else
          !$omp parallel do private(i)  shared(alpha, beta)