112 #if defined(PLASMA_HAVE_WEAK)
113 #pragma weak CORE_cttmqr = PCORE_cttmqr
114 #define CORE_cttmqr PCORE_cttmqr
117 int M1,
int N1,
int M2,
int N2,
int K,
int IB,
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,
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,
272 sizeof(
int), &lda1,
VALUE,
274 sizeof(
int), &lda2,
VALUE,
276 sizeof(
int), &ldv,
VALUE,
278 sizeof(
int), &ldt,
VALUE,
280 sizeof(
int), &ldwork,
VALUE,
287 #if defined(PLASMA_HAVE_WEAK)
288 #pragma weak CORE_cttmqr_quark = PCORE_cttmqr_quark
289 #define CORE_cttmqr_quark PCORE_cttmqr_quark
313 A1, lda1, A2, lda2, V, ldv, T, ldt, WORK, ldwork);
315 A1, lda1, A2, lda2, V, ldv, T, ldt, WORK, ldwork);