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

Merge pull request #2253 from thrasibule/xerbla 

fix error messages
This commit is contained in:
Martin Kroeker 2020-01-18 20:39:04 +01:00 committed by GitHub
parent 70f45749b9 2463938879
commit d65e9a2bbd
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
20 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
interface/lapack/gesv.c
View File

@ -44,19 +44,19 @@
#ifndef COMPLEX #ifndef COMPLEX
#ifdef XDOUBLE #ifdef XDOUBLE
#define ERROR_NAME "QGESV " #define ERROR_NAME "QGESV"
#elif defined(DOUBLE) #elif defined(DOUBLE)
#define ERROR_NAME "DGESV " #define ERROR_NAME "DGESV"
#else #else
#define ERROR_NAME "SGESV " #define ERROR_NAME "SGESV"
#endif #endif
#else #else
#ifdef XDOUBLE #ifdef XDOUBLE
#define ERROR_NAME "XGESV " #define ERROR_NAME "XGESV"
#elif defined(DOUBLE) #elif defined(DOUBLE)
#define ERROR_NAME "ZGESV " #define ERROR_NAME "ZGESV"
#else #else
#define ERROR_NAME "CGESV " #define ERROR_NAME "CGESV"
#endif #endif
#endif #endif
@ -89,7 +89,7 @@ int NAME(blasint *N, blasint *NRHS, FLOAT *a, blasint *ldA, blasint *ipiv,
if (args.m < 0) info = 1; if (args.m < 0) info = 1;
if (info) { if (info) {
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;
} }

2
interface/lapack/getf2.c
View File

@ -74,7 +74,7 @@ int NAME(blasint *M, blasint *N, FLOAT *a, blasint *ldA, blasint *ipiv, blasint
if (args.n < 0) info = 2; if (args.n < 0) info = 2;
if (args.m < 0) info = 1; if (args.m < 0) info = 1;
if (info) { if (info) {
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;
} }

2
interface/lapack/getrf.c
View File

@ -74,7 +74,7 @@ int NAME(blasint *M, blasint *N, FLOAT *a, blasint *ldA, blasint *ipiv, blasint
if (args.n < 0) info = 2; if (args.n < 0) info = 2;
if (args.m < 0) info = 1; if (args.m < 0) info = 1;
if (info) { if (info) {
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;
} }

2
interface/lapack/getrs.c
View File

@ -102,7 +102,7 @@ int NAME(char *TRANS, blasint *N, blasint *NRHS, FLOAT *a, blasint *ldA,
if (trans < 0) info = 1; if (trans < 0) info = 1;
if (info != 0) { if (info != 0) {
BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME) - 1);
return 0; return 0;
} }

2
interface/lapack/lauu2.c
View File

@ -90,7 +90,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){
if (args.n < 0) info = 2; if (args.n < 0) info = 2;
if (uplo < 0) info = 1; if (uplo < 0) info = 1;
if (info) { if (info) {
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;
} }

2
interface/lapack/lauum.c
View File

@ -90,7 +90,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){
if (args.n < 0) info = 2; if (args.n < 0) info = 2;
if (uplo < 0) info = 1; if (uplo < 0) info = 1;
if (info) { if (info) {
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;
} }

2
interface/lapack/potf2.c
View File

@ -90,7 +90,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){
if (args.n < 0) info = 2; if (args.n < 0) info = 2;
if (uplo < 0) info = 1; if (uplo < 0) info = 1;
if (info) { if (info) {
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;
} }

2
interface/lapack/potrf.c
View File

@ -90,7 +90,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){
if (args.n < 0) info = 2; if (args.n < 0) info = 2;
if (uplo < 0) info = 1; if (uplo < 0) info = 1;
if (info) { if (info) {
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;
} }

2
interface/lapack/potri.c
View File

@ -99,7 +99,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){
if (uplo < 0) info = 1; if (uplo < 0) info = 1;
if (info) { if (info) {
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;
} }

2
interface/lapack/trti2.c
View File

@ -96,7 +96,7 @@ int NAME(char *UPLO, char *DIAG, blasint *N, FLOAT *a, blasint *ldA, blasint *In
if (diag < 0) info = 2; if (diag < 0) info = 2;
if (uplo < 0) info = 1; if (uplo < 0) info = 1;
if (info) { if (info) {
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;
} }

2
interface/lapack/trtri.c
View File

@ -99,7 +99,7 @@ int NAME(char *UPLO, char *DIAG, blasint *N, FLOAT *a, blasint *ldA, blasint *In
if (diag < 0) info = 2; if (diag < 0) info = 2;
if (uplo < 0) info = 1; if (uplo < 0) info = 1;
if (info) { if (info) {
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;
} }

2
interface/lapack/zgetf2.c
View File

@ -74,7 +74,7 @@ int NAME(blasint *M, blasint *N, FLOAT *a, blasint *ldA, blasint *ipiv, blasint
if (args.n < 0) info = 2; if (args.n < 0) info = 2;
if (args.m < 0) info = 1; if (args.m < 0) info = 1;
if (info) { if (info) {
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;
} }

2
interface/lapack/zgetrf.c
View File

@ -74,7 +74,7 @@ int NAME(blasint *M, blasint *N, FLOAT *a, blasint *ldA, blasint *ipiv, blasint
if (args.n < 0) info = 2; if (args.n < 0) info = 2;
if (args.m < 0) info = 1; if (args.m < 0) info = 1;
if (info) { if (info) {
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;
} }

2
interface/lapack/zgetrs.c
View File

@ -102,7 +102,7 @@ int NAME(char *TRANS, blasint *N, blasint *NRHS, FLOAT *a, blasint *ldA,
if (trans < 0) info = 1; if (trans < 0) info = 1;
if (info != 0) { if (info != 0) {
BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME) - 1);
return 0; return 0;
} }

2
interface/lapack/zlauu2.c
View File

@ -91,7 +91,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){
if (args.n < 0) info = 2; if (args.n < 0) info = 2;
if (uplo < 0) info = 1; if (uplo < 0) info = 1;
if (info) { if (info) {
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;
} }

2
interface/lapack/zpotf2.c
View File

@ -91,7 +91,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){
if (args.n < 0) info = 2; if (args.n < 0) info = 2;
if (uplo < 0) info = 1; if (uplo < 0) info = 1;
if (info) { if (info) {
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;
} }

2
interface/lapack/zpotrf.c
View File

@ -90,7 +90,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){
if (args.n < 0) info = 2; if (args.n < 0) info = 2;
if (uplo < 0) info = 1; if (uplo < 0) info = 1;
if (info) { if (info) {
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;
} }

2
interface/lapack/zpotri.c
View File

@ -99,7 +99,7 @@ int NAME(char *UPLO, blasint *N, FLOAT *a, blasint *ldA, blasint *Info){
if (uplo < 0) info = 1; if (uplo < 0) info = 1;
if (info) { if (info) {
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;
} }

2
interface/lapack/ztrti2.c
View File

@ -96,7 +96,7 @@ int NAME(char *UPLO, char *DIAG, blasint *N, FLOAT *a, blasint *ldA, blasint *In
if (diag < 0) info = 2; if (diag < 0) info = 2;
if (uplo < 0) info = 1; if (uplo < 0) info = 1;
if (info) { if (info) {
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;
} }

2
interface/lapack/ztrtri.c
View File

@ -96,7 +96,7 @@ int NAME(char *UPLO, char *DIAG, blasint *N, FLOAT *a, blasint *ldA, blasint *In
if (diag < 0) info = 2; if (diag < 0) info = 2;
if (uplo < 0) info = 1; if (uplo < 0) info = 1;
if (info) { if (info) {
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;
} }