open_xml_file Subroutine

private subroutine open_xml_file(self, filename)

Type Bound

xml_writer_abstract

Arguments

Type IntentOptional Attributes Name
class(xml_writer_abstract), intent(inout) :: self
character(len=*), intent(in) :: filename

Called by

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

Source Code

   subroutine open_xml_file(self, filename)
   !< Open XML file.
   class(xml_writer_abstract), intent(inout) :: self     !< Writer.
   character(*),               intent(in)    :: filename !< File name.

   if (.not.self%is_volatile) then
      open(newunit=self%xml,             &
           file=trim(adjustl(filename)), &
           form='UNFORMATTED',           &
           access='STREAM',              &
           action='WRITE',               &
           status='REPLACE',             &
           iostat=self%error)
   else
      self%xml_volatile = ''
   endif
   endsubroutine open_xml_file