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

Fix silly bug in eigenvalue estimate in aggrmat_smth.

Browse Source
This commit is contained in:
Salvatore Filippone
2018-12-13 15:13:20 +00:00
parent bfe8c55865
commit f4f8bcc5ff
4 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/aggregator/mld_caggrmat_smth_asb.f90
+1
View File
@@ -233,6 +233,7 @@ subroutine mld_caggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_rest
if (parms%aggr_eig == mld_max_norm_) then
anorm = acsr3%spnmi()
call psb_amx(ictxt,anorm)
omega = 4.d0/(3.d0*anorm)
parms%aggr_omega_val = omega
mlprec/impl/aggregator/mld_daggrmat_smth_asb.f90
+1
View File
@@ -233,6 +233,7 @@ subroutine mld_daggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_rest
if (parms%aggr_eig == mld_max_norm_) then
anorm = acsr3%spnmi()
call psb_amx(ictxt,anorm)
omega = 4.d0/(3.d0*anorm)
parms%aggr_omega_val = omega
mlprec/impl/aggregator/mld_saggrmat_smth_asb.f90
+1
View File
@@ -233,6 +233,7 @@ subroutine mld_saggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_rest
if (parms%aggr_eig == mld_max_norm_) then
anorm = acsr3%spnmi()
call psb_amx(ictxt,anorm)
omega = 4.d0/(3.d0*anorm)
parms%aggr_omega_val = omega
mlprec/impl/aggregator/mld_zaggrmat_smth_asb.f90
+1
View File
@@ -233,6 +233,7 @@ subroutine mld_zaggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_rest
if (parms%aggr_eig == mld_max_norm_) then
anorm = acsr3%spnmi()
call psb_amx(ictxt,anorm)
omega = 4.d0/(3.d0*anorm)
parms%aggr_omega_val = omega