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