SUBROUTINE dbcsr_replicate_all(matrix) TYPE(dbcsr_type), INTENT(INOUT) :: matrix CALL dbcsr_replicate_all_prv(matrix%prv) END SUBROUTINE dbcsr_replicate_all