LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
c_z2chke.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_z2chke(char *rout) {
28 char *sf = ( rout ) ;
29 double A[2] = {0.0,0.0},
30 X[2] = {0.0,0.0},
31 Y[2] = {0.0,0.0},
32 ALPHA[2] = {0.0,0.0},
33 BETA[2] = {0.0,0.0},
34 RALPHA = 0.0;
36 extern int RowMajorStrg;
37 extern char *cblas_rout;
38
39#ifndef HAS_ATTRIBUTE_WEAK_SUPPORT
40 if (link_xerbla) /* call these first to link */
41 {
44 }
45#endif
46
47 cblas_ok = TRUE ;
49
50 if (strncmp( sf,"cblas_zgemv",11)==0) {
51 cblas_rout = "cblas_zgemv";
52 cblas_info = 1;
54 ALPHA, A, 1, X, 1, BETA, Y, 1 );
55 chkxer();
58 ALPHA, A, 1, X, 1, BETA, Y, 1 );
59 chkxer();
62 ALPHA, A, 1, X, 1, BETA, Y, 1 );
63 chkxer();
66 ALPHA, A, 1, X, 1, BETA, Y, 1 );
67 chkxer();
70 ALPHA, A, 1, X, 1, BETA, Y, 1 );
71 chkxer();
74 ALPHA, A, 1, X, 0, BETA, Y, 1 );
75 chkxer();
78 ALPHA, A, 1, X, 1, BETA, Y, 0 );
79 chkxer();
80
83 ALPHA, A, 1, X, 1, BETA, Y, 1 );
84 chkxer();
87 ALPHA, A, 1, X, 1, BETA, Y, 1 );
88 chkxer();
91 ALPHA, A, 1, X, 1, BETA, Y, 1 );
92 chkxer();
95 ALPHA, A, 1, X, 1, BETA, Y, 1 );
96 chkxer();
99 ALPHA, A, 1, X, 0, BETA, Y, 1 );
100 chkxer();
103 ALPHA, A, 1, X, 1, BETA, Y, 0 );
104 chkxer();
105 } else if (strncmp( sf,"cblas_zgbmv",11)==0) {
106 cblas_rout = "cblas_zgbmv";
108 cblas_zgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0,
109 ALPHA, A, 1, X, 1, BETA, Y, 1 );
110 chkxer();
112 cblas_zgbmv(CblasColMajor, INVALID, 0, 0, 0, 0,
113 ALPHA, A, 1, X, 1, BETA, Y, 1 );
114 chkxer();
117 ALPHA, A, 1, X, 1, BETA, Y, 1 );
118 chkxer();
121 ALPHA, A, 1, X, 1, BETA, Y, 1 );
122 chkxer();
125 ALPHA, A, 1, X, 1, BETA, Y, 1 );
126 chkxer();
129 ALPHA, A, 1, X, 1, BETA, Y, 1 );
130 chkxer();
133 ALPHA, A, 1, X, 1, BETA, Y, 1 );
134 chkxer();
137 ALPHA, A, 1, X, 0, BETA, Y, 1 );
138 chkxer();
141 ALPHA, A, 1, X, 1, BETA, Y, 0 );
142 chkxer();
144 cblas_zgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0,
145 ALPHA, A, 1, X, 1, BETA, Y, 1 );
146 chkxer();
149 ALPHA, A, 1, X, 1, BETA, Y, 1 );
150 chkxer();
153 ALPHA, A, 1, X, 1, BETA, Y, 1 );
154 chkxer();
157 ALPHA, A, 1, X, 1, BETA, Y, 1 );
158 chkxer();
161 ALPHA, A, 1, X, 1, BETA, Y, 1 );
162 chkxer();
165 ALPHA, A, 1, X, 1, BETA, Y, 1 );
166 chkxer();
169 ALPHA, A, 1, X, 0, BETA, Y, 1 );
170 chkxer();
173 ALPHA, A, 1, X, 1, BETA, Y, 0 );
174 chkxer();
175 } else if (strncmp( sf,"cblas_zhemv",11)==0) {
176 cblas_rout = "cblas_zhemv";
179 ALPHA, A, 1, X, 1, BETA, Y, 1 );
180 chkxer();
183 ALPHA, A, 1, X, 1, BETA, Y, 1 );
184 chkxer();
187 ALPHA, A, 1, X, 1, BETA, Y, 1 );
188 chkxer();
191 ALPHA, A, 1, X, 1, BETA, Y, 1 );
192 chkxer();
195 ALPHA, A, 1, X, 0, BETA, Y, 1 );
196 chkxer();
199 ALPHA, A, 1, X, 1, BETA, Y, 0 );
200 chkxer();
203 ALPHA, A, 1, X, 1, BETA, Y, 1 );
204 chkxer();
207 ALPHA, A, 1, X, 1, BETA, Y, 1 );
208 chkxer();
211 ALPHA, A, 1, X, 1, BETA, Y, 1 );
212 chkxer();
215 ALPHA, A, 1, X, 0, BETA, Y, 1 );
216 chkxer();
219 ALPHA, A, 1, X, 1, BETA, Y, 0 );
220 chkxer();
221 } else if (strncmp( sf,"cblas_zhbmv",11)==0) {
222 cblas_rout = "cblas_zhbmv";
225 ALPHA, A, 1, X, 1, BETA, Y, 1 );
226 chkxer();
229 ALPHA, A, 1, X, 1, BETA, Y, 1 );
230 chkxer();
233 ALPHA, A, 1, X, 1, BETA, Y, 1 );
234 chkxer();
237 ALPHA, A, 1, X, 1, BETA, Y, 1 );
238 chkxer();
241 ALPHA, A, 1, X, 1, BETA, Y, 1 );
242 chkxer();
245 ALPHA, A, 1, X, 0, BETA, Y, 1 );
246 chkxer();
249 ALPHA, A, 1, X, 1, BETA, Y, 0 );
250 chkxer();
253 ALPHA, A, 1, X, 1, BETA, Y, 1 );
254 chkxer();
257 ALPHA, A, 1, X, 1, BETA, Y, 1 );
258 chkxer();
261 ALPHA, A, 1, X, 1, BETA, Y, 1 );
262 chkxer();
265 ALPHA, A, 1, X, 1, BETA, Y, 1 );
266 chkxer();
269 ALPHA, A, 1, X, 0, BETA, Y, 1 );
270 chkxer();
273 ALPHA, A, 1, X, 1, BETA, Y, 0 );
274 chkxer();
275 } else if (strncmp( sf,"cblas_zhpmv",11)==0) {
276 cblas_rout = "cblas_zhpmv";
279 ALPHA, A, X, 1, BETA, Y, 1 );
280 chkxer();
283 ALPHA, A, X, 1, BETA, Y, 1 );
284 chkxer();
287 ALPHA, A, X, 1, BETA, Y, 1 );
288 chkxer();
291 ALPHA, A, X, 0, BETA, Y, 1 );
292 chkxer();
295 ALPHA, A, X, 1, BETA, Y, 0 );
296 chkxer();
299 ALPHA, A, X, 1, BETA, Y, 1 );
300 chkxer();
303 ALPHA, A, X, 1, BETA, Y, 1 );
304 chkxer();
307 ALPHA, A, X, 0, BETA, Y, 1 );
308 chkxer();
311 ALPHA, A, X, 1, BETA, Y, 0 );
312 chkxer();
313 } else if (strncmp( sf,"cblas_ztrmv",11)==0) {
314 cblas_rout = "cblas_ztrmv";
317 CblasNonUnit, 0, A, 1, X, 1 );
318 chkxer();
321 CblasNonUnit, 0, A, 1, X, 1 );
322 chkxer();
325 CblasNonUnit, 0, A, 1, X, 1 );
326 chkxer();
329 INVALID, 0, A, 1, X, 1 );
330 chkxer();
333 CblasNonUnit, INVALID, A, 1, X, 1 );
334 chkxer();
337 CblasNonUnit, 2, A, 1, X, 1 );
338 chkxer();
341 CblasNonUnit, 0, A, 1, X, 0 );
342 chkxer();
345 CblasNonUnit, 0, A, 1, X, 1 );
346 chkxer();
349 CblasNonUnit, 0, A, 1, X, 1 );
350 chkxer();
353 INVALID, 0, A, 1, X, 1 );
354 chkxer();
357 CblasNonUnit, INVALID, A, 1, X, 1 );
358 chkxer();
361 CblasNonUnit, 2, A, 1, X, 1 );
362 chkxer();
365 CblasNonUnit, 0, A, 1, X, 0 );
366 chkxer();
367 } else if (strncmp( sf,"cblas_ztbmv",11)==0) {
368 cblas_rout = "cblas_ztbmv";
371 CblasNonUnit, 0, 0, A, 1, X, 1 );
372 chkxer();
375 CblasNonUnit, 0, 0, A, 1, X, 1 );
376 chkxer();
379 CblasNonUnit, 0, 0, A, 1, X, 1 );
380 chkxer();
383 INVALID, 0, 0, A, 1, X, 1 );
384 chkxer();
387 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
388 chkxer();
391 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
392 chkxer();
395 CblasNonUnit, 0, 1, A, 1, X, 1 );
396 chkxer();
399 CblasNonUnit, 0, 0, A, 1, X, 0 );
400 chkxer();
403 CblasNonUnit, 0, 0, A, 1, X, 1 );
404 chkxer();
407 CblasNonUnit, 0, 0, A, 1, X, 1 );
408 chkxer();
411 INVALID, 0, 0, A, 1, X, 1 );
412 chkxer();
415 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
416 chkxer();
419 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
420 chkxer();
423 CblasNonUnit, 0, 1, A, 1, X, 1 );
424 chkxer();
427 CblasNonUnit, 0, 0, A, 1, X, 0 );
428 chkxer();
429 } else if (strncmp( sf,"cblas_ztpmv",11)==0) {
430 cblas_rout = "cblas_ztpmv";
433 CblasNonUnit, 0, A, X, 1 );
434 chkxer();
437 CblasNonUnit, 0, A, X, 1 );
438 chkxer();
441 CblasNonUnit, 0, A, X, 1 );
442 chkxer();
445 INVALID, 0, A, X, 1 );
446 chkxer();
449 CblasNonUnit, INVALID, A, X, 1 );
450 chkxer();
453 CblasNonUnit, 0, A, X, 0 );
454 chkxer();
457 CblasNonUnit, 0, A, X, 1 );
458 chkxer();
461 CblasNonUnit, 0, A, X, 1 );
462 chkxer();
465 INVALID, 0, A, X, 1 );
466 chkxer();
469 CblasNonUnit, INVALID, A, X, 1 );
470 chkxer();
473 CblasNonUnit, 0, A, X, 0 );
474 chkxer();
475 } else if (strncmp( sf,"cblas_ztrsv",11)==0) {
476 cblas_rout = "cblas_ztrsv";
479 CblasNonUnit, 0, A, 1, X, 1 );
480 chkxer();
483 CblasNonUnit, 0, A, 1, X, 1 );
484 chkxer();
487 CblasNonUnit, 0, A, 1, X, 1 );
488 chkxer();
491 INVALID, 0, A, 1, X, 1 );
492 chkxer();
495 CblasNonUnit, INVALID, A, 1, X, 1 );
496 chkxer();
499 CblasNonUnit, 2, A, 1, X, 1 );
500 chkxer();
503 CblasNonUnit, 0, A, 1, X, 0 );
504 chkxer();
507 CblasNonUnit, 0, A, 1, X, 1 );
508 chkxer();
511 CblasNonUnit, 0, A, 1, X, 1 );
512 chkxer();
515 INVALID, 0, A, 1, X, 1 );
516 chkxer();
519 CblasNonUnit, INVALID, A, 1, X, 1 );
520 chkxer();
523 CblasNonUnit, 2, A, 1, X, 1 );
524 chkxer();
527 CblasNonUnit, 0, A, 1, X, 0 );
528 chkxer();
529 } else if (strncmp( sf,"cblas_ztbsv",11)==0) {
530 cblas_rout = "cblas_ztbsv";
533 CblasNonUnit, 0, 0, A, 1, X, 1 );
534 chkxer();
537 CblasNonUnit, 0, 0, A, 1, X, 1 );
538 chkxer();
541 CblasNonUnit, 0, 0, A, 1, X, 1 );
542 chkxer();
545 INVALID, 0, 0, A, 1, X, 1 );
546 chkxer();
549 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
550 chkxer();
553 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
554 chkxer();
557 CblasNonUnit, 0, 1, A, 1, X, 1 );
558 chkxer();
561 CblasNonUnit, 0, 0, A, 1, X, 0 );
562 chkxer();
565 CblasNonUnit, 0, 0, A, 1, X, 1 );
566 chkxer();
569 CblasNonUnit, 0, 0, A, 1, X, 1 );
570 chkxer();
573 INVALID, 0, 0, A, 1, X, 1 );
574 chkxer();
577 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
578 chkxer();
581 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
582 chkxer();
585 CblasNonUnit, 0, 1, A, 1, X, 1 );
586 chkxer();
589 CblasNonUnit, 0, 0, A, 1, X, 0 );
590 chkxer();
591 } else if (strncmp( sf,"cblas_ztpsv",11)==0) {
592 cblas_rout = "cblas_ztpsv";
595 CblasNonUnit, 0, A, X, 1 );
596 chkxer();
599 CblasNonUnit, 0, A, X, 1 );
600 chkxer();
603 CblasNonUnit, 0, A, X, 1 );
604 chkxer();
607 INVALID, 0, A, X, 1 );
608 chkxer();
611 CblasNonUnit, INVALID, A, X, 1 );
612 chkxer();
615 CblasNonUnit, 0, A, X, 0 );
616 chkxer();
619 CblasNonUnit, 0, A, X, 1 );
620 chkxer();
623 CblasNonUnit, 0, A, X, 1 );
624 chkxer();
627 INVALID, 0, A, X, 1 );
628 chkxer();
631 CblasNonUnit, INVALID, A, X, 1 );
632 chkxer();
635 CblasNonUnit, 0, A, X, 0 );
636 chkxer();
637 } else if (strncmp( sf,"cblas_zgeru",10)==0) {
638 cblas_rout = "cblas_zgeru";
640 cblas_zgeru(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );
641 chkxer();
643 cblas_zgeru(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
644 chkxer();
646 cblas_zgeru(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
647 chkxer();
649 cblas_zgeru(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
650 chkxer();
652 cblas_zgeru(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
653 chkxer();
655 cblas_zgeru(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );
656 chkxer();
658 cblas_zgeru(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
659 chkxer();
661 cblas_zgeru(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
662 chkxer();
664 cblas_zgeru(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
665 chkxer();
667 cblas_zgeru(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
668 chkxer();
670 cblas_zgeru(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );
671 chkxer();
672 } else if (strncmp( sf,"cblas_zgerc",10)==0) {
673 cblas_rout = "cblas_zgerc";
675 cblas_zgerc(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );
676 chkxer();
678 cblas_zgerc(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
679 chkxer();
681 cblas_zgerc(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
682 chkxer();
684 cblas_zgerc(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
685 chkxer();
687 cblas_zgerc(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
688 chkxer();
690 cblas_zgerc(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );
691 chkxer();
693 cblas_zgerc(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
694 chkxer();
696 cblas_zgerc(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
697 chkxer();
699 cblas_zgerc(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
700 chkxer();
702 cblas_zgerc(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
703 chkxer();
705 cblas_zgerc(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );
706 chkxer();
707 } else if (strncmp( sf,"cblas_zher2",11)==0) {
708 cblas_rout = "cblas_zher2";
710 cblas_zher2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 );
711 chkxer();
713 cblas_zher2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
714 chkxer();
716 cblas_zher2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
717 chkxer();
719 cblas_zher2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
720 chkxer();
722 cblas_zher2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
723 chkxer();
725 cblas_zher2(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
726 chkxer();
728 cblas_zher2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
729 chkxer();
731 cblas_zher2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
732 chkxer();
734 cblas_zher2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
735 chkxer();
737 cblas_zher2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
738 chkxer();
740 cblas_zher2(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
741 chkxer();
742 } else if (strncmp( sf,"cblas_zhpr2",11)==0) {
743 cblas_rout = "cblas_zhpr2";
745 cblas_zhpr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A );
746 chkxer();
748 cblas_zhpr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
749 chkxer();
751 cblas_zhpr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
752 chkxer();
754 cblas_zhpr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
755 chkxer();
757 cblas_zhpr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
758 chkxer();
760 cblas_zhpr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
761 chkxer();
763 cblas_zhpr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
764 chkxer();
766 cblas_zhpr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
767 chkxer();
769 cblas_zhpr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
770 chkxer();
771 } else if (strncmp( sf,"cblas_zher",10)==0) {
772 cblas_rout = "cblas_zher";
774 cblas_zher(INVALID, CblasUpper, 0, RALPHA, X, 1, A, 1 );
775 chkxer();
777 cblas_zher(CblasColMajor, INVALID, 0, RALPHA, X, 1, A, 1 );
778 chkxer();
780 cblas_zher(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A, 1 );
781 chkxer();
783 cblas_zher(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A, 1 );
784 chkxer();
786 cblas_zher(CblasColMajor, CblasUpper, 2, RALPHA, X, 1, A, 1 );
787 chkxer();
789 cblas_zher(CblasRowMajor, INVALID, 0, RALPHA, X, 1, A, 1 );
790 chkxer();
792 cblas_zher(CblasRowMajor, CblasUpper, INVALID, RALPHA, X, 1, A, 1 );
793 chkxer();
795 cblas_zher(CblasRowMajor, CblasUpper, 0, RALPHA, X, 0, A, 1 );
796 chkxer();
798 cblas_zher(CblasRowMajor, CblasUpper, 2, RALPHA, X, 1, A, 1 );
799 chkxer();
800 } else if (strncmp( sf,"cblas_zhpr",10)==0) {
801 cblas_rout = "cblas_zhpr";
803 cblas_zhpr(INVALID, CblasUpper, 0, RALPHA, X, 1, A );
804 chkxer();
806 cblas_zhpr(CblasColMajor, INVALID, 0, RALPHA, X, 1, A );
807 chkxer();
809 cblas_zhpr(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A );
810 chkxer();
812 cblas_zhpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A );
813 chkxer();
815 cblas_zhpr(CblasColMajor, INVALID, 0, RALPHA, X, 1, A );
816 chkxer();
818 cblas_zhpr(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A );
819 chkxer();
821 cblas_zhpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A );
822 chkxer();
823 }
824 if (cblas_ok == TRUE)
825 printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
826 else
827 printf("******* %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
828}
CBLAS_INT cblas_lerr
Definition c_z2chke.c:6
void chkxer(void)
Definition c_z2chke.c:16
CBLAS_INT cblas_ok
Definition c_z2chke.c:6
CBLAS_INT cblas_info
Definition c_z2chke.c:6
char * cblas_rout
Definition c_z2chke.c:8
CBLAS_INT link_xerbla
Definition c_z2chke.c:7
void cblas_ztbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
Definition cblas_ztbmv.c:10
@ CblasUpper
Definition cblas.h:41
void cblas_xerbla(CBLAS_INT p, const char *rout, const char *form,...)
void cblas_ztpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX)
Definition cblas_ztpmv.c:10
void cblas_ztpsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX)
Definition cblas_ztpsv.c:10
void cblas_zgbmv(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT KL, const CBLAS_INT KU, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
Definition cblas_zgbmv.c:12
@ CblasNoTrans
Definition cblas.h:40
void cblas_zher(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const void *X, const CBLAS_INT incX, void *A, const CBLAS_INT lda)
Definition cblas_zher.c:12
void cblas_ztbsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
Definition cblas_ztbsv.c:10
void cblas_zgeru(CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda)
Definition cblas_zgeru.c:10
void cblas_zhpr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *Ap)
Definition cblas_zhpr2.c:12
void cblas_zhpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *Ap, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
Definition cblas_zhpmv.c:12
@ CblasColMajor
Definition cblas.h:39
@ CblasRowMajor
Definition cblas.h:39
void cblas_zgemv(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
Definition cblas_zgemv.c:12
void cblas_zher2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda)
Definition cblas_zher2.c:12
@ CblasNonUnit
Definition cblas.h:42
void cblas_zgerc(CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda)
Definition cblas_zgerc.c:12
void cblas_ztrsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
Definition cblas_ztrsv.c:10
#define CBLAS_INT
Definition cblas.h:24
void cblas_ztrmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
Definition cblas_ztrmv.c:10
void cblas_zhpr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const void *X, const CBLAS_INT incX, void *A)
Definition cblas_zhpr.c:12
void cblas_zhbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
Definition cblas_zhbmv.c:12
void cblas_zhemv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
Definition cblas_zhemv.c:12
#define INVALID
#define F77_xerbla(...)
Definition cblas_f77.h:562
int RowMajorStrg
#define TRUE
Definition cblas_test.h:10
#define FALSE
Definition cblas_test.h:14
#define PASSED
Definition cblas_test.h:11
#define F77_z2chke
Definition cblas_test.h:80