lookup Subroutine

private subroutine lookup(this, index, pos, t_found)

Look up a value in this hash table. Returns whether the value is stored and if yes, where

Type Bound

index_rhash_t

Arguments

Type IntentOptional Attributes Name
class(index_rhash_t), intent(in) :: this
integer(kind=int64), intent(in) :: index

value to be looked up
integer(kind=int64), intent(out) :: pos

on return, the position of index if found, else 0
logical, intent(out) :: t_found

on return, true if and only if index was found

Source Code

    subroutine lookup(this, index, pos, t_found)
        class(index_rhash_t), intent(in) :: this
        integer(int64), intent(in) :: index
        integer(int64), intent(out) :: pos
        logical, intent(out) :: t_found

        integer(int64) :: hval

        hval = this%hash_function(index)
        call this%shared_ht%direct_lookup(hval, index, pos, t_found)
    end subroutine lookup