free Subroutine

private elemental subroutine free(self)

Arguments

Type IntentOptional AttributesName
class(xml_tag), intent(inout) :: self

XML tag.

Description

Free dynamic memory.


Source Code

  elemental subroutine free(self)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Free dynamic memory.
  !---------------------------------------------------------------------------------------------------------------------------------
  class(xml_tag), intent(inout) :: self !< XML tag.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  call self%tag_name%free
  call self%tag_content%free
  if (allocated(self%attribute)) then
    call self%attribute%free
    deallocate(self%attribute)
  endif
  self%attributes_number = 0
  self%indent = 0
  self%is_self_closing = .false.
  !---------------------------------------------------------------------------------------------------------------------------------
  endsubroutine free