From b37c555defb0cbc718536a4bb56cf56a985b7619 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Fri, 17 Feb 2017 15:11:22 +0000
Subject: [PATCH] mld2p4-2:  mlprec/mld_base_prec_type.F90

Start defining simplified settings FBGS
---
 mlprec/mld_base_prec_type.F90 | 3 +++
 1 file changed, 3 insertions(+)

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')