hash_i4tuple Function

private function hash_i4tuple(key) result(hash)

Arguments

Type IntentOptional Attributes Name
integer(kind=int_4), intent(in), dimension(2) :: key

Return Value integer(kind=int_4)


Contents

Source Code

hash_i4tuple

Source Code

FUNCTION hash_i4tuple(key) RESULT(hash)
# 111 "/__w/dbcsr/dbcsr/src/core/dbcsr_dict.F"
   INTEGER(kind=int_4), dimension(2), INTENT(IN) :: key
# 111 "/__w/dbcsr/dbcsr/src/core/dbcsr_dict.F"
   INTEGER(kind=int_4)                           :: hash
# 111 "/__w/dbcsr/dbcsr/src/core/dbcsr_dict.F"
   hash = SUM(key)
# 111 "/__w/dbcsr/dbcsr/src/core/dbcsr_dict.F"
END FUNCTION hash_i4tuple