blas: add a default implementation of xerbla

2026-04-10 11:34:33 +08:00 · 2010-03-02 14:50:41 +01:00
parent a76c296e7f
commit 0ed5edd24d
3 changed files with 20 additions and 4 deletions
--- a/blas/xerbla.cpp
+++ b/blas/xerbla.cpp
@@ -0,0 +1,16 @@
+
+#include <iostream>
+
+#ifdef __cplusplus
+extern "C"
+{
+#endif
+
+int xerbla_(char * msg, int *info, int)
+{
+  std::cerr << "Eigen BLAS ERROR #" << *info << ": " << msg << "\n";
+}
+
+#ifdef __cplusplus
+}
+#endif