104 #if defined(PLASMA_HAVE_WEAK)
105 #pragma weak CORE_dormqr = PCORE_dormqr
106 #define CORE_dormqr PCORE_dormqr
109 int M,
int N,
int K,
int IB,
113 double *WORK,
int LDWORK)
152 if ((K < 0) || (K > nq)) {
156 if ((IB < 0) || ( (IB == 0) && ((M > 0) && (N > 0)) )) {
160 if ((LDA <
max(1,nq)) && (nq > 0)) {
164 if ((LDC <
max(1,M)) && (M > 0)) {
168 if ((LDWORK <
max(1,nw)) && (nw > 0)) {
174 if ((M == 0) || (N == 0) || (K == 0))
183 i1 = ( ( K-1 ) / IB )*IB;
187 for(i = i1; (i >- 1) && (i < K); i+=i3 ) {
207 LAPACKE_dlarfb_work(LAPACK_COL_MAJOR,
226 int m,
int n,
int k,
int ib,
int nb,
235 sizeof(
int), &m,
VALUE,
236 sizeof(
int), &n,
VALUE,
237 sizeof(
int), &k,
VALUE,
238 sizeof(
int), &ib,
VALUE,
240 sizeof(
int), &lda,
VALUE,
241 sizeof(
double)*ib*nb, T,
INPUT,
242 sizeof(
int), &ldt,
VALUE,
243 sizeof(
double)*nb*nb, C,
INOUT,
244 sizeof(
int), &ldc,
VALUE,
245 sizeof(
double)*ib*nb, NULL,
SCRATCH,
246 sizeof(
int), &nb,
VALUE,
253 #if defined(PLASMA_HAVE_WEAK)
254 #pragma weak CORE_dormqr_quark = PCORE_dormqr_quark
255 #define CORE_dormqr_quark PCORE_dormqr_quark
275 A, lda, T, ldt, C, ldc, WORK, ldwork);
277 A, lda, T, ldt, C, ldc, WORK, ldwork);