anchor.diff:      include 'write_geo_method.inc'
       include 'write_dataarray_method.inc'
       ! private methods
  -    procedure, pass(self), private :: initialize_write       !< Initialize file (exporter).
  -    procedure, pass(self), private :: finalize_write         !< Finalize file (exporter).
  -    procedure, pass(self), private :: open_xml_file          !< Open xml file.
  -    procedure, pass(self), private :: open_scratch_file      !< Open scratch file.
  -    procedure, pass(self), private :: ioffset_update         !< Update ioffset count.
  -    procedure, pass(self), private :: self_closing_tag       !< Return `<tag_name.../>` self closing tag.
  -    procedure, pass(self), private :: tag                    !< Return `<tag_name...>...</tag_name>` tag.
  -    procedure, pass(self), private :: start_tag              !< Return `<tag_name...>` start tag.
  -    procedure, pass(self), private :: end_tag                !< Return `</tag_name>` end tag.
  -    procedure, pass(self), private :: write_self_closing_tag !< Write `<tag_name.../>` self closing tag.
  -    procedure, pass(self), private :: write_tag              !< Write `<tag_name...>...</tag_name>` tag.
  -    procedure, pass(self), private :: write_start_tag        !< Write `<tag_name...>` start tag.
  -    procedure, pass(self), private :: write_end_tag          !< Write `</tag_name>` end tag.
  -    procedure, pass(self), private :: write_header_tag       !< Write header tag.
  -    procedure, pass(self), private :: write_topology_tag     !< Write topology tag.
  -    procedure, pass(self), private :: write_piece_start_tag  !< Write `<Piece ...>` start tag.
  -    procedure, pass(self), private :: write_piece_end_tag    !< Write `</Piece>` end tag.
  +    procedure, pass(self), private :: initialize_write             !< Initialize file (exporter).
  +    procedure, pass(self), private :: finalize_write               !< Finalize file (exporter).
  +    procedure, pass(self), private :: open_xml_file                !< Open xml file.
  +    procedure, pass(self), private :: open_scratch_file            !< Open scratch file.
  +    procedure, pass(self), private :: ioffset_update               !< Update ioffset count.
  +    procedure, pass(self), private :: self_closing_tag             !< Return `<tag_name.../>` self closing tag.
  +    procedure, pass(self), private :: tag                          !< Return `<tag_name...>...</tag_name>` tag.
  +    procedure, pass(self), private :: start_tag                    !< Return `<tag_name...>` start tag.
  +    procedure, pass(self), private :: end_tag                      !< Return `</tag_name>` end tag.
  +    procedure, pass(self), private :: write_self_closing_tag       !< Write `<tag_name.../>` self closing tag.
  +    procedure, pass(self), private :: write_tag                    !< Write `<tag_name...>...</tag_name>` tag.
  +    procedure, pass(self), private :: write_start_tag              !< Write `<tag_name...>` start tag.
  +    procedure, pass(self), private :: write_end_tag                !< Write `</tag_name>` end tag.
  +    procedure, pass(self), private :: write_header_tag             !< Write header tag.
  +    procedure, pass(self), private :: write_topology_tag           !< Write topology tag.
  +    procedure, pass(self), private :: write_piece_start_tag        !< Write `<Piece ...>` start tag.
  +    procedure, pass(self), private :: write_piece_end_tag          !< Write `</Piece>` end tag.
       procedure, pass(self), private :: write_dataarray_tag          !< Write `<DataArray...>...</DataArray>` tag.
       procedure, pass(self), private :: write_dataarray_tag_appended !< Write `<DataArray.../>` appended tag.
  +    procedure, pass(self), private :: write_dataarray_appended     !< Write `<AppendedData...>...</AppendedData>` tag.
       include 'write_on_scratch_dataarray_method.inc'
       include 'encode_ascii_dataarray_method.inc'
       include 'encode_base64_dataarray_method.inc'
  
positive.code:   return
    !---------------------------------------------------------------------------------------------------------------------------------
    endfunction write_dataarray_location_tag
  endmodule vtk_file_class
  
negative.code: 
    !---------------------------------------------------------------------------------------------------------------------------------
    call self%write_end_tag(tag_name=self%topology%chars())
    if (self%format==raw.or.self%format==bin_app) call self%write_dataarray_appended
    call self%write_end_tag(tag_name='VTKFile')
    error = self%error
    return
  