private pure module function int8_fnv_1(key) result(hash_code)
The original FNV-1 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_1(key) result(hash_code)
!! FNV_1 hash function for rank 1 array keys of kind int8
implicit none
integer(int8), intent(in) :: key(:)
integer(int_hash) :: hash_code
end function int8_fnv_1