btree_adopt_subtrees_i8_cp2d Subroutine

private subroutine btree_adopt_subtrees_i8_cp2d(node)

Arguments

Type IntentOptional Attributes Name
type(btree_node_i8_cp2d), POINTER :: node

Source Code

      SUBROUTINE btree_adopt_subtrees_i8_cp2d (node)
         TYPE(btree_node_i8_cp2d), 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_cp2d