114 #if defined(PLASMA_HAVE_WEAK)
115 #pragma weak CORE_zpemv = PCORE_zpemv
116 #define CORE_zpemv PCORE_zpemv
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);
275 L, &X[INCX*(N-L)], INCX, WORK, 1);
280 L, &A[LDA*(N-L)], LDA, WORK, 1);
316 coreblas_error(1,
"The case Plasma[Conj]Trans / PlasmaRowwise is not yet implemented");