add_child_id Subroutine

private pure subroutine add_child_id(self, child_id)

Add child ID to children IDs list.

Type Bound

xml_tag

Arguments

Type IntentOptional Attributes Name
class(xml_tag), intent(inout) :: self

XML tag.
integer(kind=I4P), intent(in) :: child_id

Child ID.

Called by

proc~~add_child_id~~CalledByGraph proc~add_child_id xml_tag%add_child_id proc~add_child xml_file%add_child proc~add_child->proc~add_child_id 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_id(self, child_id)
   !< Add child ID to children IDs list.
   class(xml_tag), intent(inout) :: self     !< XML tag.
   integer(I4P),   intent(in)    :: child_id !< Child ID.

   if (allocated(self%child_id)) then
      self%child_id = [self%child_id, child_id]
   else
      self%child_id = [child_id]
   endif
   self%children_number = size(self%child_id)
   endsubroutine add_child_id