|
|
@ -193,6 +193,24 @@ subroutine amg_ccprecseti(p,what,val,info,ilev,ilmax,pos,idx)
|
|
|
|
end if
|
|
|
|
end if
|
|
|
|
call p%precv(nlev_)%set('SUB_FILLIN',val,info,pos=pos)
|
|
|
|
call p%precv(nlev_)%set('SUB_FILLIN',val,info,pos=pos)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
case('BJAC_ITRACE')
|
|
|
|
|
|
|
|
if (ilev_ /= nlev_) then
|
|
|
|
|
|
|
|
write(psb_err_unit,*) name,&
|
|
|
|
|
|
|
|
& ': Error: Inconsistent specification of WHAT vs. ILEV'
|
|
|
|
|
|
|
|
info = -2
|
|
|
|
|
|
|
|
return
|
|
|
|
|
|
|
|
end if
|
|
|
|
|
|
|
|
call p%precv(nlev_)%set('SMOOTHER_ITRACE',val,info,pos=pos)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
case('BJAC_RESCHECK')
|
|
|
|
|
|
|
|
if (ilev_ /= nlev_) then
|
|
|
|
|
|
|
|
write(psb_err_unit,*) name,&
|
|
|
|
|
|
|
|
& ': Error: Inconsistent specification of WHAT vs. ILEV'
|
|
|
|
|
|
|
|
info = -2
|
|
|
|
|
|
|
|
return
|
|
|
|
|
|
|
|
end if
|
|
|
|
|
|
|
|
call p%precv(nlev_)%set('SMOOTHER_RESIDUAL',val,info,pos=pos)
|
|
|
|
|
|
|
|
|
|
|
|
case default
|
|
|
|
case default
|
|
|
|
do il=ilev_, ilmax_
|
|
|
|
do il=ilev_, ilmax_
|
|
|
|
call p%precv(il)%set(what,val,info,pos=pos,idx=idx)
|
|
|
|
call p%precv(il)%set(what,val,info,pos=pos,idx=idx)
|
|
|
@ -224,6 +242,14 @@ subroutine amg_ccprecseti(p,what,val,info,ilev,ilmax,pos,idx)
|
|
|
|
call p%precv(nlev_)%set('SUB_FILLIN',val,info,pos=pos)
|
|
|
|
call p%precv(nlev_)%set('SUB_FILLIN',val,info,pos=pos)
|
|
|
|
end if
|
|
|
|
end if
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
case('BJAC_ITRACE')
|
|
|
|
|
|
|
|
if (nlev_ > 1) then
|
|
|
|
|
|
|
|
call p%precv(nlev_)%set('SMOOTHER_ITRACE',val,info,pos=pos)
|
|
|
|
|
|
|
|
end if
|
|
|
|
|
|
|
|
case('BJAC_RESCHECK')
|
|
|
|
|
|
|
|
if (nlev_ > 1) then
|
|
|
|
|
|
|
|
call p%precv(nlev_)%set('SMOOTHER_RESIDUAL',val,info,pos=pos)
|
|
|
|
|
|
|
|
end if
|
|
|
|
case default
|
|
|
|
case default
|
|
|
|
do ilev_=1,nlev_
|
|
|
|
do ilev_=1,nlev_
|
|
|
|
call p%precv(ilev_)%set(what,val,info,pos=pos,idx=idx)
|
|
|
|
call p%precv(ilev_)%set(what,val,info,pos=pos,idx=idx)
|
|
|
|