threed-beam-fea/ext/eigen-3.2.9/blas/xerbla.cpp

24 lines
406 B
C++
Raw Normal View History

2015-11-05 19:36:26 +01:00
#include <iostream>
2015-12-09 01:58:08 +01:00
#if (defined __GNUC__) && (!defined __MINGW32__) && (!defined __CYGWIN__)
2015-11-05 19:36:26 +01:00
#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)
{
std::cerr << "Eigen BLAS ERROR #" << *info << ": " << msg << "\n";
return 0;
}
#ifdef __cplusplus
}
#endif