Lines Matching refs:info
8 void cblas_xerbla(int info, const char *rout, const char *form, ...)
38 if (info == 5 ) info = 4;
39 else if (info == 4 ) info = 5;
40 else if (info == 11) info = 9;
41 else if (info == 9 ) info = 11;
45 if (info == 5 ) info = 4;
46 else if (info == 4 ) info = 5;
50 if (info == 7 ) info = 6;
51 else if (info == 6 ) info = 7;
55 if (info == 4) info = 3;
56 else if (info == 3) info = 4;
60 if (info == 4) info = 3;
61 else if (info == 3) info = 4;
62 else if (info == 6) info = 5;
63 else if (info == 5) info = 6;
67 if (info == 3) info = 2;
68 else if (info == 2) info = 3;
69 else if (info == 8) info = 6;
70 else if (info == 6) info = 8;
75 if (info == 8) info = 6;
76 else if (info == 6) info = 8;
80 if (info != cblas_info){
81 printf("***** XERBLA WAS CALLED WITH INFO = %d INSTEAD OF %d in %s *******\n",info, cblas_info, rout);
100 F77_Integer *info=vinfo;
104 int *info=vinfo;
121 /* We increment *info by 1 since the CBLAS interface adds one more
124 cblas_xerbla(*info+1,rout,"");
