fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-18 11:52:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

mld2p4:

Browse Source 
mlprec/impl/mld_c_hierarchy_bld.f90
 mlprec/impl/mld_d_hierarchy_bld.f90
 mlprec/impl/mld_s_hierarchy_bld.f90
 mlprec/impl/mld_z_hierarchy_bld.f90

Fix last level rebuild. For real now.
This commit is contained in:
Salvatore Filippone
2016-11-03 16:57:21 +00:00
parent 6251d692ff
commit 9b731d3da9
4 changed files with 16 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/mld_c_hierarchy_bld.f90
+4 -2
View File
@@ -301,8 +301,10 @@ subroutine mld_c_hierarchy_bld(a,desc_a,p,info)
if (debug_level >= psb_debug_outer_) &
& write(debug_unit,*) me,' ',trim(name),&
& 'Return from ',i,' call to mlprcbld ',info
!
! Save op_prol just in case
!
call op_prol%clone(p%precv(i)%tprol,info)
!
! Check for early termination of aggregation loop.
!
mlprec/impl/mld_d_hierarchy_bld.f90
+4 -2
View File
@@ -301,8 +301,10 @@ subroutine mld_d_hierarchy_bld(a,desc_a,p,info)
if (debug_level >= psb_debug_outer_) &
& write(debug_unit,*) me,' ',trim(name),&
& 'Return from ',i,' call to mlprcbld ',info
!
! Save op_prol just in case
!
call op_prol%clone(p%precv(i)%tprol,info)
!
! Check for early termination of aggregation loop.
!
mlprec/impl/mld_s_hierarchy_bld.f90
+4 -2
View File
@@ -301,8 +301,10 @@ subroutine mld_s_hierarchy_bld(a,desc_a,p,info)
if (debug_level >= psb_debug_outer_) &
& write(debug_unit,*) me,' ',trim(name),&
& 'Return from ',i,' call to mlprcbld ',info
!
! Save op_prol just in case
!
call op_prol%clone(p%precv(i)%tprol,info)
!
! Check for early termination of aggregation loop.
!
mlprec/impl/mld_z_hierarchy_bld.f90
+4 -2
View File
@@ -301,8 +301,10 @@ subroutine mld_z_hierarchy_bld(a,desc_a,p,info)
if (debug_level >= psb_debug_outer_) &
& write(debug_unit,*) me,' ',trim(name),&
& 'Return from ',i,' call to mlprcbld ',info
!
! Save op_prol just in case
!
call op_prol%clone(p%precv(i)%tprol,info)
!
! Check for early termination of aggregation loop.
!