Start mods for new fnd_owner

fnd_owner
Salvatore Filippone 5 years ago
parent 9a2c1fe0a9
commit 7c908c0849

@ -73,6 +73,7 @@ subroutine psi_a2a_fnd_owner(idx,iprc,idxmap,info)
integer(psb_ipk_) :: i,n_row,n_col,err_act,nv
integer(psb_lpk_) :: mglob, ih
integer(psb_ipk_) :: ictxt,np,me, nresp
logical, parameter :: use_psi_adj=.true.
real(psb_dpk_) :: t0, t1, t2, t3, t4, tamx, tidx
character(len=20) :: name
@ -100,6 +101,7 @@ subroutine psi_a2a_fnd_owner(idx,iprc,idxmap,info)
goto 9999
end if
if (use_psi_adj) then
!
! Reuse the adjcncy version by tricking it with an adjcncy list
! that contains everybody but ME.
@ -109,6 +111,13 @@ subroutine psi_a2a_fnd_owner(idx,iprc,idxmap,info)
tmpadj(1:me) = [(i,i=0,me-1)]
tmpadj(me+1:np-1) = [(i,i=me+1,np-1)]
call psi_adjcncy_fnd_owner(idx,iprc,tmpadj,idxmap,info)
else
!
! 1. allgetherv
! 2. local conversion
! 3. reduce_scatter
!
end if
call psb_erractionrestore(err_act)
return

Loading…
Cancel
Save