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

Refs #333. Detect the wrong parameter for zherk/zher2k.

This commit is contained in:
Zhang Xianyi 2014-01-21 01:27:51 +08:00
parent 306d9f2e35
commit 3e0a7b931c
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
interface/syr2k.c
View File

@ -146,8 +146,10 @@ void NAME(char *UPLO, char *TRANS,
if (uplo_arg == 'L') uplo = 1; if (uplo_arg == 'L') uplo = 1;
if (trans_arg == 'N') trans = 0; if (trans_arg == 'N') trans = 0;
#ifndef HEMM
if (trans_arg == 'T') trans = 1; if (trans_arg == 'T') trans = 1;
if (trans_arg == 'R') trans = 0; if (trans_arg == 'R') trans = 0;
#endif
if (trans_arg == 'C') trans = 1; if (trans_arg == 'C') trans = 1;
nrowa = args.n; nrowa = args.n;

2
interface/syrk.c
View File

@ -149,8 +149,10 @@ void NAME(char *UPLO, char *TRANS,
if (uplo_arg == 'L') uplo = 1; if (uplo_arg == 'L') uplo = 1;
if (trans_arg == 'N') trans = 0; if (trans_arg == 'N') trans = 0;
#ifndef HEMM
if (trans_arg == 'T') trans = 1; if (trans_arg == 'T') trans = 1;
if (trans_arg == 'R') trans = 0; if (trans_arg == 'R') trans = 0;
#endif
if (trans_arg == 'C') trans = 1; if (trans_arg == 'C') trans = 1;
nrowa = args.n; nrowa = args.n;