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

Merge pull request #4598 from jip/fix 

fix dtrtrs_ and ztrtrs_ to accept case-insensitive uplo and diag parameters
This commit is contained in:
Martin Kroeker 2024-04-03 14:37:45 +02:00 committed by GitHub
parent a87713f14b 22d305e2df
commit e1b618c6cf
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
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/lapack/trtrs.c
View File

@ -95,10 +95,12 @@ int NAME(char *UPLO, char* TRANS, char* DIAG, blasint *N, blasint *NRHS, FLOAT *
if (trans_arg == 'R') trans = 0; if (trans_arg == 'R') trans = 0;
if (trans_arg == 'C') trans = 1; if (trans_arg == 'C') trans = 1;
TOUPPER(uplo_arg);
uplo = -1; uplo = -1;
if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'U') uplo = 0;
if (uplo_arg == 'L') uplo = 1; if (uplo_arg == 'L') uplo = 1;
TOUPPER(diag_arg);
diag = -1; diag = -1;
if (diag_arg == 'U') diag = 0; if (diag_arg == 'U') diag = 0;
if (diag_arg == 'N') diag = 1; if (diag_arg == 'N') diag = 1;

2
interface/lapack/ztrtrs.c
View File

@ -95,10 +95,12 @@ int NAME(char *UPLO, char* TRANS, char* DIAG, blasint *N, blasint *NRHS, FLOAT *
if (trans_arg == 'R') trans = 2; if (trans_arg == 'R') trans = 2;
if (trans_arg == 'C') trans = 3; if (trans_arg == 'C') trans = 3;
TOUPPER(uplo_arg);
uplo = -1; uplo = -1;
if (uplo_arg == 'U') uplo = 0; if (uplo_arg == 'U') uplo = 0;
if (uplo_arg == 'L') uplo = 1; if (uplo_arg == 'L') uplo = 1;
TOUPPER(diag_arg);
diag = -1; diag = -1;
if (diag_arg == 'U') diag = 0; if (diag_arg == 'U') diag = 0;
if (diag_arg == 'N') diag = 1; if (diag_arg == 'N') diag = 1;