Return first child tree node.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer(kind=I4P), | intent(in) | :: | node | Node queried. |
First child tree node.
pure function first_child_node(node)
!< Return first child tree node.
integer(I4P), intent(in) :: node !< Node queried.
integer(I4P) :: first_child_node !< First child tree node.
first_child_node = node * TREE_RATIO + 1
endfunction first_child_node