LAPACK 3.11.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
c_s3chke.c
Go to the documentation of this file.
1#include <stdio.h>
2#include <string.h>
3#include "cblas.h"
4#include "cblas_test.h"
5
9
10#ifdef F77_Char
11void F77_xerbla(F77_Char F77_srname, void *vinfo);
12#else
13void F77_xerbla(char *srname, void *vinfo);
14#endif
15
16void chkxer(void) {
17 extern int cblas_ok, cblas_lerr, cblas_info;
18 extern int link_xerbla;
19 extern char *cblas_rout;
20 if (cblas_lerr == 1 ) {
21 printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout);
22 cblas_ok = 0 ;
23 }
24 cblas_lerr = 1 ;
25}
26
27void F77_s3chke(char *rout) {
28 char *sf = ( rout ) ;
29 float A[2] = {0.0,0.0},
30 B[2] = {0.0,0.0},
31 C[2] = {0.0,0.0},
32 ALPHA=0.0, BETA=0.0;
33 extern int cblas_info, cblas_lerr, cblas_ok;
34 extern int RowMajorStrg;
35 extern char *cblas_rout;
36
37#ifndef HAS_ATTRIBUTE_WEAK_SUPPORT
38 if (link_xerbla) /* call these first to link */
39 {
42 }
43#endif
44
45 cblas_ok = TRUE ;
47
48 if (strncmp( sf,"cblas_sgemm" ,11)==0) {
49 cblas_rout = "cblas_sgemm" ;
50 cblas_info = 1;
52 ALPHA, A, 1, B, 1, BETA, C, 1 );
53 chkxer();
54 cblas_info = 1;
56 ALPHA, A, 1, B, 1, BETA, C, 1 );
57 chkxer();
58 cblas_info = 1;
60 ALPHA, A, 1, B, 1, BETA, C, 1 );
61 chkxer();
62 cblas_info = 1;
64 ALPHA, A, 1, B, 1, BETA, C, 1 );
65 chkxer();
68 ALPHA, A, 1, B, 1, BETA, C, 1 );
69 chkxer();
72 ALPHA, A, 1, B, 1, BETA, C, 1 );
73 chkxer();
76 ALPHA, A, 1, B, 1, BETA, C, 1 );
77 chkxer();
80 ALPHA, A, 1, B, 1, BETA, C, 1 );
81 chkxer();
84 ALPHA, A, 1, B, 1, BETA, C, 1 );
85 chkxer();
88 ALPHA, A, 1, B, 1, BETA, C, 1 );
89 chkxer();
92 ALPHA, A, 1, B, 1, BETA, C, 1 );
93 chkxer();
96 ALPHA, A, 1, B, 1, BETA, C, 1 );
97 chkxer();
100 ALPHA, A, 1, B, 1, BETA, C, 1 );
101 chkxer();
104 ALPHA, A, 1, B, 1, BETA, C, 1 );
105 chkxer();
108 ALPHA, A, 1, B, 1, BETA, C, 1 );
109 chkxer();
112 ALPHA, A, 1, B, 1, BETA, C, 1 );
113 chkxer();
116 ALPHA, A, 1, B, 1, BETA, C, 1 );
117 chkxer();
120 ALPHA, A, 1, B, 1, BETA, C, 1 );
121 chkxer();
124 ALPHA, A, 1, B, 1, BETA, C, 1 );
125 chkxer();
128 ALPHA, A, 1, B, 1, BETA, C, 1 );
129 chkxer();
132 ALPHA, A, 1, B, 1, BETA, C, 2 );
133 chkxer();
136 ALPHA, A, 1, B, 1, BETA, C, 2 );
137 chkxer();
140 ALPHA, A, 1, B, 2, BETA, C, 1 );
141 chkxer();
144 ALPHA, A, 1, B, 1, BETA, C, 1 );
145 chkxer();
148 ALPHA, A, 1, B, 1, BETA, C, 1 );
149 chkxer();
152 ALPHA, A, 2, B, 1, BETA, C, 1 );
153 chkxer();
156 ALPHA, A, 1, B, 1, BETA, C, 1 );
157 chkxer();
160 ALPHA, A, 1, B, 1, BETA, C, 1 );
161 chkxer();
164 ALPHA, A, 2, B, 1, BETA, C, 1 );
165 chkxer();
168 ALPHA, A, 2, B, 1, BETA, C, 1 );
169 chkxer();
172 ALPHA, A, 1, B, 1, BETA, C, 1 );
173 chkxer();
176 ALPHA, A, 1, B, 1, BETA, C, 1 );
177 chkxer();
178
181 ALPHA, A, 1, B, 1, BETA, C, 1 );
182 chkxer();
185 ALPHA, A, 1, B, 1, BETA, C, 1 );
186 chkxer();
189 ALPHA, A, 1, B, 1, BETA, C, 1 );
190 chkxer();
193 ALPHA, A, 1, B, 1, BETA, C, 1 );
194 chkxer();
197 ALPHA, A, 1, B, 1, BETA, C, 1 );
198 chkxer();
201 ALPHA, A, 1, B, 1, BETA, C, 1 );
202 chkxer();
205 ALPHA, A, 1, B, 1, BETA, C, 1 );
206 chkxer();
209 ALPHA, A, 1, B, 1, BETA, C, 1 );
210 chkxer();
213 ALPHA, A, 1, B, 1, BETA, C, 1 );
214 chkxer();
217 ALPHA, A, 1, B, 1, BETA, C, 1 );
218 chkxer();
221 ALPHA, A, 1, B, 1, BETA, C, 1 );
222 chkxer();
225 ALPHA, A, 1, B, 1, BETA, C, 1 );
226 chkxer();
229 ALPHA, A, 1, B, 1, BETA, C, 2 );
230 chkxer();
233 ALPHA, A, 1, B, 2, BETA, C, 2 );
234 chkxer();
237 ALPHA, A, 1, B, 2, BETA, C, 1 );
238 chkxer();
241 ALPHA, A, 1, B, 1, BETA, C, 1 );
242 chkxer();
245 ALPHA, A, 1, B, 1, BETA, C, 1 );
246 chkxer();
249 ALPHA, A, 2, B, 1, BETA, C, 1 );
250 chkxer();
253 ALPHA, A, 2, B, 1, BETA, C, 1 );
254 chkxer();
257 ALPHA, A, 1, B, 1, BETA, C, 1 );
258 chkxer();
261 ALPHA, A, 1, B, 2, BETA, C, 1 );
262 chkxer();
265 ALPHA, A, 1, B, 1, BETA, C, 1 );
266 chkxer();
269 ALPHA, A, 1, B, 2, BETA, C, 1 );
270 chkxer();
273 ALPHA, A, 1, B, 1, BETA, C, 1 );
274 chkxer();
275
276 } else if (strncmp( sf,"cblas_ssymm" ,11)==0) {
277 cblas_rout = "cblas_ssymm" ;
278
279 cblas_info = 1;
281 ALPHA, A, 1, B, 1, BETA, C, 1 );
282 chkxer();
285 ALPHA, A, 1, B, 1, BETA, C, 1 );
286 chkxer();
289 ALPHA, A, 1, B, 1, BETA, C, 1 );
290 chkxer();
293 ALPHA, A, 1, B, 1, BETA, C, 1 );
294 chkxer();
297 ALPHA, A, 1, B, 1, BETA, C, 1 );
298 chkxer();
301 ALPHA, A, 1, B, 1, BETA, C, 1 );
302 chkxer();
305 ALPHA, A, 1, B, 1, BETA, C, 1 );
306 chkxer();
309 ALPHA, A, 1, B, 1, BETA, C, 1 );
310 chkxer();
313 ALPHA, A, 1, B, 1, BETA, C, 1 );
314 chkxer();
317 ALPHA, A, 1, B, 1, BETA, C, 1 );
318 chkxer();
321 ALPHA, A, 1, B, 1, BETA, C, 1 );
322 chkxer();
325 ALPHA, A, 1, B, 2, BETA, C, 2 );
326 chkxer();
329 ALPHA, A, 1, B, 1, BETA, C, 1 );
330 chkxer();
333 ALPHA, A, 1, B, 2, BETA, C, 2 );
334 chkxer();
337 ALPHA, A, 1, B, 1, BETA, C, 1 );
338 chkxer();
341 ALPHA, A, 2, B, 1, BETA, C, 1 );
342 chkxer();
345 ALPHA, A, 1, B, 1, BETA, C, 1 );
346 chkxer();
349 ALPHA, A, 2, B, 1, BETA, C, 1 );
350 chkxer();
353 ALPHA, A, 1, B, 1, BETA, C, 1 );
354 chkxer();
357 ALPHA, A, 2, B, 2, BETA, C, 1 );
358 chkxer();
361 ALPHA, A, 1, B, 2, BETA, C, 1 );
362 chkxer();
365 ALPHA, A, 2, B, 2, BETA, C, 1 );
366 chkxer();
369 ALPHA, A, 1, B, 2, BETA, C, 1 );
370 chkxer();
371
374 ALPHA, A, 1, B, 1, BETA, C, 1 );
375 chkxer();
378 ALPHA, A, 1, B, 1, BETA, C, 1 );
379 chkxer();
382 ALPHA, A, 1, B, 1, BETA, C, 1 );
383 chkxer();
386 ALPHA, A, 1, B, 1, BETA, C, 1 );
387 chkxer();
390 ALPHA, A, 1, B, 1, BETA, C, 1 );
391 chkxer();
394 ALPHA, A, 1, B, 1, BETA, C, 1 );
395 chkxer();
398 ALPHA, A, 1, B, 1, BETA, C, 1 );
399 chkxer();
402 ALPHA, A, 1, B, 1, BETA, C, 1 );
403 chkxer();
406 ALPHA, A, 1, B, 2, BETA, C, 2 );
407 chkxer();
410 ALPHA, A, 1, B, 1, BETA, C, 1 );
411 chkxer();
414 ALPHA, A, 1, B, 2, BETA, C, 2 );
415 chkxer();
418 ALPHA, A, 1, B, 1, BETA, C, 1 );
419 chkxer();
422 ALPHA, A, 2, B, 1, BETA, C, 1 );
423 chkxer();
426 ALPHA, A, 2, B, 1, BETA, C, 1 );
427 chkxer();
430 ALPHA, A, 2, B, 1, BETA, C, 1 );
431 chkxer();
434 ALPHA, A, 2, B, 1, BETA, C, 1 );
435 chkxer();
438 ALPHA, A, 1, B, 2, BETA, C, 1 );
439 chkxer();
442 ALPHA, A, 2, B, 2, BETA, C, 1 );
443 chkxer();
446 ALPHA, A, 1, B, 2, BETA, C, 1 );
447 chkxer();
450 ALPHA, A, 2, B, 2, BETA, C, 1 );
451 chkxer();
452
453 } else if (strncmp( sf,"cblas_strmm" ,11)==0) {
454 cblas_rout = "cblas_strmm" ;
455
456 cblas_info = 1;
458 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
459 chkxer();
462 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
463 chkxer();
466 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
467 chkxer();
470 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
471 chkxer();
474 INVALID, 0, 0, ALPHA, A, 1, B, 1 );
475 chkxer();
478 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
479 chkxer();
482 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
483 chkxer();
486 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
487 chkxer();
490 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
491 chkxer();
494 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
495 chkxer();
498 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
499 chkxer();
502 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
503 chkxer();
506 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
507 chkxer();
510 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
511 chkxer();
514 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
515 chkxer();
518 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
519 chkxer();
522 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
523 chkxer();
526 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
527 chkxer();
530 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
531 chkxer();
534 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
535 chkxer();
538 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
539 chkxer();
542 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
543 chkxer();
546 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
547 chkxer();
550 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
551 chkxer();
554 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
555 chkxer();
558 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
559 chkxer();
562 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
563 chkxer();
566 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
567 chkxer();
570 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
571 chkxer();
574 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
575 chkxer();
578 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
579 chkxer();
582 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
583 chkxer();
586 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
587 chkxer();
590 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
591 chkxer();
594 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
595 chkxer();
598 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
599 chkxer();
602 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
603 chkxer();
604
607 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
608 chkxer();
611 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
612 chkxer();
615 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
616 chkxer();
619 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
620 chkxer();
623 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
624 chkxer();
627 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
628 chkxer();
631 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
632 chkxer();
635 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
636 chkxer();
639 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
640 chkxer();
643 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
644 chkxer();
647 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
648 chkxer();
651 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
652 chkxer();
655 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
656 chkxer();
659 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
660 chkxer();
663 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
664 chkxer();
667 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
668 chkxer();
671 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
672 chkxer();
675 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
676 chkxer();
679 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
680 chkxer();
683 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
684 chkxer();
687 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
688 chkxer();
691 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
692 chkxer();
695 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
696 chkxer();
699 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
700 chkxer();
703 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
704 chkxer();
707 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
708 chkxer();
711 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
712 chkxer();
715 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
716 chkxer();
719 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
720 chkxer();
723 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
724 chkxer();
727 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
728 chkxer();
731 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
732 chkxer();
733
734 } else if (strncmp( sf,"cblas_strsm" ,11)==0) {
735 cblas_rout = "cblas_strsm" ;
736
737 cblas_info = 1;
739 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
740 chkxer();
743 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
744 chkxer();
747 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
748 chkxer();
751 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
752 chkxer();
755 INVALID, 0, 0, ALPHA, A, 1, B, 1 );
756 chkxer();
759 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
760 chkxer();
763 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
764 chkxer();
767 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
768 chkxer();
771 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
772 chkxer();
775 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
776 chkxer();
779 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
780 chkxer();
783 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
784 chkxer();
787 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
788 chkxer();
791 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
792 chkxer();
795 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
796 chkxer();
799 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
800 chkxer();
803 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
804 chkxer();
807 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
808 chkxer();
811 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
812 chkxer();
815 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
816 chkxer();
819 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
820 chkxer();
823 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
824 chkxer();
827 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
828 chkxer();
831 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
832 chkxer();
835 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
836 chkxer();
839 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
840 chkxer();
843 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
844 chkxer();
847 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
848 chkxer();
851 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
852 chkxer();
855 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
856 chkxer();
859 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
860 chkxer();
863 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
864 chkxer();
867 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
868 chkxer();
871 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
872 chkxer();
875 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
876 chkxer();
879 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
880 chkxer();
883 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
884 chkxer();
885
888 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
889 chkxer();
892 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
893 chkxer();
896 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
897 chkxer();
900 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
901 chkxer();
904 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
905 chkxer();
908 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
909 chkxer();
912 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
913 chkxer();
916 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
917 chkxer();
920 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
921 chkxer();
924 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
925 chkxer();
928 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
929 chkxer();
932 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
933 chkxer();
936 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
937 chkxer();
940 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
941 chkxer();
944 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
945 chkxer();
948 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
949 chkxer();
952 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
953 chkxer();
956 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
957 chkxer();
960 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
961 chkxer();
964 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
965 chkxer();
968 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
969 chkxer();
972 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
973 chkxer();
976 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
977 chkxer();
980 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
981 chkxer();
984 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
985 chkxer();
988 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
989 chkxer();
992 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
993 chkxer();
996 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
997 chkxer();
1000 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1001 chkxer();
1004 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1005 chkxer();
1008 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1009 chkxer();
1012 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1013 chkxer();
1014
1015 } else if (strncmp( sf,"cblas_ssyrk" ,11)==0) {
1016 cblas_rout = "cblas_ssyrk" ;
1017
1018 cblas_info = 1;
1020 0, 0, ALPHA, A, 1, BETA, C, 1 );
1021 chkxer();
1024 0, 0, ALPHA, A, 1, BETA, C, 1 );
1025 chkxer();
1028 0, 0, ALPHA, A, 1, BETA, C, 1 );
1029 chkxer();
1032 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1033 chkxer();
1036 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1037 chkxer();
1040 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1041 chkxer();
1044 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1045 chkxer();
1048 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1049 chkxer();
1052 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1053 chkxer();
1056 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1057 chkxer();
1060 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1061 chkxer();
1064 0, 2, ALPHA, A, 1, BETA, C, 2 );
1065 chkxer();
1068 2, 0, ALPHA, A, 1, BETA, C, 1 );
1069 chkxer();
1072 0, 2, ALPHA, A, 1, BETA, C, 2 );
1073 chkxer();
1076 2, 0, ALPHA, A, 1, BETA, C, 1 );
1077 chkxer();
1080 2, 0, ALPHA, A, 1, BETA, C, 2 );
1081 chkxer();
1084 0, 2, ALPHA, A, 1, BETA, C, 1 );
1085 chkxer();
1088 2, 0, ALPHA, A, 1, BETA, C, 2 );
1089 chkxer();
1092 0, 2, ALPHA, A, 1, BETA, C, 1 );
1093 chkxer();
1096 2, 0, ALPHA, A, 1, BETA, C, 1 );
1097 chkxer();
1100 2, 0, ALPHA, A, 2, BETA, C, 1 );
1101 chkxer();
1104 2, 0, ALPHA, A, 1, BETA, C, 1 );
1105 chkxer();
1108 2, 0, ALPHA, A, 2, BETA, C, 1 );
1109 chkxer();
1112 2, 0, ALPHA, A, 2, BETA, C, 1 );
1113 chkxer();
1116 2, 0, ALPHA, A, 1, BETA, C, 1 );
1117 chkxer();
1120 2, 0, ALPHA, A, 2, BETA, C, 1 );
1121 chkxer();
1124 2, 0, ALPHA, A, 1, BETA, C, 1 );
1125 chkxer();
1126
1127 } else if (strncmp( sf,"cblas_ssyr2k" ,12)==0) {
1128 cblas_rout = "cblas_ssyr2k" ;
1129
1130 cblas_info = 1;
1132 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1133 chkxer();
1136 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1137 chkxer();
1140 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1141 chkxer();
1144 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1145 chkxer();
1148 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1149 chkxer();
1152 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1153 chkxer();
1156 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1157 chkxer();
1160 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1161 chkxer();
1164 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1165 chkxer();
1168 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1169 chkxer();
1172 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1173 chkxer();
1176 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 );
1177 chkxer();
1180 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 );
1181 chkxer();
1184 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 );
1185 chkxer();
1188 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 );
1189 chkxer();
1192 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 );
1193 chkxer();
1196 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 );
1197 chkxer();
1200 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 );
1201 chkxer();
1204 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 );
1205 chkxer();
1208 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 );
1209 chkxer();
1212 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 );
1213 chkxer();
1216 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 );
1217 chkxer();
1220 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 );
1221 chkxer();
1224 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 );
1225 chkxer();
1228 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 );
1229 chkxer();
1232 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 );
1233 chkxer();
1236 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 );
1237 chkxer();
1240 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1241 chkxer();
1244 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1245 chkxer();
1248 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1249 chkxer();
1252 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1253 chkxer();
1256 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1257 chkxer();
1260 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1261 chkxer();
1264 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1265 chkxer();
1268 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1269 chkxer();
1270 }
1271 if (cblas_ok == TRUE )
1272 printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
1273 else
1274 printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
1275}
int link_xerbla
Definition: c_s3chke.c:7
int cblas_lerr
Definition: c_s3chke.c:6
void chkxer(void)
Definition: c_s3chke.c:16
int cblas_info
Definition: c_s3chke.c:6
int cblas_ok
Definition: c_s3chke.c:6
char * cblas_rout
Definition: c_s3chke.c:8
void cblas_ssyrk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, const CBLAS_INT lda, const float beta, float *C, const CBLAS_INT ldc)
Definition: cblas_ssyrk.c:12
void cblas_sgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, const CBLAS_INT lda, const float *B, const CBLAS_INT ldb, const float beta, float *C, const CBLAS_INT ldc)
Definition: cblas_sgemm.c:12
void cblas_strsm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, float *B, const CBLAS_INT ldb)
Definition: cblas_strsm.c:12
@ CblasLower
Definition: cblas.h:41
@ CblasUpper
Definition: cblas.h:41
void cblas_xerbla(CBLAS_INT p, const char *rout, const char *form,...)
Definition: cblas_xerbla.c:12
@ CblasNoTrans
Definition: cblas.h:40
@ CblasTrans
Definition: cblas.h:40
@ CblasRight
Definition: cblas.h:43
@ CblasLeft
Definition: cblas.h:43
void cblas_ssymm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, const float *B, const CBLAS_INT ldb, const float beta, float *C, const CBLAS_INT ldc)
Definition: cblas_ssymm.c:12
@ CblasColMajor
Definition: cblas.h:39
@ CblasRowMajor
Definition: cblas.h:39
void cblas_strmm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, float *B, const CBLAS_INT ldb)
Definition: cblas_strmm.c:12
@ CblasNonUnit
Definition: cblas.h:42
void cblas_ssyr2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, const CBLAS_INT lda, const float *B, const CBLAS_INT ldb, const float beta, float *C, const CBLAS_INT ldc)
Definition: cblas_ssyr2k.c:12
#define INVALID
Definition: cblas_example2.c:8
#define F77_xerbla(...)
Definition: cblas_f77.h:548
int RowMajorStrg
Definition: cblas_globals.c:2
#define TRUE
Definition: cblas_test.h:10
#define FALSE
Definition: cblas_test.h:14
#define F77_s3chke
Definition: cblas_test.h:150
#define PASSED
Definition: cblas_test.h:11