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

mld2p4-2:

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/mld_base_prec_type.F90

Descr messages updates.
This commit is contained in:
Salvatore Filippone
2017-04-21 20:00:13 +00:00
parent 597c6c58c7
commit 2edacbe2bd
5 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/level/mld_c_base_onelev_descr.f90
+2 -2
View File
@@ -83,9 +83,9 @@ subroutine mld_c_base_onelev_descr(lv,il,nl,ilmin,info,iout)
if (nl > 1) then
if (allocated(lv%map%naggr)) then
write(iout_,*) ' Coarse Matrix: Dimension: ', &
write(iout_,*) ' Coarse Matrix: Global size: ', &
& sum(lv%map%naggr(:)),' Nonzeros: ',lv%ac_nz_tot
write(iout_,*) ' Sizes of aggregates: ', &
write(iout_,*) ' Local matrix sizes: ', &
& lv%map%naggr(:)
write(iout_,*) ' Aggregation ratio: ', &
& lv%szratio
mlprec/impl/level/mld_d_base_onelev_descr.f90
+2 -2
View File
@@ -83,9 +83,9 @@ subroutine mld_d_base_onelev_descr(lv,il,nl,ilmin,info,iout)
if (nl > 1) then
if (allocated(lv%map%naggr)) then
write(iout_,*) ' Coarse Matrix: Dimension: ', &
write(iout_,*) ' Coarse Matrix: Global size: ', &
& sum(lv%map%naggr(:)),' Nonzeros: ',lv%ac_nz_tot
write(iout_,*) ' Sizes of aggregates: ', &
write(iout_,*) ' Local matrix sizes: ', &
& lv%map%naggr(:)
write(iout_,*) ' Aggregation ratio: ', &
& lv%szratio
mlprec/impl/level/mld_s_base_onelev_descr.f90
+2 -2
View File
@@ -83,9 +83,9 @@ subroutine mld_s_base_onelev_descr(lv,il,nl,ilmin,info,iout)
if (nl > 1) then
if (allocated(lv%map%naggr)) then
write(iout_,*) ' Coarse Matrix: Dimension: ', &
write(iout_,*) ' Coarse Matrix: Global size: ', &
& sum(lv%map%naggr(:)),' Nonzeros: ',lv%ac_nz_tot
write(iout_,*) ' Sizes of aggregates: ', &
write(iout_,*) ' Local matrix sizes: ', &
& lv%map%naggr(:)
write(iout_,*) ' Aggregation ratio: ', &
& lv%szratio
mlprec/impl/level/mld_z_base_onelev_descr.f90
+2 -2
View File
@@ -83,9 +83,9 @@ subroutine mld_z_base_onelev_descr(lv,il,nl,ilmin,info,iout)
if (nl > 1) then
if (allocated(lv%map%naggr)) then
write(iout_,*) ' Coarse Matrix: Dimension: ', &
write(iout_,*) ' Coarse Matrix: Global size: ', &
& sum(lv%map%naggr(:)),' Nonzeros: ',lv%ac_nz_tot
write(iout_,*) ' Sizes of aggregates: ', &
write(iout_,*) ' Local matrix sizes: ', &
& lv%map%naggr(:)
write(iout_,*) ' Aggregation ratio: ', &
& lv%szratio
mlprec/mld_base_prec_type.F90
+1
View File
@@ -545,6 +545,7 @@ contains
info = psb_success_
if ((pm%ml_cycle>=mld_no_ml_).and.(pm%ml_cycle<=mld_max_ml_cycle_)) then
write(iout,*) ' Multilevel cycle: ',&
& ml_names(pm%ml_cycle)
select case (pm%ml_cycle)