|
|
|
@ -572,7 +572,7 @@ subroutine mld_ccprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
|
|
|
|
|
if (nlev_ > 1) then
|
|
|
|
|
call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos)
|
|
|
|
|
select case (psb_toupper(trim(string)))
|
|
|
|
|
case('BJAC', 'L1_BJAC')
|
|
|
|
|
case('BJAC', 'L1-BJAC')
|
|
|
|
|
call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos)
|
|
|
|
|
#if defined(HAVE_SLU_)
|
|
|
|
|
call p%precv(nlev_)%set('SUB_SOLVE','SLU',info,pos=pos)
|
|
|
|
@ -687,8 +687,8 @@ subroutine mld_ccprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
|
|
|
|
|
case('COARSE_SOLVE')
|
|
|
|
|
if (nlev_ > 1) then
|
|
|
|
|
call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos)
|
|
|
|
|
select case (string)
|
|
|
|
|
case('BJAC', 'L1_BJAC')
|
|
|
|
|
select case (psb_toupper(trim(string)))
|
|
|
|
|
case('BJAC', 'L1-BJAC')
|
|
|
|
|
call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos)
|
|
|
|
|
#if defined(HAVE_SLU_)
|
|
|
|
|
call p%precv(nlev_)%set('SUB_SOLVE','SLU',info,pos=pos)
|
|
|
|
|