shm_get_node_pointer_r3 Function

private function shm_get_node_pointer_r3(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_r3

Source Code

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