get_xml_volatile Subroutine

  1. vtk_fortran_vtk_file_xml_writer_abstract.f90
  2. vtk_fortran_vtk_file_xml_writer_abstract
  3. get_xml_volatile

private pure subroutine get_xml_volatile(self, xml_volatile, error)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_abstract), intent(in) :: self
character(len=:), intent(out), allocatable:: xml_volatile
integer(kind=I4P), intent(out), optional :: error

Contents

Source Code

get_xml_volatile

Source Code

   pure subroutine get_xml_volatile(self, xml_volatile, error)
   !< Return the eventual XML volatile string file.
   class(xml_writer_abstract), intent(in)               :: self         !< Writer.
   character(len=:),           intent(out), allocatable :: xml_volatile !< XML volatile file.
   integer(I4P),               intent(out), optional    :: error        !< Error status.

   if (self%is_volatile) then
      xml_volatile = self%xml_volatile%raw
   endif
   endsubroutine get_xml_volatile