finalize Function

  1. vtk_fortran_pvtk_file.f90
  2. vtk_fortran_pvtk_file
  3. finalize

private function finalize(self) result(error)

Arguments

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

Return Value integer(kind=I4P)


Contents

Source Code

finalize

Source Code

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

  error = 1
  if (allocated(self%xml_writer)) error = self%xml_writer%finalize()
  endfunction finalize