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),&