7 #define XerblaStrLen1 7
10 #ifdef HAS_ATTRIBUTE_WEAK_SUPPORT
15 (F77_CHAR F77_srname,
void *vinfo
17 (
char *srname,
void *vinfo
19 #ifdef BLAS_FORTRAN_STRLEN_END
28 char rout[] = {
'c',
'b',
'l',
'a',
's',
'_',
'\0',
'\0',
'\0',
'\0',
'\0',
'\0',
'\0'};
41 for(i=0; i !=
XerblaStrLen; i++) rout[i+6] = tolower(srname[i]);
47 fprintf(stderr,
"Parameter %d to routine %s was incorrect\n",
void cblas_xerbla(CBLAS_INT p, const char *rout, const char *form,...)
void F77_xerbla_base(char *srname, void *vinfo)