Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(btree_node_i8_dp2d), | POINTER | :: | node |
SUBROUTINE btree_adopt_subtrees_i8_dp2d (node)
TYPE(btree_node_i8_dp2d), POINTER :: node
INTEGER :: i
!
! Assume that node is not a leaf!
DO i = 1, node%filled + 1
!IF (ASSOCIATED (node%subtrees(i)%node)) THEN
!IF (.NOT. ASSOCIATED (node%subtrees(i)%node%parent,&
! node)) THEN
node%subtrees(i)%node%parent => node
!ENDIF
!ENDIF
END DO
END SUBROUTINE btree_adopt_subtrees_i8_dp2d