finalize Function

private function finalize(self) result(error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_binary_local), intent(inout) :: self

Return Value integer(kind=I4P)


Contents

Source Code


Source Code

   function finalize(self) result(error)
   !< Finalize writer.
   class(xml_writer_binary_local), intent(inout) :: self  !< Writer.
   integer(I4P)                                  :: error !< Error status.

   call self%write_end_tag(name=self%topology%chars())
   call self%write_end_tag(name='VTKFile')
   call self%close_xml_file
   error = self%error
   endfunction finalize