Put static clause in OMP

4 years ago · 4292dd3490
parent 0acf10f0d8
commit 4292dd3490
4 changed files with 4 additions and 4 deletions
--- a/base/serial/impl/psb_c_csr_impl.f90
+++ b/base/serial/impl/psb_c_csr_impl.f90
@ -149,7 +149,7 @@ contains
      if (beta == czero) then

        if (alpha == cone) then
-          !$omp parallel do private(i,j, acc)
+          !$omp parallel do private(i,j, acc) schedule(static)
          do i=1,m
            acc  = czero
            do j=irp(i), irp(i+1)-1
--- a/base/serial/impl/psb_d_csr_impl.f90
+++ b/base/serial/impl/psb_d_csr_impl.f90
@ -149,7 +149,7 @@ contains
      if (beta == dzero) then

        if (alpha == done) then
-          !$omp parallel do private(i,j, acc)
+          !$omp parallel do private(i,j, acc) schedule(static)
          do i=1,m
            acc  = dzero
            do j=irp(i), irp(i+1)-1
--- a/base/serial/impl/psb_s_csr_impl.f90
+++ b/base/serial/impl/psb_s_csr_impl.f90
@ -149,7 +149,7 @@ contains
      if (beta == szero) then

        if (alpha == sone) then
-          !$omp parallel do private(i,j, acc)
+          !$omp parallel do private(i,j, acc) schedule(static)
          do i=1,m
            acc  = szero
            do j=irp(i), irp(i+1)-1
--- a/base/serial/impl/psb_z_csr_impl.f90
+++ b/base/serial/impl/psb_z_csr_impl.f90
@ -149,7 +149,7 @@ contains
      if (beta == zzero) then

        if (alpha == zone) then
-          !$omp parallel do private(i,j, acc)
+          !$omp parallel do private(i,j, acc) schedule(static)
          do i=1,m
            acc  = zzero
            do j=irp(i), irp(i+1)-1