19 #define A(m,n) BLKADDR(A, PLASMA_Complex32_t, m, n)
20 #define T(m,n) BLKADDR(T, PLASMA_Complex32_t, m, n)
36 int tempkm, tempkn, tempmm, tempnn;
63 while (next_m >= A.
mt && next_k <
min(A.
nt, A.
mt)) {
65 next_m = next_m-A.
mt+next_k;
70 tempkm = k == A.
mt-1 ? A.
m-k*A.
mb : A.
mb;
71 tempkn = k == A.
nt-1 ? A.
n-k*A.
nb : A.
nb;
72 tempmm = m == A.
mt-1 ? A.
m-m*A.
mb : A.
mb;
73 tempnn = n == A.
nt-1 ? A.
n-n*A.
nb : A.
nb;
105 tempmm, tempkn, tempkn, ib,
116 tempmm, A.
nb, tempmm, tempnn, A.
nb, ib,
145 int tempkm, tempkn, tempmm, tempnn;
154 for (k = 0; k <
min(A.
mt, A.
nt); k++) {
155 tempkm = k == A.
mt-1 ? A.
m-k*A.
mb : A.
mb;
156 tempkn = k == A.
nt-1 ? A.
n-k*A.
nb : A.
nb;
159 plasma->
quark, &task_flags,
160 tempkm, tempkn, ib, T.
nb,
164 for (m = k+1; m < A.
mt; m++) {
165 tempmm = m == A.
mt-1 ? A.
m-m*A.
mb : A.
mb;
168 plasma->
quark, &task_flags,
170 tempmm, tempkn, tempkn, ib, T.
nb,
175 for (n = k+1; n < A.
nt; n++) {
176 tempnn = n == A.
nt-1 ? A.
n-n*A.
nb : A.
nb;
178 plasma->
quark, &task_flags,
179 tempkm, tempnn, ib, T.
nb,
184 for (m = k+1; m < A.
mt; m++) {
185 tempmm = m == A.
mt-1 ? A.
m-m*A.
mb : A.
mb;
188 plasma->
quark, &task_flags,
190 tempmm, A.
nb, tempmm, tempnn, A.
mb, ib, T.
nb,