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

mld2p4-2:

Browse Source 
mlprec/mld_c_prec_type.f90
 mlprec/mld_d_prec_type.f90
 mlprec/mld_s_prec_type.f90
 mlprec/mld_z_prec_type.f90

Added comments.
stopcriterion
Salvatore Filippone 9 years ago
parent bff527b4a7
commit 90602d29fb
4 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File

7
mlprec/mld_c_prec_type.f90
Unescape Escape View File

@ -81,9 +81,16 @@ module mld_c_prec_type
type, extends(psb_cprec_type) :: mld_cprec_type type, extends(psb_cprec_type) :: mld_cprec_type
integer(psb_ipk_) :: ictxt integer(psb_ipk_) :: ictxt
!
! Aggregation defaults:
!
! 1. coarse_aggr_size = 0 Default target size will be computed (N_fine)**(1./3.)
integer(psb_ipk_) :: coarse_aggr_size = izero integer(psb_ipk_) :: coarse_aggr_size = izero
! 2. n_prec_levs = -1 Use aggregate size to stop
integer(psb_ipk_) :: n_prec_levs = -ione integer(psb_ipk_) :: n_prec_levs = -ione
! 3. Don't use more than 20 levels
integer(psb_ipk_) :: max_prec_levs = 20_psb_ipk_ integer(psb_ipk_) :: max_prec_levs = 20_psb_ipk_
! 4. min_aggr_ratio = 1.5
real(psb_spk_) :: min_aggr_ratio = 1.5_psb_spk_ real(psb_spk_) :: min_aggr_ratio = 1.5_psb_spk_
real(psb_spk_) :: op_complexity=szero real(psb_spk_) :: op_complexity=szero
type(mld_c_onelev_type), allocatable :: precv(:) type(mld_c_onelev_type), allocatable :: precv(:)

7
mlprec/mld_d_prec_type.f90
Unescape Escape View File

@ -81,9 +81,16 @@ module mld_d_prec_type
type, extends(psb_dprec_type) :: mld_dprec_type type, extends(psb_dprec_type) :: mld_dprec_type
integer(psb_ipk_) :: ictxt integer(psb_ipk_) :: ictxt
!
! Aggregation defaults:
!
! 1. coarse_aggr_size = 0 Default target size will be computed (N_fine)**(1./3.)
integer(psb_ipk_) :: coarse_aggr_size = izero integer(psb_ipk_) :: coarse_aggr_size = izero
! 2. n_prec_levs = -1 Use aggregate size to stop
integer(psb_ipk_) :: n_prec_levs = -ione integer(psb_ipk_) :: n_prec_levs = -ione
! 3. Don't use more than 20 levels
integer(psb_ipk_) :: max_prec_levs = 20_psb_ipk_ integer(psb_ipk_) :: max_prec_levs = 20_psb_ipk_
! 4. min_aggr_ratio = 1.5
real(psb_dpk_) :: min_aggr_ratio = 1.5_psb_dpk_ real(psb_dpk_) :: min_aggr_ratio = 1.5_psb_dpk_
real(psb_dpk_) :: op_complexity=dzero real(psb_dpk_) :: op_complexity=dzero
type(mld_d_onelev_type), allocatable :: precv(:) type(mld_d_onelev_type), allocatable :: precv(:)

7
mlprec/mld_s_prec_type.f90
Unescape Escape View File

@ -81,9 +81,16 @@ module mld_s_prec_type
type, extends(psb_sprec_type) :: mld_sprec_type type, extends(psb_sprec_type) :: mld_sprec_type
integer(psb_ipk_) :: ictxt integer(psb_ipk_) :: ictxt
!
! Aggregation defaults:
!
! 1. coarse_aggr_size = 0 Default target size will be computed (N_fine)**(1./3.)
integer(psb_ipk_) :: coarse_aggr_size = izero integer(psb_ipk_) :: coarse_aggr_size = izero
! 2. n_prec_levs = -1 Use aggregate size to stop
integer(psb_ipk_) :: n_prec_levs = -ione integer(psb_ipk_) :: n_prec_levs = -ione
! 3. Don't use more than 20 levels
integer(psb_ipk_) :: max_prec_levs = 20_psb_ipk_ integer(psb_ipk_) :: max_prec_levs = 20_psb_ipk_
! 4. min_aggr_ratio = 1.5
real(psb_spk_) :: min_aggr_ratio = 1.5_psb_spk_ real(psb_spk_) :: min_aggr_ratio = 1.5_psb_spk_
real(psb_spk_) :: op_complexity=szero real(psb_spk_) :: op_complexity=szero
type(mld_s_onelev_type), allocatable :: precv(:) type(mld_s_onelev_type), allocatable :: precv(:)

7
mlprec/mld_z_prec_type.f90
Unescape Escape View File

@ -81,9 +81,16 @@ module mld_z_prec_type
type, extends(psb_zprec_type) :: mld_zprec_type type, extends(psb_zprec_type) :: mld_zprec_type
integer(psb_ipk_) :: ictxt integer(psb_ipk_) :: ictxt
!
! Aggregation defaults:
!
! 1. coarse_aggr_size = 0 Default target size will be computed (N_fine)**(1./3.)
integer(psb_ipk_) :: coarse_aggr_size = izero integer(psb_ipk_) :: coarse_aggr_size = izero
! 2. n_prec_levs = -1 Use aggregate size to stop
integer(psb_ipk_) :: n_prec_levs = -ione integer(psb_ipk_) :: n_prec_levs = -ione
! 3. Don't use more than 20 levels
integer(psb_ipk_) :: max_prec_levs = 20_psb_ipk_ integer(psb_ipk_) :: max_prec_levs = 20_psb_ipk_
! 4. min_aggr_ratio = 1.5
real(psb_dpk_) :: min_aggr_ratio = 1.5_psb_dpk_ real(psb_dpk_) :: min_aggr_ratio = 1.5_psb_dpk_
real(psb_dpk_) :: op_complexity=dzero real(psb_dpk_) :: op_complexity=dzero
type(mld_z_onelev_type), allocatable :: precv(:) type(mld_z_onelev_type), allocatable :: precv(:)

Write Preview
Loading…
Cancel
Save