fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 22:55:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Added average for the (unlikely) case of an overlap in the base data distribution.

Browse Source
This commit is contained in:
Salvatore Filippone
2008-01-14 15:29:08 +00:00
parent 91f3925682
commit e1700c63d1
2 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_dprec_aply.f90
+5 -1
View File
@@ -99,7 +99,7 @@ subroutine mld_dprec_aply(prec,x,y,desc_data,info,trans,work)
call psb_info(ictxt, me, np)
if (present(trans)) then
trans_=trans
trans_=toupper(trans)
else
trans_='N'
end if
@@ -139,6 +139,10 @@ subroutine mld_dprec_aply(prec,x,y,desc_data,info,trans,work)
goto 9999
endif
! If the original distribution has an overlap we should fix that.
call psb_ovrl(y,desc_data,info,update=psb_avg_)
if (present(work)) then
else
deallocate(work_)
mlprec/mld_zprec_aply.f90
+4 -1
View File
@@ -99,7 +99,7 @@ subroutine mld_zprec_aply(prec,x,y,desc_data,info,trans,work)
call psb_info(ictxt, me, np)
if (present(trans)) then
trans_=trans
trans_=toupper(trans)
else
trans_='N'
end if
@@ -139,6 +139,9 @@ subroutine mld_zprec_aply(prec,x,y,desc_data,info,trans,work)
goto 9999
endif
! If the original distribution has an overlap we should fix that.
call psb_ovrl(y,desc_data,info,update=psb_avg_)
if (present(work)) then
else
deallocate(work_)