mirror of
https://github.com/sfilippone/amg4psblas.git
synced 2026-10-06 22:55:12 +00:00
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.
This commit is contained in:
Salvatore Filippone
@@ -120,6 +120,12 @@ subroutine mld_c_base_onelev_cseti(lv,what,val,info,pos)
|
||||
case (mld_as_)
|
||||
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
|
||||
!
|
||||
|
||||
@@ -120,6 +120,13 @@ subroutine mld_c_base_onelev_seti(lv,what,val,info,pos)
|
||||
case (mld_as_)
|
||||
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
|
||||
!
|
||||
|
||||
@@ -126,6 +126,12 @@ subroutine mld_d_base_onelev_cseti(lv,what,val,info,pos)
|
||||
case (mld_as_)
|
||||
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
|
||||
!
|
||||
|
||||
@@ -126,6 +126,13 @@ subroutine mld_d_base_onelev_seti(lv,what,val,info,pos)
|
||||
case (mld_as_)
|
||||
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
|
||||
!
|
||||
|
||||
@@ -120,6 +120,12 @@ subroutine mld_s_base_onelev_cseti(lv,what,val,info,pos)
|
||||
case (mld_as_)
|
||||
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
|
||||
!
|
||||
|
||||
@@ -120,6 +120,13 @@ subroutine mld_s_base_onelev_seti(lv,what,val,info,pos)
|
||||
case (mld_as_)
|
||||
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
|
||||
!
|
||||
|
||||
@@ -126,6 +126,12 @@ subroutine mld_z_base_onelev_cseti(lv,what,val,info,pos)
|
||||
case (mld_as_)
|
||||
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
|
||||
!
|
||||
|
||||
@@ -126,6 +126,13 @@ subroutine mld_z_base_onelev_seti(lv,what,val,info,pos)
|
||||
case (mld_as_)
|
||||
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
|
||||
!
|
||||
|
||||
@@ -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)
|
||||
|
||||
@@ -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
|
||||
BJAC ! Smoother type JACOBI BJAC AS; ignored for non-ML
|
||||
4 ! Smoother sweeps
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user