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

Additional internal docs for fnd_owner

Browse Source
This commit is contained in:
Salvatore Filippone
2019-12-14 12:33:11 +00:00
parent c57aa2ac5c
commit 4ed1ef4a0d
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/internals/psi_adjcncy_fnd_owner.F90
+3 -1
View File
@@ -50,7 +50,8 @@
! be topological neighbours of the current one. Each process will send to all
! of its neighbours the list of indices for which it is trying to find the
! owner, prepare its own answers, and collect answers from others.
! There are
! There are three possibile implementations: using mpi_alltoallv, using mpi_isend/irecv,
! using psb_snd/psb_rcv. The default is mpi_alltoallv.
!
subroutine psi_adjcncy_fnd_owner(idx,iprc,adj,idxmap,info)
use psb_serial_mod
@@ -204,6 +205,7 @@ subroutine psi_adjcncy_fnd_owner(idx,iprc,adj,idxmap,info)
end do
if (debug) write(0,*) me,' End of adjcncy_fnd ',iprc(1:nidx)
else if (mpi_irecv_impl) then
!
! First simple minded version with auxiliary arrays