fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix position of update_aggr call.

Browse Source
stopcriterion
Salvatore Filippone 6 years ago
parent af8a9e875f
commit d57c46e78b
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File

2
mlprec/impl/mld_c_hierarchy_bld.f90
Unescape Escape View File

@ -312,7 +312,6 @@ subroutine mld_c_hierarchy_bld(a,desc_a,prec,info)
& a_err='Map build') & a_err='Map build')
goto 9999 goto 9999
endif endif
if (i<iszv) call prec%precv(i)%update_aggr(prec%precv(i+1),info)
if (debug_level >= psb_debug_outer_) & if (debug_level >= psb_debug_outer_) &
& write(debug_unit,*) me,' ',trim(name),& & write(debug_unit,*) me,' ',trim(name),&
@ -408,6 +407,7 @@ subroutine mld_c_hierarchy_bld(a,desc_a,prec,info)
& a_err='Map build') & a_err='Map build')
goto 9999 goto 9999
endif endif
if (i<iszv) call prec%precv(i)%update_aggr(prec%precv(i+1),info)
end do array_build_loop end do array_build_loop

2
mlprec/impl/mld_d_hierarchy_bld.f90
Unescape Escape View File

@ -312,7 +312,6 @@ subroutine mld_d_hierarchy_bld(a,desc_a,prec,info)
& a_err='Map build') & a_err='Map build')
goto 9999 goto 9999
endif endif
if (i<iszv) call prec%precv(i)%update_aggr(prec%precv(i+1),info)
if (debug_level >= psb_debug_outer_) & if (debug_level >= psb_debug_outer_) &
& write(debug_unit,*) me,' ',trim(name),& & write(debug_unit,*) me,' ',trim(name),&
@ -408,6 +407,7 @@ subroutine mld_d_hierarchy_bld(a,desc_a,prec,info)
& a_err='Map build') & a_err='Map build')
goto 9999 goto 9999
endif endif
if (i<iszv) call prec%precv(i)%update_aggr(prec%precv(i+1),info)
end do array_build_loop end do array_build_loop

2
mlprec/impl/mld_s_hierarchy_bld.f90
Unescape Escape View File

@ -312,7 +312,6 @@ subroutine mld_s_hierarchy_bld(a,desc_a,prec,info)
& a_err='Map build') & a_err='Map build')
goto 9999 goto 9999
endif endif
if (i<iszv) call prec%precv(i)%update_aggr(prec%precv(i+1),info)
if (debug_level >= psb_debug_outer_) & if (debug_level >= psb_debug_outer_) &
& write(debug_unit,*) me,' ',trim(name),& & write(debug_unit,*) me,' ',trim(name),&
@ -408,6 +407,7 @@ subroutine mld_s_hierarchy_bld(a,desc_a,prec,info)
& a_err='Map build') & a_err='Map build')
goto 9999 goto 9999
endif endif
if (i<iszv) call prec%precv(i)%update_aggr(prec%precv(i+1),info)
end do array_build_loop end do array_build_loop

2
mlprec/impl/mld_z_hierarchy_bld.f90
Unescape Escape View File

@ -312,7 +312,6 @@ subroutine mld_z_hierarchy_bld(a,desc_a,prec,info)
& a_err='Map build') & a_err='Map build')
goto 9999 goto 9999
endif endif
if (i<iszv) call prec%precv(i)%update_aggr(prec%precv(i+1),info)
if (debug_level >= psb_debug_outer_) & if (debug_level >= psb_debug_outer_) &
& write(debug_unit,*) me,' ',trim(name),& & write(debug_unit,*) me,' ',trim(name),&
@ -408,6 +407,7 @@ subroutine mld_z_hierarchy_bld(a,desc_a,prec,info)
& a_err='Map build') & a_err='Map build')
goto 9999 goto 9999
endif endif
if (i<iszv) call prec%precv(i)%update_aggr(prec%precv(i+1),info)
end do array_build_loop end do array_build_loop

Write Preview
Loading…
Cancel
Save