mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-16 19:02:09 +00:00
Added call to psb_ovrl at the end of the preconditioner application,
to handle data distributions with a "real" overlap.
This commit is contained in:
@@ -73,7 +73,7 @@ subroutine psb_dprc_aply(prec,x,y,desc_data,info,trans, work)
|
||||
end if
|
||||
|
||||
call psb_gprec_aply(done,prec,x,dzero,y,desc_data,trans_,work_,info)
|
||||
|
||||
call psb_ovrl(y,desc_data,info,update=psb_avg_)
|
||||
if (present(work)) then
|
||||
else
|
||||
deallocate(work_)
|
||||
|
||||
@@ -74,6 +74,7 @@ subroutine psb_zprc_aply(prec,x,y,desc_data,info,trans, work)
|
||||
end if
|
||||
|
||||
call psb_gprec_aply(zone,prec,x,zzero,y,desc_data,trans_, work_,info)
|
||||
call psb_ovrl(y,desc_data,info,update=psb_avg_)
|
||||
|
||||
if (present(work)) then
|
||||
else
|
||||
|
||||
Reference in New Issue
Block a user