crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 22:26:08 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Add clear method to set.

Browse source
This commit is contained in:
Paul Romano 2013-01-28 16:28:16 -05:00
parent 9254390f97
commit 29546aa04b
1 changed files with 20 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/set_header.F90
View file

@ -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
!===============================================================================