Put static clause in OMP

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

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

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

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