96 #if defined(PLASMA_HAVE_WEAK)
97 #pragma weak CORE_sttqrt = PCORE_sttqrt
98 #define CORE_sttqrt PCORE_sttqrt
104 float *
TAU,
float *WORK)
107 static float zone = 1.0;
108 static float zzero = 0.0;
111 int i, j, l, ii, sb, mi, ni;
126 if ((LDA2 <
max(1,M)) && (M > 0)) {
132 if ((M == 0) || (N == 0) || (IB == 0))
140 for (ii = 0; ii < N; ii += IB) {
142 for (i = 0; i < sb; i++) {
144 mi =
min( j + 1, M );
152 mi+1, &A1[LDA1*j+j], &A2[LDA2*j], ione, &TAU[j]);
160 &A1[LDA1*(j+1)+j], LDA1,
164 LAPACKE_slacgv_work(ni, WORK, 1);
169 (zone), &A2[LDA2*(j+1)], LDA2,
173 LAPACKE_slacgv_work(ni, WORK, 1);
179 &A1[LDA1*(j+1)+j], LDA1);
181 LAPACKE_slacgv_work(ni, WORK, 1);
185 (alpha), &A2[LDA2*j], 1,
187 &A2[LDA2*(j+1)], LDA2);
204 alpha, &A2[LDA2*ii], LDA2,
226 l =
min(sb,
max(0, mi-ii));
230 IB, ni, mi, ni, sb, l,
231 &A1[LDA1*(ii+sb)+ii], LDA1,
232 &A2[LDA2*(ii+sb)], LDA2,
245 int m,
int n,
int ib,
int nb,
252 sizeof(
int), &m,
VALUE,
253 sizeof(
int), &n,
VALUE,
254 sizeof(
int), &ib,
VALUE,
256 sizeof(
int), &lda1,
VALUE,
258 sizeof(
int), &lda2,
VALUE,
259 sizeof(
float)*ib*nb, T,
OUTPUT,
260 sizeof(
int), &ldt,
VALUE,
261 sizeof(
float)*nb, NULL,
SCRATCH,
262 sizeof(
float)*ib*nb, NULL,
SCRATCH,
269 #if defined(PLASMA_HAVE_WEAK)
270 #pragma weak CORE_sttqrt_quark = PCORE_sttqrt_quark
271 #define CORE_sttqrt_quark PCORE_sttqrt_quark
287 quark_unpack_args_11(quark, m, n, ib, A1, lda1, A2, lda2, T, ldt, TAU, WORK);
288 CORE_sttqrt(m, n, ib, A1, lda1, A2, lda2, T, ldt, TAU, WORK);