get_xml_volatile Subroutine

private pure subroutine get_xml_volatile(self, xml_volatile, error)

Type Bound

xml_writer_abstract

Arguments

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

Called by

proc~~get_xml_volatile~~CalledByGraph proc~get_xml_volatile xml_writer_abstract%get_xml_volatile proc~get_xml_volatile~2 vtk_file%get_xml_volatile proc~get_xml_volatile~2->proc~get_xml_volatile proc~write_slave write_slave proc~write_slave->proc~get_xml_volatile~2 program~vtk_fortran_write_volatile vtk_fortran_write_volatile program~vtk_fortran_write_volatile->proc~write_slave

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