finalize Subroutine

private elemental subroutine finalize(tag)

Arguments

Type IntentOptional AttributesName
type(xml_tag), intent(inout) :: tag

XML tag.

Description

Free dynamic memory when finalizing.


Source Code

  elemental subroutine finalize(tag)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Free dynamic memory when finalizing.
  !---------------------------------------------------------------------------------------------------------------------------------
  type(xml_tag), intent(inout) :: tag !< XML tag.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  call tag%free
  !---------------------------------------------------------------------------------------------------------------------------------
  endsubroutine finalize