delete_multiple_attributes Subroutine

private pure subroutine delete_multiple_attributes(self, name)

Delete list of attributes name/value pairs.

Type Bound

xml_tag

Arguments

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

XML tag.
character(len=*), intent(in) :: name(1:)

Attributes names.

Calls

proc~~delete_multiple_attributes~~CallsGraph proc~delete_multiple_attributes xml_tag%delete_multiple_attributes proc~delete_single_attribute xml_tag%delete_single_attribute proc~delete_multiple_attributes->proc~delete_single_attribute

Called by

proc~~delete_multiple_attributes~~CalledByGraph proc~delete_multiple_attributes xml_tag%delete_multiple_attributes none~delete_attributes xml_tag%delete_attributes none~delete_attributes->proc~delete_multiple_attributes program~foxy_test_delete_attributes foxy_test_delete_attributes program~foxy_test_delete_attributes->none~delete_attributes

Source Code

   pure subroutine delete_multiple_attributes(self, name)
   !< Delete list of attributes name/value pairs.
   class(xml_tag), intent(inout) :: self     !< XML tag.
   character(*),   intent(in)    :: name(1:) !< Attributes names.
   integer(I4P)                  :: a        !< Counter.

   do a=1, size(name, dim=1)
      call self%delete_single_attribute(name=name(a))
   enddo
   endsubroutine delete_multiple_attributes