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

option to avoid duplicit xerbla in laerror.cc

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