96 #if defined(PLASMA_HAVE_WEAK)
97 #pragma weak CORE_dttqrt = PCORE_dttqrt
98 #define CORE_dttqrt PCORE_dttqrt
101 double *A1,
int LDA1,
102 double *A2,
int LDA2,
104 double *
TAU,
double *WORK)
107 static double zone = 1.0;
108 static double 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_dlacgv_work(ni, WORK, 1);
169 (zone), &A2[LDA2*(j+1)], LDA2,
173 LAPACKE_dlacgv_work(ni, WORK, 1);
179 &A1[LDA1*(j+1)+j], LDA1);
181 LAPACKE_dlacgv_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,
246 double *A1,
int lda1,
247 double *A2,
int lda2,
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(
double)*ib*nb, T,
OUTPUT,
260 sizeof(
int), &ldt,
VALUE,
261 sizeof(
double)*nb, NULL,
SCRATCH,
262 sizeof(
double)*ib*nb, NULL,
SCRATCH,
269 #if defined(PLASMA_HAVE_WEAK)
270 #pragma weak CORE_dttqrt_quark = PCORE_dttqrt_quark
271 #define CORE_dttqrt_quark PCORE_dttqrt_quark
287 quark_unpack_args_11(quark, m, n, ib, A1, lda1, A2, lda2, T, ldt, TAU, WORK);
288 CORE_dttqrt(m, n, ib, A1, lda1, A2, lda2, T, ldt, TAU, WORK);