mld2p4-2:

mlprec/mld_base_prec_type.F90 Start defining simplified settings FBGS
8 years ago · b37c555def
parent c78444ac64
commit b37c555def
1 changed files with 3 additions and 0 deletions
--- 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')