| /external/cblas/testing/ |
| D | c_xerbla.c | 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()
[all …]
|
| D | c_d2chke.c | 27 void F77_d2chke(char *rout) { in F77_d2chke() argument
28 char *sf = ( rout ) ; in F77_d2chke()
|
| D | c_s2chke.c | 27 void F77_s2chke(char *rout) { in F77_s2chke() argument
28 char *sf = ( rout ) ; in F77_s2chke()
|
| D | c_c2chke.c | 27 void F77_c2chke(char *rout) { in F77_c2chke() argument
28 char *sf = ( rout ) ; in F77_c2chke()
|
| D | c_z2chke.c | 27 void F77_z2chke(char *rout) { in F77_z2chke() argument
28 char *sf = ( rout ) ; in F77_z2chke()
|
| D | c_s3chke.c | 27 void F77_s3chke(char *rout) { in F77_s3chke() argument
28 char *sf = ( rout ) ; in F77_s3chke()
|
| D | c_d3chke.c | 27 void F77_d3chke(char *rout) { in F77_d3chke() argument
28 char *sf = ( rout ) ; in F77_d3chke()
|
| D | c_z3chke.c | 27 void F77_z3chke(char * rout) { in F77_z3chke() argument
28 char *sf = ( rout ) ; in F77_z3chke()
|
| D | c_c3chke.c | 27 void F77_c3chke(char * rout) { in F77_c3chke() argument
28 char *sf = ( rout ) ; in F77_c3chke()
|
| /external/cblas/src/ |
| D | cblas_xerbla.c | 8 void cblas_xerbla(int info, const char *rout, const char *form, ...) in cblas_xerbla() argument
18 if (strstr(rout,"gemm") != 0) in cblas_xerbla()
25 else if (strstr(rout,"symm") != 0 || strstr(rout,"hemm") != 0) in cblas_xerbla()
30 else if (strstr(rout,"trmm") != 0 || strstr(rout,"trsm") != 0) in cblas_xerbla()
35 else if (strstr(rout,"gemv") != 0) in cblas_xerbla()
40 else if (strstr(rout,"gbmv") != 0) in cblas_xerbla()
47 else if (strstr(rout,"ger") != 0) in cblas_xerbla()
54 else if ( (strstr(rout,"her2") != 0 || strstr(rout,"hpr2") != 0) in cblas_xerbla()
55 && strstr(rout,"her2k") == 0 ) in cblas_xerbla()
62 fprintf(stderr, "Parameter %d to routine %s was incorrect\n", info, rout); in cblas_xerbla()
|
| D | xerbla.c | 20 char rout[] = {'c','b','l','a','s','_','\0','\0','\0','\0','\0','\0','\0'}; in F77_xerbla() local
38 for(i=0; i != XerblaStrLen; i++) rout[i+6] = tolower(srname[i]); in F77_xerbla()
39 rout[XerblaStrLen+6] = '\0'; in F77_xerbla()
40 cblas_xerbla(*info+1,rout,""); in F77_xerbla()
|
| /external/cblas/examples/ |
| D | cblas_example2.c | 12 int rout=-1,info=0,m,n,k,lda,ldb,ldc; in main() local
19 rout = atoi(argv[1]); in main()
23 if (rout == 1) { in main()
|
| /external/cblas/include/ |
| D | cblas.h | 570 void cblas_xerbla(int p, const char *rout, const char *form, ...);
|