Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(xml_tag), | intent(inout) | :: | self | XML tag. |
||
character(len=*), | intent(in) | :: | name(1:) | Attributes names. |
Delete list of attributes name/value pairs.
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer(kind=I4P), | public | :: | a | Counter. |
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