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.
11 years ago · 118aa6795f
parent 9d081d43a3
commit 118aa6795f
4 changed files with 8 additions and 4 deletions
--- 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),&
--- 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),&
--- 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),&
--- 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),&