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