fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Added BJAC_ITRACE and BJAC_RESCHECK options

Browse Source
mergeparmatch
Cirdans-Home 4 years ago
parent 718b574519
commit baa4e78626
4 changed files with 104 additions and 0 deletions
Show Stats Download Patch File Download Diff File

26
amgprec/impl/amg_ccprecset.F90
Unescape Escape View File

@ -193,6 +193,24 @@ subroutine amg_ccprecseti(p,what,val,info,ilev,ilmax,pos,idx)
end if
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
do il=ilev_, ilmax_
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)
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
do ilev_=1,nlev_
call p%precv(ilev_)%set(what,val,info,pos=pos,idx=idx)

26
amgprec/impl/amg_dcprecset.F90
Unescape Escape View File

@ -199,6 +199,24 @@ subroutine amg_dcprecseti(p,what,val,info,ilev,ilmax,pos,idx)
end if
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
do il=ilev_, ilmax_
call p%precv(il)%set(what,val,info,pos=pos,idx=idx)
@ -230,6 +248,14 @@ subroutine amg_dcprecseti(p,what,val,info,ilev,ilmax,pos,idx)
call p%precv(nlev_)%set('SUB_FILLIN',val,info,pos=pos)
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
do ilev_=1,nlev_
call p%precv(ilev_)%set(what,val,info,pos=pos,idx=idx)

26
amgprec/impl/amg_scprecset.F90
Unescape Escape View File

@ -193,6 +193,24 @@ subroutine amg_scprecseti(p,what,val,info,ilev,ilmax,pos,idx)
end if
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
do il=ilev_, ilmax_
call p%precv(il)%set(what,val,info,pos=pos,idx=idx)
@ -224,6 +242,14 @@ subroutine amg_scprecseti(p,what,val,info,ilev,ilmax,pos,idx)
call p%precv(nlev_)%set('SUB_FILLIN',val,info,pos=pos)
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
do ilev_=1,nlev_
call p%precv(ilev_)%set(what,val,info,pos=pos,idx=idx)

26
amgprec/impl/amg_zcprecset.F90
Unescape Escape View File

@ -199,6 +199,24 @@ subroutine amg_zcprecseti(p,what,val,info,ilev,ilmax,pos,idx)
end if
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
do il=ilev_, ilmax_
call p%precv(il)%set(what,val,info,pos=pos,idx=idx)
@ -230,6 +248,14 @@ subroutine amg_zcprecseti(p,what,val,info,ilev,ilmax,pos,idx)
call p%precv(nlev_)%set('SUB_FILLIN',val,info,pos=pos)
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
do ilev_=1,nlev_
call p%precv(ilev_)%set(what,val,info,pos=pos,idx=idx)

Write Preview
Loading…
Cancel
Save