Destroy the key.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(key_base), | intent(inout) | :: | self | The key. |
elemental subroutine destroy(self)
!---------------------------------------------------------------------------------------------------------------------------------
!< Destroy the key.
!---------------------------------------------------------------------------------------------------------------------------------
class(key_base), intent(inout) :: self !< The key.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
if (allocated(self%id_)) deallocate(self%id_)
if (allocated(self%char_key_)) deallocate(self%char_key_)
!---------------------------------------------------------------------------------------------------------------------------------
endsubroutine destroy