81 #if defined(PLASMA_HAVE_WEAK)
82 #pragma weak CORE_zgelqt = PCORE_zgelqt
83 #define CORE_zgelqt PCORE_zgelqt
102 if ((IB < 0) || ( (IB == 0) && ((M > 0) && (N > 0)) )) {
106 if ((LDA <
max(1,M)) && (M > 0)) {
110 if ((LDT <
max(1,IB)) && (IB > 0)) {
116 if ((M == 0) || (N == 0) || (IB == 0))
121 for(i = 0; i < k; i += IB) {
124 LAPACKE_zgelq2_work(LAPACK_COL_MAJOR, sb, N-i,
125 &A[LDA*i+i], LDA, &TAU[i], WORK);
127 LAPACKE_zlarft_work(LAPACK_COL_MAJOR,
131 &A[LDA*i+i], LDA, &TAU[i],
144 &A[LDA*i+(i+sb)], LDA,
155 int m,
int n,
int ib,
int nb,
161 sizeof(
int), &m,
VALUE,
162 sizeof(
int), &n,
VALUE,
163 sizeof(
int), &ib,
VALUE,
165 sizeof(
int), &lda,
VALUE,
167 sizeof(
int), &ldt,
VALUE,
176 #if defined(PLASMA_HAVE_WEAK)
177 #pragma weak CORE_zgelqt_quark = PCORE_zgelqt_quark
178 #define CORE_zgelqt_quark PCORE_zgelqt_quark