120 #if defined(PLASMA_HAVE_WEAK)
121 #pragma weak CORE_dtsmlq = PCORE_dtsmlq
122 #define CORE_dtsmlq PCORE_dtsmlq
125 int M1,
int N1,
int M2,
int N2,
int K,
int IB,
126 double *A1,
int LDA1,
127 double *A2,
int LDA2,
130 double *WORK,
int LDWORK)
186 if (LDA1 <
max(1,M1)){
190 if (LDA2 <
max(1,M2)){
198 if (LDT <
max(1,IB)){
202 if (LDWORK <
max(1,NW)){
208 if ((M1 == 0) || (N1 == 0) || (M2 == 0) || (N2 == 0) || (K == 0) || (IB == 0))
217 i1 = ((K-1) / IB)*IB;
228 for(i = i1; (i > -1) && (i < K); i += i3) {
250 mi, ni, M2, N2, kb, 0,
251 &A1[LDA1*jc+ic], LDA1,
265 int m1,
int n1,
int m2,
int n2,
int k,
int ib,
int nb,
266 double *A1,
int lda1,
267 double *A2,
int lda2,
277 sizeof(
int), &m1,
VALUE,
278 sizeof(
int), &n1,
VALUE,
279 sizeof(
int), &m2,
VALUE,
280 sizeof(
int), &n2,
VALUE,
281 sizeof(
int), &k,
VALUE,
282 sizeof(
int), &ib,
VALUE,
283 sizeof(
double)*nb*nb, A1,
INOUT,
284 sizeof(
int), &lda1,
VALUE,
286 sizeof(
int), &lda2,
VALUE,
287 sizeof(
double)*nb*nb, V,
INPUT,
288 sizeof(
int), &ldv,
VALUE,
289 sizeof(
double)*ib*nb, T,
INPUT,
290 sizeof(
int), &ldt,
VALUE,
291 sizeof(
double)*ib*nb, NULL,
SCRATCH,
292 sizeof(
int), &ldwork,
VALUE,
299 #if defined(PLASMA_HAVE_WEAK)
300 #pragma weak CORE_dtsmlq_quark = PCORE_dtsmlq_quark
301 #define CORE_dtsmlq_quark PCORE_dtsmlq_quark
325 A1, lda1, A2, lda2, V, ldv, T, ldt, WORK, ldwork);
327 A1, lda1, A2, lda2, V, ldv, T, ldt, WORK, ldwork);