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

Fix printout of global sizes with long integer kind.

Browse Source
This commit is contained in:
Salvatore Filippone
2019-03-19 17:00:00 +00:00
parent 02abb91ebc
commit b9b1c878bb
8 changed files with 13 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/level/mld_c_base_onelev_descr.f90
+1 -1
View File
@@ -91,7 +91,7 @@ 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: Global size: ', &
& sum(lv%map%naggr(:)),' Nonzeros: ',lv%ac_nz_tot
& sum((1_psb_lpk_*lv%map%naggr(:))),' Nonzeros: ',lv%ac_nz_tot
write(iout_,*) ' Local matrix sizes: ', &
& lv%map%naggr(:)
write(iout_,*) ' Aggregation ratio: ', &
mlprec/impl/level/mld_d_base_onelev_descr.f90
+1 -1
View File
@@ -91,7 +91,7 @@ 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: Global size: ', &
& sum(lv%map%naggr(:)),' Nonzeros: ',lv%ac_nz_tot
& sum((1_psb_lpk_*lv%map%naggr(:))),' Nonzeros: ',lv%ac_nz_tot
write(iout_,*) ' Local matrix sizes: ', &
& lv%map%naggr(:)
write(iout_,*) ' Aggregation ratio: ', &
mlprec/impl/level/mld_s_base_onelev_descr.f90
+1 -1
View File
@@ -91,7 +91,7 @@ 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: Global size: ', &
& sum(lv%map%naggr(:)),' Nonzeros: ',lv%ac_nz_tot
& sum((1_psb_lpk_*lv%map%naggr(:))),' Nonzeros: ',lv%ac_nz_tot
write(iout_,*) ' Local matrix sizes: ', &
& lv%map%naggr(:)
write(iout_,*) ' Aggregation ratio: ', &
mlprec/impl/level/mld_z_base_onelev_descr.f90
+1 -1
View File
@@ -91,7 +91,7 @@ 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: Global size: ', &
& sum(lv%map%naggr(:)),' Nonzeros: ',lv%ac_nz_tot
& sum((1_psb_lpk_*lv%map%naggr(:))),' Nonzeros: ',lv%ac_nz_tot
write(iout_,*) ' Local matrix sizes: ', &
& lv%map%naggr(:)
write(iout_,*) ' Aggregation ratio: ', &
mlprec/mld_c_onelev_mod.f90
+2 -1
View File
@@ -160,7 +160,8 @@ module mld_c_onelev_mod
class(mld_c_base_aggregator_type), allocatable :: aggr
type(mld_sml_parms) :: parms
type(psb_cspmat_type) :: ac
integer(psb_ipk_) :: ac_nz_loc, ac_nz_tot
integer(psb_ipk_) :: ac_nz_loc
integer(psb_lpk_) :: ac_nz_tot
type(psb_desc_type) :: desc_ac
type(psb_cspmat_type), pointer :: base_a => null()
type(psb_desc_type), pointer :: base_desc => null()
mlprec/mld_d_onelev_mod.f90
+3 -2
View File
@@ -160,7 +160,8 @@ module mld_d_onelev_mod
class(mld_d_base_aggregator_type), allocatable :: aggr
type(mld_dml_parms) :: parms
type(psb_dspmat_type) :: ac
integer(psb_ipk_) :: ac_nz_loc, ac_nz_tot
integer(psb_ipk_) :: ac_nz_loc
integer(psb_lpk_) :: ac_nz_tot
type(psb_desc_type) :: desc_ac
type(psb_dspmat_type), pointer :: base_a => null()
type(psb_desc_type), pointer :: base_desc => null()
@@ -421,7 +422,7 @@ contains
val = val + lv%desc_ac%sizeof()
val = val + lv%ac%sizeof()
val = val + lv%tprol%sizeof()
val = val + lv%map%sizeof()
val = val + lv%map%sizeof()
if (allocated(lv%sm)) val = val + lv%sm%sizeof()
if (allocated(lv%sm2a)) val = val + lv%sm2a%sizeof()
end function d_base_onelev_sizeof
mlprec/mld_s_onelev_mod.f90
+2 -1
View File
@@ -160,7 +160,8 @@ module mld_s_onelev_mod
class(mld_s_base_aggregator_type), allocatable :: aggr
type(mld_sml_parms) :: parms
type(psb_sspmat_type) :: ac
integer(psb_ipk_) :: ac_nz_loc, ac_nz_tot
integer(psb_ipk_) :: ac_nz_loc
integer(psb_lpk_) :: ac_nz_tot
type(psb_desc_type) :: desc_ac
type(psb_sspmat_type), pointer :: base_a => null()
type(psb_desc_type), pointer :: base_desc => null()
mlprec/mld_z_onelev_mod.f90
+2 -1
View File
@@ -160,7 +160,8 @@ module mld_z_onelev_mod
class(mld_z_base_aggregator_type), allocatable :: aggr
type(mld_dml_parms) :: parms
type(psb_zspmat_type) :: ac
integer(psb_ipk_) :: ac_nz_loc, ac_nz_tot
integer(psb_ipk_) :: ac_nz_loc
integer(psb_lpk_) :: ac_nz_tot
type(psb_desc_type) :: desc_ac
type(psb_zspmat_type), pointer :: base_a => null()
type(psb_desc_type), pointer :: base_desc => null()