add_multiple_attributes Subroutine

private pure subroutine add_multiple_attributes(self, attributes, sanitize_values)

Type Bound

xml_tag

Arguments

Type IntentOptional Attributes Name
class(xml_tag), intent(inout) :: self
character(len=*), intent(in) :: attributes(1:,1:)
logical, intent(in), optional :: sanitize_values

Calls

proc~~add_multiple_attributes~~CallsGraph proc~add_multiple_attributes xml_tag%add_multiple_attributes proc~add_single_attribute xml_tag%add_single_attribute proc~add_multiple_attributes->proc~add_single_attribute proc~alloc_attributes xml_tag%alloc_attributes proc~add_single_attribute->proc~alloc_attributes

Called by

proc~~add_multiple_attributes~~CalledByGraph proc~add_multiple_attributes xml_tag%add_multiple_attributes none~add_attributes xml_tag%add_attributes none~add_attributes->proc~add_multiple_attributes proc~set xml_tag%set proc~set->proc~add_multiple_attributes proc~create_tag_flat create_tag_flat proc~create_tag_flat->proc~set proc~create_tag_nested create_tag_nested proc~create_tag_nested->proc~set program~add_attributes add_attributes program~add_attributes->none~add_attributes program~create_tag create_tag program~create_tag->proc~set interface~xml_tag xml_tag interface~xml_tag->proc~create_tag_flat interface~xml_tag->proc~create_tag_nested

Source Code

  pure subroutine add_multiple_attributes(self, attributes, sanitize_values)
  !< Add list of attributes name/value pairs.
  class(xml_tag), intent(inout)        :: self              !< XML tag.
  character(*),   intent(in)           :: attributes(1:,1:) !< Attribute name/value pair list [1:2,1:].
  logical,        intent(in), optional :: sanitize_values   !< Sanitize attribute values.
  integer(I4P)                         :: a                 !< Counter.

  do a=1, size(attributes, dim=2)
    ! not efficient: many reallocation, but safe
    call self%add_single_attribute(attribute=attributes(1:,a), sanitize_value=sanitize_values)
  enddo
  endsubroutine add_multiple_attributes