Home | History | Annotate | Download | only in blas 
      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
     24