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

fix error codes

This commit is contained in:
Guillaume Horel 2019-09-10 17:10:33 -04:00
parent f2becb777a
commit 459bb9291d
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
interface/lapack/trtrs.c
View File

@ -103,8 +103,8 @@ int NAME(char *UPLO, char* TRANS, char* DIAG, blasint *N, blasint *NRHS, FLOAT *
if (diag_arg == 'U') diag = 0; if (diag_arg == 'U') diag = 0;
if (diag_arg == 'N') diag = 1; if (diag_arg == 'N') diag = 1;
if (args.ldb < MAX(1, args.m)) info = 7; if (args.ldb < MAX(1, args.m)) info = 9;
if (args.lda < MAX(1, args.m)) info = 9; if (args.lda < MAX(1, args.m)) info = 7;
if (args.n < 0) info = 5; if (args.n < 0) info = 5;
if (args.m < 0) info = 4; if (args.m < 0) info = 4;
if (trans < 0) info = 2; if (trans < 0) info = 2;
@ -112,7 +112,7 @@ int NAME(char *UPLO, char* TRANS, char* DIAG, blasint *N, blasint *NRHS, FLOAT *
if (diag < 0) info = 3; if (diag < 0) info = 3;
if (info != 0) { if (info != 0) {
BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME) - 1);
*Info = - info; *Info = - info;
return 0; return 0;
} }

6
interface/lapack/ztrtrs.c
View File

@ -103,8 +103,8 @@ int NAME(char *UPLO, char* TRANS, char* DIAG, blasint *N, blasint *NRHS, FLOAT *
if (diag_arg == 'U') diag = 0; if (diag_arg == 'U') diag = 0;
if (diag_arg == 'N') diag = 1; if (diag_arg == 'N') diag = 1;
if (args.ldb < MAX(1, args.m)) info = 7; if (args.ldb < MAX(1, args.m)) info = 9;
if (args.lda < MAX(1, args.m)) info = 9; if (args.lda < MAX(1, args.m)) info = 7;
if (args.n < 0) info = 5; if (args.n < 0) info = 5;
if (args.m < 0) info = 4; if (args.m < 0) info = 4;
if (trans < 0) info = 2; if (trans < 0) info = 2;
@ -112,7 +112,7 @@ int NAME(char *UPLO, char* TRANS, char* DIAG, blasint *N, blasint *NRHS, FLOAT *
if (diag < 0) info = 3; if (diag < 0) info = 3;
if (info != 0) { if (info != 0) {
BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME) - 1);
*Info = - info; *Info = - info;
return 0; return 0;
} }