diff --git a/mlprec/impl/mld_c_hierarchy_bld.f90 b/mlprec/impl/mld_c_hierarchy_bld.f90
index 3b69afdf..f9678195 100644
--- a/mlprec/impl/mld_c_hierarchy_bld.f90
+++ b/mlprec/impl/mld_c_hierarchy_bld.f90
@@ -312,7 +312,6 @@ subroutine mld_c_hierarchy_bld(a,desc_a,prec,info)
            & a_err='Map build')
       goto 9999
     endif
-    if (i<iszv) call prec%precv(i)%update_aggr(prec%precv(i+1),info)
 
     if (debug_level >= psb_debug_outer_) &
          & write(debug_unit,*) me,' ',trim(name),&
@@ -408,6 +407,7 @@ subroutine mld_c_hierarchy_bld(a,desc_a,prec,info)
            & a_err='Map build')
       goto 9999
     endif
+    if (i<iszv) call prec%precv(i)%update_aggr(prec%precv(i+1),info)
 
   end do array_build_loop
 
diff --git a/mlprec/impl/mld_d_hierarchy_bld.f90 b/mlprec/impl/mld_d_hierarchy_bld.f90
index 22c88d9a..ca76f75d 100644
--- a/mlprec/impl/mld_d_hierarchy_bld.f90
+++ b/mlprec/impl/mld_d_hierarchy_bld.f90
@@ -312,7 +312,6 @@ subroutine mld_d_hierarchy_bld(a,desc_a,prec,info)
            & a_err='Map build')
       goto 9999
     endif
-    if (i<iszv) call prec%precv(i)%update_aggr(prec%precv(i+1),info)
 
     if (debug_level >= psb_debug_outer_) &
          & write(debug_unit,*) me,' ',trim(name),&
@@ -408,6 +407,7 @@ subroutine mld_d_hierarchy_bld(a,desc_a,prec,info)
            & a_err='Map build')
       goto 9999
     endif
+    if (i<iszv) call prec%precv(i)%update_aggr(prec%precv(i+1),info)
 
   end do array_build_loop
 
diff --git a/mlprec/impl/mld_s_hierarchy_bld.f90 b/mlprec/impl/mld_s_hierarchy_bld.f90
index e3675b21..91e24322 100644
--- a/mlprec/impl/mld_s_hierarchy_bld.f90
+++ b/mlprec/impl/mld_s_hierarchy_bld.f90
@@ -312,7 +312,6 @@ subroutine mld_s_hierarchy_bld(a,desc_a,prec,info)
            & a_err='Map build')
       goto 9999
     endif
-    if (i<iszv) call prec%precv(i)%update_aggr(prec%precv(i+1),info)
 
     if (debug_level >= psb_debug_outer_) &
          & write(debug_unit,*) me,' ',trim(name),&
@@ -408,6 +407,7 @@ subroutine mld_s_hierarchy_bld(a,desc_a,prec,info)
            & a_err='Map build')
       goto 9999
     endif
+    if (i<iszv) call prec%precv(i)%update_aggr(prec%precv(i+1),info)
 
   end do array_build_loop
 
diff --git a/mlprec/impl/mld_z_hierarchy_bld.f90 b/mlprec/impl/mld_z_hierarchy_bld.f90
index 6544e3f9..087c50e5 100644
--- a/mlprec/impl/mld_z_hierarchy_bld.f90
+++ b/mlprec/impl/mld_z_hierarchy_bld.f90
@@ -312,7 +312,6 @@ subroutine mld_z_hierarchy_bld(a,desc_a,prec,info)
            & a_err='Map build')
       goto 9999
     endif
-    if (i<iszv) call prec%precv(i)%update_aggr(prec%precv(i+1),info)
 
     if (debug_level >= psb_debug_outer_) &
          & write(debug_unit,*) me,' ',trim(name),&
@@ -408,6 +407,7 @@ subroutine mld_z_hierarchy_bld(a,desc_a,prec,info)
            & a_err='Map build')
       goto 9999
     endif
+    if (i<iszv) call prec%precv(i)%update_aggr(prec%precv(i+1),info)
 
   end do array_build_loop