The implementation is heavily inspired by khash.

Properties of the hash table:

• Open addressing
• Quadratic probing (but can easily be adjusted to linear probing)
• Murmur3_x86_32 as default hash function, see also murmur3-fortran
• Generic: the keys and values can be of any type.

• Fortran 2008 compatible compiler, such as gfortran or ifort

Preprocessing should be enabled (typically with -cpp). With older gfortran versions (version 7 or older) there may be warnings.

• Using custom types
• Using a custom hash function (also shows how to use strings as keys)
• Using multiple hash tables (also shows how to use strings as keys/values)
• Simple benchmark

The file ffhash_inc.f90 can for example be included like this:

module m_example
#define FFH_KEY_TYPE integer
#include "ffhash_inc.f90"
end module m_example

The following preprocessor commands can be used:

• #define FFH_KEY_TYPE (required) followed by a type name (e.g., integer, real, type(my_type)
• #define FFH_VAL_TYPE (optional) followed by a type name, so that keys can be associated with values.
• #define FFH_KEY_IS_STRING (optional) for string key types. This allows to use keys shorter than the maximum length. Note that in Fortran "a" == "a " (trailing spaces are ignored).
• #define FFH_VAL_IS_STRING (optional), similar to FFH_KEY_IS_STRING.
• #define FFH_CUSTOM_HASH_FUNCTION (optional) to define a custom hash function (after the #include "ffhash_inc.f90" line).
• #define FFH_CUSTOM_KEYS_EQUAL (optional) to define a custom function for comparing keys (after the #include "ffhash_inc.f90" line).

A type ffh_t can be used after importing the created module, for example like this:

type(ffh_t) :: h

! Store and retrieve a key/value pair
call h%store_value(key, value, status)
call h%get_value(key, value, status)

! Store and retrieve a key/value pair (will abort on failures)
call h%ustore_value(key, value)
call h%uget_value(key, value)

! The values can also be indexed directly
i = h%get_index(key)
if (i /= -1) h%vals(i) = value

! This is also possible
value = h%fget_value(key)

! The index range is from 0 to n_buckets-1
do i = 0, h%n_buckets-1
  if (h%valid_index(i)) ...
end do

Below is the full list of included methods. The variants starting with a u call error stop in case of errors. The variants without a u have an additional status argument, which is -1 in case of errors.

• murmur3-fortran Murmur3 hash function implemented in Fortran
• Hash tables on Fortran Wiki