shm_node_id Function

  function shm_node_id(ip)
    implicit none
    integer, intent(in) :: ip
    integer shm_node_id
    
    integer i
    
    !write(0,*) 'node_id ', ip, shm_info%size,shm_info%wranks(0:)
    
    shm_node_id = -1
    do i = 0, shm_info%size-1
       if ( ip == shm_info%wranks(i)) then
          shm_node_id = i
          exit
       endif
    end do
  end function shm_node_id