From 29546aa04b29a9518d533a10d1847d84f1a8f93d Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Mon, 28 Jan 2013 16:28:16 -0500 Subject: [PATCH] Add clear method to set. --- src/set_header.F90 | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/src/set_header.F90 b/src/set_header.F90 index d6358f4178..5180d5b142 100644 --- a/src/set_header.F90 +++ b/src/set_header.F90 @@ -26,6 +26,7 @@ module set_header type(ListInt) :: elements contains procedure :: add => set_add_int + procedure :: clear => set_clear_int procedure :: contains => set_contains_int procedure :: get_item => set_get_item_int procedure :: remove => set_remove_int @@ -37,6 +38,7 @@ module set_header type(ListChar) :: elements contains procedure :: add => set_add_char + procedure :: clear => set_clear_char procedure :: contains => set_contains_char procedure :: get_item => set_get_item_char procedure :: remove => set_remove_char @@ -69,6 +71,24 @@ contains end subroutine set_add_char +!=============================================================================== +! SET_CLEAR removes all items in a set +!=============================================================================== + + subroutine set_clear_int(this) + class(SetInt) :: this + + call this % elements % clear() + + end subroutine set_clear_int + + subroutine set_clear_char(this) + class(SetChar) :: this + + call this % elements % clear() + + end subroutine set_clear_char + !=============================================================================== ! SET_CONTAINS determines if a specified item is in a set !===============================================================================