SUBROUTINE dbcsr_distribution_hold(dist) TYPE(dbcsr_distribution_type) :: dist CALL dbcsr_distribution_hold_prv(dist%prv) END SUBROUTINE dbcsr_distribution_hold