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