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

check, that syr2k is OK

This commit is contained in:
wernsaar 2014-05-11 01:04:46 +02:00
parent eebce01cf2
commit d972f4a60a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
interface/syr2k.c
View File

@ -95,7 +95,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;
@ -208,7 +208,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Tr
FLOAT CAlpha[2]; FLOAT CAlpha[2];
#endif #endif
#ifdef SMPTEST #ifdef SMP
#ifndef COMPLEX #ifndef COMPLEX
#ifdef XDOUBLE #ifdef XDOUBLE
int mode = BLAS_XDOUBLE | BLAS_REAL; int mode = BLAS_XDOUBLE | BLAS_REAL;
@ -341,7 +341,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 {
@ -358,7 +358,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Tr
(syr2k[(uplo << 1) | trans ])(&args, NULL, NULL, sa, sb, 0); (syr2k[(uplo << 1) | trans ])(&args, NULL, NULL, sa, sb, 0);
#ifdef SMPTEST #ifdef SMP
} else { } else {