Guillaume Horel
6 years ago
2 changed files with 6 additions and 6 deletions
Unified View
Diff Options
-
+3 -3interface/lapack/trtrs.c
-
+3 -3interface/lapack/ztrtrs.c
+ 3
- 3
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.lda < MAX(1, args.m)) info = 9; | |||||
| if (args.ldb < 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; | ||||
| } | } | ||||
+ 3
- 3
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.lda < MAX(1, args.m)) info = 9; | |||||
| if (args.ldb < 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; | ||||
| } | } | ||||