113 #if defined(PLASMA_HAVE_WEAK)
114 #pragma weak CORE_ctsmlq_hetra1 = PCORE_ctsmlq_hetra1
115 #define CORE_ctsmlq_hetra1 PCORE_ctsmlq_hetra1
116 #define CORE_ctsmlq PCORE_ctsmlq
118 int M1,
int N1,
int M2,
int N2,
int K,
int IB,
126 int m1,
int n1,
int m2,
int n2,
142 for (j = 0; j < n1; j++){
143 A1[j + j*lda1] = conjf(A1[j + j*lda1]);
145 for (i = j+1; i < m1; i++){
146 *WORK = *(A1 + i + j*lda1);
147 *(A1 + i + j*lda1) = conjf(*(A1 + j + i*lda1));
148 *(A1 + j + i*lda1) = conjf(*WORK);
158 for (j = 0; j < n1; j++){
159 A1[j + j*lda1] = conjf(A1[j + j*lda1]);
161 for (i = j+1; i < m1; i++){
162 *WORK = *(A1 + i + j*lda1);
163 *(A1 + i + j*lda1) = conjf(*(A1 + j + i*lda1));
164 *(A1 + j + i*lda1) = conjf(*WORK);
176 int m1,
int n1,
int m2,
int n2,
int k,
int ib,
int nb,
187 sizeof(
int), &m1,
VALUE,
188 sizeof(
int), &n1,
VALUE,
189 sizeof(
int), &m2,
VALUE,
190 sizeof(
int), &n2,
VALUE,
191 sizeof(
int), &k,
VALUE,
192 sizeof(
int), &ib,
VALUE,
194 sizeof(
int), &lda1,
VALUE,
196 sizeof(
int), &lda2,
VALUE,
198 sizeof(
int), &ldv,
VALUE,
200 sizeof(
int), &ldt,
VALUE,
202 sizeof(
int), &ldwork,
VALUE,
214 #if defined(PLASMA_HAVE_WEAK)
215 #pragma weak CORE_ctsmlq_hetra1_quark = PCORE_ctsmlq_hetra1_quark
216 #define CORE_ctsmlq_hetra1_quark PCORE_ctsmlq_hetra1_quark
240 A1, lda1, A2, lda2, V, ldv, T, ldt, WORK, ldwork);
242 A1, lda1, A2, lda2, V, ldv, T, ldt, WORK, ldwork);