115 #if defined(PLASMA_HAVE_WEAK)
116 #pragma weak CORE_stsmqr_sytra1 = PCORE_stsmqr_sytra1
117 #define CORE_stsmqr_sytra1 PCORE_stsmqr_sytra1
118 #define CORE_stsmqr PCORE_stsmqr
120 int M1,
int N1,
int M2,
int N2,
int K,
int IB,
125 float *WORK,
int LDWORK);
128 int m1,
int n1,
int m2,
int n2,
134 float *WORK,
int ldwork)
144 for (j = 0; j < n1; j++){
145 A1[j + j*lda1] = (A1[j + j*lda1]);
147 for (i = j+1; i < m1; i++){
148 *WORK = *(A1 + i + j*lda1);
149 *(A1 + i + j*lda1) = (*(A1 + j + i*lda1));
150 *(A1 + j + i*lda1) = (*WORK);
154 CORE_stsmqr(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] = (A1[j + j*lda1]);
160 for (i = j+1; i < m1; i++){
161 *WORK = *(A1 + i + j*lda1);
162 *(A1 + i + j*lda1) = (*(A1 + j + i*lda1));
163 *(A1 + j + i*lda1) = (*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,
194 sizeof(
float)*nb*nb, A2,
INOUT,
195 sizeof(
int), &lda2,
VALUE,
196 sizeof(
float)*nb*nb, V,
INPUT,
197 sizeof(
int), &ldv,
VALUE,
198 sizeof(
float)*ib*nb, T,
INPUT,
199 sizeof(
int), &ldt,
VALUE,
200 sizeof(
float)*ib*nb, NULL,
SCRATCH,
201 sizeof(
int), &ldwork,
VALUE,
208 #if defined(PLASMA_HAVE_WEAK)
209 #pragma weak CORE_stsmqr_sytra1_quark = PCORE_stsmqr_sytra1_quark
210 #define CORE_stsmqr_sytra1_quark PCORE_stsmqr_sytra1_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_stsmqr_sytra1(side, trans, m1, n1, m2, n2, k, ib, A1, lda1, A2, lda2, V, ldv, T, ldt, WORK, ldwork);