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

mld2p4;

Browse Source 
mlprec/impl/level/mld_c_base_onelev_descr.f90
 mlprec/impl/level/mld_d_base_onelev_descr.f90
 mlprec/impl/level/mld_s_base_onelev_descr.f90
 mlprec/impl/level/mld_z_base_onelev_descr.f90
 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
 mlprec/mld_c_onelev_mod.f90
 mlprec/mld_c_prec_type.f90
 mlprec/mld_d_onelev_mod.f90
 mlprec/mld_d_prec_type.f90
 mlprec/mld_s_onelev_mod.f90
 mlprec/mld_s_prec_type.f90
 mlprec/mld_z_onelev_mod.f90
 mlprec/mld_z_prec_type.f90

Fix aggregation ratio logs.
This commit is contained in:
Salvatore Filippone
2016-11-01 10:06:40 +00:00
parent 3f7a1d5b38
commit 01de021908
16 changed files with 52 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/level/mld_c_base_onelev_descr.f90
+2
View File
@@ -86,6 +86,8 @@ subroutine mld_c_base_onelev_descr(lv,il,nl,ilmin,info,iout)
& sum(lv%map%naggr(:)),' Nonzeros: ',lv%ac_nz_tot
write(iout_,*) ' Sizes of aggregates: ', &
& lv%map%naggr(:)
write(iout_,*) ' Aggregation ratio: ', &
& lv%szratio
end if
end if
mlprec/impl/level/mld_d_base_onelev_descr.f90
+2
View File
@@ -86,6 +86,8 @@ subroutine mld_d_base_onelev_descr(lv,il,nl,ilmin,info,iout)
& sum(lv%map%naggr(:)),' Nonzeros: ',lv%ac_nz_tot
write(iout_,*) ' Sizes of aggregates: ', &
& lv%map%naggr(:)
write(iout_,*) ' Aggregation ratio: ', &
& lv%szratio
end if
end if
mlprec/impl/level/mld_s_base_onelev_descr.f90
+2
View File
@@ -86,6 +86,8 @@ subroutine mld_s_base_onelev_descr(lv,il,nl,ilmin,info,iout)
& sum(lv%map%naggr(:)),' Nonzeros: ',lv%ac_nz_tot
write(iout_,*) ' Sizes of aggregates: ', &
& lv%map%naggr(:)
write(iout_,*) ' Aggregation ratio: ', &
& lv%szratio
end if
end if
mlprec/impl/level/mld_z_base_onelev_descr.f90
+2
View File
@@ -86,6 +86,8 @@ subroutine mld_z_base_onelev_descr(lv,il,nl,ilmin,info,iout)
& sum(lv%map%naggr(:)),' Nonzeros: ',lv%ac_nz_tot
write(iout_,*) ' Sizes of aggregates: ', &
& lv%map%naggr(:)
write(iout_,*) ' Aggregation ratio: ', &
& lv%szratio
end if
end if
mlprec/impl/mld_c_hierarchy_bld.f90
+8 -2
View File
@@ -311,9 +311,15 @@ subroutine mld_c_hierarchy_bld(a,desc_a,p,info)
newsz = i
end if
if (i>2) then
sizeratio = iaggsize
sizeratio = iaggsize
if (i==2) then
sizeratio = desc_a%get_global_rows()/sizeratio
else
sizeratio = sum(p%precv(i-1)%map%naggr)/sizeratio
end if
p%precv(i)%szratio = sizeratio
if (i>2) then
if (sizeratio < mnaggratio) then
if (sizeratio > 1) then
newsz = i
mlprec/impl/mld_d_hierarchy_bld.f90
+8 -2
View File
@@ -311,9 +311,15 @@ subroutine mld_d_hierarchy_bld(a,desc_a,p,info)
newsz = i
end if
if (i>2) then
sizeratio = iaggsize
sizeratio = iaggsize
if (i==2) then
sizeratio = desc_a%get_global_rows()/sizeratio
else
sizeratio = sum(p%precv(i-1)%map%naggr)/sizeratio
end if
p%precv(i)%szratio = sizeratio
if (i>2) then
if (sizeratio < mnaggratio) then
if (sizeratio > 1) then
newsz = i
mlprec/impl/mld_s_hierarchy_bld.f90
+8 -2
View File
@@ -311,9 +311,15 @@ subroutine mld_s_hierarchy_bld(a,desc_a,p,info)
newsz = i
end if
if (i>2) then
sizeratio = iaggsize
sizeratio = iaggsize
if (i==2) then
sizeratio = desc_a%get_global_rows()/sizeratio
else
sizeratio = sum(p%precv(i-1)%map%naggr)/sizeratio
end if
p%precv(i)%szratio = sizeratio
if (i>2) then
if (sizeratio < mnaggratio) then
if (sizeratio > 1) then
newsz = i
mlprec/impl/mld_z_hierarchy_bld.f90
+8 -2
View File
@@ -311,9 +311,15 @@ subroutine mld_z_hierarchy_bld(a,desc_a,p,info)
newsz = i
end if
if (i>2) then
sizeratio = iaggsize
sizeratio = iaggsize
if (i==2) then
sizeratio = desc_a%get_global_rows()/sizeratio
else
sizeratio = sum(p%precv(i-1)%map%naggr)/sizeratio
end if
p%precv(i)%szratio = sizeratio
if (i>2) then
if (sizeratio < mnaggratio) then
if (sizeratio > 1) then
newsz = i