count_value Subroutine

private subroutine count_value(this, hval)

Log the occurence of this hash value in the set of values to be stored Does not add it, only updates the offsets @param[in] hval hash value to be logged

Type Bound

shared_rhash_t

Arguments

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

Contents

Source Code

count_value

Source Code

    subroutine count_value(this, hval)
        class(shared_rhash_t), intent(inout) :: this
        integer(int64), intent(in) :: hval

        integer(int64) :: n_hval

        ! all following entries get their offset increased by one
        if (iProcIndex_intra == 0) then
            n_hval = hval + 1
            this%hval_offsets%ptr(n_hval) = this%hval_offsets%ptr(n_hval) + 1
        end if
    end subroutine count_value