SUBROUTINE dbcsr_distribution_release(dist) TYPE(dbcsr_distribution_type) :: dist CALL dbcsr_distribution_release_prv(dist%prv) END SUBROUTINE dbcsr_distribution_release