get_value Function

private elemental function get_value(heap, n) result(value)

Arguments

Type IntentOptional Attributes Name
type(dbcsr_heap_type), intent(in) :: heap
integer, intent(in) :: n

Return Value integer(kind=valt)


Source Code

   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