diff --git a/mlprec/impl/level/mld_c_base_onelev_check.f90 b/mlprec/impl/level/mld_c_base_onelev_check.f90
index e0d0fded..be32a1d3 100644
--- a/mlprec/impl/level/mld_c_base_onelev_check.f90
+++ b/mlprec/impl/level/mld_c_base_onelev_check.f90
@@ -53,11 +53,11 @@ subroutine mld_c_base_onelev_check(lv,info)
   info = psb_success_
 
   call mld_check_def(lv%parms%sweeps,&
-       & 'Jacobi sweeps',ione,is_int_positive)
+       & 'Jacobi sweeps',ione,is_int_non_negative)
   call mld_check_def(lv%parms%sweeps_pre,&
-       & 'Jacobi sweeps',ione,is_int_positive)
+       & 'Jacobi sweeps',ione,is_int_non_negative)
   call mld_check_def(lv%parms%sweeps_post,&
-       & 'Jacobi sweeps',ione,is_int_positive)
+       & 'Jacobi sweeps',ione,is_int_non_negative)
 
 
   if (allocated(lv%sm)) then 
diff --git a/mlprec/impl/level/mld_d_base_onelev_check.f90 b/mlprec/impl/level/mld_d_base_onelev_check.f90
index 7c6bac01..5626dc81 100644
--- a/mlprec/impl/level/mld_d_base_onelev_check.f90
+++ b/mlprec/impl/level/mld_d_base_onelev_check.f90
@@ -53,11 +53,11 @@ subroutine mld_d_base_onelev_check(lv,info)
   info = psb_success_
 
   call mld_check_def(lv%parms%sweeps,&
-       & 'Jacobi sweeps',ione,is_int_positive)
+       & 'Jacobi sweeps',ione,is_int_non_negative)
   call mld_check_def(lv%parms%sweeps_pre,&
-       & 'Jacobi sweeps',ione,is_int_positive)
+       & 'Jacobi sweeps',ione,is_int_non_negative)
   call mld_check_def(lv%parms%sweeps_post,&
-       & 'Jacobi sweeps',ione,is_int_positive)
+       & 'Jacobi sweeps',ione,is_int_non_negative)
 
 
   if (allocated(lv%sm)) then 
diff --git a/mlprec/impl/level/mld_s_base_onelev_check.f90 b/mlprec/impl/level/mld_s_base_onelev_check.f90
index 1689c733..c2e2a4ff 100644
--- a/mlprec/impl/level/mld_s_base_onelev_check.f90
+++ b/mlprec/impl/level/mld_s_base_onelev_check.f90
@@ -53,11 +53,11 @@ subroutine mld_s_base_onelev_check(lv,info)
   info = psb_success_
 
   call mld_check_def(lv%parms%sweeps,&
-       & 'Jacobi sweeps',ione,is_int_positive)
+       & 'Jacobi sweeps',ione,is_int_non_negative)
   call mld_check_def(lv%parms%sweeps_pre,&
-       & 'Jacobi sweeps',ione,is_int_positive)
+       & 'Jacobi sweeps',ione,is_int_non_negative)
   call mld_check_def(lv%parms%sweeps_post,&
-       & 'Jacobi sweeps',ione,is_int_positive)
+       & 'Jacobi sweeps',ione,is_int_non_negative)
 
 
   if (allocated(lv%sm)) then 
diff --git a/mlprec/impl/level/mld_z_base_onelev_check.f90 b/mlprec/impl/level/mld_z_base_onelev_check.f90
index e77bcf84..61f98d5e 100644
--- a/mlprec/impl/level/mld_z_base_onelev_check.f90
+++ b/mlprec/impl/level/mld_z_base_onelev_check.f90
@@ -53,11 +53,11 @@ subroutine mld_z_base_onelev_check(lv,info)
   info = psb_success_
 
   call mld_check_def(lv%parms%sweeps,&
-       & 'Jacobi sweeps',ione,is_int_positive)
+       & 'Jacobi sweeps',ione,is_int_non_negative)
   call mld_check_def(lv%parms%sweeps_pre,&
-       & 'Jacobi sweeps',ione,is_int_positive)
+       & 'Jacobi sweeps',ione,is_int_non_negative)
   call mld_check_def(lv%parms%sweeps_post,&
-       & 'Jacobi sweeps',ione,is_int_positive)
+       & 'Jacobi sweeps',ione,is_int_non_negative)
 
 
   if (allocated(lv%sm)) then 
diff --git a/mlprec/impl/mld_c_hierarchy_bld.f90 b/mlprec/impl/mld_c_hierarchy_bld.f90
index 7b4d970f..46977d3c 100644
--- a/mlprec/impl/mld_c_hierarchy_bld.f90
+++ b/mlprec/impl/mld_c_hierarchy_bld.f90
@@ -202,6 +202,7 @@ subroutine mld_c_hierarchy_bld(a,desc_a,p,info,amold,vmold,imold)
       casize = desc_a%get_global_rows()
       casize = int((sone*casize)**(sone/(sone*3)),psb_ipk_)
       casize = max(casize,ione)
+      casize = casize*40_psb_ipk_ 
     end if
     call mld_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,p%precv,info)
   else 
diff --git a/mlprec/impl/mld_d_hierarchy_bld.f90 b/mlprec/impl/mld_d_hierarchy_bld.f90
index 7eb24489..c43238dd 100644
--- a/mlprec/impl/mld_d_hierarchy_bld.f90
+++ b/mlprec/impl/mld_d_hierarchy_bld.f90
@@ -202,6 +202,7 @@ subroutine mld_d_hierarchy_bld(a,desc_a,p,info,amold,vmold,imold)
       casize = desc_a%get_global_rows()
       casize = int((done*casize)**(done/(done*3)),psb_ipk_)
       casize = max(casize,ione)
+      casize = casize*40_psb_ipk_ 
     end if
     call mld_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,p%precv,info)
   else 
diff --git a/mlprec/impl/mld_s_hierarchy_bld.f90 b/mlprec/impl/mld_s_hierarchy_bld.f90
index 89b7bd5d..5216b314 100644
--- a/mlprec/impl/mld_s_hierarchy_bld.f90
+++ b/mlprec/impl/mld_s_hierarchy_bld.f90
@@ -202,6 +202,7 @@ subroutine mld_s_hierarchy_bld(a,desc_a,p,info,amold,vmold,imold)
       casize = desc_a%get_global_rows()
       casize = int((sone*casize)**(sone/(sone*3)),psb_ipk_)
       casize = max(casize,ione)
+      casize = casize*40_psb_ipk_ 
     end if
     call mld_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,p%precv,info)
   else 
diff --git a/mlprec/impl/mld_z_hierarchy_bld.f90 b/mlprec/impl/mld_z_hierarchy_bld.f90
index b43fc88e..ab14a40a 100644
--- a/mlprec/impl/mld_z_hierarchy_bld.f90
+++ b/mlprec/impl/mld_z_hierarchy_bld.f90
@@ -202,6 +202,7 @@ subroutine mld_z_hierarchy_bld(a,desc_a,p,info,amold,vmold,imold)
       casize = desc_a%get_global_rows()
       casize = int((done*casize)**(done/(done*3)),psb_ipk_)
       casize = max(casize,ione)
+      casize = casize*40_psb_ipk_ 
     end if
     call mld_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,p%precv,info)
   else