From 4d15dbf73ef438a4329ca7ea5a657ddde9d15c3d Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 21 Nov 2022 06:01:24 -0500 Subject: [PATCH] Fix wrong directive --- base/modules/serial/psb_c_base_vect_mod.F90 | 4 ++-- base/modules/serial/psb_d_base_vect_mod.F90 | 4 ++-- base/modules/serial/psb_s_base_vect_mod.F90 | 4 ++-- base/modules/serial/psb_z_base_vect_mod.F90 | 4 ++-- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/base/modules/serial/psb_c_base_vect_mod.F90 b/base/modules/serial/psb_c_base_vect_mod.F90 index 416e27d1..44044771 100644 --- 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) diff --git a/base/modules/serial/psb_d_base_vect_mod.F90 b/base/modules/serial/psb_d_base_vect_mod.F90 index eb923731..a28d12f6 100644 --- 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) diff --git a/base/modules/serial/psb_s_base_vect_mod.F90 b/base/modules/serial/psb_s_base_vect_mod.F90 index c31c842d..4bd6bbfb 100644 --- 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) diff --git a/base/modules/serial/psb_z_base_vect_mod.F90 b/base/modules/serial/psb_z_base_vect_mod.F90 index 245fc4ff..c52dcd59 100644 --- 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)