read_xml Subroutine

public subroutine read_xml(path, utsystem, status)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in), optional :: path
type(c_ptr), intent(out) :: utsystem
integer(kind=ut_status), intent(out) :: status

Calls

proc~~read_xml~~CallsGraph proc~read_xml read_xml interface~ut_get_status ut_get_status proc~read_xml->interface~ut_get_status interface~ut_read_xml_cptr ut_read_xml_cptr proc~read_xml->interface~ut_read_xml_cptr proc~cstring cstring proc~read_xml->proc~cstring

Called by

proc~~read_xml~~CalledByGraph proc~read_xml read_xml proc~test_read_xml_nopath test_read_xml_nopath proc~test_read_xml_nopath->proc~read_xml

Source Code

   subroutine read_xml(path, utsystem, status)
      character(len=*), optional, intent(in) :: path
      type(c_ptr), intent(out) :: utsystem
      integer(ut_status), intent(out) :: status

      character(kind=c_char, len=:), target, allocatable :: cchar_path

      if(present(path)) then
         cchar_path = cstring(path)
         utsystem = ut_read_xml_cptr(c_loc(cchar_path))
      else
         utsystem = ut_read_xml_cptr(c_null_ptr)
      end if
      status = ut_get_status()

   end subroutine read_xml