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

checked, that trsm is OK

This commit is contained in:
wernsaar 2014-05-11 08:59:33 +02:00
parent 7fb78a5f01
commit 564ff395f6
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/trsm.c
View File

@ -119,7 +119,7 @@ void NAME(char *SIDE, char *UPLO, char *TRANS, char *DIAG,
FLOAT *buffer;
FLOAT *sa, *sb;
#ifdef SMPTEST
#ifdef SMP
#ifndef COMPLEX
#ifdef XDOUBLE
int mode = BLAS_XDOUBLE | BLAS_REAL;
@ -223,7 +223,7 @@ void CNAME(enum CBLAS_ORDER order,
XFLOAT *buffer;
XFLOAT *sa, *sb;
#ifdef SMPTEST
#ifdef SMP
#ifndef COMPLEX
#ifdef XDOUBLE
int mode = BLAS_XDOUBLE | BLAS_REAL;
@ -357,7 +357,7 @@ void CNAME(enum CBLAS_ORDER order,
sa = (FLOAT *)((BLASLONG)buffer + GEMM_OFFSET_A);
sb = (FLOAT *)(((BLASLONG)sa + ((GEMM_P * GEMM_Q * COMPSIZE * SIZE + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B);
#ifdef SMPTEST
#ifdef SMP
mode |= (trans << BLAS_TRANSA_SHIFT);
mode |= (side << BLAS_RSIDE_SHIFT);
@ -368,7 +368,7 @@ void CNAME(enum CBLAS_ORDER order,
(trsm[(side<<4) | (trans<<2) | (uplo<<1) | unit])(&args, NULL, NULL, sa, sb, 0);
#ifdef SMPTEST
#ifdef SMP
} else {
if (!side) {
gemm_thread_n(mode, &args, NULL, NULL, trsm[(side<<4) | (trans<<2) | (uplo<<1) | unit], sa, sb, args.nthreads);