diff --git a/samples/advanced/fileread/amg_cf_sample.f90 b/samples/advanced/fileread/amg_cf_sample.f90
index b1238043..3fc9f195 100644
--- a/samples/advanced/fileread/amg_cf_sample.f90
+++ b/samples/advanced/fileread/amg_cf_sample.f90
@@ -380,6 +380,8 @@ program amg_cf_sample
   case ('BJAC')
     call prec%set('smoother_sweeps', p_choice%jsweeps, info)
     call prec%set('sub_solve',       p_choice%solve,   info)
+    if (psb_toupper(p_choice%solve)=='MUMPS') &
+         & call prec%set('mumps_loc_glob','local_solver',info)
     call prec%set('sub_fillin',      p_choice%fill,    info)
     call prec%set('sub_iluthrs',     p_choice%thr,     info)
 
@@ -389,6 +391,8 @@ program amg_cf_sample
     call prec%set('sub_restr',       p_choice%restr,   info)
     call prec%set('sub_prol',        p_choice%prol,    info)
     call prec%set('sub_solve',       p_choice%solve,   info)
+    if (psb_toupper(p_choice%solve)=='MUMPS') &
+         & call prec%set('mumps_loc_glob','local_solver',info)
     call prec%set('sub_fillin',      p_choice%fill,    info)
     call prec%set('sub_iluthrs',     p_choice%thr,     info)
     
@@ -428,6 +432,8 @@ program amg_cf_sample
       call prec%set('sub_restr',       p_choice%restr,      info)
       call prec%set('sub_prol',        p_choice%prol,       info)
       call prec%set('sub_solve',       p_choice%solve,      info)
+      if (psb_toupper(p_choice%solve)=='MUMPS') &
+           & call prec%set('mumps_loc_glob','local_solver',info)
       call prec%set('sub_fillin',      p_choice%fill,       info)
       call prec%set('sub_iluthrs',     p_choice%thr,        info)
     end select
@@ -443,6 +449,8 @@ program amg_cf_sample
         call prec%set('sub_restr',       p_choice%restr2,    info,pos='post')
         call prec%set('sub_prol',        p_choice%prol2,     info,pos='post')
         call prec%set('sub_solve',       p_choice%solve2,    info,pos='post')
+        if (psb_toupper(p_choice%solve2)=='MUMPS') &
+             & call prec%set('mumps_loc_glob','local_solver',info)
         call prec%set('sub_fillin',      p_choice%fill2,     info,pos='post')
         call prec%set('sub_iluthrs',     p_choice%thr2,      info,pos='post')
       end select
diff --git a/samples/advanced/fileread/amg_df_sample.f90 b/samples/advanced/fileread/amg_df_sample.f90
index a5dd71cb..381b0a4d 100644
--- a/samples/advanced/fileread/amg_df_sample.f90
+++ b/samples/advanced/fileread/amg_df_sample.f90
@@ -380,6 +380,8 @@ program amg_df_sample
   case ('BJAC')
     call prec%set('smoother_sweeps', p_choice%jsweeps, info)
     call prec%set('sub_solve',       p_choice%solve,   info)
+    if (psb_toupper(p_choice%solve)=='MUMPS') &
+         & call prec%set('mumps_loc_glob','local_solver',info)
     call prec%set('sub_fillin',      p_choice%fill,    info)
     call prec%set('sub_iluthrs',     p_choice%thr,     info)
 
@@ -389,6 +391,8 @@ program amg_df_sample
     call prec%set('sub_restr',       p_choice%restr,   info)
     call prec%set('sub_prol',        p_choice%prol,    info)
     call prec%set('sub_solve',       p_choice%solve,   info)
+    if (psb_toupper(p_choice%solve)=='MUMPS') &
+         & call prec%set('mumps_loc_glob','local_solver',info)
     call prec%set('sub_fillin',      p_choice%fill,    info)
     call prec%set('sub_iluthrs',     p_choice%thr,     info)
     
@@ -428,6 +432,8 @@ program amg_df_sample
       call prec%set('sub_restr',       p_choice%restr,      info)
       call prec%set('sub_prol',        p_choice%prol,       info)
       call prec%set('sub_solve',       p_choice%solve,      info)
+      if (psb_toupper(p_choice%solve)=='MUMPS') &
+           & call prec%set('mumps_loc_glob','local_solver',info)
       call prec%set('sub_fillin',      p_choice%fill,       info)
       call prec%set('sub_iluthrs',     p_choice%thr,        info)
     end select
@@ -443,6 +449,8 @@ program amg_df_sample
         call prec%set('sub_restr',       p_choice%restr2,    info,pos='post')
         call prec%set('sub_prol',        p_choice%prol2,     info,pos='post')
         call prec%set('sub_solve',       p_choice%solve2,    info,pos='post')
+        if (psb_toupper(p_choice%solve2)=='MUMPS') &
+             & call prec%set('mumps_loc_glob','local_solver',info)
         call prec%set('sub_fillin',      p_choice%fill2,     info,pos='post')
         call prec%set('sub_iluthrs',     p_choice%thr2,      info,pos='post')
       end select
diff --git a/samples/advanced/fileread/amg_sf_sample.f90 b/samples/advanced/fileread/amg_sf_sample.f90
index f9327cb8..15988b4d 100644
--- a/samples/advanced/fileread/amg_sf_sample.f90
+++ b/samples/advanced/fileread/amg_sf_sample.f90
@@ -380,6 +380,8 @@ program amg_sf_sample
   case ('BJAC')
     call prec%set('smoother_sweeps', p_choice%jsweeps, info)
     call prec%set('sub_solve',       p_choice%solve,   info)
+    if (psb_toupper(p_choice%solve)=='MUMPS') &
+         & call prec%set('mumps_loc_glob','local_solver',info)
     call prec%set('sub_fillin',      p_choice%fill,    info)
     call prec%set('sub_iluthrs',     p_choice%thr,     info)
 
@@ -389,6 +391,8 @@ program amg_sf_sample
     call prec%set('sub_restr',       p_choice%restr,   info)
     call prec%set('sub_prol',        p_choice%prol,    info)
     call prec%set('sub_solve',       p_choice%solve,   info)
+    if (psb_toupper(p_choice%solve)=='MUMPS') &
+         & call prec%set('mumps_loc_glob','local_solver',info)
     call prec%set('sub_fillin',      p_choice%fill,    info)
     call prec%set('sub_iluthrs',     p_choice%thr,     info)
     
@@ -428,6 +432,8 @@ program amg_sf_sample
       call prec%set('sub_restr',       p_choice%restr,      info)
       call prec%set('sub_prol',        p_choice%prol,       info)
       call prec%set('sub_solve',       p_choice%solve,      info)
+      if (psb_toupper(p_choice%solve)=='MUMPS') &
+           & call prec%set('mumps_loc_glob','local_solver',info)
       call prec%set('sub_fillin',      p_choice%fill,       info)
       call prec%set('sub_iluthrs',     p_choice%thr,        info)
     end select
@@ -443,6 +449,8 @@ program amg_sf_sample
         call prec%set('sub_restr',       p_choice%restr2,    info,pos='post')
         call prec%set('sub_prol',        p_choice%prol2,     info,pos='post')
         call prec%set('sub_solve',       p_choice%solve2,    info,pos='post')
+        if (psb_toupper(p_choice%solve2)=='MUMPS') &
+             & call prec%set('mumps_loc_glob','local_solver',info)
         call prec%set('sub_fillin',      p_choice%fill2,     info,pos='post')
         call prec%set('sub_iluthrs',     p_choice%thr2,      info,pos='post')
       end select
diff --git a/samples/advanced/fileread/amg_zf_sample.f90 b/samples/advanced/fileread/amg_zf_sample.f90
index 5d72ca79..edb6e51f 100644
--- a/samples/advanced/fileread/amg_zf_sample.f90
+++ b/samples/advanced/fileread/amg_zf_sample.f90
@@ -380,6 +380,8 @@ program amg_zf_sample
   case ('BJAC')
     call prec%set('smoother_sweeps', p_choice%jsweeps, info)
     call prec%set('sub_solve',       p_choice%solve,   info)
+    if (psb_toupper(p_choice%solve)=='MUMPS') &
+         & call prec%set('mumps_loc_glob','local_solver',info)
     call prec%set('sub_fillin',      p_choice%fill,    info)
     call prec%set('sub_iluthrs',     p_choice%thr,     info)
 
@@ -389,6 +391,8 @@ program amg_zf_sample
     call prec%set('sub_restr',       p_choice%restr,   info)
     call prec%set('sub_prol',        p_choice%prol,    info)
     call prec%set('sub_solve',       p_choice%solve,   info)
+    if (psb_toupper(p_choice%solve)=='MUMPS') &
+         & call prec%set('mumps_loc_glob','local_solver',info)
     call prec%set('sub_fillin',      p_choice%fill,    info)
     call prec%set('sub_iluthrs',     p_choice%thr,     info)
     
@@ -428,6 +432,8 @@ program amg_zf_sample
       call prec%set('sub_restr',       p_choice%restr,      info)
       call prec%set('sub_prol',        p_choice%prol,       info)
       call prec%set('sub_solve',       p_choice%solve,      info)
+      if (psb_toupper(p_choice%solve)=='MUMPS') &
+           & call prec%set('mumps_loc_glob','local_solver',info)
       call prec%set('sub_fillin',      p_choice%fill,       info)
       call prec%set('sub_iluthrs',     p_choice%thr,        info)
     end select
@@ -443,6 +449,8 @@ program amg_zf_sample
         call prec%set('sub_restr',       p_choice%restr2,    info,pos='post')
         call prec%set('sub_prol',        p_choice%prol2,     info,pos='post')
         call prec%set('sub_solve',       p_choice%solve2,    info,pos='post')
+        if (psb_toupper(p_choice%solve2)=='MUMPS') &
+             & call prec%set('mumps_loc_glob','local_solver',info)
         call prec%set('sub_fillin',      p_choice%fill2,     info,pos='post')
         call prec%set('sub_iluthrs',     p_choice%thr2,      info,pos='post')
       end select
diff --git a/samples/advanced/pdegen/amg_d_pde2d.F90 b/samples/advanced/pdegen/amg_d_pde2d.F90
index 145c5890..71a6808d 100644
--- a/samples/advanced/pdegen/amg_d_pde2d.F90
+++ b/samples/advanced/pdegen/amg_d_pde2d.F90
@@ -282,6 +282,8 @@ program amg_d_pde2d
   case ('BJAC')
     call prec%set('smoother_sweeps', p_choice%jsweeps, info)
     call prec%set('sub_solve',       p_choice%solve,   info)
+    if (psb_toupper(p_choice%solve)=='MUMPS') &
+         & call prec%set('mumps_loc_glob','local_solver',info)
     call prec%set('sub_fillin',      p_choice%fill,    info)
     call prec%set('sub_iluthrs',     p_choice%thr,     info)
 
@@ -291,6 +293,8 @@ program amg_d_pde2d
     call prec%set('sub_restr',       p_choice%restr,   info)
     call prec%set('sub_prol',        p_choice%prol,    info)
     call prec%set('sub_solve',       p_choice%solve,   info)
+    if (psb_toupper(p_choice%solve)=='MUMPS') &
+         & call prec%set('mumps_loc_glob','local_solver',info)
     call prec%set('sub_fillin',      p_choice%fill,    info)
     call prec%set('sub_iluthrs',     p_choice%thr,     info)
 
@@ -342,6 +346,8 @@ program amg_d_pde2d
         call prec%set('ainv_alg', p_choice%variant,   info)
       case default
         call prec%set('sub_solve',       p_choice%solve,   info)
+        if (psb_toupper(p_choice%solve)=='MUMPS') &
+             & call prec%set('mumps_loc_glob','local_solver',info)
       end select
 
       call prec%set('sub_fillin',      p_choice%fill,       info)
@@ -369,6 +375,8 @@ program amg_d_pde2d
           call prec%set('ainv_alg', p_choice%variant2,   info)
         case default
           call prec%set('sub_solve',       p_choice%solve2,   info, pos='post')
+          if (psb_toupper(p_choice%solve2)=='MUMPS') &
+               & call prec%set('mumps_loc_glob','local_solver',info)
         end select
 
         call prec%set('sub_fillin',      p_choice%fill2,     info,pos='post')
diff --git a/samples/advanced/pdegen/amg_d_pde3d.F90 b/samples/advanced/pdegen/amg_d_pde3d.F90
index 75dcd1a0..ba46debf 100644
--- a/samples/advanced/pdegen/amg_d_pde3d.F90
+++ b/samples/advanced/pdegen/amg_d_pde3d.F90
@@ -286,6 +286,8 @@ program amg_d_pde3d
   case ('BJAC')
     call prec%set('smoother_sweeps', p_choice%jsweeps, info)
     call prec%set('sub_solve',       p_choice%solve,   info)
+    if (psb_toupper(p_choice%solve)=='MUMPS') &
+         & call prec%set('mumps_loc_glob','local_solver',info)
     call prec%set('sub_fillin',      p_choice%fill,    info)
     call prec%set('sub_iluthrs',     p_choice%thr,     info)
 
@@ -295,6 +297,8 @@ program amg_d_pde3d
     call prec%set('sub_restr',       p_choice%restr,   info)
     call prec%set('sub_prol',        p_choice%prol,    info)
     call prec%set('sub_solve',       p_choice%solve,   info)
+    if (psb_toupper(p_choice%solve)=='MUMPS') &
+         & call prec%set('mumps_loc_glob','local_solver',info)
     call prec%set('sub_fillin',      p_choice%fill,    info)
     call prec%set('sub_iluthrs',     p_choice%thr,     info)
 
@@ -346,6 +350,8 @@ program amg_d_pde3d
         call prec%set('ainv_alg', p_choice%variant,   info)
       case default
         call prec%set('sub_solve',       p_choice%solve,   info)
+        if (psb_toupper(p_choice%solve)=='MUMPS') &
+             & call prec%set('mumps_loc_glob','local_solver',info)
       end select
 
       call prec%set('sub_fillin',      p_choice%fill,       info)
@@ -373,6 +379,8 @@ program amg_d_pde3d
           call prec%set('ainv_alg', p_choice%variant2,   info)
         case default
           call prec%set('sub_solve',       p_choice%solve2,   info, pos='post')
+          if (psb_toupper(p_choice%solve2)=='MUMPS') &
+               & call prec%set('mumps_loc_glob','local_solver',info)
         end select
 
         call prec%set('sub_fillin',      p_choice%fill2,     info,pos='post')
diff --git a/samples/advanced/pdegen/amg_s_pde2d.F90 b/samples/advanced/pdegen/amg_s_pde2d.F90
index ad28d1f6..257fe2c6 100644
--- a/samples/advanced/pdegen/amg_s_pde2d.F90
+++ b/samples/advanced/pdegen/amg_s_pde2d.F90
@@ -282,6 +282,8 @@ program amg_s_pde2d
   case ('BJAC')
     call prec%set('smoother_sweeps', p_choice%jsweeps, info)
     call prec%set('sub_solve',       p_choice%solve,   info)
+    if (psb_toupper(p_choice%solve)=='MUMPS') &
+         & call prec%set('mumps_loc_glob','local_solver',info)
     call prec%set('sub_fillin',      p_choice%fill,    info)
     call prec%set('sub_iluthrs',     p_choice%thr,     info)
 
@@ -291,6 +293,8 @@ program amg_s_pde2d
     call prec%set('sub_restr',       p_choice%restr,   info)
     call prec%set('sub_prol',        p_choice%prol,    info)
     call prec%set('sub_solve',       p_choice%solve,   info)
+    if (psb_toupper(p_choice%solve)=='MUMPS') &
+         & call prec%set('mumps_loc_glob','local_solver',info)
     call prec%set('sub_fillin',      p_choice%fill,    info)
     call prec%set('sub_iluthrs',     p_choice%thr,     info)
 
@@ -342,6 +346,8 @@ program amg_s_pde2d
         call prec%set('ainv_alg', p_choice%variant,   info)
       case default
         call prec%set('sub_solve',       p_choice%solve,   info)
+        if (psb_toupper(p_choice%solve)=='MUMPS') &
+             & call prec%set('mumps_loc_glob','local_solver',info)
       end select
 
       call prec%set('sub_fillin',      p_choice%fill,       info)
@@ -369,6 +375,8 @@ program amg_s_pde2d
           call prec%set('ainv_alg', p_choice%variant2,   info)
         case default
           call prec%set('sub_solve',       p_choice%solve2,   info, pos='post')
+          if (psb_toupper(p_choice%solve2)=='MUMPS') &
+               & call prec%set('mumps_loc_glob','local_solver',info)
         end select
 
         call prec%set('sub_fillin',      p_choice%fill2,     info,pos='post')
diff --git a/samples/advanced/pdegen/amg_s_pde3d.F90 b/samples/advanced/pdegen/amg_s_pde3d.F90
index cda6a48b..373a12b0 100644
--- a/samples/advanced/pdegen/amg_s_pde3d.F90
+++ b/samples/advanced/pdegen/amg_s_pde3d.F90
@@ -286,6 +286,8 @@ program amg_s_pde3d
   case ('BJAC')
     call prec%set('smoother_sweeps', p_choice%jsweeps, info)
     call prec%set('sub_solve',       p_choice%solve,   info)
+    if (psb_toupper(p_choice%solve)=='MUMPS') &
+         & call prec%set('mumps_loc_glob','local_solver',info)
     call prec%set('sub_fillin',      p_choice%fill,    info)
     call prec%set('sub_iluthrs',     p_choice%thr,     info)
 
@@ -295,6 +297,8 @@ program amg_s_pde3d
     call prec%set('sub_restr',       p_choice%restr,   info)
     call prec%set('sub_prol',        p_choice%prol,    info)
     call prec%set('sub_solve',       p_choice%solve,   info)
+    if (psb_toupper(p_choice%solve)=='MUMPS') &
+         & call prec%set('mumps_loc_glob','local_solver',info)
     call prec%set('sub_fillin',      p_choice%fill,    info)
     call prec%set('sub_iluthrs',     p_choice%thr,     info)
 
@@ -346,6 +350,8 @@ program amg_s_pde3d
         call prec%set('ainv_alg', p_choice%variant,   info)
       case default
         call prec%set('sub_solve',       p_choice%solve,   info)
+        if (psb_toupper(p_choice%solve)=='MUMPS') &
+             & call prec%set('mumps_loc_glob','local_solver',info)
       end select
 
       call prec%set('sub_fillin',      p_choice%fill,       info)
@@ -373,6 +379,8 @@ program amg_s_pde3d
           call prec%set('ainv_alg', p_choice%variant2,   info)
         case default
           call prec%set('sub_solve',       p_choice%solve2,   info, pos='post')
+          if (psb_toupper(p_choice%solve2)=='MUMPS') &
+               & call prec%set('mumps_loc_glob','local_solver',info)
         end select
 
         call prec%set('sub_fillin',      p_choice%fill2,     info,pos='post')