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

fixed incorrect parameter 2 errors

This commit is contained in:
wernsaar 2014-05-08 11:06:32 +02:00
parent e673848a9b
commit 320c805905
2 changed files with 24 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
interface/syr2k.c
View File

@ -145,12 +145,21 @@ void NAME(char *UPLO, char *TRANS,
if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'U') uplo = 0;
if (uplo_arg == 'L') uplo = 1; if (uplo_arg == 'L') uplo = 1;
#ifndef COMPLEX
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;
#endif
if (trans_arg == 'C') trans = 1; if (trans_arg == 'C') trans = 1;
#else
#ifdef HEMM
if (trans_arg == 'N') trans = 0;
if (trans_arg == 'C') trans = 1;
#else
if (trans_arg == 'N') trans = 0;
if (trans_arg == 'T') trans = 1;
#endif
#endif
nrowa = args.n; nrowa = args.n;
if (trans & 1) nrowa = args.k; if (trans & 1) nrowa = args.k;

15
interface/syrk.c
View File

@ -148,12 +148,21 @@ void NAME(char *UPLO, char *TRANS,
if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'U') uplo = 0;
if (uplo_arg == 'L') uplo = 1; if (uplo_arg == 'L') uplo = 1;
#ifndef COMPLEX
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;
#endif
if (trans_arg == 'C') trans = 1; if (trans_arg == 'C') trans = 1;
#else
#ifdef HEMM
if (trans_arg == 'N') trans = 0;
if (trans_arg == 'C') trans = 1;
#else
if (trans_arg == 'N') trans = 0;
if (trans_arg == 'T') trans = 1;
#endif
#endif
nrowa = args.n; nrowa = args.n;
if (trans & 1) nrowa = args.k; if (trans & 1) nrowa = args.k;