Fixed documentation of INTENT of arguments.

18 years ago · e2e633c9b7
parent 6d062e4e27
commit e2e633c9b7
3 changed files with 3 additions and 3 deletions
--- a/mld_ddiagsc_bld.f90
+++ b/mld_ddiagsc_bld.f90
@ -137,7 +137,7 @@ subroutine mld_ddiag_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/mld_zdiagsc_bld.f90
+++ b/mld_zdiagsc_bld.f90
@ -132,7 +132,7 @@ subroutine mld_zdiag_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'
--- a/psb_prec_type.f90
+++ b/psb_prec_type.f90
@ -217,7 +217,7 @@ module psb_prec_type
       & 'New ML        '/)
  character(len=15), parameter, private :: &
       &  fact_names(0:5)=(/'None          ','ILU(n)        ',&
-       &  'ILU(eps)      ','Sparse SuperLU','UMFPACK Sp. LU',&
+       &  'ILU(T)        ','Sparse SuperLU','UMFPACK Sp. LU',&
       &  'SuperLU_Dist  '/)

  interface psb_base_precfree