dbcsr_heap_new Subroutine

public subroutine dbcsr_heap_new(heap, n)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_heap_type), intent(out) :: heap
integer, intent(in) :: n

Contents

Source Code


Source Code

   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