Add a id to minimum and maximum unique key id values.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(dictionary), | intent(inout) | :: | self | The dictionary. |
||
integer(kind=I8P), | intent(in) | :: | id | Unique id to add. |
pure subroutine add_id(self, id)
!---------------------------------------------------------------------------------------------------------------------------------
!< Add a id to minimum and maximum unique key id values.
!---------------------------------------------------------------------------------------------------------------------------------
class(dictionary), intent(inout) :: self !< The dictionary.
integer(I8P), intent(in) :: id !< Unique id to add.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
self%ids_(1) = min(self%ids_(1), id) ; if (self%ids_(1)==0) self%ids_(1) = id
self%ids_(2) = max(self%ids_(2), id)
!---------------------------------------------------------------------------------------------------------------------------------
endsubroutine add_id