fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-18 11:52:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
final fix for %pl, %pr problem revealed during SP testing.
This commit is contained in:
Salvatore Filippone
2008-01-26 15:32:25 +00:00
parent 1aa0b01613
commit 3457f5987e
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_dsphalo.F90
+1 -1
View File
@@ -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(:)
base/tools/psb_zsphalo.F90
+1 -1
View File
@@ -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(:)