Return the id.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(key_base), | intent(in) | :: | self | The key. |
Unique key id.
elemental function id(self)
!---------------------------------------------------------------------------------------------------------------------------------
!< Return the id.
!---------------------------------------------------------------------------------------------------------------------------------
class(key_base), intent(in) :: self !< The key.
integer(I8P) :: id !< Unique key id.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
id = 0
if (allocated(self%id_)) id = self%id_
!---------------------------------------------------------------------------------------------------------------------------------
endfunction id