Return parent tree node.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer(kind=I4P), | intent(in) | :: | node | Node queried. |
Parent tree node.
pure function parent_node(node)
!< Return parent tree node.
integer(I4P), intent(in) :: node !< Node queried.
integer(I4P) :: parent_node !< Parent tree node.
parent_node = (node - 1) / TREE_RATIO
endfunction parent_node