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

Fixed interface of gather.

Browse Source
This commit is contained in:
Salvatore Filippone
2007-06-07 14:05:44 +00:00
parent 8eb6e6b702
commit 41f1c46fc5
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/psb_ddiagsc_bld.f90
+1 -1
View File
@@ -129,7 +129,7 @@ subroutine psb_ddiagsc_bld(a,desc_a,p,upd,info)
goto 9999
end if
call psb_gather(gd, p%d, desc_a, info, iroot=iroot)
call psb_gather(gd, p%d, desc_a, info, root=iroot)
if(info /= 0) then
info=4010
ch_err='psb_dgatherm'
prec/psb_zdiagsc_bld.f90
+1 -1
View File
@@ -124,7 +124,7 @@ subroutine psb_zdiagsc_bld(a,desc_a,p,upd,info)
goto 9999
end if
call psb_gather(gd, p%d, desc_a, info, iroot=iroot)
call psb_gather(gd, p%d, desc_a, info, root=iroot)
if(info /= 0) then
info=4010
ch_err='psb_zgatherm'