112 #if defined(PLASMA_HAVE_WEAK)
113 #pragma weak CORE_dttmqr = PCORE_dttmqr
114 #define CORE_dttmqr PCORE_dttmqr
117 int M1,
int N1,
int M2,
int N2,
int K,
int IB,
118 double *A1,
int LDA1,
119 double *A2,
int LDA2,
122 double *WORK,
int LDWORK)
182 if (LDA1 <
max(1,M1)){
186 if (LDA2 <
max(1,M2)){
190 if (LDV <
max(1,NQ)){
194 if (LDT <
max(1,IB)){
198 if (LDWORK <
max(1,NW)){
204 if ((M1 == 0) || (N1 == 0) || (M2 == 0) || (N2 == 0) || (K == 0) || (IB == 0))
213 i1 = ( ( K-1 ) / IB )*IB;
217 for (i = i1; (i > -1) && (i < K); i+=i3) {
223 l =
min(kb,
max(0, M2-i));
229 l =
min(kb,
max(0, N2-i));
238 mi1, ni1, mi2, ni2, kb, l,
239 &A1[LDA1*jc+ic], LDA1,
253 int m1,
int n1,
int m2,
int n2,
int k,
int ib,
int nb,
254 double *A1,
int lda1,
255 double *A2,
int lda2,
265 sizeof(
int), &m1,
VALUE,
266 sizeof(
int), &n1,
VALUE,
267 sizeof(
int), &m2,
VALUE,
268 sizeof(
int), &n2,
VALUE,
269 sizeof(
int), &k,
VALUE,
270 sizeof(
int), &ib,
VALUE,
271 sizeof(
double)*nb*nb, A1,
INOUT,
272 sizeof(
int), &lda1,
VALUE,
273 sizeof(
double)*nb*nb, A2,
INOUT,
274 sizeof(
int), &lda2,
VALUE,
276 sizeof(
int), &ldv,
VALUE,
277 sizeof(
double)*ib*nb, T,
INPUT,
278 sizeof(
int), &ldt,
VALUE,
279 sizeof(
double)*ib*nb, NULL,
SCRATCH,
280 sizeof(
int), &ldwork,
VALUE,
287 #if defined(PLASMA_HAVE_WEAK)
288 #pragma weak CORE_dttmqr_quark = PCORE_dttmqr_quark
289 #define CORE_dttmqr_quark PCORE_dttmqr_quark
313 A1, lda1, A2, lda2, V, ldv, T, ldt, WORK, ldwork);
315 A1, lda1, A2, lda2, V, ldv, T, ldt, WORK, ldwork);