|
|
|
@@ -46,10 +46,16 @@ |
|
|
|
#define printf _cprintf |
|
|
|
#endif |
|
|
|
|
|
|
|
#ifdef INTERFACE64 |
|
|
|
#define MSGFMT " ** On entry to %6s parameter number %2ld had an illegal value\n" |
|
|
|
#else |
|
|
|
#define MSGFMT " ** On entry to %6s parameter number %2d had an illegal value\n" |
|
|
|
#endif |
|
|
|
|
|
|
|
#ifdef __ELF__ |
|
|
|
int __xerbla(char *message, blasint *info, blasint length){ |
|
|
|
|
|
|
|
printf(" ** On entry to %6s parameter number %2d had an illegal value\n", |
|
|
|
printf(MSGFMT, |
|
|
|
message, *info); |
|
|
|
|
|
|
|
return 0; |
|
|
|
@@ -61,7 +67,7 @@ int BLASFUNC(xerbla)(char *, blasint *, blasint) __attribute__ ((weak, alias ("_ |
|
|
|
|
|
|
|
int BLASFUNC(xerbla)(char *message, blasint *info, blasint length){ |
|
|
|
|
|
|
|
printf(" ** On entry to %6s parameter number %2d had an illegal value\n", |
|
|
|
printf(MSGFMT, |
|
|
|
message, *info); |
|
|
|
|
|
|
|
return 0; |
|
|
|
|