Finalizes a multiplication cycle for a set of C-blocks.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_mm_csr_type), | intent(inout) | :: | this |
SUBROUTINE dbcsr_mm_csr_finalize(this)
!! Finalizes a multiplication cycle for a set of C-blocks.
TYPE(dbcsr_mm_csr_type), INTENT(INOUT) :: this
INTEGER :: i
CALL dbcsr_mm_sched_finalize(this%sched)
! Clear hash tables
DO i = 1, SIZE(this%c_hashes)
CALL hash_table_release(this%c_hashes(i))
END DO
DEALLOCATE (this%c_hashes)
DEALLOCATE (this%stacks_descr)
DEALLOCATE (this%stack_map)
DEALLOCATE (this%m_size_maps)
DEALLOCATE (this%n_size_maps)
DEALLOCATE (this%k_size_maps)
DEALLOCATE (this%stacks_fillcount)
DEALLOCATE (this%stacks_data)
END SUBROUTINE dbcsr_mm_csr_finalize