fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-19 04:12:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas:

Browse Source 
internals/psi_fnd_onwer.f90

Changed fnd_owner to return an allocated vector of size 0 if NV=0.
This commit is contained in:
Salvatore Filippone
2008-01-31 16:20:32 +00:00
parent a2aed40f34
commit 33f439b0f8
1 changed files with 5 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/internals/psi_fnd_owner.f90
+5 -7
View File
@@ -145,13 +145,11 @@ subroutine psi_fnd_owner(nv,idx,iprc,desc,info)
! Fifth, we extract the answers for our local query, and shift back the
! process indices to 0-based.
if (nv > 0) then
call psb_realloc(nv,iprc,info)
ih = hidx(me+1)
do i=1, hsz(me+1)
iprc(i) = hproc(ih+i-1) - 1
end do
end if
call psb_realloc(nv,iprc,info)
ih = hidx(me+1)
do i=1, hsz(me+1)
iprc(i) = hproc(ih+i-1) - 1
end do
call psb_erractionrestore(err_act)
return