shm_get_node_pointer_c1 Function

private function shm_get_node_pointer_c1(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_c1

Source Code

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