LAPACK 3.11.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
c_d3chke.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_d3chke(char *rout) {
28 char *sf = ( rout ) ;
29 double 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_dgemm" ,11)==0) {
49 cblas_rout = "cblas_dgemm" ;
50
51 cblas_info = 1;
53 ALPHA, A, 1, B, 1, BETA, C, 1 );
54 chkxer();
55 cblas_info = 1;
57 ALPHA, A, 1, B, 1, BETA, C, 1 );
58 chkxer();
59 cblas_info = 1;
61 ALPHA, A, 1, B, 1, BETA, C, 1 );
62 chkxer();
63 cblas_info = 1;
65 ALPHA, A, 1, B, 1, BETA, C, 1 );
66 chkxer();
69 ALPHA, A, 1, B, 1, BETA, C, 1 );
70 chkxer();
73 ALPHA, A, 1, B, 1, BETA, C, 1 );
74 chkxer();
77 ALPHA, A, 1, B, 1, BETA, C, 1 );
78 chkxer();
81 ALPHA, A, 1, B, 1, BETA, C, 1 );
82 chkxer();
85 ALPHA, A, 1, B, 1, BETA, C, 1 );
86 chkxer();
89 ALPHA, A, 1, B, 1, BETA, C, 1 );
90 chkxer();
93 ALPHA, A, 1, B, 1, BETA, C, 1 );
94 chkxer();
97 ALPHA, A, 1, B, 1, BETA, C, 1 );
98 chkxer();
101 ALPHA, A, 1, B, 1, BETA, C, 1 );
102 chkxer();
105 ALPHA, A, 1, B, 1, BETA, C, 1 );
106 chkxer();
109 ALPHA, A, 1, B, 1, BETA, C, 1 );
110 chkxer();
113 ALPHA, A, 1, B, 1, BETA, C, 1 );
114 chkxer();
117 ALPHA, A, 1, B, 1, BETA, C, 1 );
118 chkxer();
121 ALPHA, A, 1, B, 1, BETA, C, 1 );
122 chkxer();
125 ALPHA, A, 1, B, 1, BETA, C, 1 );
126 chkxer();
129 ALPHA, A, 1, B, 1, BETA, C, 1 );
130 chkxer();
133 ALPHA, A, 1, B, 1, BETA, C, 2 );
134 chkxer();
137 ALPHA, A, 1, B, 1, BETA, C, 2 );
138 chkxer();
141 ALPHA, A, 1, B, 2, BETA, C, 1 );
142 chkxer();
145 ALPHA, A, 1, B, 1, BETA, C, 1 );
146 chkxer();
149 ALPHA, A, 1, B, 1, BETA, C, 1 );
150 chkxer();
153 ALPHA, A, 2, B, 1, BETA, C, 1 );
154 chkxer();
157 ALPHA, A, 1, B, 1, BETA, C, 1 );
158 chkxer();
161 ALPHA, A, 1, B, 1, BETA, C, 1 );
162 chkxer();
165 ALPHA, A, 2, B, 1, BETA, C, 1 );
166 chkxer();
169 ALPHA, A, 2, B, 1, BETA, C, 1 );
170 chkxer();
173 ALPHA, A, 1, B, 1, BETA, C, 1 );
174 chkxer();
177 ALPHA, A, 1, B, 1, BETA, C, 1 );
178 chkxer();
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_dsymm" ,11)==0) {
277 cblas_rout = "cblas_dsymm" ;
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();
373 ALPHA, A, 1, B, 1, BETA, C, 1 );
374 chkxer();
377 ALPHA, A, 1, B, 1, BETA, C, 1 );
378 chkxer();
381 ALPHA, A, 1, B, 1, BETA, C, 1 );
382 chkxer();
385 ALPHA, A, 1, B, 1, BETA, C, 1 );
386 chkxer();
389 ALPHA, A, 1, B, 1, BETA, C, 1 );
390 chkxer();
393 ALPHA, A, 1, B, 1, BETA, C, 1 );
394 chkxer();
397 ALPHA, A, 1, B, 1, BETA, C, 1 );
398 chkxer();
401 ALPHA, A, 1, B, 1, BETA, C, 1 );
402 chkxer();
405 ALPHA, A, 1, B, 2, BETA, C, 2 );
406 chkxer();
409 ALPHA, A, 1, B, 1, BETA, C, 1 );
410 chkxer();
413 ALPHA, A, 1, B, 2, BETA, C, 2 );
414 chkxer();
417 ALPHA, A, 1, B, 1, BETA, C, 1 );
418 chkxer();
421 ALPHA, A, 2, B, 1, BETA, C, 1 );
422 chkxer();
425 ALPHA, A, 2, B, 1, BETA, C, 1 );
426 chkxer();
429 ALPHA, A, 2, B, 1, BETA, C, 1 );
430 chkxer();
433 ALPHA, A, 2, B, 1, BETA, C, 1 );
434 chkxer();
437 ALPHA, A, 1, B, 2, BETA, C, 1 );
438 chkxer();
441 ALPHA, A, 2, B, 2, BETA, C, 1 );
442 chkxer();
445 ALPHA, A, 1, B, 2, BETA, C, 1 );
446 chkxer();
449 ALPHA, A, 2, B, 2, BETA, C, 1 );
450 chkxer();
451
452 } else if (strncmp( sf,"cblas_dtrmm" ,11)==0) {
453 cblas_rout = "cblas_dtrmm" ;
454
455 cblas_info = 1;
457 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
458 chkxer();
461 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
462 chkxer();
465 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
466 chkxer();
469 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
470 chkxer();
473 INVALID, 0, 0, ALPHA, A, 1, B, 1 );
474 chkxer();
477 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
478 chkxer();
481 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
482 chkxer();
485 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
486 chkxer();
489 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
490 chkxer();
493 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
494 chkxer();
497 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
498 chkxer();
501 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
502 chkxer();
505 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
506 chkxer();
509 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
510 chkxer();
513 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
514 chkxer();
517 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
518 chkxer();
521 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
522 chkxer();
525 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
526 chkxer();
529 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
530 chkxer();
533 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
534 chkxer();
537 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
538 chkxer();
541 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
542 chkxer();
545 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
546 chkxer();
549 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
550 chkxer();
553 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
554 chkxer();
557 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
558 chkxer();
561 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
562 chkxer();
565 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
566 chkxer();
569 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
570 chkxer();
573 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
574 chkxer();
577 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
578 chkxer();
581 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
582 chkxer();
585 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
586 chkxer();
589 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
590 chkxer();
593 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
594 chkxer();
597 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
598 chkxer();
601 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
602 chkxer();
605 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
606 chkxer();
609 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
610 chkxer();
613 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
614 chkxer();
617 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
618 chkxer();
621 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
622 chkxer();
625 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
626 chkxer();
629 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
630 chkxer();
633 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
634 chkxer();
637 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
638 chkxer();
641 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
642 chkxer();
645 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
646 chkxer();
649 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
650 chkxer();
653 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
654 chkxer();
657 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
658 chkxer();
661 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
662 chkxer();
665 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
666 chkxer();
669 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
670 chkxer();
673 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
674 chkxer();
677 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
678 chkxer();
681 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
682 chkxer();
685 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
686 chkxer();
689 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
690 chkxer();
693 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
694 chkxer();
697 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
698 chkxer();
701 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
702 chkxer();
705 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
706 chkxer();
709 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
710 chkxer();
713 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
714 chkxer();
717 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
718 chkxer();
721 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
722 chkxer();
725 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
726 chkxer();
729 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
730 chkxer();
731
732 } else if (strncmp( sf,"cblas_dtrsm" ,11)==0) {
733 cblas_rout = "cblas_dtrsm" ;
734
735 cblas_info = 1;
737 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
738 chkxer();
741 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
742 chkxer();
745 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
746 chkxer();
749 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
750 chkxer();
753 INVALID, 0, 0, ALPHA, A, 1, B, 1 );
754 chkxer();
757 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
758 chkxer();
761 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
762 chkxer();
765 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
766 chkxer();
769 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
770 chkxer();
773 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
774 chkxer();
777 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
778 chkxer();
781 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
782 chkxer();
785 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
786 chkxer();
789 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
790 chkxer();
793 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
794 chkxer();
797 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
798 chkxer();
801 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
802 chkxer();
805 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
806 chkxer();
809 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
810 chkxer();
813 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
814 chkxer();
817 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
818 chkxer();
821 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
822 chkxer();
825 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
826 chkxer();
829 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
830 chkxer();
833 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
834 chkxer();
837 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
838 chkxer();
841 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
842 chkxer();
845 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
846 chkxer();
849 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
850 chkxer();
853 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
854 chkxer();
857 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
858 chkxer();
861 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
862 chkxer();
865 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
866 chkxer();
869 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
870 chkxer();
873 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
874 chkxer();
877 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
878 chkxer();
881 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
882 chkxer();
883
886 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
887 chkxer();
890 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
891 chkxer();
894 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
895 chkxer();
898 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
899 chkxer();
902 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
903 chkxer();
906 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
907 chkxer();
910 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
911 chkxer();
914 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
915 chkxer();
918 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
919 chkxer();
922 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
923 chkxer();
926 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
927 chkxer();
930 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
931 chkxer();
934 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
935 chkxer();
938 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
939 chkxer();
942 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
943 chkxer();
946 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
947 chkxer();
950 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
951 chkxer();
954 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
955 chkxer();
958 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
959 chkxer();
962 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
963 chkxer();
966 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
967 chkxer();
970 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
971 chkxer();
974 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
975 chkxer();
978 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
979 chkxer();
982 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
983 chkxer();
986 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
987 chkxer();
990 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
991 chkxer();
994 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
995 chkxer();
998 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
999 chkxer();
1002 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1003 chkxer();
1006 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1007 chkxer();
1010 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1011 chkxer();
1012
1013 } else if (strncmp( sf,"cblas_dsyrk" ,11)==0) {
1014 cblas_rout = "cblas_dsyrk" ;
1015
1016 cblas_info = 1;
1018 0, 0, ALPHA, A, 1, BETA, C, 1 );
1019 chkxer();
1022 0, 0, ALPHA, A, 1, BETA, C, 1 );
1023 chkxer();
1026 0, 0, ALPHA, A, 1, BETA, C, 1 );
1027 chkxer();
1030 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1031 chkxer();
1034 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1035 chkxer();
1038 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1039 chkxer();
1042 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1043 chkxer();
1046 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1047 chkxer();
1050 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1051 chkxer();
1054 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1055 chkxer();
1058 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1059 chkxer();
1062 0, 2, ALPHA, A, 1, BETA, C, 2 );
1063 chkxer();
1066 2, 0, ALPHA, A, 1, BETA, C, 1 );
1067 chkxer();
1070 0, 2, ALPHA, A, 1, BETA, C, 2 );
1071 chkxer();
1074 2, 0, ALPHA, A, 1, BETA, C, 1 );
1075 chkxer();
1078 2, 0, ALPHA, A, 1, BETA, C, 2 );
1079 chkxer();
1082 0, 2, ALPHA, A, 1, BETA, C, 1 );
1083 chkxer();
1086 2, 0, ALPHA, A, 1, BETA, C, 2 );
1087 chkxer();
1090 0, 2, ALPHA, A, 1, BETA, C, 1 );
1091 chkxer();
1094 2, 0, ALPHA, A, 1, BETA, C, 1 );
1095 chkxer();
1098 2, 0, ALPHA, A, 2, BETA, C, 1 );
1099 chkxer();
1102 2, 0, ALPHA, A, 1, BETA, C, 1 );
1103 chkxer();
1106 2, 0, ALPHA, A, 2, BETA, C, 1 );
1107 chkxer();
1110 2, 0, ALPHA, A, 2, BETA, C, 1 );
1111 chkxer();
1114 2, 0, ALPHA, A, 1, BETA, C, 1 );
1115 chkxer();
1118 2, 0, ALPHA, A, 2, BETA, C, 1 );
1119 chkxer();
1122 2, 0, ALPHA, A, 1, BETA, C, 1 );
1123 chkxer();
1124
1125 } else if (strncmp( sf,"cblas_dsyr2k" ,12)==0) {
1126 cblas_rout = "cblas_dsyr2k" ;
1127
1128 cblas_info = 1;
1130 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1131 chkxer();
1134 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1135 chkxer();
1138 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1139 chkxer();
1142 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1143 chkxer();
1146 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1147 chkxer();
1150 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1151 chkxer();
1154 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1155 chkxer();
1158 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1159 chkxer();
1162 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1163 chkxer();
1166 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1167 chkxer();
1170 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1171 chkxer();
1174 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 );
1175 chkxer();
1178 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 );
1179 chkxer();
1182 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 );
1183 chkxer();
1186 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 );
1187 chkxer();
1190 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 );
1191 chkxer();
1194 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 );
1195 chkxer();
1198 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 );
1199 chkxer();
1202 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 );
1203 chkxer();
1206 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 );
1207 chkxer();
1210 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 );
1211 chkxer();
1214 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 );
1215 chkxer();
1218 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 );
1219 chkxer();
1222 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 );
1223 chkxer();
1226 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 );
1227 chkxer();
1230 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 );
1231 chkxer();
1234 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 );
1235 chkxer();
1238 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1239 chkxer();
1242 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1243 chkxer();
1246 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1247 chkxer();
1250 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1251 chkxer();
1254 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1255 chkxer();
1258 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1259 chkxer();
1262 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1263 chkxer();
1266 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1267 chkxer();
1268 }
1269 if (cblas_ok == TRUE )
1270 printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
1271 else
1272 printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
1273}
int link_xerbla
Definition: c_d3chke.c:7
int cblas_lerr
Definition: c_d3chke.c:6
void chkxer(void)
Definition: c_d3chke.c:16
int cblas_info
Definition: c_d3chke.c:6
int cblas_ok
Definition: c_d3chke.c:6
char * cblas_rout
Definition: c_d3chke.c:8
void cblas_dsymm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, const double alpha, const double *A, const CBLAS_INT lda, const double *B, const CBLAS_INT ldb, const double beta, double *C, const CBLAS_INT ldc)
Definition: cblas_dsymm.c:12
void cblas_dtrsm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const double alpha, const double *A, const CBLAS_INT lda, double *B, const CBLAS_INT ldb)
Definition: cblas_dtrsm.c:12
@ CblasLower
Definition: cblas.h:41
@ CblasUpper
Definition: cblas.h:41
void cblas_dtrmm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const double alpha, const double *A, const CBLAS_INT lda, double *B, const CBLAS_INT ldb)
Definition: cblas_dtrmm.c:12
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_dsyrk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const double alpha, const double *A, const CBLAS_INT lda, const double beta, double *C, const CBLAS_INT ldc)
Definition: cblas_dsyrk.c:12
@ CblasColMajor
Definition: cblas.h:39
@ CblasRowMajor
Definition: cblas.h:39
@ CblasNonUnit
Definition: cblas.h:42
void cblas_dsyr2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const double alpha, const double *A, const CBLAS_INT lda, const double *B, const CBLAS_INT ldb, const double beta, double *C, const CBLAS_INT ldc)
Definition: cblas_dsyr2k.c:12
void cblas_dgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT K, const double alpha, const double *A, const CBLAS_INT lda, const double *B, const CBLAS_INT ldb, const double beta, double *C, const CBLAS_INT ldc)
Definition: cblas_dgemm.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_d3chke
Definition: cblas_test.h:151
#define PASSED
Definition: cblas_test.h:11