From e2e633c9b7c05537393350911682f0c0b134b27b Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 31 May 2007 12:57:53 +0000 Subject: [PATCH] Fixed documentation of INTENT of arguments. --- mld_ddiagsc_bld.f90 | 2 +- mld_zdiagsc_bld.f90 | 2 +- psb_prec_type.f90 | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/mld_ddiagsc_bld.f90 b/mld_ddiagsc_bld.f90 index 7e8503d3..5ae6c5c9 100644 --- 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' diff --git a/mld_zdiagsc_bld.f90 b/mld_zdiagsc_bld.f90 index d364f6ad..1a08ee84 100644 --- 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' diff --git a/psb_prec_type.f90 b/psb_prec_type.f90 index 89404a54..4257324c 100644 --- 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