SUBROUTINE dbcsr_sum_replicated(matrix) TYPE(dbcsr_type), INTENT(inout) :: matrix CALL dbcsr_sum_replicated_prv(matrix%prv) END SUBROUTINE dbcsr_sum_replicated