Fixed interface of gather.

18 years ago · 41f1c46fc5
parent 8eb6e6b702
commit 41f1c46fc5
2 changed files with 2 additions and 2 deletions
--- a/prec/psb_ddiagsc_bld.f90
+++ b/prec/psb_ddiagsc_bld.f90
@ -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'
--- a/prec/psb_zdiagsc_bld.f90
+++ b/prec/psb_zdiagsc_bld.f90
@ -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'