free Subroutine

  1. vtk_fortran_vtk_file.f90
  2. vtk_fortran_vtk_file
  3. free

private elemental subroutine free(self, error)

Arguments

TypeIntentOptionalAttributesName
class(vtk_file), intent(inout) :: self
integer(kind=I4P), intent(out), optional :: error

Contents

Source Code

free

Source Code

   elemental subroutine free(self, error)
   !< Free allocated memory.
   class(vtk_file), intent(inout)         :: self  !< VTK file.
   integer(I4P),    intent(out), optional :: error !< Error status.

   if (allocated(self%xml_writer)) call self%xml_writer%free(error=error)
   endsubroutine free