psblas:base/tools:psb_dsphalo.F90,psb_zsphalo.F90

final fix for %pl, %pr problem revealed during SP testing.
17 years ago · 3457f5987e
parent 1aa0b01613
commit 3457f5987e
2 changed files with 2 additions and 2 deletions
--- a/base/tools/psb_dsphalo.F90
+++ b/base/tools/psb_dsphalo.F90
@ -228,7 +228,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
  Enddo

  iszr=sum(rvsz)
-  call psb_sp_reall(blk,max(iszr,1),info)
+  call psb_sp_all(blk,max(iszr,1),info)
  if (debug_level >= psb_debug_outer_)&
       & write(debug_unit,*) me,' ',trim(name),': Sizes:',size(blk%ia1),size(blk%ia2),&
       & ' Send:',sdsz(:),' Receive:',rvsz(:)
--- a/base/tools/psb_zsphalo.F90
+++ b/base/tools/psb_zsphalo.F90
@ -227,7 +227,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
  Enddo

  iszr=sum(rvsz)
-  call psb_sp_reall(blk,max(iszr,1),info)
+  call psb_sp_all(blk,max(iszr,1),info)
  if (debug_level >= psb_debug_outer_)&
       & write(debug_unit,*) me,' ',trim(name),': Sizes:',size(blk%ia1),size(blk%ia2),&
       & ' Send:',sdsz(:),' Receive:',rvsz(:)