TYPE dbcsr_heap_node INTEGER(KIND=keyt) :: key = -1_keyt INTEGER(KIND=valt) :: value = -1_valt END TYPE dbcsr_heap_node