114 #if defined(PLASMA_HAVE_WEAK)
115 #pragma weak CORE_spemv = PCORE_spemv
116 #define CORE_spemv PCORE_spemv
133 static float zzero = 0.0;
162 if (LDA <
max(1,M)) {
176 if ((M == 0) || (N == 0))
178 if ((ALPHA == zzero) && (BETA == zzero))
203 coreblas_error(1,
"The case PlasmaNoTrans / PlasmaColumnwise is not yet implemented");
214 L, &X[INCX*(M-L)], INCX, WORK, 1);
219 L, &A[M-L], LDA, WORK, 1);
226 M-L, L, (ALPHA), A, LDA,
227 X, INCX, (BETA), Y, INCY);
250 M, K, (ALPHA), &A[LDA*L], LDA,
251 X, INCX, (BETA), &Y[INCY*L], INCY);
275 L, &X[INCX*(N-L)], INCX, WORK, 1);
280 L, &A[LDA*(N-L)], LDA, WORK, 1);
287 L, N-L, (ALPHA), A, LDA,
288 X, INCX, (BETA), Y, INCY);
310 M-L, N, (ALPHA), &A[L], LDA,
311 X, INCX, (BETA), &Y[INCY*L], INCY);
316 coreblas_error(1,
"The case Plasma[Conj]Trans / PlasmaRowwise is not yet implemented");