*** empty log message ***

psblas3-type-indexed
Salvatore Filippone 15 years ago
parent 6b278318bd
commit 6043c2854b

@ -125,7 +125,7 @@ subroutine psi_fnd_owner(nv,idx,iprc,desc,info)
hsz = 0 hsz = 0
hsz(me+1) = nv hsz(me+1) = nv
call psb_amx(ictxt,hsz,info) call psb_amx(ictxt,hsz)
hidx(1) = 0 hidx(1) = 0
do i=1, np do i=1, np
hidx(i+1) = hidx(i) + hsz(i) hidx(i+1) = hidx(i) + hsz(i)

Loading…
Cancel
Save