shm_get_node_pointer_c3 Function

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

FIXME : Add documentation

Arguments

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

Return Value complex, pointer, (:,:,:)


Contents

Source Code

shm_get_node_pointer_c3

Source Code

  function shm_get_node_pointer_c3(pin, id, tag) result(ptr)
    implicit none
    complex, target, intent(in) :: pin(:,:,:)
    integer, intent(in) :: id ! rank id in node comm
    integer, optional, intent(in) :: tag
    complex, pointer :: ptr(:,:,:)

    call shm_get_node_pointer_c(pin, id, a3=ptr, tag=tag)
    
  end function shm_get_node_pointer_c3