xdmf_attribute_obj_Free Subroutine

    pure subroutine xdmf_attribute_obj_Free(this)
      !> Frees up data stored by this XDMF attribute.
      implicit none
      class(xdmf_attribute_obj), intent(inout) :: this                         !!  XDMF attribute object

      if (allocated(this%name))         deallocate(this%name)
      if (allocated(this%type))         deallocate(this%type)
      if (allocated(this%precision))    deallocate(this%precision)
      if (allocated(this%format))       deallocate(this%format)
      if (allocated(this%dimensions))   deallocate(this%dimensions)
      if (allocated(this%path))         deallocate(this%path)

      return
    end subroutine xdmf_attribute_obj_Free