diff --git a/base/serial/impl/psb_c_coo_impl.F90 b/base/serial/impl/psb_c_coo_impl.F90
index 60155771..d6117546 100644
--- 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
diff --git a/base/serial/impl/psb_d_coo_impl.F90 b/base/serial/impl/psb_d_coo_impl.F90
index d92b0dc5..4cb4c3ec 100644
--- 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
diff --git a/base/serial/impl/psb_s_coo_impl.F90 b/base/serial/impl/psb_s_coo_impl.F90
index 01d82399..f706db33 100644
--- 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
diff --git a/base/serial/impl/psb_z_coo_impl.F90 b/base/serial/impl/psb_z_coo_impl.F90
index c17ce628..c368ce91 100644
--- 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