## private subroutine dist_sparse_tensor_to_repl_dense_4d_array_r_dp(tensor, array)

Transform a distributed sparse tensor to a replicated dense array. This is only useful for
testing tensor contraction by matrix multiplication of dense arrays.

### Arguments

Type | Intent | Optional | Attributes | | Name | |

type(dbcsr_t_type), |
intent(inout) |
| | :: |
**tensor** | |

real(kind=real_8), |
intent(out), |
| ALLOCATABLE, DIMENSION(:,:,:,:) | :: |
**array** | |