Checks if a node rank belong to the curent node
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | ip |
function shm_onnode(ip)
implicit none
integer, intent(in) :: ip
logical shm_onnode
integer i
shm_onnode = .false.
do i = 0, shm_info%size - 1
if (ip == shm_info%wranks(i)) then
shm_onnode = .true.
exit
end if
enddo
end function shm_onnode