blas/xerbla.cpp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17


#include <iostream>

#ifdef __cplusplus
extern "C"
{
#endif

int xerbla_(char * msg, int *info, int)
{
  std::cerr << "Eigen BLAS ERROR #" << *info << ": " << msg << "\n";
  return 0;
}

#ifdef __cplusplus
}
#endif