From 118aa6795f56b56708fc3af629c8509e2ed0d12f Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Tue, 26 Nov 2013 13:56:32 +0000
Subject: [PATCH] psblas3:  base/tools/psb_csphalo.F90 
 base/tools/psb_dsphalo.F90  base/tools/psb_ssphalo.F90 
 base/tools/psb_zsphalo.F90

Put in coo%set_sorted(.false.) where needed.
---
 base/tools/psb_csphalo.F90 | 3 ++-
 base/tools/psb_dsphalo.F90 | 3 ++-
 base/tools/psb_ssphalo.F90 | 3 ++-
 base/tools/psb_zsphalo.F90 | 3 ++-
 4 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/base/tools/psb_csphalo.F90 b/base/tools/psb_csphalo.F90
index 7880bf12..532def73 100644
--- a/base/tools/psb_csphalo.F90
+++ b/base/tools/psb_csphalo.F90
@@ -160,6 +160,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
     goto 9999
   end select
 
+
   sdsz(:)=0
   rvsz(:)=0
   l1  = 0
@@ -340,7 +341,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
   end if
 
   call acoo%set_nzeros(l1)
-
+  call acoo%set_sorted(.false.)
 
   if (debug_level >= psb_debug_outer_)&
        & write(debug_unit,*) me,' ',trim(name),&
diff --git a/base/tools/psb_dsphalo.F90 b/base/tools/psb_dsphalo.F90
index 43173e96..a6788e3a 100644
--- a/base/tools/psb_dsphalo.F90
+++ b/base/tools/psb_dsphalo.F90
@@ -160,6 +160,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
     goto 9999
   end select
 
+
   sdsz(:)=0
   rvsz(:)=0
   l1  = 0
@@ -340,7 +341,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
   end if
 
   call acoo%set_nzeros(l1)
-
+  call acoo%set_sorted(.false.)
 
   if (debug_level >= psb_debug_outer_)&
        & write(debug_unit,*) me,' ',trim(name),&
diff --git a/base/tools/psb_ssphalo.F90 b/base/tools/psb_ssphalo.F90
index 4605f8f5..e6b8ab25 100644
--- a/base/tools/psb_ssphalo.F90
+++ b/base/tools/psb_ssphalo.F90
@@ -160,6 +160,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
     goto 9999
   end select
 
+
   sdsz(:)=0
   rvsz(:)=0
   l1  = 0
@@ -340,7 +341,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
   end if
 
   call acoo%set_nzeros(l1)
-
+  call acoo%set_sorted(.false.)
 
   if (debug_level >= psb_debug_outer_)&
        & write(debug_unit,*) me,' ',trim(name),&
diff --git a/base/tools/psb_zsphalo.F90 b/base/tools/psb_zsphalo.F90
index c8d321af..187cd760 100644
--- a/base/tools/psb_zsphalo.F90
+++ b/base/tools/psb_zsphalo.F90
@@ -160,6 +160,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
     goto 9999
   end select
 
+
   sdsz(:)=0
   rvsz(:)=0
   l1  = 0
@@ -340,7 +341,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
   end if
 
   call acoo%set_nzeros(l1)
-
+  call acoo%set_sorted(.false.)
 
   if (debug_level >= psb_debug_outer_)&
        & write(debug_unit,*) me,' ',trim(name),&