19 #define A(m,n) BLKADDR(A, PLASMA_Complex32_t, m, n)
60 if (next_n > next_k) {
62 while (next_m >= A.
nt && next_k < A.
nt) {
64 next_m = next_m-A.
nt+next_k;
69 tempkn = k == A.
nt-1 ? A.
n-k*A.
nb : A.
nb;
70 tempmn = m == A.
nt-1 ? A.
n-m*A.
nb : A.
nb;
163 mzone, A(m, n), ldam,
165 zone,
A(m, k), ldam);
174 mzone, A(n, k), ldan,
176 zone,
A(k, m), ldak);
211 for (k = 0; k < A.
mt; k++) {
212 tempkm = k == A.
mt-1 ? A.
m-k*A.
mb : A.
mb;
215 plasma->
quark, &task_flags,
218 sequence, request, A.
nb*k);
220 for (m = k+1; m < A.
mt; m++) {
221 tempmm = m == A.
mt-1 ? A.
m-m*A.
mb : A.
mb;
224 plasma->
quark, &task_flags,
230 for (m = k+1; m < A.
mt; m++) {
231 tempmm = m == A.
mt-1 ? A.
m-m*A.
mb : A.
mb;
234 plasma->
quark, &task_flags,
240 for (n = k+1; n < m; n++) {
242 plasma->
quark, &task_flags,
245 mzone, A(m, k), ldam,
247 zone, A(m, n), ldam);
256 for (k = 0; k < A.
nt; k++) {
257 tempkm = k == A.
nt-1 ? A.
n-k*A.
nb : A.
nb;
260 plasma->
quark, &task_flags,
264 sequence, request, A.
nb*k);
266 for (m = k+1; m < A.
nt; m++) {
267 tempmm = m == A.
nt-1 ? A.
n-m*A.
nb : A.
nb;
269 plasma->
quark, &task_flags,
275 for (m = k+1; m < A.
nt; m++) {
276 tempmm = m == A.
nt-1 ? A.
n-m*A.
nb : A.
nb;
279 plasma->
quark, &task_flags,
285 for (n = k+1; n < m; n++) {
287 plasma->
quark, &task_flags,
290 mzone, A(k, n), ldak,
292 zone,
A(n, m), A.
mb);