shm_get_node_pointer_r1 Function

private function shm_get_node_pointer_r1(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

shm_get_node_pointer_r1

Source Code

  function shm_get_node_pointer_r1(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, a1=ptr, tag=tag)
    
  end function shm_get_node_pointer_r1