OSchip
/
OpenBLAS
Not watched
1
0
Fork 0
Code
Releases 66 Wiki evaluate Activity
Issues 0 Pull Requests 0 Datasets Model Cloudbrain HPC
Browse Source

Merge pull request #2253 from thrasibule/xerbla 

fix error messages
tags/v0.3.8^2
Martin Kroeker GitHub 5 years ago
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
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +7
    -7
      interface/lapack/gesv.c
  2. +1
    -1
      interface/lapack/getf2.c
  3. +1
    -1
      interface/lapack/getrf.c
  4. +1
    -1
      interface/lapack/getrs.c
  5. +1
    -1
      interface/lapack/lauu2.c
  6. +1
    -1
      interface/lapack/lauum.c
  7. +1
    -1
      interface/lapack/potf2.c
  8. +1
    -1
      interface/lapack/potrf.c
  9. +1
    -1
      interface/lapack/potri.c
  10. +1
    -1
      interface/lapack/trti2.c
  11. +1
    -1
      interface/lapack/trtri.c
  12. +1
    -1
      interface/lapack/zgetf2.c
  13. +1
    -1
      interface/lapack/zgetrf.c
  14. +1
    -1
      interface/lapack/zgetrs.c
  15. +1
    -1
      interface/lapack/zlauu2.c
  16. +1
    -1
      interface/lapack/zpotf2.c
  17. +1
    -1
      interface/lapack/zpotrf.c
  18. +1
    -1
      interface/lapack/zpotri.c
  19. +1
    -1
      interface/lapack/ztrti2.c
  20. +1
    -1
      interface/lapack/ztrtri.c

+ 7
- 7
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;
} }


+ 1
- 1
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;
} }


+ 1
- 1
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;
} }


+ 1
- 1
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;
} }




+ 1
- 1
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;
} }


+ 1
- 1
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;
} }


+ 1
- 1
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;
} }


+ 1
- 1
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;
} }


+ 1
- 1
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;
} }


+ 1
- 1
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;
} }


+ 1
- 1
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;
} }


+ 1
- 1
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;
} }


+ 1
- 1
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;
} }


+ 1
- 1
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;
} }




+ 1
- 1
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;
} }


+ 1
- 1
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;
} }


+ 1
- 1
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;
} }


+ 1
- 1
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;
} }


+ 1
- 1
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;
} }


+ 1
- 1
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;
} }


Write Preview
Loading…
Cancel
Save