finalize Function

  1. vtk_fortran_vtk_file.f90
  2. vtk_fortran_vtk_file
  3. finalize

private function finalize(self) result(error)

Arguments

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

Return Value integer(kind=I4P)


Contents

Source Code

finalize

Source Code

   function finalize(self) result(error)
   !< Finalize file (writer).
   class(vtk_file), intent(inout)  :: self  !< VTK file.
   integer(I4P)                    :: error !< Error status.
   character(len=:),           allocatable :: xml_volatile !< XML volatile file.

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