Small omp addition

5 months ago · e19284eb6c
parent 10f81577f4
commit e19284eb6c
4 changed files with 8 additions and 4 deletions
--- a/base/serial/impl/psb_c_coo_impl.F90
+++ b/base/serial/impl/psb_c_coo_impl.F90
@ -165,7 +165,8 @@ subroutine psb_c_coo_scals(d,a,info)
  if (a%is_unit()) then
    call a%make_nonunit()
  end if
-
+  
+  !$omp parallel do private(i)
  do i=1,a%get_nzeros()
    a%val(i) = a%val(i) * d
  enddo
--- a/base/serial/impl/psb_d_coo_impl.F90
+++ b/base/serial/impl/psb_d_coo_impl.F90
@ -165,7 +165,8 @@ subroutine psb_d_coo_scals(d,a,info)
  if (a%is_unit()) then
    call a%make_nonunit()
  end if
-
+  
+  !$omp parallel do private(i)
  do i=1,a%get_nzeros()
    a%val(i) = a%val(i) * d
  enddo
--- a/base/serial/impl/psb_s_coo_impl.F90
+++ b/base/serial/impl/psb_s_coo_impl.F90
@ -165,7 +165,8 @@ subroutine psb_s_coo_scals(d,a,info)
  if (a%is_unit()) then
    call a%make_nonunit()
  end if
-
+  
+  !$omp parallel do private(i)
  do i=1,a%get_nzeros()
    a%val(i) = a%val(i) * d
  enddo
--- a/base/serial/impl/psb_z_coo_impl.F90
+++ b/base/serial/impl/psb_z_coo_impl.F90
@ -165,7 +165,8 @@ subroutine psb_z_coo_scals(d,a,info)
  if (a%is_unit()) then
    call a%make_nonunit()
  end if
-
+  
+  !$omp parallel do private(i)
  do i=1,a%get_nzeros()
    a%val(i) = a%val(i) * d
  enddo