@ -192,6 +192,11 @@ subroutine mld_cprecseti(p,what,val,info,ilev)
select case ( val )
select case ( val )
case ( mld_bjac_ )
case ( mld_bjac_ )
call onelev_set_smoother ( p % precv ( nlev_ ) , val , info )
call onelev_set_smoother ( p % precv ( nlev_ ) , val , info )
# if defined ( HAVE_SLU_ )
call onelev_set_solver ( p % precv ( nlev_ ) , mld_slu_ , info )
# else
call onelev_set_solver ( p % precv ( nlev_ ) , mld_ilu_n_ , info )
# endif
call p % precv ( nlev_ ) % set ( mld_coarse_mat_ , mld_distr_mat_ , info )
call p % precv ( nlev_ ) % set ( mld_coarse_mat_ , mld_distr_mat_ , info )
case ( mld_umf_ , mld_slu_ , mld_ilu_n_ , mld_ilu_t_ , mld_milu_n_ )
case ( mld_umf_ , mld_slu_ , mld_ilu_n_ , mld_ilu_t_ , mld_milu_n_ )
call onelev_set_smoother ( p % precv ( nlev_ ) , mld_bjac_ , info )
call onelev_set_smoother ( p % precv ( nlev_ ) , mld_bjac_ , info )
@ -286,6 +291,11 @@ subroutine mld_cprecseti(p,what,val,info,ilev)
select case ( val )
select case ( val )
case ( mld_bjac_ )
case ( mld_bjac_ )
call onelev_set_smoother ( p % precv ( nlev_ ) , mld_bjac_ , info )
call onelev_set_smoother ( p % precv ( nlev_ ) , mld_bjac_ , info )
# if defined ( HAVE_SLU_ )
call onelev_set_solver ( p % precv ( nlev_ ) , mld_slu_ , info )
# else
call onelev_set_solver ( p % precv ( nlev_ ) , mld_ilu_n_ , info )
# endif
call p % precv ( nlev_ ) % set ( mld_coarse_mat_ , mld_distr_mat_ , info )
call p % precv ( nlev_ ) % set ( mld_coarse_mat_ , mld_distr_mat_ , info )
case ( mld_umf_ , mld_slu_ , mld_ilu_n_ , mld_ilu_t_ , mld_milu_n_ )
case ( mld_umf_ , mld_slu_ , mld_ilu_n_ , mld_ilu_t_ , mld_milu_n_ )
call onelev_set_smoother ( p % precv ( nlev_ ) , mld_bjac_ , info )
call onelev_set_smoother ( p % precv ( nlev_ ) , mld_bjac_ , info )