btree_free_node_i8_dp2d Subroutine

private subroutine btree_free_node_i8_dp2d(node)

Arguments

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

Source Code

      SUBROUTINE btree_free_node_i8_dp2d (node)
         TYPE(btree_node_i8_dp2d), POINTER :: node
         !
         DEALLOCATE (node%keys)
         DEALLOCATE (node%values)
         DEALLOCATE (node%subtrees)
         DEALLOCATE (node)
      END SUBROUTINE btree_free_node_i8_dp2d