free Subroutine

private elemental subroutine free(self, error)

Type Bound

vtk_file

Arguments

Type IntentOptional Attributes Name
class(vtk_file), intent(inout) :: self
integer(kind=I4P), intent(out), optional :: error

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