fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 22:55:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Changes to internal docs for NaturalDocs processing.

Browse Source
This commit is contained in:
Salvatore Filippone
2007-12-17 12:48:05 +00:00
parent afa4aece18
commit d8a4ceb5a5
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_daggrmap_bld.f90
+3 -1
View File
@@ -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.
mlprec/mld_dbaseprec_aply.f90
+2 -2
View File
@@ -56,7 +56,7 @@
! Arguments:
! alpha - real(kind(0.d0)), input.
! The scalar alpha.
! prec - type(<mld_dbaseprc_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)