floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove GEMV hack.

This commit is contained in:
Chip Kerchner 2024-08-01 14:44:40 -05:00
parent 66622de36d
commit e2334d0218
1 changed files with 0 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
interface/gemm.c
View File

@ -47,29 +47,22 @@
#define SMP_THRESHOLD_MIN 65536.0
#ifdef XDOUBLE
#define ERROR_NAME "QGEMM "
#define GEMV BLASFUNC(qgemv)
#elif defined(DOUBLE)
#define ERROR_NAME "DGEMM "
#define GEMV BLASFUNC(dgemv)
#elif defined(BFLOAT16)
#define ERROR_NAME "SBGEMM "
#define GEMV BLASFUNC(sbgemv)
#else
#define ERROR_NAME "SGEMM "
#define GEMV BLASFUNC(sgemv)
#endif
#else
#define SMP_THRESHOLD_MIN 8192.0
#ifndef GEMM3M
#ifdef XDOUBLE
#define ERROR_NAME "XGEMM "
#define GEMV BLASFUNC(xgemv)
#elif defined(DOUBLE)
#define ERROR_NAME "ZGEMM "
#define GEMV BLASFUNC(zgemv)
#else
#define ERROR_NAME "CGEMM "
#define GEMV BLASFUNC(cgemv)
#endif
#else
#ifdef XDOUBLE
@ -197,16 +190,6 @@ void NAME(char *TRANSA, char *TRANSB,
IFLOAT *buffer;
IFLOAT *sa, *sb;
#if !defined(COMPLEX) && !defined(DOUBLE) && !defined(BFLOAT16)
#if 1
if (*N == 1) {
GEMV(TRANSA, K, M, alpha, a, ldA, b, N, beta, c, N);
//SUBROUTINE SGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
return;
}
#endif
#endif
#ifdef SMP
double MNK;
#if defined(USE_SIMPLE_THREADED_LEVEL3) || !defined(NO_AFFINITY)