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

fix dtrtrs_ and ztrtrs_ to accept case-insensitive parameters uplo and diag 

Changes to be committed:
	modified:   interface/lapack/trtrs.c
	modified:   interface/lapack/ztrtrs.c
This commit is contained in:
Igor Zhuravlov 2024-04-03 19:01:38 +10:00
parent a87713f14b
commit 22d305e2df
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 == 'C') trans = 1;
TOUPPER(uplo_arg);
uplo = -1;
if (uplo_arg == 'U') uplo = 0;
if (uplo_arg == 'L') uplo = 1;
TOUPPER(diag_arg);
diag = -1;
if (diag_arg == 'U') diag = 0;
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 == 'C') trans = 3;
TOUPPER(uplo_arg);
uplo = -1;
if (uplo_arg == 'U') uplo = 0;
if (uplo_arg == 'L') uplo = 1;
TOUPPER(diag_arg);
diag = -1;
if (diag_arg == 'U') diag = 0;
if (diag_arg == 'N') diag = 1;