Print the hash table keys.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(hash_table), | intent(in) | :: | self | The hash table. |
subroutine print_keys(self)
!---------------------------------------------------------------------------------------------------------------------------------
!< Print the hash table keys.
!---------------------------------------------------------------------------------------------------------------------------------
class(hash_table), intent(in) :: self !< The hash table.
integer(I4P) :: b !< Counter.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
if (self%is_initialized_) then
do b=1, self%buckets_number
call self%bucket(b)%print_keys
enddo
endif
!---------------------------------------------------------------------------------------------------------------------------------
endsubroutine print_keys