finalize Subroutine

private subroutine finalize(file)

Arguments

Type	Intent	Optional	Attributes		Name
type(xml_file),	intent(inout)			::	file

Contents

Source Code

finalize

Source Code

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

  call file%free
  endsubroutine finalize