From 95e8be9af8406da8d8e082d27e4a95aba5e96303 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Sat, 4 Apr 2015 15:42:08 +0000
Subject: [PATCH] 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 | 4 ++--
 base/serial/impl/psb_d_csr_impl.f90 | 4 ++--
 base/serial/impl/psb_s_csr_impl.f90 | 4 ++--
 base/serial/impl/psb_z_csr_impl.f90 | 4 ++--
 4 files changed, 8 insertions(+), 8 deletions(-)

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