LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
c_z3chke.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) {
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_z3chke(char * rout) {
28 char *sf = ( rout ) ;
29 double A[4] = {0.0,0.0,0.0,0.0},
30 B[4] = {0.0,0.0,0.0,0.0},
31 C[4] = {0.0,0.0,0.0,0.0},
32 ALPHA[2] = {0.0,0.0},
33 BETA[2] = {0.0,0.0},
34 RALPHA = 0.0, RBETA = 0.0;
36 extern int RowMajorStrg;
37 extern char *cblas_rout;
38
39 cblas_ok = TRUE ;
41
42#ifndef HAS_ATTRIBUTE_WEAK_SUPPORT
43 if (link_xerbla) /* call these first to link */
44 {
47 }
48#endif
49
50 if (strncmp( sf,"cblas_zgemm" ,11)==0) {
51 cblas_rout = "cblas_zgemm" ;
52
53 cblas_info = 1;
55 ALPHA, A, 1, B, 1, BETA, C, 1 );
56 chkxer();
57 cblas_info = 1;
59 ALPHA, A, 1, B, 1, BETA, C, 1 );
60 chkxer();
61 cblas_info = 1;
63 ALPHA, A, 1, B, 1, BETA, C, 1 );
64 chkxer();
65 cblas_info = 1;
67 ALPHA, A, 1, B, 1, BETA, C, 1 );
68 chkxer();
71 ALPHA, A, 1, B, 1, BETA, C, 1 );
72 chkxer();
75 ALPHA, A, 1, B, 1, BETA, C, 1 );
76 chkxer();
79 ALPHA, A, 1, B, 1, BETA, C, 1 );
80 chkxer();
83 ALPHA, A, 1, B, 1, BETA, C, 1 );
84 chkxer();
87 ALPHA, A, 1, B, 1, BETA, C, 1 );
88 chkxer();
91 ALPHA, A, 1, B, 1, BETA, C, 1 );
92 chkxer();
95 ALPHA, A, 1, B, 1, BETA, C, 1 );
96 chkxer();
99 ALPHA, A, 1, B, 1, BETA, C, 1 );
100 chkxer();
103 ALPHA, A, 1, B, 1, BETA, C, 1 );
104 chkxer();
107 ALPHA, A, 1, B, 1, BETA, C, 1 );
108 chkxer();
111 ALPHA, A, 1, B, 1, BETA, C, 1 );
112 chkxer();
115 ALPHA, A, 1, B, 1, BETA, C, 1 );
116 chkxer();
119 ALPHA, A, 1, B, 1, BETA, C, 1 );
120 chkxer();
123 ALPHA, A, 1, B, 1, BETA, C, 1 );
124 chkxer();
127 ALPHA, A, 1, B, 1, BETA, C, 1 );
128 chkxer();
131 ALPHA, A, 1, B, 1, BETA, C, 1 );
132 chkxer();
135 ALPHA, A, 1, B, 1, BETA, C, 2 );
136 chkxer();
139 ALPHA, A, 1, B, 1, BETA, C, 2 );
140 chkxer();
143 ALPHA, A, 1, B, 2, BETA, C, 1 );
144 chkxer();
147 ALPHA, A, 1, B, 1, BETA, C, 1 );
148 chkxer();
151 ALPHA, A, 1, B, 1, BETA, C, 1 );
152 chkxer();
155 ALPHA, A, 2, B, 1, BETA, C, 1 );
156 chkxer();
159 ALPHA, A, 1, B, 1, BETA, C, 1 );
160 chkxer();
163 ALPHA, A, 1, B, 1, BETA, C, 1 );
164 chkxer();
167 ALPHA, A, 2, B, 1, BETA, C, 1 );
168 chkxer();
171 ALPHA, A, 2, B, 1, BETA, C, 1 );
172 chkxer();
175 ALPHA, A, 1, B, 1, BETA, C, 1 );
176 chkxer();
179 ALPHA, A, 1, B, 1, BETA, C, 1 );
180 chkxer();
183 ALPHA, A, 1, B, 1, BETA, C, 1 );
184 chkxer();
187 ALPHA, A, 1, B, 1, BETA, C, 1 );
188 chkxer();
191 ALPHA, A, 1, B, 1, BETA, C, 1 );
192 chkxer();
195 ALPHA, A, 1, B, 1, BETA, C, 1 );
196 chkxer();
199 ALPHA, A, 1, B, 1, BETA, C, 1 );
200 chkxer();
203 ALPHA, A, 1, B, 1, BETA, C, 1 );
204 chkxer();
207 ALPHA, A, 1, B, 1, BETA, C, 1 );
208 chkxer();
211 ALPHA, A, 1, B, 1, BETA, C, 1 );
212 chkxer();
215 ALPHA, A, 1, B, 1, BETA, C, 1 );
216 chkxer();
219 ALPHA, A, 1, B, 1, BETA, C, 1 );
220 chkxer();
223 ALPHA, A, 1, B, 1, BETA, C, 1 );
224 chkxer();
227 ALPHA, A, 1, B, 1, BETA, C, 1 );
228 chkxer();
231 ALPHA, A, 1, B, 1, BETA, C, 2 );
232 chkxer();
235 ALPHA, A, 1, B, 2, BETA, C, 2 );
236 chkxer();
239 ALPHA, A, 1, B, 2, BETA, C, 1 );
240 chkxer();
243 ALPHA, A, 1, B, 1, BETA, C, 1 );
244 chkxer();
247 ALPHA, A, 1, B, 1, BETA, C, 1 );
248 chkxer();
251 ALPHA, A, 2, B, 1, BETA, C, 1 );
252 chkxer();
255 ALPHA, A, 2, B, 1, BETA, C, 1 );
256 chkxer();
259 ALPHA, A, 1, B, 1, BETA, C, 1 );
260 chkxer();
263 ALPHA, A, 1, B, 2, BETA, C, 1 );
264 chkxer();
267 ALPHA, A, 1, B, 1, BETA, C, 1 );
268 chkxer();
271 ALPHA, A, 1, B, 2, BETA, C, 1 );
272 chkxer();
275 ALPHA, A, 1, B, 1, BETA, C, 1 );
276 chkxer();
277
278 } else if (strncmp( sf,"cblas_zhemm" ,11)==0) {
279 cblas_rout = "cblas_zhemm" ;
280
281 cblas_info = 1;
283 ALPHA, A, 1, B, 1, BETA, C, 1 );
284 chkxer();
287 ALPHA, A, 1, B, 1, BETA, C, 1 );
288 chkxer();
291 ALPHA, A, 1, B, 1, BETA, C, 1 );
292 chkxer();
295 ALPHA, A, 1, B, 1, BETA, C, 1 );
296 chkxer();
299 ALPHA, A, 1, B, 1, BETA, C, 1 );
300 chkxer();
303 ALPHA, A, 1, B, 1, BETA, C, 1 );
304 chkxer();
307 ALPHA, A, 1, B, 1, BETA, C, 1 );
308 chkxer();
311 ALPHA, A, 1, B, 1, BETA, C, 1 );
312 chkxer();
315 ALPHA, A, 1, B, 1, BETA, C, 1 );
316 chkxer();
319 ALPHA, A, 1, B, 1, BETA, C, 1 );
320 chkxer();
323 ALPHA, A, 1, B, 1, BETA, C, 1 );
324 chkxer();
327 ALPHA, A, 1, B, 2, BETA, C, 2 );
328 chkxer();
331 ALPHA, A, 1, B, 1, BETA, C, 1 );
332 chkxer();
335 ALPHA, A, 1, B, 2, BETA, C, 2 );
336 chkxer();
339 ALPHA, A, 1, B, 1, BETA, C, 1 );
340 chkxer();
343 ALPHA, A, 2, B, 1, BETA, C, 1 );
344 chkxer();
347 ALPHA, A, 1, B, 1, BETA, C, 1 );
348 chkxer();
351 ALPHA, A, 2, B, 1, BETA, C, 1 );
352 chkxer();
355 ALPHA, A, 1, B, 1, BETA, C, 1 );
356 chkxer();
359 ALPHA, A, 2, B, 2, BETA, C, 1 );
360 chkxer();
363 ALPHA, A, 1, B, 2, BETA, C, 1 );
364 chkxer();
367 ALPHA, A, 2, B, 2, BETA, C, 1 );
368 chkxer();
371 ALPHA, A, 1, B, 2, BETA, C, 1 );
372 chkxer();
375 ALPHA, A, 1, B, 1, BETA, C, 1 );
376 chkxer();
379 ALPHA, A, 1, B, 1, BETA, C, 1 );
380 chkxer();
383 ALPHA, A, 1, B, 1, BETA, C, 1 );
384 chkxer();
387 ALPHA, A, 1, B, 1, BETA, C, 1 );
388 chkxer();
391 ALPHA, A, 1, B, 1, BETA, C, 1 );
392 chkxer();
395 ALPHA, A, 1, B, 1, BETA, C, 1 );
396 chkxer();
399 ALPHA, A, 1, B, 1, BETA, C, 1 );
400 chkxer();
403 ALPHA, A, 1, B, 1, BETA, C, 1 );
404 chkxer();
407 ALPHA, A, 1, B, 2, BETA, C, 2 );
408 chkxer();
411 ALPHA, A, 1, B, 1, BETA, C, 1 );
412 chkxer();
415 ALPHA, A, 1, B, 2, BETA, C, 2 );
416 chkxer();
419 ALPHA, A, 1, B, 1, BETA, C, 1 );
420 chkxer();
423 ALPHA, A, 2, B, 1, BETA, C, 1 );
424 chkxer();
427 ALPHA, A, 2, B, 1, BETA, C, 1 );
428 chkxer();
431 ALPHA, A, 2, B, 1, BETA, C, 1 );
432 chkxer();
435 ALPHA, A, 2, B, 1, BETA, C, 1 );
436 chkxer();
439 ALPHA, A, 1, B, 2, BETA, C, 1 );
440 chkxer();
443 ALPHA, A, 2, B, 2, BETA, C, 1 );
444 chkxer();
447 ALPHA, A, 1, B, 2, BETA, C, 1 );
448 chkxer();
451 ALPHA, A, 2, B, 2, BETA, C, 1 );
452 chkxer();
453
454 } else if (strncmp( sf,"cblas_zsymm" ,11)==0) {
455 cblas_rout = "cblas_zsymm" ;
456
457 cblas_info = 1;
459 ALPHA, A, 1, B, 1, BETA, C, 1 );
460 chkxer();
463 ALPHA, A, 1, B, 1, BETA, C, 1 );
464 chkxer();
467 ALPHA, A, 1, B, 1, BETA, C, 1 );
468 chkxer();
471 ALPHA, A, 1, B, 1, BETA, C, 1 );
472 chkxer();
475 ALPHA, A, 1, B, 1, BETA, C, 1 );
476 chkxer();
479 ALPHA, A, 1, B, 1, BETA, C, 1 );
480 chkxer();
483 ALPHA, A, 1, B, 1, BETA, C, 1 );
484 chkxer();
487 ALPHA, A, 1, B, 1, BETA, C, 1 );
488 chkxer();
491 ALPHA, A, 1, B, 1, BETA, C, 1 );
492 chkxer();
495 ALPHA, A, 1, B, 1, BETA, C, 1 );
496 chkxer();
499 ALPHA, A, 1, B, 1, BETA, C, 1 );
500 chkxer();
503 ALPHA, A, 1, B, 2, BETA, C, 2 );
504 chkxer();
507 ALPHA, A, 1, B, 1, BETA, C, 1 );
508 chkxer();
511 ALPHA, A, 1, B, 2, BETA, C, 2 );
512 chkxer();
515 ALPHA, A, 1, B, 1, BETA, C, 1 );
516 chkxer();
519 ALPHA, A, 2, B, 1, BETA, C, 1 );
520 chkxer();
523 ALPHA, A, 1, B, 1, BETA, C, 1 );
524 chkxer();
527 ALPHA, A, 2, B, 1, BETA, C, 1 );
528 chkxer();
531 ALPHA, A, 1, B, 1, BETA, C, 1 );
532 chkxer();
535 ALPHA, A, 2, B, 2, BETA, C, 1 );
536 chkxer();
539 ALPHA, A, 1, B, 2, BETA, C, 1 );
540 chkxer();
543 ALPHA, A, 2, B, 2, BETA, C, 1 );
544 chkxer();
547 ALPHA, A, 1, B, 2, BETA, C, 1 );
548 chkxer();
551 ALPHA, A, 1, B, 1, BETA, C, 1 );
552 chkxer();
555 ALPHA, A, 1, B, 1, BETA, C, 1 );
556 chkxer();
559 ALPHA, A, 1, B, 1, BETA, C, 1 );
560 chkxer();
563 ALPHA, A, 1, B, 1, BETA, C, 1 );
564 chkxer();
567 ALPHA, A, 1, B, 1, BETA, C, 1 );
568 chkxer();
571 ALPHA, A, 1, B, 1, BETA, C, 1 );
572 chkxer();
575 ALPHA, A, 1, B, 1, BETA, C, 1 );
576 chkxer();
579 ALPHA, A, 1, B, 1, BETA, C, 1 );
580 chkxer();
583 ALPHA, A, 1, B, 2, BETA, C, 2 );
584 chkxer();
587 ALPHA, A, 1, B, 1, BETA, C, 1 );
588 chkxer();
591 ALPHA, A, 1, B, 2, BETA, C, 2 );
592 chkxer();
595 ALPHA, A, 1, B, 1, BETA, C, 1 );
596 chkxer();
599 ALPHA, A, 2, B, 1, BETA, C, 1 );
600 chkxer();
603 ALPHA, A, 2, B, 1, BETA, C, 1 );
604 chkxer();
607 ALPHA, A, 2, B, 1, BETA, C, 1 );
608 chkxer();
611 ALPHA, A, 2, B, 1, BETA, C, 1 );
612 chkxer();
615 ALPHA, A, 1, B, 2, BETA, C, 1 );
616 chkxer();
619 ALPHA, A, 2, B, 2, BETA, C, 1 );
620 chkxer();
623 ALPHA, A, 1, B, 2, BETA, C, 1 );
624 chkxer();
627 ALPHA, A, 2, B, 2, BETA, C, 1 );
628 chkxer();
629
630 } else if (strncmp( sf,"cblas_ztrmm" ,11)==0) {
631 cblas_rout = "cblas_ztrmm" ;
632
633 cblas_info = 1;
635 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
636 chkxer();
639 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
640 chkxer();
643 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
644 chkxer();
647 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
648 chkxer();
651 INVALID, 0, 0, ALPHA, A, 1, B, 1 );
652 chkxer();
655 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
656 chkxer();
659 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
660 chkxer();
663 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
664 chkxer();
667 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
668 chkxer();
671 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
672 chkxer();
675 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
676 chkxer();
679 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
680 chkxer();
683 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
684 chkxer();
687 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
688 chkxer();
691 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
692 chkxer();
695 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
696 chkxer();
699 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
700 chkxer();
703 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
704 chkxer();
707 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
708 chkxer();
711 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
712 chkxer();
715 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
716 chkxer();
719 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
720 chkxer();
723 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
724 chkxer();
727 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
728 chkxer();
731 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
732 chkxer();
735 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
736 chkxer();
739 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
740 chkxer();
743 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
744 chkxer();
747 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
748 chkxer();
751 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
752 chkxer();
755 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
756 chkxer();
759 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
760 chkxer();
763 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
764 chkxer();
767 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
768 chkxer();
771 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
772 chkxer();
775 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
776 chkxer();
779 CblasNonUnit, 2, 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, INVALID, 0, ALPHA, A, 1, B, 1 );
792 chkxer();
795 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
796 chkxer();
799 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
800 chkxer();
803 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
804 chkxer();
807 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
808 chkxer();
811 CblasNonUnit, INVALID, 0, 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, 0, INVALID, ALPHA, A, 1, B, 1 );
824 chkxer();
827 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
828 chkxer();
831 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
832 chkxer();
835 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
836 chkxer();
839 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
840 chkxer();
843 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
844 chkxer();
847 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
848 chkxer();
851 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
852 chkxer();
855 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
856 chkxer();
859 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
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, 0, 2, ALPHA, A, 1, B, 2 );
872 chkxer();
875 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
876 chkxer();
879 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
880 chkxer();
883 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
884 chkxer();
887 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
888 chkxer();
891 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
892 chkxer();
895 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
896 chkxer();
899 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
900 chkxer();
903 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
904 chkxer();
907 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
908 chkxer();
909
910 } else if (strncmp( sf,"cblas_ztrsm" ,11)==0) {
911 cblas_rout = "cblas_ztrsm" ;
912
913 cblas_info = 1;
915 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
916 chkxer();
919 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
920 chkxer();
923 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
924 chkxer();
927 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
928 chkxer();
931 INVALID, 0, 0, ALPHA, A, 1, B, 1 );
932 chkxer();
935 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
936 chkxer();
939 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
940 chkxer();
943 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
944 chkxer();
947 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
948 chkxer();
951 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
952 chkxer();
955 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
956 chkxer();
959 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
960 chkxer();
963 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
964 chkxer();
967 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
968 chkxer();
971 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
972 chkxer();
975 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
976 chkxer();
979 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
980 chkxer();
983 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
984 chkxer();
987 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
988 chkxer();
991 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
992 chkxer();
995 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
996 chkxer();
999 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
1000 chkxer();
1003 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
1004 chkxer();
1007 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1008 chkxer();
1011 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1012 chkxer();
1015 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
1016 chkxer();
1019 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
1020 chkxer();
1023 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1024 chkxer();
1027 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1028 chkxer();
1031 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
1032 chkxer();
1035 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
1036 chkxer();
1039 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1040 chkxer();
1043 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1044 chkxer();
1047 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
1048 chkxer();
1051 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
1052 chkxer();
1055 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1056 chkxer();
1059 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1060 chkxer();
1063 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1064 chkxer();
1067 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1068 chkxer();
1071 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1072 chkxer();
1075 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1076 chkxer();
1079 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1080 chkxer();
1083 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1084 chkxer();
1087 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1088 chkxer();
1091 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1092 chkxer();
1095 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1096 chkxer();
1099 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1100 chkxer();
1103 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1104 chkxer();
1107 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1108 chkxer();
1111 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1112 chkxer();
1115 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1116 chkxer();
1119 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1120 chkxer();
1123 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1124 chkxer();
1127 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1128 chkxer();
1131 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1132 chkxer();
1135 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
1136 chkxer();
1139 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
1140 chkxer();
1143 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1144 chkxer();
1147 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1148 chkxer();
1151 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
1152 chkxer();
1155 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
1156 chkxer();
1159 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1160 chkxer();
1163 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1164 chkxer();
1167 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1168 chkxer();
1171 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1172 chkxer();
1175 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1176 chkxer();
1179 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1180 chkxer();
1183 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1184 chkxer();
1187 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1188 chkxer();
1189
1190 } else if (strncmp( sf,"cblas_zherk" ,11)==0) {
1191 cblas_rout = "cblas_zherk" ;
1192
1193 cblas_info = 1;
1195 RALPHA, A, 1, RBETA, C, 1 );
1196 chkxer();
1199 RALPHA, A, 1, RBETA, C, 1 );
1200 chkxer();
1203 RALPHA, A, 1, RBETA, C, 1 );
1204 chkxer();
1207 RALPHA, A, 1, RBETA, C, 1 );
1208 chkxer();
1211 RALPHA, A, 1, RBETA, C, 1 );
1212 chkxer();
1215 RALPHA, A, 1, RBETA, C, 1 );
1216 chkxer();
1219 RALPHA, A, 1, RBETA, C, 1 );
1220 chkxer();
1223 RALPHA, A, 1, RBETA, C, 1 );
1224 chkxer();
1227 RALPHA, A, 1, RBETA, C, 1 );
1228 chkxer();
1231 RALPHA, A, 1, RBETA, C, 1 );
1232 chkxer();
1235 RALPHA, A, 1, RBETA, C, 1 );
1236 chkxer();
1239 RALPHA, A, 1, RBETA, C, 2 );
1240 chkxer();
1243 RALPHA, A, 1, RBETA, C, 1 );
1244 chkxer();
1247 RALPHA, A, 1, RBETA, C, 2 );
1248 chkxer();
1251 RALPHA, A, 1, RBETA, C, 1 );
1252 chkxer();
1255 RALPHA, A, 1, RBETA, C, 2 );
1256 chkxer();
1259 RALPHA, A, 1, RBETA, C, 1 );
1260 chkxer();
1263 RALPHA, A, 1, RBETA, C, 2 );
1264 chkxer();
1267 RALPHA, A, 1, RBETA, C, 1 );
1268 chkxer();
1271 RALPHA, A, 1, RBETA, C, 1 );
1272 chkxer();
1275 RALPHA, A, 2, RBETA, C, 1 );
1276 chkxer();
1279 RALPHA, A, 1, RBETA, C, 1 );
1280 chkxer();
1283 RALPHA, A, 2, RBETA, C, 1 );
1284 chkxer();
1287 RALPHA, A, 2, RBETA, C, 1 );
1288 chkxer();
1291 RALPHA, A, 1, RBETA, C, 1 );
1292 chkxer();
1295 RALPHA, A, 2, RBETA, C, 1 );
1296 chkxer();
1299 RALPHA, A, 1, RBETA, C, 1 );
1300 chkxer();
1301
1302 } else if (strncmp( sf,"cblas_zsyrk" ,11)==0) {
1303 cblas_rout = "cblas_zsyrk" ;
1304
1305 cblas_info = 1;
1307 ALPHA, A, 1, BETA, C, 1 );
1308 chkxer();
1311 ALPHA, A, 1, BETA, C, 1 );
1312 chkxer();
1315 ALPHA, A, 1, BETA, C, 1 );
1316 chkxer();
1319 ALPHA, A, 1, BETA, C, 1 );
1320 chkxer();
1323 ALPHA, A, 1, BETA, C, 1 );
1324 chkxer();
1327 ALPHA, A, 1, BETA, C, 1 );
1328 chkxer();
1331 ALPHA, A, 1, BETA, C, 1 );
1332 chkxer();
1335 ALPHA, A, 1, BETA, C, 1 );
1336 chkxer();
1339 ALPHA, A, 1, BETA, C, 1 );
1340 chkxer();
1343 ALPHA, A, 1, BETA, C, 1 );
1344 chkxer();
1347 ALPHA, A, 1, BETA, C, 1 );
1348 chkxer();
1351 ALPHA, A, 1, BETA, C, 2 );
1352 chkxer();
1355 ALPHA, A, 1, BETA, C, 1 );
1356 chkxer();
1359 ALPHA, A, 1, BETA, C, 2 );
1360 chkxer();
1363 ALPHA, A, 1, BETA, C, 1 );
1364 chkxer();
1367 ALPHA, A, 1, BETA, C, 2 );
1368 chkxer();
1371 ALPHA, A, 1, BETA, C, 1 );
1372 chkxer();
1375 ALPHA, A, 1, BETA, C, 2 );
1376 chkxer();
1379 ALPHA, A, 1, BETA, C, 1 );
1380 chkxer();
1383 ALPHA, A, 1, BETA, C, 1 );
1384 chkxer();
1387 ALPHA, A, 2, BETA, C, 1 );
1388 chkxer();
1391 ALPHA, A, 1, BETA, C, 1 );
1392 chkxer();
1395 ALPHA, A, 2, BETA, C, 1 );
1396 chkxer();
1399 ALPHA, A, 2, BETA, C, 1 );
1400 chkxer();
1403 ALPHA, A, 1, BETA, C, 1 );
1404 chkxer();
1407 ALPHA, A, 2, BETA, C, 1 );
1408 chkxer();
1411 ALPHA, A, 1, BETA, C, 1 );
1412 chkxer();
1413
1414 } else if (strncmp( sf,"cblas_zher2k" ,12)==0) {
1415 cblas_rout = "cblas_zher2k" ;
1416
1417 cblas_info = 1;
1419 ALPHA, A, 1, B, 1, RBETA, C, 1 );
1420 chkxer();
1423 ALPHA, A, 1, B, 1, RBETA, C, 1 );
1424 chkxer();
1427 ALPHA, A, 1, B, 1, RBETA, C, 1 );
1428 chkxer();
1431 ALPHA, A, 1, B, 1, RBETA, C, 1 );
1432 chkxer();
1435 ALPHA, A, 1, B, 1, RBETA, C, 1 );
1436 chkxer();
1439 ALPHA, A, 1, B, 1, RBETA, C, 1 );
1440 chkxer();
1443 ALPHA, A, 1, B, 1, RBETA, C, 1 );
1444 chkxer();
1447 ALPHA, A, 1, B, 1, RBETA, C, 1 );
1448 chkxer();
1451 ALPHA, A, 1, B, 1, RBETA, C, 1 );
1452 chkxer();
1455 ALPHA, A, 1, B, 1, RBETA, C, 1 );
1456 chkxer();
1459 ALPHA, A, 1, B, 1, RBETA, C, 1 );
1460 chkxer();
1463 ALPHA, A, 1, B, 2, RBETA, C, 2 );
1464 chkxer();
1467 ALPHA, A, 1, B, 2, RBETA, C, 1 );
1468 chkxer();
1471 ALPHA, A, 1, B, 2, RBETA, C, 2 );
1472 chkxer();
1475 ALPHA, A, 1, B, 2, RBETA, C, 1 );
1476 chkxer();
1479 ALPHA, A, 1, B, 1, RBETA, C, 2 );
1480 chkxer();
1483 ALPHA, A, 1, B, 1, RBETA, C, 1 );
1484 chkxer();
1487 ALPHA, A, 1, B, 1, RBETA, C, 2 );
1488 chkxer();
1491 ALPHA, A, 1, B, 1, RBETA, C, 1 );
1492 chkxer();
1495 ALPHA, A, 2, B, 1, RBETA, C, 2 );
1496 chkxer();
1499 ALPHA, A, 2, B, 1, RBETA, C, 1 );
1500 chkxer();
1503 ALPHA, A, 2, B, 1, RBETA, C, 2 );
1504 chkxer();
1507 ALPHA, A, 2, B, 1, RBETA, C, 1 );
1508 chkxer();
1511 ALPHA, A, 2, B, 1, RBETA, C, 2 );
1512 chkxer();
1515 ALPHA, A, 2, B, 1, RBETA, C, 1 );
1516 chkxer();
1519 ALPHA, A, 2, B, 1, RBETA, C, 2 );
1520 chkxer();
1523 ALPHA, A, 2, B, 1, RBETA, C, 1 );
1524 chkxer();
1527 ALPHA, A, 1, B, 1, RBETA, C, 1 );
1528 chkxer();
1531 ALPHA, A, 2, B, 2, RBETA, C, 1 );
1532 chkxer();
1535 ALPHA, A, 1, B, 1, RBETA, C, 1 );
1536 chkxer();
1539 ALPHA, A, 2, B, 2, RBETA, C, 1 );
1540 chkxer();
1543 ALPHA, A, 2, B, 2, RBETA, C, 1 );
1544 chkxer();
1547 ALPHA, A, 1, B, 1, RBETA, C, 1 );
1548 chkxer();
1551 ALPHA, A, 2, B, 2, RBETA, C, 1 );
1552 chkxer();
1555 ALPHA, A, 1, B, 1, RBETA, C, 1 );
1556 chkxer();
1557
1558 } else if (strncmp( sf,"cblas_zsyr2k" ,12)==0) {
1559 cblas_rout = "cblas_zsyr2k" ;
1560
1561 cblas_info = 1;
1563 ALPHA, A, 1, B, 1, BETA, C, 1 );
1564 chkxer();
1567 ALPHA, A, 1, B, 1, BETA, C, 1 );
1568 chkxer();
1571 ALPHA, A, 1, B, 1, BETA, C, 1 );
1572 chkxer();
1575 ALPHA, A, 1, B, 1, BETA, C, 1 );
1576 chkxer();
1579 ALPHA, A, 1, B, 1, BETA, C, 1 );
1580 chkxer();
1583 ALPHA, A, 1, B, 1, BETA, C, 1 );
1584 chkxer();
1587 ALPHA, A, 1, B, 1, BETA, C, 1 );
1588 chkxer();
1591 ALPHA, A, 1, B, 1, BETA, C, 1 );
1592 chkxer();
1595 ALPHA, A, 1, B, 1, BETA, C, 1 );
1596 chkxer();
1599 ALPHA, A, 1, B, 1, BETA, C, 1 );
1600 chkxer();
1603 ALPHA, A, 1, B, 1, BETA, C, 1 );
1604 chkxer();
1607 ALPHA, A, 1, B, 2, BETA, C, 2 );
1608 chkxer();
1611 ALPHA, A, 1, B, 2, BETA, C, 1 );
1612 chkxer();
1615 ALPHA, A, 1, B, 2, BETA, C, 2 );
1616 chkxer();
1619 ALPHA, A, 1, B, 2, BETA, C, 1 );
1620 chkxer();
1623 ALPHA, A, 1, B, 1, BETA, C, 2 );
1624 chkxer();
1627 ALPHA, A, 1, B, 1, BETA, C, 1 );
1628 chkxer();
1631 ALPHA, A, 1, B, 1, BETA, C, 2 );
1632 chkxer();
1635 ALPHA, A, 1, B, 1, BETA, C, 1 );
1636 chkxer();
1639 ALPHA, A, 2, B, 1, BETA, C, 2 );
1640 chkxer();
1643 ALPHA, A, 2, B, 1, BETA, C, 1 );
1644 chkxer();
1647 ALPHA, A, 2, B, 1, BETA, C, 2 );
1648 chkxer();
1651 ALPHA, A, 2, B, 1, BETA, C, 1 );
1652 chkxer();
1655 ALPHA, A, 2, B, 1, BETA, C, 2 );
1656 chkxer();
1659 ALPHA, A, 2, B, 1, BETA, C, 1 );
1660 chkxer();
1663 ALPHA, A, 2, B, 1, BETA, C, 2 );
1664 chkxer();
1667 ALPHA, A, 2, B, 1, BETA, C, 1 );
1668 chkxer();
1671 ALPHA, A, 1, B, 1, BETA, C, 1 );
1672 chkxer();
1675 ALPHA, A, 2, B, 2, BETA, C, 1 );
1676 chkxer();
1679 ALPHA, A, 1, B, 1, BETA, C, 1 );
1680 chkxer();
1683 ALPHA, A, 2, B, 2, BETA, C, 1 );
1684 chkxer();
1687 ALPHA, A, 2, B, 2, BETA, C, 1 );
1688 chkxer();
1691 ALPHA, A, 1, B, 1, BETA, C, 1 );
1692 chkxer();
1695 ALPHA, A, 2, B, 2, BETA, C, 1 );
1696 chkxer();
1699 ALPHA, A, 1, B, 1, BETA, C, 1 );
1700 chkxer();
1701
1702 }
1703
1704 if (cblas_ok == 1 )
1705 printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
1706 else
1707 printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
1708}
CBLAS_INT cblas_lerr
Definition c_z3chke.c:6
void chkxer(void)
Definition c_z3chke.c:16
CBLAS_INT cblas_ok
Definition c_z3chke.c:6
CBLAS_INT cblas_info
Definition c_z3chke.c:6
char * cblas_rout
Definition c_z3chke.c:8
CBLAS_INT link_xerbla
Definition c_z3chke.c:7
@ CblasLower
Definition cblas.h:41
@ CblasUpper
Definition cblas.h:41
void cblas_xerbla(CBLAS_INT p, const char *rout, const char *form,...)
void cblas_zhemm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const void *beta, void *C, const CBLAS_INT ldc)
Definition cblas_zhemm.c:12
@ CblasNoTrans
Definition cblas.h:40
@ CblasTrans
Definition cblas.h:40
@ CblasConjTrans
Definition cblas.h:40
@ CblasRight
Definition cblas.h:43
@ CblasLeft
Definition cblas.h:43
void cblas_zher2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const double beta, void *C, const CBLAS_INT ldc)
void cblas_zsyr2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const void *beta, void *C, const CBLAS_INT ldc)
@ CblasColMajor
Definition cblas.h:39
@ CblasRowMajor
Definition cblas.h:39
void cblas_zsymm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const void *beta, void *C, const CBLAS_INT ldc)
Definition cblas_zsymm.c:12
@ CblasNonUnit
Definition cblas.h:42
#define CBLAS_INT
Definition cblas.h:24
void cblas_zherk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const double alpha, const void *A, const CBLAS_INT lda, const double beta, void *C, const CBLAS_INT ldc)
Definition cblas_zherk.c:12
void cblas_zsyrk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *beta, void *C, const CBLAS_INT ldc)
Definition cblas_zsyrk.c:12
void cblas_ztrmm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, void *B, const CBLAS_INT ldb)
Definition cblas_ztrmm.c:12
void cblas_ztrsm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, void *B, const CBLAS_INT ldb)
Definition cblas_ztrsm.c:12
void cblas_zgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, const void *beta, void *C, const CBLAS_INT ldc)
Definition cblas_zgemm.c:12
#define INVALID
#define F77_xerbla(...)
Definition cblas_f77.h:562
int RowMajorStrg
#define F77_z3chke
Definition cblas_test.h:153
#define TRUE
Definition cblas_test.h:10
#define FALSE
Definition cblas_test.h:14
#define PASSED
Definition cblas_test.h:11