This function delivers the direct children in the full tree for a given tree ID
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=long_k), | intent(in) | :: | TreeID |
given treeID |
Array for the treeIDs of the 8 direct children
function tem_directChildren( TreeID ) result(childrenIDs) ! --------------------------------------------------------------------------- !> given treeID integer(kind=long_k), intent(in) :: TreeID !> Array for the treeIDs of the 8 direct children integer(kind=long_k) :: childrenIDs(8) ! --------------------------------------------------------------------------- integer :: childCount integer(kind=long_k) :: off ! --------------------------------------------------------------------------- childrenIDs(:) = 0 off = treeID * 8_long_k do childCount = 1,8 childrenIDs(childCount) = off + int(childCount, kind=long_k) end do end function tem_directChildren