Lines Matching refs:info
8 void cblas_xerbla(int info, const char *rout, const char *form, ...)
20 if (info == 5 ) info = 4;
21 else if (info == 4 ) info = 5;
22 else if (info == 11) info = 9;
23 else if (info == 9 ) info = 11;
27 if (info == 5 ) info = 4;
28 else if (info == 4 ) info = 5;
32 if (info == 7 ) info = 6;
33 else if (info == 6 ) info = 7;
37 if (info == 4) info = 3;
38 else if (info == 3) info = 4;
42 if (info == 4) info = 3;
43 else if (info == 3) info = 4;
44 else if (info == 6) info = 5;
45 else if (info == 5) info = 6;
49 if (info == 3) info = 2;
50 else if (info == 2) info = 3;
51 else if (info == 8) info = 6;
52 else if (info == 6) info = 8;
57 if (info == 8) info = 6;
58 else if (info == 6) info = 8;
61 if (info)
62 fprintf(stderr, "Parameter %d to routine %s was incorrect\n", info, rout);
65 if (info && !info)
66 F77_xerbla(empty, &info); /* Force link of our F77 error handler */
