psblas3:

base/serial/impl/psb_c_csr_impl.f90
 base/serial/impl/psb_d_csr_impl.f90
 base/serial/impl/psb_s_csr_impl.f90
 base/serial/impl/psb_z_csr_impl.f90

Fix set_Sort_status in to_coo().

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

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

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

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