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_base_prec_type.F90

Start defining simplified settings FBGS
stopcriterion
Salvatore Filippone 8 years ago
parent c78444ac64
commit b37c555def
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File

3
mlprec/mld_base_prec_type.F90
Unescape Escape View File

@ -169,6 +169,7 @@ module mld_base_prec_type
integer(psb_ipk_), parameter :: mld_bjac_ = 2 integer(psb_ipk_), parameter :: mld_bjac_ = 2
integer(psb_ipk_), parameter :: mld_as_ = 3 integer(psb_ipk_), parameter :: mld_as_ = 3
integer(psb_ipk_), parameter :: mld_max_prec_ = 3 integer(psb_ipk_), parameter :: mld_max_prec_ = 3
integer(psb_ipk_), parameter :: mld_fbgs_ = 4
! !
! This is a quick&dirty fix, but I have nothing better now... ! This is a quick&dirty fix, but I have nothing better now...
! !
@ -402,6 +403,8 @@ contains
val = psb_avg_ val = psb_avg_
case('FACT_NONE') case('FACT_NONE')
val = mld_f_none_ val = mld_f_none_
case('FBGS')
val = mld_fbgs_
case('GS','FWGS') case('GS','FWGS')
val = mld_gs_ val = mld_gs_
case('BWGS') case('BWGS')

Write Preview
Loading…
Cancel
Save