fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 21:02:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2010-04-23 09:24:59 +00:00
parent 6b278318bd
commit 6043c2854b
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/internals/psi_fnd_owner.F90
+1 -1
View File
@@ -125,7 +125,7 @@ subroutine psi_fnd_owner(nv,idx,iprc,desc,info)
hsz = 0
hsz(me+1) = nv
call psb_amx(ictxt,hsz,info)
call psb_amx(ictxt,hsz)
hidx(1) = 0
do i=1, np
hidx(i+1) = hidx(i) + hsz(i)