btree_adopt_subtrees_i8_dp2d Subroutine

  1. dbcsr_btree.F
  2. dbcsr_btree
  3. btree_adopt_subtrees_i8_dp2d

private subroutine btree_adopt_subtrees_i8_dp2d(node)

Arguments

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

Contents

Source Code

btree_adopt_subtrees_i8_dp2d

Source Code

      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