diff --git a/mlprec/mld_base_prec_type.F90 b/mlprec/mld_base_prec_type.F90 index ff0cc69a..47a3cf83 100644 --- a/mlprec/mld_base_prec_type.F90 +++ b/mlprec/mld_base_prec_type.F90 @@ -169,6 +169,7 @@ module mld_base_prec_type integer(psb_ipk_), parameter :: mld_bjac_ = 2 integer(psb_ipk_), parameter :: mld_as_ = 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... ! @@ -402,6 +403,8 @@ contains val = psb_avg_ case('FACT_NONE') val = mld_f_none_ + case('FBGS') + val = mld_fbgs_ case('GS','FWGS') val = mld_gs_ case('BWGS')