Test equivalence of all tensor formats, using a random distribution.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | ndims |
tensor rank |
||
| type(mp_comm_type), | intent(in) | :: | mp_comm | |||
| integer, | intent(in) | :: | unit_nr |
output unit, needs to be a valid unit number on all mpi ranks |
||
| logical, | intent(in) | :: | verbose |
if .TRUE., print all tensor blocks |
||
| integer, | intent(in), | optional, | DIMENSION(:) | :: | blk_size_1 |
block sizes along respective dimension |
| integer, | intent(in), | optional, | DIMENSION(:) | :: | blk_size_2 |
block sizes along respective dimension |
| integer, | intent(in), | optional, | DIMENSION(:) | :: | blk_size_3 |
block sizes along respective dimension |
| integer, | intent(in), | optional, | DIMENSION(:) | :: | blk_size_4 |
block sizes along respective dimension |
| integer, | intent(in), | optional, | DIMENSION(:) | :: | blk_ind_1 |
index along respective dimension of non-zero blocks |
| integer, | intent(in), | optional, | DIMENSION(:) | :: | blk_ind_2 |
index along respective dimension of non-zero blocks |
| integer, | intent(in), | optional, | DIMENSION(:) | :: | blk_ind_3 |
index along respective dimension of non-zero blocks |
| integer, | intent(in), | optional, | DIMENSION(:) | :: | blk_ind_4 |
index along respective dimension of non-zero blocks |