Put additional OpenMP directives.

base/serial/impl/psb_c_csr_impl.f90

@@ -1328,6 +1328,7 @@ function psb_c_csr_csnmi(a) result(res)
   res = szero
   if (a%is_dev())   call a%sync()
 
+  !$omp parallel do private(i,acc)  reduction(max: res)
     do i = 1, a%get_nrows()
     acc = szero
     do j=a%irp(i),a%irp(i+1)-1

base/serial/impl/psb_d_csr_impl.f90

@@ -1328,6 +1328,7 @@ function psb_d_csr_csnmi(a) result(res)
   res = dzero
   if (a%is_dev())   call a%sync()
 
+  !$omp parallel do private(i,acc)  reduction(max: res)
     do i = 1, a%get_nrows()
     acc = dzero
     do j=a%irp(i),a%irp(i+1)-1

base/serial/impl/psb_s_csr_impl.f90

@@ -1328,6 +1328,7 @@ function psb_s_csr_csnmi(a) result(res)
   res = szero
   if (a%is_dev())   call a%sync()
 
+  !$omp parallel do private(i,acc)  reduction(max: res)
     do i = 1, a%get_nrows()
     acc = szero
     do j=a%irp(i),a%irp(i+1)-1

base/serial/impl/psb_z_csr_impl.f90

@@ -1328,6 +1328,7 @@ function psb_z_csr_csnmi(a) result(res)
   res = dzero
   if (a%is_dev())   call a%sync()
 
+  !$omp parallel do private(i,acc)  reduction(max: res)
     do i = 1, a%get_nrows()
     acc = dzero
     do j=a%irp(i),a%irp(i+1)-1