diff --git a/mlprec/impl/level/mld_c_base_onelev_setag.f90 b/mlprec/impl/level/mld_c_base_onelev_setag.f90
index 2be2a0e5..8c7af8eb 100644
--- a/mlprec/impl/level/mld_c_base_onelev_setag.f90
+++ b/mlprec/impl/level/mld_c_base_onelev_setag.f90
@@ -73,6 +73,8 @@ subroutine mld_c_base_onelev_setag(lev,val,info,pos)
       info = 3111
       return
     end if
+    lv%parms%par_aggr_alg  = mld_ext_aggr_
+    lv%parms%aggr_type     = mld_ext_noalg_
   end if
   
 end subroutine mld_c_base_onelev_setag
diff --git a/mlprec/impl/level/mld_d_base_onelev_setag.f90 b/mlprec/impl/level/mld_d_base_onelev_setag.f90
index 3303508b..397ecdef 100644
--- a/mlprec/impl/level/mld_d_base_onelev_setag.f90
+++ b/mlprec/impl/level/mld_d_base_onelev_setag.f90
@@ -73,6 +73,8 @@ subroutine mld_d_base_onelev_setag(lev,val,info,pos)
       info = 3111
       return
     end if
+    lv%parms%par_aggr_alg  = mld_ext_aggr_
+    lv%parms%aggr_type     = mld_ext_noalg_
   end if
   
 end subroutine mld_d_base_onelev_setag
diff --git a/mlprec/impl/level/mld_s_base_onelev_setag.f90 b/mlprec/impl/level/mld_s_base_onelev_setag.f90
index 81af270b..41b7e0de 100644
--- a/mlprec/impl/level/mld_s_base_onelev_setag.f90
+++ b/mlprec/impl/level/mld_s_base_onelev_setag.f90
@@ -73,6 +73,8 @@ subroutine mld_s_base_onelev_setag(lev,val,info,pos)
       info = 3111
       return
     end if
+    lv%parms%par_aggr_alg  = mld_ext_aggr_
+    lv%parms%aggr_type     = mld_ext_noalg_
   end if
   
 end subroutine mld_s_base_onelev_setag
diff --git a/mlprec/impl/level/mld_z_base_onelev_setag.f90 b/mlprec/impl/level/mld_z_base_onelev_setag.f90
index a5c56bc7..4d7702ba 100644
--- a/mlprec/impl/level/mld_z_base_onelev_setag.f90
+++ b/mlprec/impl/level/mld_z_base_onelev_setag.f90
@@ -73,6 +73,8 @@ subroutine mld_z_base_onelev_setag(lev,val,info,pos)
       info = 3111
       return
     end if
+    lv%parms%par_aggr_alg  = mld_ext_aggr_
+    lv%parms%aggr_type     = mld_ext_noalg_
   end if
   
 end subroutine mld_z_base_onelev_setag