private pure module function int8_fnv_1a(key) result(hash_code)
The original FNV-1a 8-bit key algorithm.
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
integer(kind=int8),
|
intent(in) |
|
|
:: |
key(:) |
|
Return Value
integer(kind=int_hash)
Variables
| Type |
Visibility | Attributes |
|
Name |
| Initial | |
|
integer(kind=int64),
|
private |
|
:: |
i |
|
|
|
Source Code
pure module function int8_fnv_1a(key) result(hash_value)
!! FNV_1A hash function for rank 1 array keys of kind int8
implicit none
integer(int8), intent(in) :: key(:)
integer(int_hash) :: hash_value
end function int8_fnv_1a