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

mld2p4:

Browse Source 
Fixed comment not to refer to mlprec_bld.
This commit is contained in:
Salvatore Filippone
2009-01-13 16:10:29 +00:00
parent 71508f0b86
commit f3e4486de2
4 changed files with 4 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_cprecbld.f90
+1 -2
View File
@@ -209,8 +209,7 @@ subroutine mld_cprecbld(a,desc_a,p,info)
& write(debug_unit,*) me,' ',trim(name),&
& 'Calling mlprcbld at level ',i
!
! Allocate and build the preconditioner at level i.
! baseprec_bld is called inside mlprec_bld.
! Build the mapping between levels (i-1) and (i)
!
call init_baseprc_av(p%precv(i)%prec,info)
if (info == 0) call mld_aggr_bld(p%precv(i-1)%base_a,&
mlprec/mld_dprecbld.f90
+1 -2
View File
@@ -209,8 +209,7 @@ subroutine mld_dprecbld(a,desc_a,p,info)
& write(debug_unit,*) me,' ',trim(name),&
& 'Calling mlprcbld at level ',i
!
! Allocate and build the preconditioner at level i.
! baseprec_bld is called inside mlprec_bld.
! Build the mapping between levels (i-1) and (i)
!
call init_baseprc_av(p%precv(i)%prec,info)
if (info == 0) call mld_aggr_bld(p%precv(i-1)%base_a,&
mlprec/mld_sprecbld.f90
+1 -2
View File
@@ -209,8 +209,7 @@ subroutine mld_sprecbld(a,desc_a,p,info)
& write(debug_unit,*) me,' ',trim(name),&
& 'Calling mlprcbld at level ',i
!
! Allocate and build the preconditioner at level i.
! baseprec_bld is called inside mlprec_bld.
! Build the mapping between levels (i-1) and (i)
!
call init_baseprc_av(p%precv(i)%prec,info)
if (info == 0) call mld_aggr_bld(p%precv(i-1)%base_a,&
mlprec/mld_zprecbld.f90
+1 -2
View File
@@ -209,8 +209,7 @@ subroutine mld_zprecbld(a,desc_a,p,info)
& write(debug_unit,*) me,' ',trim(name),&
& 'Calling mlprcbld at level ',i
!
! Allocate and build the preconditioner at level i.
! baseprec_bld is called inside mlprec_bld.
! Build the mapping between levels (i-1) and (i)
!
call init_baseprc_av(p%precv(i)%prec,info)
if (info == 0) call mld_aggr_bld(p%precv(i-1)%base_a,&