LAPACK 3.11.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
c_s2chke.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_s2chke(char *rout) {
28 char *sf = ( rout ) ;
29 float 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;
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_sgemv",11)==0) {
49 cblas_rout = "cblas_sgemv";
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_sgbmv",11)==0) {
104 cblas_rout = "cblas_sgbmv";
106 cblas_sgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0,
107 ALPHA, A, 1, X, 1, BETA, Y, 1 );
108 chkxer();
110 cblas_sgbmv(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_sgbmv(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_ssymv",11)==0) {
174 cblas_rout = "cblas_ssymv";
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_ssbmv",11)==0) {
220 cblas_rout = "cblas_ssbmv";
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_sspmv",11)==0) {
274 cblas_rout = "cblas_sspmv";
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_strmv",11)==0) {
312 cblas_rout = "cblas_strmv";
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_stbmv",11)==0) {
366 cblas_rout = "cblas_stbmv";
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_stpmv",11)==0) {
428 cblas_rout = "cblas_stpmv";
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_strsv",11)==0) {
474 cblas_rout = "cblas_strsv";
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_stbsv",11)==0) {
528 cblas_rout = "cblas_stbsv";
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_stpsv",11)==0) {
590 cblas_rout = "cblas_stpsv";
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_sger",10)==0) {
636 cblas_rout = "cblas_sger";
638 cblas_sger(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );
639 chkxer();
641 cblas_sger(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
642 chkxer();
644 cblas_sger(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
645 chkxer();
647 cblas_sger(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
648 chkxer();
650 cblas_sger(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
651 chkxer();
653 cblas_sger(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );
654 chkxer();
656 cblas_sger(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
657 chkxer();
659 cblas_sger(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
660 chkxer();
662 cblas_sger(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
663 chkxer();
665 cblas_sger(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
666 chkxer();
668 cblas_sger(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );
669 chkxer();
670 } else if (strncmp( sf,"cblas_ssyr2",11)==0) {
671 cblas_rout = "cblas_ssyr2";
673 cblas_ssyr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 );
674 chkxer();
676 cblas_ssyr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
677 chkxer();
679 cblas_ssyr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
680 chkxer();
682 cblas_ssyr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
683 chkxer();
685 cblas_ssyr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
686 chkxer();
688 cblas_ssyr2(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
689 chkxer();
691 cblas_ssyr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
692 chkxer();
694 cblas_ssyr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
695 chkxer();
697 cblas_ssyr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
698 chkxer();
700 cblas_ssyr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
701 chkxer();
703 cblas_ssyr2(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
704 chkxer();
705 } else if (strncmp( sf,"cblas_sspr2",11)==0) {
706 cblas_rout = "cblas_sspr2";
708 cblas_sspr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A );
709 chkxer();
711 cblas_sspr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
712 chkxer();
714 cblas_sspr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
715 chkxer();
717 cblas_sspr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
718 chkxer();
720 cblas_sspr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
721 chkxer();
723 cblas_sspr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
724 chkxer();
726 cblas_sspr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
727 chkxer();
729 cblas_sspr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
730 chkxer();
732 cblas_sspr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
733 chkxer();
734 } else if (strncmp( sf,"cblas_ssyr",10)==0) {
735 cblas_rout = "cblas_ssyr";
737 cblas_ssyr(INVALID, CblasUpper, 0, ALPHA, X, 1, A, 1 );
738 chkxer();
740 cblas_ssyr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A, 1 );
741 chkxer();
743 cblas_ssyr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 );
744 chkxer();
746 cblas_ssyr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 );
747 chkxer();
749 cblas_ssyr(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 );
750 chkxer();
752 cblas_ssyr(CblasRowMajor, INVALID, 0, ALPHA, X, 1, A, 1 );
753 chkxer();
755 cblas_ssyr(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 );
756 chkxer();
758 cblas_ssyr(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 );
759 chkxer();
761 cblas_ssyr(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 );
762 chkxer();
763 } else if (strncmp( sf,"cblas_sspr",10)==0) {
764 cblas_rout = "cblas_sspr";
766 cblas_sspr(INVALID, CblasUpper, 0, ALPHA, X, 1, A );
767 chkxer();
769 cblas_sspr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A );
770 chkxer();
772 cblas_sspr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A );
773 chkxer();
775 cblas_sspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );
776 chkxer();
778 cblas_sspr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A );
779 chkxer();
781 cblas_sspr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A );
782 chkxer();
784 cblas_sspr(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}
int link_xerbla
Definition: c_s2chke.c:7
int cblas_lerr
Definition: c_s2chke.c:6
void chkxer(void)
Definition: c_s2chke.c:16
int cblas_info
Definition: c_s2chke.c:6
int cblas_ok
Definition: c_s2chke.c:6
char * cblas_rout
Definition: c_s2chke.c:8
void cblas_sspmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *Ap, const float *X, const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY)
Definition: cblas_sspmv.c:11
void cblas_ssymv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, const float *X, const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY)
Definition: cblas_ssymv.c:12
void cblas_sgemv(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, const float *X, const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY)
Definition: cblas_sgemv.c:11
@ CblasUpper
Definition: cblas.h:41
void cblas_xerbla(CBLAS_INT p, const char *rout, const char *form,...)
Definition: cblas_xerbla.c:12
void cblas_strsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const float *A, const CBLAS_INT lda, float *X, const CBLAS_INT incX)
Definition: cblas_strsv.c:10
@ CblasNoTrans
Definition: cblas.h:40
void cblas_sspr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, float *Ap)
Definition: cblas_sspr.c:12
void cblas_sgbmv(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT KL, const CBLAS_INT KU, const float alpha, const float *A, const CBLAS_INT lda, const float *X, const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY)
Definition: cblas_sgbmv.c:12
void cblas_strmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const float *A, const CBLAS_INT lda, float *X, const CBLAS_INT incX)
Definition: cblas_strmv.c:11
void cblas_ssyr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, const float *Y, const CBLAS_INT incY, float *A, const CBLAS_INT lda)
Definition: cblas_ssyr2.c:12
@ CblasColMajor
Definition: cblas.h:39
@ CblasRowMajor
Definition: cblas.h:39
void cblas_stbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const float *A, const CBLAS_INT lda, float *X, const CBLAS_INT incX)
Definition: cblas_stbmv.c:10
void cblas_sger(CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, const float *Y, const CBLAS_INT incY, float *A, const CBLAS_INT lda)
Definition: cblas_sger.c:12
@ CblasNonUnit
Definition: cblas.h:42
void cblas_stpsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const float *Ap, float *X, const CBLAS_INT incX)
Definition: cblas_stpsv.c:10
void cblas_ssbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, const CBLAS_INT lda, const float *X, const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY)
Definition: cblas_ssbmv.c:11
void cblas_stbsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const float *A, const CBLAS_INT lda, float *X, const CBLAS_INT incX)
Definition: cblas_stbsv.c:10
void cblas_ssyr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, float *A, const CBLAS_INT lda)
Definition: cblas_ssyr.c:11
void cblas_stpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const float *Ap, float *X, const CBLAS_INT incX)
Definition: cblas_stpmv.c:11
void cblas_sspr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, const float *Y, const CBLAS_INT incY, float *A)
Definition: cblas_sspr2.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 F77_s2chke
Definition: cblas_test.h:77
#define TRUE
Definition: cblas_test.h:10
#define FALSE
Definition: cblas_test.h:14
#define PASSED
Definition: cblas_test.h:11