115 #if defined(PLASMA_HAVE_WEAK)
116 #pragma weak CORE_ctsmqr_hetra1 = PCORE_ctsmqr_hetra1
117 #define CORE_ctsmqr_hetra1 PCORE_ctsmqr_hetra1
118 #define CORE_ctsmqr PCORE_ctsmqr
120 int M1,
int N1,
int M2,
int N2,
int K,
int IB,
128 int m1,
int n1,
int m2,
int n2,
144 for (j = 0; j < n1; j++){
145 A1[j + j*lda1] = conjf(A1[j + j*lda1]);
147 for (i = j+1; i < m1; i++){
148 *WORK = *(A1 + i + j*lda1);
149 *(A1 + i + j*lda1) = conjf(*(A1 + j + i*lda1));
150 *(A1 + j + i*lda1) = conjf(*WORK);
154 CORE_ctsmqr(side, trans, m1, n1, m2, n2, k, ib, A1, lda1, A2, lda2, V, ldv, T, ldt, WORK, ldwork);
157 for (j = 0; j < n1; j++){
158 A1[j + j*lda1] = conjf(A1[j + j*lda1]);
160 for (i = j+1; i < m1; i++){
161 *WORK = *(A1 + i + j*lda1);
162 *(A1 + i + j*lda1) = conjf(*(A1 + j + i*lda1));
163 *(A1 + j + i*lda1) = conjf(*WORK);
175 int m1,
int n1,
int m2,
int n2,
int k,
int ib,
int nb,
186 sizeof(
int), &m1,
VALUE,
187 sizeof(
int), &n1,
VALUE,
188 sizeof(
int), &m2,
VALUE,
189 sizeof(
int), &n2,
VALUE,
190 sizeof(
int), &k,
VALUE,
191 sizeof(
int), &ib,
VALUE,
193 sizeof(
int), &lda1,
VALUE,
195 sizeof(
int), &lda2,
VALUE,
197 sizeof(
int), &ldv,
VALUE,
199 sizeof(
int), &ldt,
VALUE,
201 sizeof(
int), &ldwork,
VALUE,
208 #if defined(PLASMA_HAVE_WEAK)
209 #pragma weak CORE_ctsmqr_hetra1_quark = PCORE_ctsmqr_hetra1_quark
210 #define CORE_ctsmqr_hetra1_quark PCORE_ctsmqr_hetra1_quark
233 quark_unpack_args_18(quark, side, trans, m1, n1, m2, n2, k, ib, A1, lda1, A2, lda2, V, ldv, T, ldt, WORK, ldwork);
234 CORE_ctsmqr_hetra1(side, trans, m1, n1, m2, n2, k, ib, A1, lda1, A2, lda2, V, ldv, T, ldt, WORK, ldwork);