add_index Subroutine

private subroutine add_index(this, index, pos)

Add an input value to the stored values, assuming we already know the offsets

Type Bound

index_rhash_t

Arguments

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

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

on return, the position where this value was stored

Source Code

    subroutine add_index(this, index, pos)
        class(index_rhash_t), intent(inout) :: this
        integer(int64), intent(in) :: index
        integer(int64), intent(out) :: pos

        integer(int64) :: hval

        hval = this%hash_function(index)
        call this%shared_ht%add_value(hval, index, pos)
    end subroutine add_index