|
|
@ -72,7 +72,9 @@ module psi_e_collective_mod
|
|
|
|
module procedure psb_eexscan_sums, psb_eexscan_sumv
|
|
|
|
module procedure psb_eexscan_sums, psb_eexscan_sumv
|
|
|
|
end interface psb_exscan_sum
|
|
|
|
end interface psb_exscan_sum
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
interface psb_simple_a2av
|
|
|
|
|
|
|
|
module procedure psb_e_simple_a2av
|
|
|
|
|
|
|
|
end interface psb_simple_a2av
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
contains
|
|
|
|
contains
|
|
|
@ -1224,5 +1226,43 @@ contains
|
|
|
|
dat = ezero
|
|
|
|
dat = ezero
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
end subroutine psb_eexscan_sumv
|
|
|
|
end subroutine psb_eexscan_sumv
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
subroutine psb_e_simple_a2av(valsnd,sdsz,bsdindx,&
|
|
|
|
|
|
|
|
& valrcv,rvsz,brvindx,ictxt,info)
|
|
|
|
|
|
|
|
use psi_e_p2p_mod
|
|
|
|
|
|
|
|
implicit none
|
|
|
|
|
|
|
|
integer(psb_epk_), intent(in) :: valsnd(:)
|
|
|
|
|
|
|
|
integer(psb_epk_), intent(out) :: valrcv(:)
|
|
|
|
|
|
|
|
integer(psb_mpk_), intent(in) :: bsdindx(:), brvindx(:), sdsz(:), rvsz(:)
|
|
|
|
|
|
|
|
integer(psb_ipk_), intent(in) :: ictxt
|
|
|
|
|
|
|
|
integer(psb_ipk_), intent(out) :: info
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
integer(psb_ipk_) :: iam, np, i,j,k, ip, ipx, idx, sz
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
call psb_info(ictxt,iam,np)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if (min(size(bsdindx),size(brvindx),size(sdsz),size(rvsz))<np) then
|
|
|
|
|
|
|
|
info = psb_err_internal_error_
|
|
|
|
|
|
|
|
return
|
|
|
|
|
|
|
|
end if
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
do ip = 0, np-1
|
|
|
|
|
|
|
|
sz = sdsz(ip+1)
|
|
|
|
|
|
|
|
if (sz > 0) then
|
|
|
|
|
|
|
|
idx = bsdindx(ip+1)
|
|
|
|
|
|
|
|
call psb_snd(ictxt,valsnd(idx+1:idx+sz),ip)
|
|
|
|
|
|
|
|
end if
|
|
|
|
|
|
|
|
end do
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
do ip = 0, np-1
|
|
|
|
|
|
|
|
sz = rvsz(ip+1)
|
|
|
|
|
|
|
|
if (sz > 0) then
|
|
|
|
|
|
|
|
idx = brvindx(ip+1)
|
|
|
|
|
|
|
|
call psb_rcv(ictxt,valrcv(idx+1:idx+sz),ip)
|
|
|
|
|
|
|
|
end if
|
|
|
|
|
|
|
|
end do
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
end subroutine psb_e_simple_a2av
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
end module psi_e_collective_mod
|
|
|
|
end module psi_e_collective_mod
|
|
|
|