btree_free_node_i8_cp2d Subroutine

private subroutine btree_free_node_i8_cp2d(node)

Arguments

TypeIntentOptionalAttributesName
type(btree_node_i8_cp2d), POINTER:: node

Contents


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