From 4292dd3490798e29c9099b1dd3f6d849659f84e2 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@uniroma2.it>
Date: Mon, 30 Nov 2020 16:42:10 +0100
Subject: [PATCH] Put static clause in OMP

---
 base/serial/impl/psb_c_csr_impl.f90 | 2 +-
 base/serial/impl/psb_d_csr_impl.f90 | 2 +-
 base/serial/impl/psb_s_csr_impl.f90 | 2 +-
 base/serial/impl/psb_z_csr_impl.f90 | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/base/serial/impl/psb_c_csr_impl.f90 b/base/serial/impl/psb_c_csr_impl.f90
index 3b793de1..25d0a086 100644
--- 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
diff --git a/base/serial/impl/psb_d_csr_impl.f90 b/base/serial/impl/psb_d_csr_impl.f90
index 374a1b27..853476d6 100644
--- 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
diff --git a/base/serial/impl/psb_s_csr_impl.f90 b/base/serial/impl/psb_s_csr_impl.f90
index cad6ab2a..76140d07 100644
--- 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
diff --git a/base/serial/impl/psb_z_csr_impl.f90 b/base/serial/impl/psb_z_csr_impl.f90
index 30be1be8..d16e39eb 100644
--- 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