From 6884203b0f58156a8e37bcf67ea16bde11ff3c0d Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 26 Feb 2013 16:48:44 +0000 Subject: [PATCH] mld2p4-2: mlprec/impl/mld_caggrmat_smth_asb.f90 mlprec/impl/mld_daggrmat_smth_asb.f90 mlprec/impl/mld_saggrmat_smth_asb.f90 mlprec/impl/mld_zaggrmat_smth_asb.f90 New internal names --- mlprec/impl/mld_caggrmat_smth_asb.f90 | 2 +- mlprec/impl/mld_daggrmat_smth_asb.f90 | 2 +- mlprec/impl/mld_saggrmat_smth_asb.f90 | 2 +- mlprec/impl/mld_zaggrmat_smth_asb.f90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/mlprec/impl/mld_caggrmat_smth_asb.f90 b/mlprec/impl/mld_caggrmat_smth_asb.f90 index 14f22891..5cb8f076 100644 --- a/mlprec/impl/mld_caggrmat_smth_asb.f90 +++ b/mlprec/impl/mld_caggrmat_smth_asb.f90 @@ -250,7 +250,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%csnmi() + anorm = acsr3%spnmi() omega = 4.d0/(3.d0*anorm) parms%aggr_omega_val = omega diff --git a/mlprec/impl/mld_daggrmat_smth_asb.f90 b/mlprec/impl/mld_daggrmat_smth_asb.f90 index c152bbf5..b11b5279 100644 --- a/mlprec/impl/mld_daggrmat_smth_asb.f90 +++ b/mlprec/impl/mld_daggrmat_smth_asb.f90 @@ -250,7 +250,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%csnmi() + anorm = acsr3%spnmi() omega = 4.d0/(3.d0*anorm) parms%aggr_omega_val = omega diff --git a/mlprec/impl/mld_saggrmat_smth_asb.f90 b/mlprec/impl/mld_saggrmat_smth_asb.f90 index 448da077..2136974e 100644 --- a/mlprec/impl/mld_saggrmat_smth_asb.f90 +++ b/mlprec/impl/mld_saggrmat_smth_asb.f90 @@ -250,7 +250,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%csnmi() + anorm = acsr3%spnmi() omega = 4.d0/(3.d0*anorm) parms%aggr_omega_val = omega diff --git a/mlprec/impl/mld_zaggrmat_smth_asb.f90 b/mlprec/impl/mld_zaggrmat_smth_asb.f90 index 0867c68d..62e906c6 100644 --- a/mlprec/impl/mld_zaggrmat_smth_asb.f90 +++ b/mlprec/impl/mld_zaggrmat_smth_asb.f90 @@ -250,7 +250,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%csnmi() + anorm = acsr3%spnmi() omega = 4.d0/(3.d0*anorm) parms%aggr_omega_val = omega