19 #define A(m,n) BLKADDR(A, PLASMA_Complex64_t, (m), (n))
20 #define T(m,n) BLKADDR(T, PLASMA_Complex64_t, (m), (n))
21 #define T2(m,n) BLKADDR(T, PLASMA_Complex64_t, (m), (n)+A.nt)
34 int tempkmin, tempkm, tempNn, tempnn, tempmm, tempNRDn;
44 for (k = 0; k <
min(A.
mt, A.
nt); k++) {
45 tempkm = k == A.
mt-1 ? A.
m-k*A.
mb : A.
mb;
47 for (N = k; N < A.
nt; N += BS) {
48 tempNn = N == A.
nt-1 ? A.
n-N*A.
nb : A.
nb;
49 tempkmin =
min(tempkm, tempNn);
51 plasma->
quark, &task_flags,
52 tempkm, tempNn, ib, T.
nb,
55 for (m = k+1; m < A.
mt; m++) {
56 tempmm = m == A.
mt-1 ? A.
m-m*A.
mb : A.
mb;
59 plasma->
quark, &task_flags,
61 tempmm, tempNn, tempkmin, ib, T.
nb,
66 for (n = N+1; n <
min(N+BS, A.
nt); n++) {
67 tempnn = n == A.
nt-1 ? A.
n-n*A.
nb : A.
nb;
69 plasma->
quark, &task_flags,
70 tempkm, tempnn, ib, T.
nb,
75 for (m = k+1; m < A.
mt; m++) {
76 tempmm = m == A.
mt-1 ? A.
m-m*A.
mb : A.
mb;
79 plasma->
quark, &task_flags,
81 tempmm, A.
nb, tempmm, tempnn, tempkm, ib, T.
nb,
89 for (RD = BS; RD < A.
nt-k; RD *= 2) {
90 for (N = k; N+RD < A.
nt; N += 2*RD) {
91 tempNRDn = N+RD == A.
nt-1 ? A.
n-(N+RD)*A.
nb : A.
nb;
93 plasma->
quark, &task_flags,
94 tempkm, tempNRDn, ib, T.
nb,
99 for (m = k+1; m < A.
mt; m++) {
100 tempmm = m == A.
mt-1 ? A.
m-m*A.
mb : A.
mb;
103 plasma->
quark, &task_flags,
105 tempmm, A.
nb, tempmm, tempNRDn, tempkm, ib, T.
nb,