Unit testing for tall-and-skinny matrices
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| integer(kind=int_8), | parameter | :: | m | = | 100 | |
| integer(kind=int_8), | parameter | :: | k | = | 20 | |
| integer(kind=int_8), | parameter | :: | n | = | 10 | |
| type(dbcsr_tas_type) | :: | A | ||||
| type(dbcsr_tas_type) | :: | B | ||||
| type(dbcsr_tas_type) | :: | C | ||||
| type(dbcsr_tas_type) | :: | At | ||||
| type(dbcsr_tas_type) | :: | Bt | ||||
| type(dbcsr_tas_type) | :: | Ct | ||||
| type(dbcsr_tas_type) | :: | A_out | ||||
| type(dbcsr_tas_type) | :: | B_out | ||||
| type(dbcsr_tas_type) | :: | C_out | ||||
| type(dbcsr_tas_type) | :: | At_out | ||||
| type(dbcsr_tas_type) | :: | Bt_out | ||||
| type(dbcsr_tas_type) | :: | Ct_out | ||||
| integer, | DIMENSION(m) | :: | bsize_m | |||
| integer, | DIMENSION(n) | :: | bsize_n | |||
| integer, | DIMENSION(k) | :: | bsize_k | |||
| real(kind=real_8), | parameter | :: | sparsity | = | 0.1 | |
| integer | :: | numnodes | ||||
| integer | :: | mynode | ||||
| integer | :: | io_unit | ||||
| type(mp_comm_type) | :: | mp_comm | ||||
| type(mp_comm_type) | :: | mp_comm_A | ||||
| type(mp_comm_type) | :: | mp_comm_At | ||||
| type(mp_comm_type) | :: | mp_comm_B | ||||
| type(mp_comm_type) | :: | mp_comm_Bt | ||||
| type(mp_comm_type) | :: | mp_comm_C | ||||
| type(mp_comm_type) | :: | mp_comm_Ct | ||||
| real(kind=real_8), | parameter | :: | filter_eps | = | 1.0E-08 |