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

Fix printout of global sizes with long integer kind.

Browse Source
stopcriterion
Salvatore Filippone 6 years ago
parent 02abb91ebc
commit b9b1c878bb
8 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File

2
mlprec/impl/level/mld_c_base_onelev_descr.f90
Unescape Escape View File

@ -91,7 +91,7 @@ subroutine mld_c_base_onelev_descr(lv,il,nl,ilmin,info,iout)
if (nl > 1) then if (nl > 1) then
if (allocated(lv%map%naggr)) then if (allocated(lv%map%naggr)) then
write(iout_,*) ' Coarse Matrix: Global size: ', & 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: ', & write(iout_,*) ' Local matrix sizes: ', &
& lv%map%naggr(:) & lv%map%naggr(:)
write(iout_,*) ' Aggregation ratio: ', & write(iout_,*) ' Aggregation ratio: ', &

2
mlprec/impl/level/mld_d_base_onelev_descr.f90
Unescape Escape View File

@ -91,7 +91,7 @@ subroutine mld_d_base_onelev_descr(lv,il,nl,ilmin,info,iout)
if (nl > 1) then if (nl > 1) then
if (allocated(lv%map%naggr)) then if (allocated(lv%map%naggr)) then
write(iout_,*) ' Coarse Matrix: Global size: ', & 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: ', & write(iout_,*) ' Local matrix sizes: ', &
& lv%map%naggr(:) & lv%map%naggr(:)
write(iout_,*) ' Aggregation ratio: ', & write(iout_,*) ' Aggregation ratio: ', &

2
mlprec/impl/level/mld_s_base_onelev_descr.f90
Unescape Escape View File

@ -91,7 +91,7 @@ subroutine mld_s_base_onelev_descr(lv,il,nl,ilmin,info,iout)
if (nl > 1) then if (nl > 1) then
if (allocated(lv%map%naggr)) then if (allocated(lv%map%naggr)) then
write(iout_,*) ' Coarse Matrix: Global size: ', & 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: ', & write(iout_,*) ' Local matrix sizes: ', &
& lv%map%naggr(:) & lv%map%naggr(:)
write(iout_,*) ' Aggregation ratio: ', & write(iout_,*) ' Aggregation ratio: ', &

2
mlprec/impl/level/mld_z_base_onelev_descr.f90
Unescape Escape View File

@ -91,7 +91,7 @@ subroutine mld_z_base_onelev_descr(lv,il,nl,ilmin,info,iout)
if (nl > 1) then if (nl > 1) then
if (allocated(lv%map%naggr)) then if (allocated(lv%map%naggr)) then
write(iout_,*) ' Coarse Matrix: Global size: ', & 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: ', & write(iout_,*) ' Local matrix sizes: ', &
& lv%map%naggr(:) & lv%map%naggr(:)
write(iout_,*) ' Aggregation ratio: ', & write(iout_,*) ' Aggregation ratio: ', &

3
mlprec/mld_c_onelev_mod.f90
Unescape Escape View File

@ -160,7 +160,8 @@ module mld_c_onelev_mod
class(mld_c_base_aggregator_type), allocatable :: aggr class(mld_c_base_aggregator_type), allocatable :: aggr
type(mld_sml_parms) :: parms type(mld_sml_parms) :: parms
type(psb_cspmat_type) :: ac 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_desc_type) :: desc_ac
type(psb_cspmat_type), pointer :: base_a => null() type(psb_cspmat_type), pointer :: base_a => null()
type(psb_desc_type), pointer :: base_desc => null() type(psb_desc_type), pointer :: base_desc => null()

3
mlprec/mld_d_onelev_mod.f90
Unescape Escape View File

@ -160,7 +160,8 @@ module mld_d_onelev_mod
class(mld_d_base_aggregator_type), allocatable :: aggr class(mld_d_base_aggregator_type), allocatable :: aggr
type(mld_dml_parms) :: parms type(mld_dml_parms) :: parms
type(psb_dspmat_type) :: ac 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_desc_type) :: desc_ac
type(psb_dspmat_type), pointer :: base_a => null() type(psb_dspmat_type), pointer :: base_a => null()
type(psb_desc_type), pointer :: base_desc => null() type(psb_desc_type), pointer :: base_desc => null()

3
mlprec/mld_s_onelev_mod.f90
Unescape Escape View File

@ -160,7 +160,8 @@ module mld_s_onelev_mod
class(mld_s_base_aggregator_type), allocatable :: aggr class(mld_s_base_aggregator_type), allocatable :: aggr
type(mld_sml_parms) :: parms type(mld_sml_parms) :: parms
type(psb_sspmat_type) :: ac 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_desc_type) :: desc_ac
type(psb_sspmat_type), pointer :: base_a => null() type(psb_sspmat_type), pointer :: base_a => null()
type(psb_desc_type), pointer :: base_desc => null() type(psb_desc_type), pointer :: base_desc => null()

3
mlprec/mld_z_onelev_mod.f90
Unescape Escape View File

@ -160,7 +160,8 @@ module mld_z_onelev_mod
class(mld_z_base_aggregator_type), allocatable :: aggr class(mld_z_base_aggregator_type), allocatable :: aggr
type(mld_dml_parms) :: parms type(mld_dml_parms) :: parms
type(psb_zspmat_type) :: ac 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_desc_type) :: desc_ac
type(psb_zspmat_type), pointer :: base_a => null() type(psb_zspmat_type), pointer :: base_a => null()
type(psb_desc_type), pointer :: base_desc => null() type(psb_desc_type), pointer :: base_desc => null()

Write Preview
Loading…
Cancel
Save