1! *****************************************************************************
2!> \brief Types needed for the hashtable.
3! *****************************************************************************
4  TYPE ele_type
5     INTEGER :: c = 0
6     INTEGER :: p = 0
7  END TYPE ele_type
8
9  TYPE hash_table_type
10     TYPE(ele_type), DIMENSION(:), POINTER :: table
11     INTEGER :: nele = 0
12     INTEGER :: nmax = 0
13     INTEGER :: prime = 0
14  END TYPE hash_table_type
15