From 459bb9291db0a9a97718cb312c77f8ea3dba7c60 Mon Sep 17 00:00:00 2001 From: Guillaume Horel Date: Tue, 10 Sep 2019 17:10:33 -0400 Subject: [PATCH] fix error codes --- interface/lapack/trtrs.c | 6 +++--- interface/lapack/ztrtrs.c | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/interface/lapack/trtrs.c b/interface/lapack/trtrs.c index 261b07ec6..96dde1618 100644 --- a/interface/lapack/trtrs.c +++ b/interface/lapack/trtrs.c @@ -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 == '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.m < 0) info = 4; 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 (info != 0) { - BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); + BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME) - 1); *Info = - info; return 0; } diff --git a/interface/lapack/ztrtrs.c b/interface/lapack/ztrtrs.c index 0536fc5d3..4ee51435b 100644 --- a/interface/lapack/ztrtrs.c +++ b/interface/lapack/ztrtrs.c @@ -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 == '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.m < 0) info = 4; 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 (info != 0) { - BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); + BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME) - 1); *Info = - info; return 0; }