diff --git a/base/serial/impl/psb_c_csr_impl.f90 b/base/serial/impl/psb_c_csr_impl.f90
index bd142014..e8097ba9 100644
--- a/base/serial/impl/psb_c_csr_impl.f90
+++ b/base/serial/impl/psb_c_csr_impl.f90
@@ -2761,7 +2761,7 @@ subroutine psb_c_cp_csr_to_coo(a,b,info)
     end do
   end do
   call b%set_nzeros(a%get_nzeros())
-  call b%set_sorted()
+  call b%set_sort_status(psb_row_major_)
   call b%set_asb()
 
 end subroutine psb_c_cp_csr_to_coo
@@ -2804,7 +2804,7 @@ subroutine psb_c_mv_csr_to_coo(a,b,info)
     end do
   end do
   call a%free()
-  call b%set_sorted()
+  call b%set_sort_status(psb_row_major_)
   call b%set_asb()
 
 end subroutine psb_c_mv_csr_to_coo
diff --git a/base/serial/impl/psb_d_csr_impl.f90 b/base/serial/impl/psb_d_csr_impl.f90
index 40831d54..e83790f5 100644
--- a/base/serial/impl/psb_d_csr_impl.f90
+++ b/base/serial/impl/psb_d_csr_impl.f90
@@ -2761,7 +2761,7 @@ subroutine psb_d_cp_csr_to_coo(a,b,info)
     end do
   end do
   call b%set_nzeros(a%get_nzeros())
-  call b%set_sorted()
+  call b%set_sort_status(psb_row_major_)
   call b%set_asb()
 
 end subroutine psb_d_cp_csr_to_coo
@@ -2804,7 +2804,7 @@ subroutine psb_d_mv_csr_to_coo(a,b,info)
     end do
   end do
   call a%free()
-  call b%set_sorted()
+  call b%set_sort_status(psb_row_major_)
   call b%set_asb()
 
 end subroutine psb_d_mv_csr_to_coo
diff --git a/base/serial/impl/psb_s_csr_impl.f90 b/base/serial/impl/psb_s_csr_impl.f90
index ace8618a..bfdcee1f 100644
--- a/base/serial/impl/psb_s_csr_impl.f90
+++ b/base/serial/impl/psb_s_csr_impl.f90
@@ -2761,7 +2761,7 @@ subroutine psb_s_cp_csr_to_coo(a,b,info)
     end do
   end do
   call b%set_nzeros(a%get_nzeros())
-  call b%set_sorted()
+  call b%set_sort_status(psb_row_major_)
   call b%set_asb()
 
 end subroutine psb_s_cp_csr_to_coo
@@ -2804,7 +2804,7 @@ subroutine psb_s_mv_csr_to_coo(a,b,info)
     end do
   end do
   call a%free()
-  call b%set_sorted()
+  call b%set_sort_status(psb_row_major_)
   call b%set_asb()
 
 end subroutine psb_s_mv_csr_to_coo
diff --git a/base/serial/impl/psb_z_csr_impl.f90 b/base/serial/impl/psb_z_csr_impl.f90
index 71e1da5c..62b3bb65 100644
--- a/base/serial/impl/psb_z_csr_impl.f90
+++ b/base/serial/impl/psb_z_csr_impl.f90
@@ -2761,7 +2761,7 @@ subroutine psb_z_cp_csr_to_coo(a,b,info)
     end do
   end do
   call b%set_nzeros(a%get_nzeros())
-  call b%set_sorted()
+  call b%set_sort_status(psb_row_major_)
   call b%set_asb()
 
 end subroutine psb_z_cp_csr_to_coo
@@ -2804,7 +2804,7 @@ subroutine psb_z_mv_csr_to_coo(a,b,info)
     end do
   end do
   call a%free()
-  call b%set_sorted()
+  call b%set_sort_status(psb_row_major_)
   call b%set_asb()
 
 end subroutine psb_z_mv_csr_to_coo