Go to the source code of this file.
|
void | CTF_int::inv_idx (int order_A, int const *idx_A, int order_B, int const *idx_B, int *order_tot, int **idx_arr) |
| invert index map More...
|
|
Value:do { \
nb_##__X = 1; \
for (i=0; i<order_##__X; i++){ \
lda_##__X[i] = nb_##__X; \
nb_##__X = nb_##__X*virt_dim[idx_map_##__X[i]]; \
} \
memset(ilda_##__X, 0, num_dim*sizeof(int)); \
for (i=0; i<order_##__X; i++){ \
ilda_##__X[idx_map_##__X[i]] += lda_##__X[i]; \
} \
} while (0)
Referenced by CTF_int::tspsum_virt::run().