Put additional OpenMP directives.

base/serial/impl/psb_c_csr_impl.f90

@@ -1328,7 +1328,8 @@ function psb_c_csr_csnmi(a) result(res)
   res = szero
   if (a%is_dev())   call a%sync()
 
-  do i = 1, a%get_nrows()
+  !$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
       acc = acc + abs(a%val(j))

base/serial/impl/psb_d_csr_impl.f90

@@ -1328,7 +1328,8 @@ function psb_d_csr_csnmi(a) result(res)
   res = dzero
   if (a%is_dev())   call a%sync()
 
-  do i = 1, a%get_nrows()
+  !$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
       acc = acc + abs(a%val(j))

base/serial/impl/psb_s_csr_impl.f90

@@ -1328,7 +1328,8 @@ function psb_s_csr_csnmi(a) result(res)
   res = szero
   if (a%is_dev())   call a%sync()
 
-  do i = 1, a%get_nrows()
+  !$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
       acc = acc + abs(a%val(j))

base/serial/impl/psb_z_csr_impl.f90

@@ -1328,7 +1328,8 @@ function psb_z_csr_csnmi(a) result(res)
   res = dzero
   if (a%is_dev())   call a%sync()
 
-  do i = 1, a%get_nrows()
+  !$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
       acc = acc + abs(a%val(j))