jiri
/
LA_library
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

option to avoid duplicit xerbla in laerror.cc

This commit is contained in:
Jiri Pittner 2023-05-15 16:44:51 +02:00
parent 5c494684ab
commit aa169dd045
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
laerror.cc
View File

@ -174,6 +174,7 @@ extern "C" {
#include "cblas.h"
}
#include <stdarg.h>
#ifndef AVOID_DUPLICATE_CBLAS_XERBLA
extern "C" void cblas_xerbla(int p, const char *rout, const char *form, ...)
{
va_list argptr;
@ -189,6 +190,7 @@ extern "C" void cblas_xerbla(int p, const char *rout, const char *form, ...)
va_end(argptr);
laerror("terminating in cblas_xerbla");
}
#endif
extern "C" int cblas_errprn(int ierr, int info, char *form, ...) {
char msg0[1024], *msg;