From d8a4ceb5a57a92c73c8e2639ad86a5dd2262d67f Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 17 Dec 2007 12:48:05 +0000 Subject: [PATCH] Changes to internal docs for NaturalDocs processing. --- mlprec/mld_daggrmap_bld.f90 | 4 +++- mlprec/mld_dbaseprec_aply.f90 | 4 ++-- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/mlprec/mld_daggrmap_bld.f90 b/mlprec/mld_daggrmap_bld.f90 index 683016b2..c6380c94 100644 --- a/mlprec/mld_daggrmap_bld.f90 +++ b/mlprec/mld_daggrmap_bld.f90 @@ -71,6 +71,7 @@ ! adjacency graph of the coarse-level matrix. ! info - integer, output. ! Error code. +! subroutine mld_daggrmap_bld(aggr_type,a,desc_a,nlaggr,ilaggr,info) use psb_base_mod @@ -102,7 +103,7 @@ subroutine mld_daggrmap_bld(aggr_type,a,desc_a,nlaggr,ilaggr,info) name = 'mld_aggrmap_bld' call psb_erractionsave(err_act) ! - ! For the time being we are ignoring aggr_type so + ! Note. At the time being we are ignoring aggr_type so ! that we only have decoupled aggregation. This might ! change in the future. ! @@ -148,6 +149,7 @@ subroutine mld_daggrmap_bld(aggr_type,a,desc_a,nlaggr,ilaggr,info) ! -(nr+1) Untouched as yet ! -i 1<=i<=nr Adjacent to aggregate i ! i 1<=i<=nr Belonging to aggregate i + ! ! Phase one: group nodes together. ! Very simple minded strategy. diff --git a/mlprec/mld_dbaseprec_aply.f90 b/mlprec/mld_dbaseprec_aply.f90 index 28a05834..2ff79e42 100644 --- a/mlprec/mld_dbaseprec_aply.f90 +++ b/mlprec/mld_dbaseprec_aply.f90 @@ -56,7 +56,7 @@ ! Arguments: ! alpha - real(kind(0.d0)), input. ! The scalar alpha. -! prec - type(), input. +! prec - type(mld_dbaseprc_type), input. ! The base preconditioner data structure containing the local part ! of the preconditioner K. ! x - real(kind(0.d0)), dimension(:), input. @@ -189,7 +189,7 @@ subroutine mld_dbaseprec_aply(alpha,prec,x,beta,y,desc_data,trans,work,info) else ! - ! Currently trans is unused + ! Note: currently trans is unused ! n_row = psb_cd_get_local_rows(prec%desc_data)