Fix position of update_aggr call.

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
 

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
 

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
 

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