Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_heap_type), | intent(out) | :: | heap | |||
integer, | intent(in) | :: | n |
SUBROUTINE dbcsr_heap_new(heap, n)
TYPE(dbcsr_heap_type), INTENT(OUT) :: heap
INTEGER, INTENT(IN) :: n
heap%n = n
ALLOCATE (heap%index(n))
ALLOCATE (heap%nodes(n))
END SUBROUTINE dbcsr_heap_new