Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_heap_type), | intent(in) | :: | heap | |||
integer, | intent(in) | :: | n |
ELEMENTAL FUNCTION get_value(heap, n) RESULT(value)
TYPE(dbcsr_heap_type), INTENT(IN) :: heap
INTEGER, INTENT(IN) :: n
INTEGER(KIND=valt) :: value
value = heap%nodes(n)%node%value
END FUNCTION get_value