LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ F77_d2chke()

void F77_d2chke ( char *  rout)

Definition at line 27 of file c_d2chke.c.

27 {
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=0.0, BETA=0.0;
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_dgemv",11)==0) {
49 cblas_rout = "cblas_dgemv";
50 cblas_info = 1;
52 ALPHA, A, 1, X, 1, BETA, Y, 1 );
53 chkxer();
56 ALPHA, A, 1, X, 1, BETA, Y, 1 );
57 chkxer();
60 ALPHA, A, 1, X, 1, BETA, Y, 1 );
61 chkxer();
64 ALPHA, A, 1, X, 1, BETA, Y, 1 );
65 chkxer();
68 ALPHA, A, 1, X, 1, BETA, Y, 1 );
69 chkxer();
72 ALPHA, A, 1, X, 0, BETA, Y, 1 );
73 chkxer();
76 ALPHA, A, 1, X, 1, BETA, Y, 0 );
77 chkxer();
78
81 ALPHA, A, 1, X, 1, BETA, Y, 1 );
82 chkxer();
85 ALPHA, A, 1, X, 1, BETA, Y, 1 );
86 chkxer();
89 ALPHA, A, 1, X, 1, BETA, Y, 1 );
90 chkxer();
93 ALPHA, A, 1, X, 1, BETA, Y, 1 );
94 chkxer();
97 ALPHA, A, 1, X, 0, BETA, Y, 1 );
98 chkxer();
101 ALPHA, A, 1, X, 1, BETA, Y, 0 );
102 chkxer();
103 } else if (strncmp( sf,"cblas_dgbmv",11)==0) {
104 cblas_rout = "cblas_dgbmv";
106 cblas_dgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0,
107 ALPHA, A, 1, X, 1, BETA, Y, 1 );
108 chkxer();
110 cblas_dgbmv(CblasColMajor, INVALID, 0, 0, 0, 0,
111 ALPHA, A, 1, X, 1, BETA, Y, 1 );
112 chkxer();
115 ALPHA, A, 1, X, 1, BETA, Y, 1 );
116 chkxer();
119 ALPHA, A, 1, X, 1, BETA, Y, 1 );
120 chkxer();
123 ALPHA, A, 1, X, 1, BETA, Y, 1 );
124 chkxer();
127 ALPHA, A, 1, X, 1, BETA, Y, 1 );
128 chkxer();
131 ALPHA, A, 1, X, 1, BETA, Y, 1 );
132 chkxer();
135 ALPHA, A, 1, X, 0, BETA, Y, 1 );
136 chkxer();
139 ALPHA, A, 1, X, 1, BETA, Y, 0 );
140 chkxer();
142 cblas_dgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0,
143 ALPHA, A, 1, X, 1, BETA, Y, 1 );
144 chkxer();
147 ALPHA, A, 1, X, 1, BETA, Y, 1 );
148 chkxer();
151 ALPHA, A, 1, X, 1, BETA, Y, 1 );
152 chkxer();
155 ALPHA, A, 1, X, 1, BETA, Y, 1 );
156 chkxer();
159 ALPHA, A, 1, X, 1, BETA, Y, 1 );
160 chkxer();
163 ALPHA, A, 1, X, 1, BETA, Y, 1 );
164 chkxer();
167 ALPHA, A, 1, X, 0, BETA, Y, 1 );
168 chkxer();
171 ALPHA, A, 1, X, 1, BETA, Y, 0 );
172 chkxer();
173 } else if (strncmp( sf,"cblas_dsymv",11)==0) {
174 cblas_rout = "cblas_dsymv";
177 ALPHA, A, 1, X, 1, BETA, Y, 1 );
178 chkxer();
181 ALPHA, A, 1, X, 1, BETA, Y, 1 );
182 chkxer();
185 ALPHA, A, 1, X, 1, BETA, Y, 1 );
186 chkxer();
189 ALPHA, A, 1, X, 1, BETA, Y, 1 );
190 chkxer();
193 ALPHA, A, 1, X, 0, BETA, Y, 1 );
194 chkxer();
197 ALPHA, A, 1, X, 1, BETA, Y, 0 );
198 chkxer();
201 ALPHA, A, 1, X, 1, BETA, Y, 1 );
202 chkxer();
205 ALPHA, A, 1, X, 1, BETA, Y, 1 );
206 chkxer();
209 ALPHA, A, 1, X, 1, BETA, Y, 1 );
210 chkxer();
213 ALPHA, A, 1, X, 0, BETA, Y, 1 );
214 chkxer();
217 ALPHA, A, 1, X, 1, BETA, Y, 0 );
218 chkxer();
219 } else if (strncmp( sf,"cblas_dsbmv",11)==0) {
220 cblas_rout = "cblas_dsbmv";
223 ALPHA, A, 1, X, 1, BETA, Y, 1 );
224 chkxer();
227 ALPHA, A, 1, X, 1, BETA, Y, 1 );
228 chkxer();
231 ALPHA, A, 1, X, 1, BETA, Y, 1 );
232 chkxer();
235 ALPHA, A, 1, X, 1, BETA, Y, 1 );
236 chkxer();
239 ALPHA, A, 1, X, 1, BETA, Y, 1 );
240 chkxer();
243 ALPHA, A, 1, X, 0, BETA, Y, 1 );
244 chkxer();
247 ALPHA, A, 1, X, 1, BETA, Y, 0 );
248 chkxer();
251 ALPHA, A, 1, X, 1, BETA, Y, 1 );
252 chkxer();
255 ALPHA, A, 1, X, 1, BETA, Y, 1 );
256 chkxer();
259 ALPHA, A, 1, X, 1, BETA, Y, 1 );
260 chkxer();
263 ALPHA, A, 1, X, 1, BETA, Y, 1 );
264 chkxer();
267 ALPHA, A, 1, X, 0, BETA, Y, 1 );
268 chkxer();
271 ALPHA, A, 1, X, 1, BETA, Y, 0 );
272 chkxer();
273 } else if (strncmp( sf,"cblas_dspmv",11)==0) {
274 cblas_rout = "cblas_dspmv";
277 ALPHA, A, X, 1, BETA, Y, 1 );
278 chkxer();
281 ALPHA, A, X, 1, BETA, Y, 1 );
282 chkxer();
285 ALPHA, A, X, 1, BETA, Y, 1 );
286 chkxer();
289 ALPHA, A, X, 0, BETA, Y, 1 );
290 chkxer();
293 ALPHA, A, X, 1, BETA, Y, 0 );
294 chkxer();
297 ALPHA, A, X, 1, BETA, Y, 1 );
298 chkxer();
301 ALPHA, A, X, 1, BETA, Y, 1 );
302 chkxer();
305 ALPHA, A, X, 0, BETA, Y, 1 );
306 chkxer();
309 ALPHA, A, X, 1, BETA, Y, 0 );
310 chkxer();
311 } else if (strncmp( sf,"cblas_dtrmv",11)==0) {
312 cblas_rout = "cblas_dtrmv";
315 CblasNonUnit, 0, A, 1, X, 1 );
316 chkxer();
319 CblasNonUnit, 0, A, 1, X, 1 );
320 chkxer();
323 CblasNonUnit, 0, A, 1, X, 1 );
324 chkxer();
327 INVALID, 0, A, 1, X, 1 );
328 chkxer();
331 CblasNonUnit, INVALID, A, 1, X, 1 );
332 chkxer();
335 CblasNonUnit, 2, A, 1, X, 1 );
336 chkxer();
339 CblasNonUnit, 0, A, 1, X, 0 );
340 chkxer();
343 CblasNonUnit, 0, A, 1, X, 1 );
344 chkxer();
347 CblasNonUnit, 0, A, 1, X, 1 );
348 chkxer();
351 INVALID, 0, A, 1, X, 1 );
352 chkxer();
355 CblasNonUnit, INVALID, A, 1, X, 1 );
356 chkxer();
359 CblasNonUnit, 2, A, 1, X, 1 );
360 chkxer();
363 CblasNonUnit, 0, A, 1, X, 0 );
364 chkxer();
365 } else if (strncmp( sf,"cblas_dtbmv",11)==0) {
366 cblas_rout = "cblas_dtbmv";
369 CblasNonUnit, 0, 0, A, 1, X, 1 );
370 chkxer();
373 CblasNonUnit, 0, 0, A, 1, X, 1 );
374 chkxer();
377 CblasNonUnit, 0, 0, A, 1, X, 1 );
378 chkxer();
381 INVALID, 0, 0, A, 1, X, 1 );
382 chkxer();
385 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
386 chkxer();
389 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
390 chkxer();
393 CblasNonUnit, 0, 1, A, 1, X, 1 );
394 chkxer();
397 CblasNonUnit, 0, 0, A, 1, X, 0 );
398 chkxer();
401 CblasNonUnit, 0, 0, A, 1, X, 1 );
402 chkxer();
405 CblasNonUnit, 0, 0, A, 1, X, 1 );
406 chkxer();
409 INVALID, 0, 0, A, 1, X, 1 );
410 chkxer();
413 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
414 chkxer();
417 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
418 chkxer();
421 CblasNonUnit, 0, 1, A, 1, X, 1 );
422 chkxer();
425 CblasNonUnit, 0, 0, A, 1, X, 0 );
426 chkxer();
427 } else if (strncmp( sf,"cblas_dtpmv",11)==0) {
428 cblas_rout = "cblas_dtpmv";
431 CblasNonUnit, 0, A, X, 1 );
432 chkxer();
435 CblasNonUnit, 0, A, X, 1 );
436 chkxer();
439 CblasNonUnit, 0, A, X, 1 );
440 chkxer();
443 INVALID, 0, A, X, 1 );
444 chkxer();
447 CblasNonUnit, INVALID, A, X, 1 );
448 chkxer();
451 CblasNonUnit, 0, A, X, 0 );
452 chkxer();
455 CblasNonUnit, 0, A, X, 1 );
456 chkxer();
459 CblasNonUnit, 0, A, X, 1 );
460 chkxer();
463 INVALID, 0, A, X, 1 );
464 chkxer();
467 CblasNonUnit, INVALID, A, X, 1 );
468 chkxer();
471 CblasNonUnit, 0, A, X, 0 );
472 chkxer();
473 } else if (strncmp( sf,"cblas_dtrsv",11)==0) {
474 cblas_rout = "cblas_dtrsv";
477 CblasNonUnit, 0, A, 1, X, 1 );
478 chkxer();
481 CblasNonUnit, 0, A, 1, X, 1 );
482 chkxer();
485 CblasNonUnit, 0, A, 1, X, 1 );
486 chkxer();
489 INVALID, 0, A, 1, X, 1 );
490 chkxer();
493 CblasNonUnit, INVALID, A, 1, X, 1 );
494 chkxer();
497 CblasNonUnit, 2, A, 1, X, 1 );
498 chkxer();
501 CblasNonUnit, 0, A, 1, X, 0 );
502 chkxer();
505 CblasNonUnit, 0, A, 1, X, 1 );
506 chkxer();
509 CblasNonUnit, 0, A, 1, X, 1 );
510 chkxer();
513 INVALID, 0, A, 1, X, 1 );
514 chkxer();
517 CblasNonUnit, INVALID, A, 1, X, 1 );
518 chkxer();
521 CblasNonUnit, 2, A, 1, X, 1 );
522 chkxer();
525 CblasNonUnit, 0, A, 1, X, 0 );
526 chkxer();
527 } else if (strncmp( sf,"cblas_dtbsv",11)==0) {
528 cblas_rout = "cblas_dtbsv";
531 CblasNonUnit, 0, 0, A, 1, X, 1 );
532 chkxer();
535 CblasNonUnit, 0, 0, A, 1, X, 1 );
536 chkxer();
539 CblasNonUnit, 0, 0, A, 1, X, 1 );
540 chkxer();
543 INVALID, 0, 0, A, 1, X, 1 );
544 chkxer();
547 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
548 chkxer();
551 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
552 chkxer();
555 CblasNonUnit, 0, 1, A, 1, X, 1 );
556 chkxer();
559 CblasNonUnit, 0, 0, A, 1, X, 0 );
560 chkxer();
563 CblasNonUnit, 0, 0, A, 1, X, 1 );
564 chkxer();
567 CblasNonUnit, 0, 0, A, 1, X, 1 );
568 chkxer();
571 INVALID, 0, 0, A, 1, X, 1 );
572 chkxer();
575 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
576 chkxer();
579 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
580 chkxer();
583 CblasNonUnit, 0, 1, A, 1, X, 1 );
584 chkxer();
587 CblasNonUnit, 0, 0, A, 1, X, 0 );
588 chkxer();
589 } else if (strncmp( sf,"cblas_dtpsv",11)==0) {
590 cblas_rout = "cblas_dtpsv";
593 CblasNonUnit, 0, A, X, 1 );
594 chkxer();
597 CblasNonUnit, 0, A, X, 1 );
598 chkxer();
601 CblasNonUnit, 0, A, X, 1 );
602 chkxer();
605 INVALID, 0, A, X, 1 );
606 chkxer();
609 CblasNonUnit, INVALID, A, X, 1 );
610 chkxer();
613 CblasNonUnit, 0, A, X, 0 );
614 chkxer();
617 CblasNonUnit, 0, A, X, 1 );
618 chkxer();
621 CblasNonUnit, 0, A, X, 1 );
622 chkxer();
625 INVALID, 0, A, X, 1 );
626 chkxer();
629 CblasNonUnit, INVALID, A, X, 1 );
630 chkxer();
633 CblasNonUnit, 0, A, X, 0 );
634 chkxer();
635 } else if (strncmp( sf,"cblas_dger",10)==0) {
636 cblas_rout = "cblas_dger";
638 cblas_dger(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );
639 chkxer();
641 cblas_dger(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
642 chkxer();
644 cblas_dger(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
645 chkxer();
647 cblas_dger(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
648 chkxer();
650 cblas_dger(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
651 chkxer();
653 cblas_dger(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );
654 chkxer();
656 cblas_dger(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
657 chkxer();
659 cblas_dger(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
660 chkxer();
662 cblas_dger(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
663 chkxer();
665 cblas_dger(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
666 chkxer();
668 cblas_dger(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );
669 chkxer();
670 } else if (strncmp( sf,"cblas_dsyr2",11)==0) {
671 cblas_rout = "cblas_dsyr2";
673 cblas_dsyr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 );
674 chkxer();
676 cblas_dsyr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
677 chkxer();
679 cblas_dsyr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
680 chkxer();
682 cblas_dsyr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
683 chkxer();
685 cblas_dsyr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
686 chkxer();
688 cblas_dsyr2(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
689 chkxer();
691 cblas_dsyr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
692 chkxer();
694 cblas_dsyr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
695 chkxer();
697 cblas_dsyr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
698 chkxer();
700 cblas_dsyr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
701 chkxer();
703 cblas_dsyr2(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
704 chkxer();
705 } else if (strncmp( sf,"cblas_dspr2",11)==0) {
706 cblas_rout = "cblas_dspr2";
708 cblas_dspr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A );
709 chkxer();
711 cblas_dspr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
712 chkxer();
714 cblas_dspr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
715 chkxer();
717 cblas_dspr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
718 chkxer();
720 cblas_dspr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
721 chkxer();
723 cblas_dspr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
724 chkxer();
726 cblas_dspr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
727 chkxer();
729 cblas_dspr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
730 chkxer();
732 cblas_dspr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
733 chkxer();
734 } else if (strncmp( sf,"cblas_dsyr",10)==0) {
735 cblas_rout = "cblas_dsyr";
737 cblas_dsyr(INVALID, CblasUpper, 0, ALPHA, X, 1, A, 1 );
738 chkxer();
740 cblas_dsyr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A, 1 );
741 chkxer();
743 cblas_dsyr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 );
744 chkxer();
746 cblas_dsyr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 );
747 chkxer();
749 cblas_dsyr(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 );
750 chkxer();
752 cblas_dsyr(CblasRowMajor, INVALID, 0, ALPHA, X, 1, A, 1 );
753 chkxer();
755 cblas_dsyr(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 );
756 chkxer();
758 cblas_dsyr(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 );
759 chkxer();
761 cblas_dsyr(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 );
762 chkxer();
763 } else if (strncmp( sf,"cblas_dspr",10)==0) {
764 cblas_rout = "cblas_dspr";
766 cblas_dspr(INVALID, CblasUpper, 0, ALPHA, X, 1, A );
767 chkxer();
769 cblas_dspr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A );
770 chkxer();
772 cblas_dspr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A );
773 chkxer();
775 cblas_dspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );
776 chkxer();
778 cblas_dspr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A );
779 chkxer();
781 cblas_dspr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A );
782 chkxer();
784 cblas_dspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );
785 chkxer();
786 }
787 if (cblas_ok == TRUE)
788 printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
789 else
790 printf("******* %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
791}
CBLAS_INT cblas_lerr
Definition c_d2chke.c:6
void chkxer(void)
Definition c_d2chke.c:16
CBLAS_INT cblas_ok
Definition c_d2chke.c:6
CBLAS_INT cblas_info
Definition c_d2chke.c:6
char * cblas_rout
Definition c_d2chke.c:8
CBLAS_INT link_xerbla
Definition c_d2chke.c:7
void cblas_dgemv(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const double alpha, const double *A, const CBLAS_INT lda, const double *X, const CBLAS_INT incX, const double beta, double *Y, const CBLAS_INT incY)
Definition cblas_dgemv.c:11
@ CblasUpper
Definition cblas.h:41
void cblas_dtbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const double *A, const CBLAS_INT lda, double *X, const CBLAS_INT incX)
Definition cblas_dtbmv.c:10
void cblas_xerbla(CBLAS_INT p, const char *rout, const char *form,...)
void cblas_dsyr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, double *A, const CBLAS_INT lda)
Definition cblas_dsyr.c:12
void cblas_dspr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, const double *Y, const CBLAS_INT incY, double *A)
Definition cblas_dspr2.c:10
void cblas_dspr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, double *Ap)
Definition cblas_dspr.c:12
@ CblasNoTrans
Definition cblas.h:40
void cblas_dtbsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const double *A, const CBLAS_INT lda, double *X, const CBLAS_INT incX)
Definition cblas_dtbsv.c:10
void cblas_dsbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const CBLAS_INT K, const double alpha, const double *A, const CBLAS_INT lda, const double *X, const CBLAS_INT incX, const double beta, double *Y, const CBLAS_INT incY)
Definition cblas_dsbmv.c:12
void cblas_dtrsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const double *A, const CBLAS_INT lda, double *X, const CBLAS_INT incX)
Definition cblas_dtrsv.c:10
void cblas_dger(CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, const double *Y, const CBLAS_INT incY, double *A, const CBLAS_INT lda)
Definition cblas_dger.c:12
@ CblasColMajor
Definition cblas.h:39
@ CblasRowMajor
Definition cblas.h:39
void cblas_dspmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *Ap, const double *X, const CBLAS_INT incX, const double beta, double *Y, const CBLAS_INT incY)
Definition cblas_dspmv.c:13
void cblas_dgbmv(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT KL, const CBLAS_INT KU, const double alpha, const double *A, const CBLAS_INT lda, const double *X, const CBLAS_INT incX, const double beta, double *Y, const CBLAS_INT incY)
Definition cblas_dgbmv.c:11
@ CblasNonUnit
Definition cblas.h:42
void cblas_dtrmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const double *A, const CBLAS_INT lda, double *X, const CBLAS_INT incX)
Definition cblas_dtrmv.c:12
#define CBLAS_INT
Definition cblas.h:24
void cblas_dsymv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *A, const CBLAS_INT lda, const double *X, const CBLAS_INT incX, const double beta, double *Y, const CBLAS_INT incY)
Definition cblas_dsymv.c:12
void cblas_dsyr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, const double *Y, const CBLAS_INT incY, double *A, const CBLAS_INT lda)
Definition cblas_dsyr2.c:12
void cblas_dtpsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const double *Ap, double *X, const CBLAS_INT incX)
Definition cblas_dtpsv.c:10
void cblas_dtpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const double *Ap, double *X, const CBLAS_INT incX)
Definition cblas_dtpmv.c:10
#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
Here is the call graph for this function: