delete_content Subroutine

private pure subroutine delete_content(self)

Arguments

Type	Intent	Optional	Attributes		Name
class(xml_tag),	intent(inout)			::	self

Contents

Source Code

Source Code

  pure subroutine delete_content(self)
  !< Delete tag content.
  class(xml_tag), intent(inout) :: self !< XML tag.

  call self%tag_content%free
  endsubroutine delete_content