mld2p4-2:

mlprec/impl/level/mld_c_base_onelev_cseti.F90
 mlprec/impl/level/mld_c_base_onelev_seti.F90
 mlprec/impl/level/mld_d_base_onelev_cseti.F90
 mlprec/impl/level/mld_d_base_onelev_seti.F90
 mlprec/impl/level/mld_s_base_onelev_cseti.F90
 mlprec/impl/level/mld_s_base_onelev_seti.F90
 mlprec/impl/level/mld_z_base_onelev_cseti.F90
 mlprec/impl/level/mld_z_base_onelev_seti.F90
 tests/pdegen/mld_d_pde3d.f90
 tests/pdegen/runs/mld_pde3d.inp


Trying simplified settings FBGS. To be debugged.

mlprec/impl/level/mld_c_base_onelev_cseti.F90

@@ -121,6 +121,12 @@ subroutine mld_c_base_onelev_cseti(lv,what,val,info,pos)
       call lv%set(mld_c_as_smoother_mold,info,pos=pos)
       if (info == 0) call lv%set(mld_c_ilu_solver_mold,info,pos=pos)
 
+    case (mld_fbgs_)
+      call lv%set(mld_c_jac_smoother_mold,info,pos='pre')
+      if (info == 0) call lv%set(mld_c_gs_solver_mold,info,pos='pre')
+      call lv%set(mld_c_jac_smoother_mold,info,pos='post')
+      if (info == 0) call lv%set(mld_c_bwgs_solver_mold,info,pos='post')
+      
     case default
       !
       ! Do nothing and hope for the best :) 

mlprec/impl/level/mld_c_base_onelev_seti.F90

@@ -121,6 +121,13 @@ subroutine mld_c_base_onelev_seti(lv,what,val,info,pos)
       call lv%set(mld_c_as_smoother_mold,info,pos=pos)
       if (info == 0) call lv%set(mld_c_ilu_solver_mold,info,pos=pos)
 
+    case (mld_fbgs_)
+      call lv%set(mld_c_jac_smoother_mold,info,pos='pre')
+      if (info == 0) call lv%set(mld_c_gs_solver_mold,info,pos='pre')
+      call lv%set(mld_c_jac_smoother_mold,info,pos='post')
+      if (info == 0) call lv%set(mld_c_bwgs_solver_mold,info,pos='post')
+
+      
     case default
       !
       ! Do nothing and hope for the best :) 

mlprec/impl/level/mld_d_base_onelev_cseti.F90

@@ -127,6 +127,12 @@ subroutine mld_d_base_onelev_cseti(lv,what,val,info,pos)
       call lv%set(mld_d_as_smoother_mold,info,pos=pos)
       if (info == 0) call lv%set(mld_d_ilu_solver_mold,info,pos=pos)
 
+    case (mld_fbgs_)
+      call lv%set(mld_d_jac_smoother_mold,info,pos='pre')
+      if (info == 0) call lv%set(mld_d_gs_solver_mold,info,pos='pre')
+      call lv%set(mld_d_jac_smoother_mold,info,pos='post')
+      if (info == 0) call lv%set(mld_d_bwgs_solver_mold,info,pos='post')
+      
     case default
       !
       ! Do nothing and hope for the best :) 

mlprec/impl/level/mld_d_base_onelev_seti.F90

@@ -127,6 +127,13 @@ subroutine mld_d_base_onelev_seti(lv,what,val,info,pos)
       call lv%set(mld_d_as_smoother_mold,info,pos=pos)
       if (info == 0) call lv%set(mld_d_ilu_solver_mold,info,pos=pos)
 
+    case (mld_fbgs_)
+      call lv%set(mld_d_jac_smoother_mold,info,pos='pre')
+      if (info == 0) call lv%set(mld_d_gs_solver_mold,info,pos='pre')
+      call lv%set(mld_d_jac_smoother_mold,info,pos='post')
+      if (info == 0) call lv%set(mld_d_bwgs_solver_mold,info,pos='post')
+
+      
     case default
       !
       ! Do nothing and hope for the best :) 

mlprec/impl/level/mld_s_base_onelev_cseti.F90

@@ -121,6 +121,12 @@ subroutine mld_s_base_onelev_cseti(lv,what,val,info,pos)
       call lv%set(mld_s_as_smoother_mold,info,pos=pos)
       if (info == 0) call lv%set(mld_s_ilu_solver_mold,info,pos=pos)
 
+    case (mld_fbgs_)
+      call lv%set(mld_s_jac_smoother_mold,info,pos='pre')
+      if (info == 0) call lv%set(mld_s_gs_solver_mold,info,pos='pre')
+      call lv%set(mld_s_jac_smoother_mold,info,pos='post')
+      if (info == 0) call lv%set(mld_s_bwgs_solver_mold,info,pos='post')
+      
     case default
       !
       ! Do nothing and hope for the best :) 

mlprec/impl/level/mld_s_base_onelev_seti.F90

@@ -121,6 +121,13 @@ subroutine mld_s_base_onelev_seti(lv,what,val,info,pos)
       call lv%set(mld_s_as_smoother_mold,info,pos=pos)
       if (info == 0) call lv%set(mld_s_ilu_solver_mold,info,pos=pos)
 
+    case (mld_fbgs_)
+      call lv%set(mld_s_jac_smoother_mold,info,pos='pre')
+      if (info == 0) call lv%set(mld_s_gs_solver_mold,info,pos='pre')
+      call lv%set(mld_s_jac_smoother_mold,info,pos='post')
+      if (info == 0) call lv%set(mld_s_bwgs_solver_mold,info,pos='post')
+
+      
     case default
       !
       ! Do nothing and hope for the best :) 

mlprec/impl/level/mld_z_base_onelev_cseti.F90

@@ -127,6 +127,12 @@ subroutine mld_z_base_onelev_cseti(lv,what,val,info,pos)
       call lv%set(mld_z_as_smoother_mold,info,pos=pos)
       if (info == 0) call lv%set(mld_z_ilu_solver_mold,info,pos=pos)
 
+    case (mld_fbgs_)
+      call lv%set(mld_z_jac_smoother_mold,info,pos='pre')
+      if (info == 0) call lv%set(mld_z_gs_solver_mold,info,pos='pre')
+      call lv%set(mld_z_jac_smoother_mold,info,pos='post')
+      if (info == 0) call lv%set(mld_z_bwgs_solver_mold,info,pos='post')
+      
     case default
       !
       ! Do nothing and hope for the best :) 

mlprec/impl/level/mld_z_base_onelev_seti.F90

@@ -127,6 +127,13 @@ subroutine mld_z_base_onelev_seti(lv,what,val,info,pos)
       call lv%set(mld_z_as_smoother_mold,info,pos=pos)
       if (info == 0) call lv%set(mld_z_ilu_solver_mold,info,pos=pos)
 
+    case (mld_fbgs_)
+      call lv%set(mld_z_jac_smoother_mold,info,pos='pre')
+      if (info == 0) call lv%set(mld_z_gs_solver_mold,info,pos='pre')
+      call lv%set(mld_z_jac_smoother_mold,info,pos='post')
+      if (info == 0) call lv%set(mld_z_bwgs_solver_mold,info,pos='post')
+
+      
     case default
       !
       ! Do nothing and hope for the best :) 

tests/pdegen/mld_d_pde3d.f90

@@ -283,7 +283,8 @@ program mld_d_pde3d
     call mld_precset(prec,'sub_ovr',         prectype%novr,    info)
     call mld_precset(prec,'sub_restr',       prectype%restr,   info)
     call mld_precset(prec,'sub_prol',        prectype%prol,    info)
-    call mld_precset(prec,'sub_solve',       prectype%solve,   info)
+    if (psb_tolower(prectype%smther) /= 'fbgs') &
+         &  call mld_precset(prec,'sub_solve',       prectype%solve,   info)      
     call mld_precset(prec,'sub_fillin',      prectype%fill1,   info)
     call mld_precset(prec,'solver_sweeps',   prectype%svsweeps,   info)
     call mld_precset(prec,'sub_iluthrs',     prectype%thr1,    info)

tests/pdegen/runs/mld_pde3d.inp

@@ -21,8 +21,8 @@ NATURAL                     ! Ordering of aggregation: NATURAL DEGREE
 FILTER                      ! Filtering aggregation: FILTER NOFILTER
 MULT                        ! Type of multilevel correction: ADD MULT KCYCLE VCYCLE WCYCLE KCYCLESYM
 TWOSIDE                     ! Side of correction: PRE POST TWOSIDE (ignored for ADD)
-2                           ! Smoother sweeps 
+4                           ! Smoother sweeps 
-BJAC                        ! Smoother type  JACOBI BJAC AS; ignored for non-ML
+FBGS                        ! Smoother type  JACOBI BJAC AS; ignored for non-ML
 0                           ! Number of overlap layers for AS preconditioner (at finest level)
 HALO                        ! AS Restriction operator NONE HALO 
 NONE                        ! AS Prolongation operator NONE SUM AVG