add_child Subroutine

private pure subroutine add_child(self, parent_id, child_id)

Type Bound

xml_file

Arguments

Type IntentOptional Attributes Name
class(xml_file), intent(inout) :: self
integer(kind=I4P), intent(in) :: parent_id
integer(kind=I4P), intent(in) :: child_id

Calls

proc~~add_child~~CallsGraph proc~add_child xml_file%add_child proc~add_child_id xml_tag%add_child_id proc~add_child->proc~add_child_id

Called by

proc~~add_child~~CalledByGraph proc~add_child xml_file%add_child proc~parse_from_string xml_file%parse_from_string proc~parse_from_string->proc~add_child proc~parse~2 xml_file%parse proc~parse~2->proc~parse_from_string program~foxy_test_delete_tag foxy_test_delete_tag program~foxy_test_delete_tag->proc~parse~2 program~foxy_test_parse_file_simple foxy_test_parse_file_simple program~foxy_test_parse_file_simple->proc~parse~2 program~foxy_test_parse_string_nested_tags foxy_test_parse_string_nested_tags program~foxy_test_parse_string_nested_tags->proc~parse~2 program~foxy_test_parse_string_simple foxy_test_parse_string_simple program~foxy_test_parse_string_simple->proc~parse~2 program~foxy_test_write_tag foxy_test_write_tag program~foxy_test_write_tag->proc~parse~2

Source Code

   pure subroutine add_child(self, parent_id, child_id)
   !< Add child ID to tag children list.
   class(xml_file), intent(inout) :: self      !< XML file handler.
   integer(I4P),    intent(in)    :: child_id  !< Child ID.
   integer(I4P),    intent(in)    :: parent_id !< Parent ID.

   if (parent_id > 0 .and. parent_id <= self%nt) call self%tag(parent_id)%add_child_id(child_id=child_id)
   endsubroutine add_child