finalize Function

private function finalize(self) result(error)

Type Bound

pvtk_file

Arguments

Type IntentOptional Attributes Name
class(pvtk_file), intent(inout) :: self

Return Value integer(kind=I4P)


Calls

proc~~finalize~3~~CallsGraph proc~finalize~3 pvtk_file%finalize finalize finalize proc~finalize~3->finalize

Called by

proc~~finalize~3~~CalledByGraph proc~finalize~3 pvtk_file%finalize proc~write_pvts write_pvts proc~write_pvts->proc~finalize~3 program~vtk_fortran_write_pvts vtk_fortran_write_pvts program~vtk_fortran_write_pvts->proc~write_pvts

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