/external/cblas/testing/ |
H A D | c_c2chke.c | 6 int cblas_ok, cblas_lerr, cblas_info; variable 17 extern int cblas_ok, cblas_lerr, cblas_info; 21 printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout); 35 extern int cblas_info, cblas_lerr, cblas_ok; 41 cblas_xerbla(cblas_info,cblas_rout,""); 42 F77_xerbla(cblas_rout,&cblas_info); 50 cblas_info = 1; 54 cblas_info = 2; RowMajorStrg = FALSE; 58 cblas_info = 3; RowMajorStrg = FALSE; 62 cblas_info [all...] |
H A D | c_z2chke.c | 6 int cblas_ok, cblas_lerr, cblas_info; variable 17 extern int cblas_ok, cblas_lerr, cblas_info; 21 printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout); 35 extern int cblas_info, cblas_lerr, cblas_ok; 41 cblas_xerbla(cblas_info,cblas_rout,""); 42 F77_xerbla(cblas_rout,&cblas_info); 50 cblas_info = 1; 54 cblas_info = 2; RowMajorStrg = FALSE; 58 cblas_info = 3; RowMajorStrg = FALSE; 62 cblas_info [all...] |
H A D | c_d2chke.c | 6 int cblas_ok, cblas_lerr, cblas_info; variable 17 extern int cblas_ok, cblas_lerr, cblas_info; 21 printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout); 33 extern int cblas_info, cblas_lerr, cblas_ok; 39 cblas_xerbla(cblas_info,cblas_rout,""); 40 F77_xerbla(cblas_rout,&cblas_info); 48 cblas_info = 1; 52 cblas_info = 2; RowMajorStrg = FALSE; 56 cblas_info = 3; RowMajorStrg = FALSE; 60 cblas_info [all...] |
H A D | c_s2chke.c | 6 int cblas_ok, cblas_lerr, cblas_info; variable 17 extern int cblas_ok, cblas_lerr, cblas_info; 21 printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout); 33 extern int cblas_info, cblas_lerr, cblas_ok; 39 cblas_xerbla(cblas_info,cblas_rout,""); 40 F77_xerbla(cblas_rout,&cblas_info); 48 cblas_info = 1; 52 cblas_info = 2; RowMajorStrg = FALSE; 56 cblas_info = 3; RowMajorStrg = FALSE; 60 cblas_info [all...] |
H A D | c_d3chke.c | 6 int cblas_ok, cblas_lerr, cblas_info; variable 17 extern int cblas_ok, cblas_lerr, cblas_info; 21 printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout); 33 extern int cblas_info, cblas_lerr, cblas_ok; 39 cblas_xerbla(cblas_info,cblas_rout,""); 40 F77_xerbla(cblas_rout,&cblas_info); 49 cblas_info = 1; 53 cblas_info = 1; 57 cblas_info = 1; 61 cblas_info [all...] |
H A D | c_s3chke.c | 6 int cblas_ok, cblas_lerr, cblas_info; variable 17 extern int cblas_ok, cblas_lerr, cblas_info; 21 printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout); 33 extern int cblas_info, cblas_lerr, cblas_ok; 39 cblas_xerbla(cblas_info,cblas_rout,""); 40 F77_xerbla(cblas_rout,&cblas_info); 48 cblas_info = 1; 52 cblas_info = 1; 56 cblas_info = 1; 60 cblas_info [all...] |
H A D | c_c3chke.c | 6 int cblas_ok, cblas_lerr, cblas_info; variable 17 extern int cblas_ok, cblas_lerr, cblas_info; 21 printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout); 35 extern int cblas_info, cblas_lerr, cblas_ok; 44 cblas_xerbla(cblas_info,cblas_rout,""); 45 F77_xerbla(cblas_rout,&cblas_info); 51 cblas_info = 1; 55 cblas_info = 1; 59 cblas_info = 1; 63 cblas_info [all...] |
H A D | c_z3chke.c | 6 int cblas_ok, cblas_lerr, cblas_info; variable 17 extern int cblas_ok, cblas_lerr, cblas_info; 21 printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout); 35 extern int cblas_info, cblas_lerr, cblas_ok; 44 cblas_xerbla(cblas_info,cblas_rout,""); 45 F77_xerbla(cblas_rout,&cblas_info); 51 cblas_info = 1; 55 cblas_info = 1; 59 cblas_info = 1; 63 cblas_info [all...] |
H A D | c_xerbla.c | 10 extern int cblas_lerr, cblas_info, cblas_ok; 80 if (info != cblas_info){ 81 printf("***** XERBLA WAS CALLED WITH INFO = %d INSTEAD OF %d in %s *******\n",info, cblas_info, rout);
|