mesytec-mnode/external/taskflow-3.8.0/3rd-party/eigen-3.3.7/blas/xerbla.cpp
2025-01-04 01:25:05 +01:00

23 lines
389 B
C++

#include <stdio.h>
#if (defined __GNUC__) && (!defined __MINGW32__) && (!defined __CYGWIN__)
#define EIGEN_WEAK_LINKING __attribute__ ((weak))
#else
#define EIGEN_WEAK_LINKING
#endif
#ifdef __cplusplus
extern "C"
{
#endif
EIGEN_WEAK_LINKING int xerbla_(const char * msg, int *info, int)
{
printf("Eigen BLAS ERROR #%i: %s\n", *info, msg );
return 0;
}
#ifdef __cplusplus
}
#endif