finalize Subroutine

private subroutine finalize(file)

Arguments

Type IntentOptional AttributesName
type(xml_file), intent(inout) :: file

XML file.

Description

Free dynamic memory when finalizing.


Source Code

  subroutine finalize(file)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Free dynamic memory when finalizing.
  !---------------------------------------------------------------------------------------------------------------------------------
  type(xml_file), intent(inout) :: file !< XML file.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  call file%free
  !---------------------------------------------------------------------------------------------------------------------------------
  endsubroutine finalize