ground/gcs/src/libs/eigen/blas/xerbla.cpp

   1
   2 #include <stdio.h>
   3
   4 #if (defined __GNUC__) && (!defined __MINGW32__) && (!defined __CYGWIN__)
   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   printf("Eigen BLAS ERROR #%i: %s\n", *info, msg );
  18   return 0;
  19 }
  20
  21 #ifdef __cplusplus
  22 }
  23 #endif