8 void cblas_xerbla(int info, const char *rout, const char *form, ...)  in cblas_xerbla()  argument
22    if (cblas_rout != NULL && strcmp(cblas_rout, rout) != 0){  in cblas_xerbla()
23 …  printf("***** XERBLA WAS CALLED WITH SRNAME = <%s> INSTEAD OF <%s> *******\n", rout, cblas_rout);  in cblas_xerbla()
36       if (strstr(rout,"gemm") != 0)  in cblas_xerbla()
43       else if (strstr(rout,"symm") != 0 || strstr(rout,"hemm") != 0)  in cblas_xerbla()
48       else if (strstr(rout,"trmm") != 0 || strstr(rout,"trsm") != 0)  in cblas_xerbla()
53       else if (strstr(rout,"gemv") != 0)  in cblas_xerbla()
58       else if (strstr(rout,"gbmv") != 0)  in cblas_xerbla()
65       else if (strstr(rout,"ger") != 0)  in cblas_xerbla()
72       else if ( ( strstr(rout,"her2") != 0 || strstr(rout,"hpr2") != 0 )  in cblas_xerbla()
73                && strstr(rout,"her2k") == 0 )  in cblas_xerbla()
81 …ntf("***** XERBLA WAS CALLED WITH INFO = %d INSTEAD OF %d in %s *******\n",info, cblas_info, rout);  in cblas_xerbla()
97    char rout[] = {'c','b','l','a','s','_','\0','\0','\0','\0','\0','\0','\0'};  in F77_xerbla()  local
118    for(i=0;  i  < 6; i++) rout[i+6] = tolower(srname[i]);  in F77_xerbla()
119    for(i=11; i >= 9; i--) if (rout[i] == ' ') rout[i] = '\0';  in F77_xerbla()
124    cblas_xerbla(*info+1,rout,"");  in F77_xerbla()