delete_multiple_attributes Subroutine

private pure subroutine delete_multiple_attributes(self, name)

Arguments

Type IntentOptional AttributesName
class(xml_tag), intent(inout) :: self

XML tag.

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

Attributes names.

Description

Delete list of attributes name/value pairs.


Variables

TypeVisibility AttributesNameInitial
integer(kind=I4P), public :: a

Counter.


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