Added call to psb_ovrl at the end of the preconditioner application,

to handle data distributions with a "real" overlap.
18 years ago · c30ec19bc4
parent 83213e1fc5
commit c30ec19bc4
2 changed files with 2 additions and 1 deletions
--- a/prec/psb_dprc_aply.f90
+++ b/prec/psb_dprc_aply.f90
@ -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_)
--- a/prec/psb_zprc_aply.f90
+++ b/prec/psb_zprc_aply.f90
@ -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