SUBROUTINE dbcsr_release(matrix) TYPE(dbcsr_type), INTENT(INOUT) :: matrix CALL dbcsr_release_prv(matrix%prv) END SUBROUTINE dbcsr_release