shm_get_node_pointer_r2 Function

private function shm_get_node_pointer_r2(pin, id, tag) result(ptr)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
real, intent(in), target :: pin(:,:)
integer, intent(in) :: id
integer, intent(in), optional :: tag

Return Value real, pointer, (:,:)


Contents


Source Code

  function shm_get_node_pointer_r2(pin, id, tag) result(ptr)
    implicit none
    real, target, intent(in) :: pin(:,:)
    integer, intent(in) :: id ! rank id in node comm
    integer, optional, intent(in) :: tag
    real, pointer :: ptr(:,:)
    
    call shm_get_node_pointer_r(pin, id, a2=ptr, tag=tag)
    
  end function shm_get_node_pointer_r2