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

checked, that syrk is OK

This commit is contained in:
wernsaar 2014-05-11 08:10:25 +02:00
parent bfef3c5dd1
commit 57bbc586ef
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
interface/syrk.c
View File

@ -74,12 +74,12 @@
static int (*syrk[])(blas_arg_t *, BLASLONG *, BLASLONG *, FLOAT *, FLOAT *, BLASLONG) = { static int (*syrk[])(blas_arg_t *, BLASLONG *, BLASLONG *, FLOAT *, FLOAT *, BLASLONG) = {
#ifndef HEMM #ifndef HEMM
SYRK_UN, SYRK_UC, SYRK_LN, SYRK_LC, SYRK_UN, SYRK_UC, SYRK_LN, SYRK_LC,
#if defined(SMPTEST) && !defined(USE_SIMPLE_THREADED_LEVEL3) #if defined(SMP) && !defined(USE_SIMPLE_THREADED_LEVEL3)
SYRK_THREAD_UN, SYRK_THREAD_UC, SYRK_THREAD_LN, SYRK_THREAD_LC, SYRK_THREAD_UN, SYRK_THREAD_UC, SYRK_THREAD_LN, SYRK_THREAD_LC,
#endif #endif
#else #else
HERK_UN, HERK_UC, HERK_LN, HERK_LC, HERK_UN, HERK_UC, HERK_LN, HERK_LC,
#if defined(SMPTEST) && !defined(USE_SIMPLE_THREADED_LEVEL3) #if defined(SMP) && !defined(USE_SIMPLE_THREADED_LEVEL3)
HERK_THREAD_UN, HERK_THREAD_UC, HERK_THREAD_LN, HERK_THREAD_LC, HERK_THREAD_UN, HERK_THREAD_UC, HERK_THREAD_LN, HERK_THREAD_LC,
#endif #endif
#endif #endif
@ -100,7 +100,7 @@ void NAME(char *UPLO, char *TRANS,
FLOAT *buffer; FLOAT *buffer;
FLOAT *sa, *sb; FLOAT *sa, *sb;
#ifdef SMPTEST #ifdef SMP
#ifndef COMPLEX #ifndef COMPLEX
#ifdef XDOUBLE #ifdef XDOUBLE
int mode = BLAS_XDOUBLE | BLAS_REAL; int mode = BLAS_XDOUBLE | BLAS_REAL;
@ -205,7 +205,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Tr
FLOAT *buffer; FLOAT *buffer;
FLOAT *sa, *sb; FLOAT *sa, *sb;
#ifdef SMPTEST #ifdef SMP
#ifndef COMPLEX #ifndef COMPLEX
#ifdef XDOUBLE #ifdef XDOUBLE
int mode = BLAS_XDOUBLE | BLAS_REAL; int mode = BLAS_XDOUBLE | BLAS_REAL;
@ -322,7 +322,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Tr
sa = (FLOAT *)((BLASLONG)buffer + GEMM_OFFSET_A); sa = (FLOAT *)((BLASLONG)buffer + GEMM_OFFSET_A);
sb = (FLOAT *)(((BLASLONG)sa + ((GEMM_P * GEMM_Q * COMPSIZE * SIZE + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B); sb = (FLOAT *)(((BLASLONG)sa + ((GEMM_P * GEMM_Q * COMPSIZE * SIZE + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B);
#ifdef SMPTEST #ifdef SMP
if (!trans){ if (!trans){
mode |= (BLAS_TRANSA_N | BLAS_TRANSB_T); mode |= (BLAS_TRANSA_N | BLAS_TRANSB_T);
} else { } else {
@ -339,7 +339,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Tr
(syrk[(uplo << 1) | trans ])(&args, NULL, NULL, sa, sb, 0); (syrk[(uplo << 1) | trans ])(&args, NULL, NULL, sa, sb, 0);
#ifdef SMPTEST #ifdef SMP
} else { } else {