btree_adopt_subtrees_i8_sp2d Subroutine

private subroutine btree_adopt_subtrees_i8_sp2d(node)

Arguments

TypeIntentOptionalAttributesName
type(btree_node_i8_sp2d), POINTER:: node

Contents


Source Code

      SUBROUTINE btree_adopt_subtrees_i8_sp2d (node)
         TYPE(btree_node_i8_sp2d), 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_sp2d