free Subroutine

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

   call self%format_ch%free
   call self%topology%free
   self%indent=0_I4P
   self%ioffset=0_I8P
   self%xml=0_I4P
   self%vtm_block(1:2)=[-1_I4P, -1_I4P]
   self%error=0_I4P
   call self%tag%free
   self%is_volatile=.false.
   call self%xml_volatile%free
   endsubroutine free