btree_free_node_i8_cp2d Subroutine

private subroutine btree_free_node_i8_cp2d(node)

Arguments

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

Contents

Source Code

btree_free_node_i8_cp2d

Source Code

      SUBROUTINE btree_free_node_i8_cp2d (node)
         TYPE(btree_node_i8_cp2d), POINTER :: node
         !
         DEALLOCATE (node%keys)
         DEALLOCATE (node%values)
         DEALLOCATE (node%subtrees)
         DEALLOCATE (node)
      END SUBROUTINE btree_free_node_i8_cp2d