Home | History | Annotate | Download | only in blas
      1 
      2 #include <iostream>
      3 
      4 #if (defined __GNUC__)
      5 #define EIGEN_WEAK_LINKING __attribute__ ((weak))
      6 #else
      7 #define EIGEN_WEAK_LINKING
      8 #endif
      9 
     10 #ifdef __cplusplus
     11 extern "C"
     12 {
     13 #endif
     14 
     15 EIGEN_WEAK_LINKING int xerbla_(const char * msg, int *info, int)
     16 {
     17   std::cerr << "Eigen BLAS ERROR #" << *info << ": " << msg << "\n";
     18   return 0;
     19 }
     20 
     21 #ifdef __cplusplus
     22 }
     23 #endif
     24