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