write_header_tag Subroutine

private subroutine write_header_tag(self)

Type Bound

xml_writer_abstract

Arguments

Type IntentOptional Attributes Name
class(xml_writer_abstract), intent(inout) :: self

Called by

proc~~write_header_tag~~CalledByGraph proc~write_header_tag xml_writer_abstract%write_header_tag proc~initialize xml_writer_appended%initialize proc~initialize->proc~write_header_tag proc~initialize~3 xml_writer_binary_local%initialize proc~initialize~3->proc~write_header_tag proc~initialize~6 xml_writer_ascii_local%initialize proc~initialize~6->proc~write_header_tag

Source Code

   subroutine write_header_tag(self)
   !< Write header tag.
   class(xml_writer_abstract), intent(inout) :: self   !< Writer.
   type(string)                              :: buffer !< Buffer string.

   buffer = '<?xml version="1.0"?>'//end_rec
   if (endian==endianL) then
      buffer = buffer//'<VTKFile type="'//self%topology//'" version="1.0" byte_order="LittleEndian">'
   else
      buffer = buffer//'<VTKFile type="'//self%topology//'" version="1.0" byte_order="BigEndian">'
   endif
   if (.not.self%is_volatile) then
      write(unit=self%xml, iostat=self%error)buffer//end_rec
   else
      self%xml_volatile = self%xml_volatile//buffer//end_rec
   endif
   self%indent = 2
   endsubroutine write_header_tag