1 #include <gsl/gsl_test.h>
2 #include <gsl/gsl_ieee_utils.h>
3 #include <gsl/gsl_math.h>
4 #include <gsl/gsl_cblas.h>
5
6 #include "tests.h"
7
8 void
test_trmv(void)9 test_trmv (void) {
10 const double flteps = 1e-4, dbleps = 1e-6;
11 {
12 int order = 101;
13 int trans = 111;
14 int uplo = 121;
15 int diag = 131;
16 int N = 1;
17 int lda = 1;
18 float A[] = { 0.987f };
19 float X[] = { -0.138f };
20 int incX = -1;
21 float x_expected[] = { -0.136206f };
22 cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
23 {
24 int i;
25 for (i = 0; i < 1; i++) {
26 gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 814)");
27 }
28 };
29 };
30
31
32 {
33 int order = 101;
34 int trans = 111;
35 int uplo = 121;
36 int diag = 132;
37 int N = 1;
38 int lda = 1;
39 float A[] = { 0.987f };
40 float X[] = { -0.138f };
41 int incX = -1;
42 float x_expected[] = { -0.138f };
43 cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
44 {
45 int i;
46 for (i = 0; i < 1; i++) {
47 gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 815)");
48 }
49 };
50 };
51
52
53 {
54 int order = 101;
55 int trans = 111;
56 int uplo = 122;
57 int diag = 131;
58 int N = 1;
59 int lda = 1;
60 float A[] = { 0.987f };
61 float X[] = { -0.138f };
62 int incX = -1;
63 float x_expected[] = { -0.136206f };
64 cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
65 {
66 int i;
67 for (i = 0; i < 1; i++) {
68 gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 816)");
69 }
70 };
71 };
72
73
74 {
75 int order = 101;
76 int trans = 111;
77 int uplo = 122;
78 int diag = 132;
79 int N = 1;
80 int lda = 1;
81 float A[] = { 0.987f };
82 float X[] = { -0.138f };
83 int incX = -1;
84 float x_expected[] = { -0.138f };
85 cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
86 {
87 int i;
88 for (i = 0; i < 1; i++) {
89 gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 817)");
90 }
91 };
92 };
93
94
95 {
96 int order = 102;
97 int trans = 111;
98 int uplo = 121;
99 int diag = 131;
100 int N = 1;
101 int lda = 1;
102 float A[] = { 0.987f };
103 float X[] = { -0.138f };
104 int incX = -1;
105 float x_expected[] = { -0.136206f };
106 cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
107 {
108 int i;
109 for (i = 0; i < 1; i++) {
110 gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 818)");
111 }
112 };
113 };
114
115
116 {
117 int order = 102;
118 int trans = 111;
119 int uplo = 121;
120 int diag = 132;
121 int N = 1;
122 int lda = 1;
123 float A[] = { 0.987f };
124 float X[] = { -0.138f };
125 int incX = -1;
126 float x_expected[] = { -0.138f };
127 cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
128 {
129 int i;
130 for (i = 0; i < 1; i++) {
131 gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 819)");
132 }
133 };
134 };
135
136
137 {
138 int order = 102;
139 int trans = 111;
140 int uplo = 122;
141 int diag = 131;
142 int N = 1;
143 int lda = 1;
144 float A[] = { 0.987f };
145 float X[] = { -0.138f };
146 int incX = -1;
147 float x_expected[] = { -0.136206f };
148 cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
149 {
150 int i;
151 for (i = 0; i < 1; i++) {
152 gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 820)");
153 }
154 };
155 };
156
157
158 {
159 int order = 102;
160 int trans = 111;
161 int uplo = 122;
162 int diag = 132;
163 int N = 1;
164 int lda = 1;
165 float A[] = { 0.987f };
166 float X[] = { -0.138f };
167 int incX = -1;
168 float x_expected[] = { -0.138f };
169 cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
170 {
171 int i;
172 for (i = 0; i < 1; i++) {
173 gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 821)");
174 }
175 };
176 };
177
178
179 {
180 int order = 101;
181 int trans = 112;
182 int uplo = 121;
183 int diag = 131;
184 int N = 1;
185 int lda = 1;
186 float A[] = { -0.329f };
187 float X[] = { 0.463f };
188 int incX = -1;
189 float x_expected[] = { -0.152327f };
190 cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
191 {
192 int i;
193 for (i = 0; i < 1; i++) {
194 gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 822)");
195 }
196 };
197 };
198
199
200 {
201 int order = 101;
202 int trans = 112;
203 int uplo = 121;
204 int diag = 132;
205 int N = 1;
206 int lda = 1;
207 float A[] = { -0.329f };
208 float X[] = { 0.463f };
209 int incX = -1;
210 float x_expected[] = { 0.463f };
211 cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
212 {
213 int i;
214 for (i = 0; i < 1; i++) {
215 gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 823)");
216 }
217 };
218 };
219
220
221 {
222 int order = 101;
223 int trans = 112;
224 int uplo = 122;
225 int diag = 131;
226 int N = 1;
227 int lda = 1;
228 float A[] = { -0.329f };
229 float X[] = { 0.463f };
230 int incX = -1;
231 float x_expected[] = { -0.152327f };
232 cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
233 {
234 int i;
235 for (i = 0; i < 1; i++) {
236 gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 824)");
237 }
238 };
239 };
240
241
242 {
243 int order = 101;
244 int trans = 112;
245 int uplo = 122;
246 int diag = 132;
247 int N = 1;
248 int lda = 1;
249 float A[] = { -0.329f };
250 float X[] = { 0.463f };
251 int incX = -1;
252 float x_expected[] = { 0.463f };
253 cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
254 {
255 int i;
256 for (i = 0; i < 1; i++) {
257 gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 825)");
258 }
259 };
260 };
261
262
263 {
264 int order = 102;
265 int trans = 112;
266 int uplo = 121;
267 int diag = 131;
268 int N = 1;
269 int lda = 1;
270 float A[] = { -0.329f };
271 float X[] = { 0.463f };
272 int incX = -1;
273 float x_expected[] = { -0.152327f };
274 cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
275 {
276 int i;
277 for (i = 0; i < 1; i++) {
278 gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 826)");
279 }
280 };
281 };
282
283
284 {
285 int order = 102;
286 int trans = 112;
287 int uplo = 121;
288 int diag = 132;
289 int N = 1;
290 int lda = 1;
291 float A[] = { -0.329f };
292 float X[] = { 0.463f };
293 int incX = -1;
294 float x_expected[] = { 0.463f };
295 cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
296 {
297 int i;
298 for (i = 0; i < 1; i++) {
299 gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 827)");
300 }
301 };
302 };
303
304
305 {
306 int order = 102;
307 int trans = 112;
308 int uplo = 122;
309 int diag = 131;
310 int N = 1;
311 int lda = 1;
312 float A[] = { -0.329f };
313 float X[] = { 0.463f };
314 int incX = -1;
315 float x_expected[] = { -0.152327f };
316 cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
317 {
318 int i;
319 for (i = 0; i < 1; i++) {
320 gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 828)");
321 }
322 };
323 };
324
325
326 {
327 int order = 102;
328 int trans = 112;
329 int uplo = 122;
330 int diag = 132;
331 int N = 1;
332 int lda = 1;
333 float A[] = { -0.329f };
334 float X[] = { 0.463f };
335 int incX = -1;
336 float x_expected[] = { 0.463f };
337 cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
338 {
339 int i;
340 for (i = 0; i < 1; i++) {
341 gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 829)");
342 }
343 };
344 };
345
346
347 {
348 int order = 101;
349 int trans = 111;
350 int uplo = 121;
351 int diag = 131;
352 int N = 1;
353 int lda = 1;
354 double A[] = { -0.429 };
355 double X[] = { -0.899 };
356 int incX = -1;
357 double x_expected[] = { 0.385671 };
358 cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
359 {
360 int i;
361 for (i = 0; i < 1; i++) {
362 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 830)");
363 }
364 };
365 };
366
367
368 {
369 int order = 101;
370 int trans = 111;
371 int uplo = 121;
372 int diag = 132;
373 int N = 1;
374 int lda = 1;
375 double A[] = { -0.429 };
376 double X[] = { -0.899 };
377 int incX = -1;
378 double x_expected[] = { -0.899 };
379 cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
380 {
381 int i;
382 for (i = 0; i < 1; i++) {
383 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 831)");
384 }
385 };
386 };
387
388
389 {
390 int order = 101;
391 int trans = 111;
392 int uplo = 122;
393 int diag = 131;
394 int N = 1;
395 int lda = 1;
396 double A[] = { -0.429 };
397 double X[] = { -0.899 };
398 int incX = -1;
399 double x_expected[] = { 0.385671 };
400 cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
401 {
402 int i;
403 for (i = 0; i < 1; i++) {
404 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 832)");
405 }
406 };
407 };
408
409
410 {
411 int order = 101;
412 int trans = 111;
413 int uplo = 122;
414 int diag = 132;
415 int N = 1;
416 int lda = 1;
417 double A[] = { -0.429 };
418 double X[] = { -0.899 };
419 int incX = -1;
420 double x_expected[] = { -0.899 };
421 cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
422 {
423 int i;
424 for (i = 0; i < 1; i++) {
425 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 833)");
426 }
427 };
428 };
429
430
431 {
432 int order = 102;
433 int trans = 111;
434 int uplo = 121;
435 int diag = 131;
436 int N = 1;
437 int lda = 1;
438 double A[] = { -0.429 };
439 double X[] = { -0.899 };
440 int incX = -1;
441 double x_expected[] = { 0.385671 };
442 cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
443 {
444 int i;
445 for (i = 0; i < 1; i++) {
446 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 834)");
447 }
448 };
449 };
450
451
452 {
453 int order = 102;
454 int trans = 111;
455 int uplo = 121;
456 int diag = 132;
457 int N = 1;
458 int lda = 1;
459 double A[] = { -0.429 };
460 double X[] = { -0.899 };
461 int incX = -1;
462 double x_expected[] = { -0.899 };
463 cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
464 {
465 int i;
466 for (i = 0; i < 1; i++) {
467 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 835)");
468 }
469 };
470 };
471
472
473 {
474 int order = 102;
475 int trans = 111;
476 int uplo = 122;
477 int diag = 131;
478 int N = 1;
479 int lda = 1;
480 double A[] = { -0.429 };
481 double X[] = { -0.899 };
482 int incX = -1;
483 double x_expected[] = { 0.385671 };
484 cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
485 {
486 int i;
487 for (i = 0; i < 1; i++) {
488 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 836)");
489 }
490 };
491 };
492
493
494 {
495 int order = 102;
496 int trans = 111;
497 int uplo = 122;
498 int diag = 132;
499 int N = 1;
500 int lda = 1;
501 double A[] = { -0.429 };
502 double X[] = { -0.899 };
503 int incX = -1;
504 double x_expected[] = { -0.899 };
505 cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
506 {
507 int i;
508 for (i = 0; i < 1; i++) {
509 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 837)");
510 }
511 };
512 };
513
514
515 {
516 int order = 101;
517 int trans = 112;
518 int uplo = 121;
519 int diag = 131;
520 int N = 1;
521 int lda = 1;
522 double A[] = { 0.842 };
523 double X[] = { 0.192 };
524 int incX = -1;
525 double x_expected[] = { 0.161664 };
526 cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
527 {
528 int i;
529 for (i = 0; i < 1; i++) {
530 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 838)");
531 }
532 };
533 };
534
535
536 {
537 int order = 101;
538 int trans = 112;
539 int uplo = 121;
540 int diag = 132;
541 int N = 1;
542 int lda = 1;
543 double A[] = { 0.842 };
544 double X[] = { 0.192 };
545 int incX = -1;
546 double x_expected[] = { 0.192 };
547 cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
548 {
549 int i;
550 for (i = 0; i < 1; i++) {
551 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 839)");
552 }
553 };
554 };
555
556
557 {
558 int order = 101;
559 int trans = 112;
560 int uplo = 122;
561 int diag = 131;
562 int N = 1;
563 int lda = 1;
564 double A[] = { 0.842 };
565 double X[] = { 0.192 };
566 int incX = -1;
567 double x_expected[] = { 0.161664 };
568 cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
569 {
570 int i;
571 for (i = 0; i < 1; i++) {
572 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 840)");
573 }
574 };
575 };
576
577
578 {
579 int order = 101;
580 int trans = 112;
581 int uplo = 122;
582 int diag = 132;
583 int N = 1;
584 int lda = 1;
585 double A[] = { 0.842 };
586 double X[] = { 0.192 };
587 int incX = -1;
588 double x_expected[] = { 0.192 };
589 cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
590 {
591 int i;
592 for (i = 0; i < 1; i++) {
593 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 841)");
594 }
595 };
596 };
597
598
599 {
600 int order = 102;
601 int trans = 112;
602 int uplo = 121;
603 int diag = 131;
604 int N = 1;
605 int lda = 1;
606 double A[] = { 0.842 };
607 double X[] = { 0.192 };
608 int incX = -1;
609 double x_expected[] = { 0.161664 };
610 cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
611 {
612 int i;
613 for (i = 0; i < 1; i++) {
614 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 842)");
615 }
616 };
617 };
618
619
620 {
621 int order = 102;
622 int trans = 112;
623 int uplo = 121;
624 int diag = 132;
625 int N = 1;
626 int lda = 1;
627 double A[] = { 0.842 };
628 double X[] = { 0.192 };
629 int incX = -1;
630 double x_expected[] = { 0.192 };
631 cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
632 {
633 int i;
634 for (i = 0; i < 1; i++) {
635 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 843)");
636 }
637 };
638 };
639
640
641 {
642 int order = 102;
643 int trans = 112;
644 int uplo = 122;
645 int diag = 131;
646 int N = 1;
647 int lda = 1;
648 double A[] = { 0.842 };
649 double X[] = { 0.192 };
650 int incX = -1;
651 double x_expected[] = { 0.161664 };
652 cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
653 {
654 int i;
655 for (i = 0; i < 1; i++) {
656 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 844)");
657 }
658 };
659 };
660
661
662 {
663 int order = 102;
664 int trans = 112;
665 int uplo = 122;
666 int diag = 132;
667 int N = 1;
668 int lda = 1;
669 double A[] = { 0.842 };
670 double X[] = { 0.192 };
671 int incX = -1;
672 double x_expected[] = { 0.192 };
673 cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
674 {
675 int i;
676 for (i = 0; i < 1; i++) {
677 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 845)");
678 }
679 };
680 };
681
682
683 {
684 int order = 101;
685 int trans = 111;
686 int uplo = 121;
687 int diag = 131;
688 int N = 1;
689 int lda = 1;
690 float A[] = { -0.162f, -0.108f };
691 float X[] = { 0.542f, 0.461f };
692 int incX = -1;
693 float x_expected[] = { -0.038016f, -0.133218f };
694 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
695 {
696 int i;
697 for (i = 0; i < 1; i++) {
698 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 846) real");
699 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 846) imag");
700 };
701 };
702 };
703
704
705 {
706 int order = 101;
707 int trans = 111;
708 int uplo = 121;
709 int diag = 132;
710 int N = 1;
711 int lda = 1;
712 float A[] = { -0.162f, -0.108f };
713 float X[] = { 0.542f, 0.461f };
714 int incX = -1;
715 float x_expected[] = { 0.542f, 0.461f };
716 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
717 {
718 int i;
719 for (i = 0; i < 1; i++) {
720 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 847) real");
721 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 847) imag");
722 };
723 };
724 };
725
726
727 {
728 int order = 101;
729 int trans = 111;
730 int uplo = 122;
731 int diag = 131;
732 int N = 1;
733 int lda = 1;
734 float A[] = { -0.162f, -0.108f };
735 float X[] = { 0.542f, 0.461f };
736 int incX = -1;
737 float x_expected[] = { -0.038016f, -0.133218f };
738 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
739 {
740 int i;
741 for (i = 0; i < 1; i++) {
742 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 848) real");
743 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 848) imag");
744 };
745 };
746 };
747
748
749 {
750 int order = 101;
751 int trans = 111;
752 int uplo = 122;
753 int diag = 132;
754 int N = 1;
755 int lda = 1;
756 float A[] = { -0.162f, -0.108f };
757 float X[] = { 0.542f, 0.461f };
758 int incX = -1;
759 float x_expected[] = { 0.542f, 0.461f };
760 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
761 {
762 int i;
763 for (i = 0; i < 1; i++) {
764 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 849) real");
765 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 849) imag");
766 };
767 };
768 };
769
770
771 {
772 int order = 102;
773 int trans = 111;
774 int uplo = 121;
775 int diag = 131;
776 int N = 1;
777 int lda = 1;
778 float A[] = { -0.162f, -0.108f };
779 float X[] = { 0.542f, 0.461f };
780 int incX = -1;
781 float x_expected[] = { -0.038016f, -0.133218f };
782 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
783 {
784 int i;
785 for (i = 0; i < 1; i++) {
786 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 850) real");
787 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 850) imag");
788 };
789 };
790 };
791
792
793 {
794 int order = 102;
795 int trans = 111;
796 int uplo = 121;
797 int diag = 132;
798 int N = 1;
799 int lda = 1;
800 float A[] = { -0.162f, -0.108f };
801 float X[] = { 0.542f, 0.461f };
802 int incX = -1;
803 float x_expected[] = { 0.542f, 0.461f };
804 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
805 {
806 int i;
807 for (i = 0; i < 1; i++) {
808 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 851) real");
809 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 851) imag");
810 };
811 };
812 };
813
814
815 {
816 int order = 102;
817 int trans = 111;
818 int uplo = 122;
819 int diag = 131;
820 int N = 1;
821 int lda = 1;
822 float A[] = { -0.162f, -0.108f };
823 float X[] = { 0.542f, 0.461f };
824 int incX = -1;
825 float x_expected[] = { -0.038016f, -0.133218f };
826 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
827 {
828 int i;
829 for (i = 0; i < 1; i++) {
830 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 852) real");
831 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 852) imag");
832 };
833 };
834 };
835
836
837 {
838 int order = 102;
839 int trans = 111;
840 int uplo = 122;
841 int diag = 132;
842 int N = 1;
843 int lda = 1;
844 float A[] = { -0.162f, -0.108f };
845 float X[] = { 0.542f, 0.461f };
846 int incX = -1;
847 float x_expected[] = { 0.542f, 0.461f };
848 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
849 {
850 int i;
851 for (i = 0; i < 1; i++) {
852 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 853) real");
853 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 853) imag");
854 };
855 };
856 };
857
858
859 {
860 int order = 101;
861 int trans = 112;
862 int uplo = 121;
863 int diag = 131;
864 int N = 1;
865 int lda = 1;
866 float A[] = { 0.547f, 0.583f };
867 float X[] = { -0.302f, 0.434f };
868 int incX = -1;
869 float x_expected[] = { -0.418216f, 0.061332f };
870 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
871 {
872 int i;
873 for (i = 0; i < 1; i++) {
874 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 854) real");
875 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 854) imag");
876 };
877 };
878 };
879
880
881 {
882 int order = 101;
883 int trans = 112;
884 int uplo = 121;
885 int diag = 132;
886 int N = 1;
887 int lda = 1;
888 float A[] = { 0.547f, 0.583f };
889 float X[] = { -0.302f, 0.434f };
890 int incX = -1;
891 float x_expected[] = { -0.302f, 0.434f };
892 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
893 {
894 int i;
895 for (i = 0; i < 1; i++) {
896 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 855) real");
897 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 855) imag");
898 };
899 };
900 };
901
902
903 {
904 int order = 101;
905 int trans = 112;
906 int uplo = 122;
907 int diag = 131;
908 int N = 1;
909 int lda = 1;
910 float A[] = { 0.547f, 0.583f };
911 float X[] = { -0.302f, 0.434f };
912 int incX = -1;
913 float x_expected[] = { -0.418216f, 0.061332f };
914 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
915 {
916 int i;
917 for (i = 0; i < 1; i++) {
918 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 856) real");
919 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 856) imag");
920 };
921 };
922 };
923
924
925 {
926 int order = 101;
927 int trans = 112;
928 int uplo = 122;
929 int diag = 132;
930 int N = 1;
931 int lda = 1;
932 float A[] = { 0.547f, 0.583f };
933 float X[] = { -0.302f, 0.434f };
934 int incX = -1;
935 float x_expected[] = { -0.302f, 0.434f };
936 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
937 {
938 int i;
939 for (i = 0; i < 1; i++) {
940 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 857) real");
941 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 857) imag");
942 };
943 };
944 };
945
946
947 {
948 int order = 102;
949 int trans = 112;
950 int uplo = 121;
951 int diag = 131;
952 int N = 1;
953 int lda = 1;
954 float A[] = { 0.547f, 0.583f };
955 float X[] = { -0.302f, 0.434f };
956 int incX = -1;
957 float x_expected[] = { -0.418216f, 0.061332f };
958 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
959 {
960 int i;
961 for (i = 0; i < 1; i++) {
962 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 858) real");
963 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 858) imag");
964 };
965 };
966 };
967
968
969 {
970 int order = 102;
971 int trans = 112;
972 int uplo = 121;
973 int diag = 132;
974 int N = 1;
975 int lda = 1;
976 float A[] = { 0.547f, 0.583f };
977 float X[] = { -0.302f, 0.434f };
978 int incX = -1;
979 float x_expected[] = { -0.302f, 0.434f };
980 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
981 {
982 int i;
983 for (i = 0; i < 1; i++) {
984 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 859) real");
985 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 859) imag");
986 };
987 };
988 };
989
990
991 {
992 int order = 102;
993 int trans = 112;
994 int uplo = 122;
995 int diag = 131;
996 int N = 1;
997 int lda = 1;
998 float A[] = { 0.547f, 0.583f };
999 float X[] = { -0.302f, 0.434f };
1000 int incX = -1;
1001 float x_expected[] = { -0.418216f, 0.061332f };
1002 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1003 {
1004 int i;
1005 for (i = 0; i < 1; i++) {
1006 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 860) real");
1007 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 860) imag");
1008 };
1009 };
1010 };
1011
1012
1013 {
1014 int order = 102;
1015 int trans = 112;
1016 int uplo = 122;
1017 int diag = 132;
1018 int N = 1;
1019 int lda = 1;
1020 float A[] = { 0.547f, 0.583f };
1021 float X[] = { -0.302f, 0.434f };
1022 int incX = -1;
1023 float x_expected[] = { -0.302f, 0.434f };
1024 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1025 {
1026 int i;
1027 for (i = 0; i < 1; i++) {
1028 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 861) real");
1029 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 861) imag");
1030 };
1031 };
1032 };
1033
1034
1035 {
1036 int order = 101;
1037 int trans = 113;
1038 int uplo = 121;
1039 int diag = 131;
1040 int N = 1;
1041 int lda = 1;
1042 float A[] = { 0.216f, 0.192f };
1043 float X[] = { -0.564f, -0.297f };
1044 int incX = -1;
1045 float x_expected[] = { -0.178848f, 0.044136f };
1046 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1047 {
1048 int i;
1049 for (i = 0; i < 1; i++) {
1050 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 862) real");
1051 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 862) imag");
1052 };
1053 };
1054 };
1055
1056
1057 {
1058 int order = 101;
1059 int trans = 113;
1060 int uplo = 121;
1061 int diag = 132;
1062 int N = 1;
1063 int lda = 1;
1064 float A[] = { 0.216f, 0.192f };
1065 float X[] = { -0.564f, -0.297f };
1066 int incX = -1;
1067 float x_expected[] = { -0.564f, -0.297f };
1068 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1069 {
1070 int i;
1071 for (i = 0; i < 1; i++) {
1072 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 863) real");
1073 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 863) imag");
1074 };
1075 };
1076 };
1077
1078
1079 {
1080 int order = 101;
1081 int trans = 113;
1082 int uplo = 122;
1083 int diag = 131;
1084 int N = 1;
1085 int lda = 1;
1086 float A[] = { 0.216f, 0.192f };
1087 float X[] = { -0.564f, -0.297f };
1088 int incX = -1;
1089 float x_expected[] = { -0.178848f, 0.044136f };
1090 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1091 {
1092 int i;
1093 for (i = 0; i < 1; i++) {
1094 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 864) real");
1095 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 864) imag");
1096 };
1097 };
1098 };
1099
1100
1101 {
1102 int order = 101;
1103 int trans = 113;
1104 int uplo = 122;
1105 int diag = 132;
1106 int N = 1;
1107 int lda = 1;
1108 float A[] = { 0.216f, 0.192f };
1109 float X[] = { -0.564f, -0.297f };
1110 int incX = -1;
1111 float x_expected[] = { -0.564f, -0.297f };
1112 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1113 {
1114 int i;
1115 for (i = 0; i < 1; i++) {
1116 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 865) real");
1117 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 865) imag");
1118 };
1119 };
1120 };
1121
1122
1123 {
1124 int order = 102;
1125 int trans = 113;
1126 int uplo = 121;
1127 int diag = 131;
1128 int N = 1;
1129 int lda = 1;
1130 float A[] = { 0.216f, 0.192f };
1131 float X[] = { -0.564f, -0.297f };
1132 int incX = -1;
1133 float x_expected[] = { -0.178848f, 0.044136f };
1134 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1135 {
1136 int i;
1137 for (i = 0; i < 1; i++) {
1138 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 866) real");
1139 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 866) imag");
1140 };
1141 };
1142 };
1143
1144
1145 {
1146 int order = 102;
1147 int trans = 113;
1148 int uplo = 121;
1149 int diag = 132;
1150 int N = 1;
1151 int lda = 1;
1152 float A[] = { 0.216f, 0.192f };
1153 float X[] = { -0.564f, -0.297f };
1154 int incX = -1;
1155 float x_expected[] = { -0.564f, -0.297f };
1156 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1157 {
1158 int i;
1159 for (i = 0; i < 1; i++) {
1160 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 867) real");
1161 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 867) imag");
1162 };
1163 };
1164 };
1165
1166
1167 {
1168 int order = 102;
1169 int trans = 113;
1170 int uplo = 122;
1171 int diag = 131;
1172 int N = 1;
1173 int lda = 1;
1174 float A[] = { 0.216f, 0.192f };
1175 float X[] = { -0.564f, -0.297f };
1176 int incX = -1;
1177 float x_expected[] = { -0.178848f, 0.044136f };
1178 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1179 {
1180 int i;
1181 for (i = 0; i < 1; i++) {
1182 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 868) real");
1183 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 868) imag");
1184 };
1185 };
1186 };
1187
1188
1189 {
1190 int order = 102;
1191 int trans = 113;
1192 int uplo = 122;
1193 int diag = 132;
1194 int N = 1;
1195 int lda = 1;
1196 float A[] = { 0.216f, 0.192f };
1197 float X[] = { -0.564f, -0.297f };
1198 int incX = -1;
1199 float x_expected[] = { -0.564f, -0.297f };
1200 cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1201 {
1202 int i;
1203 for (i = 0; i < 1; i++) {
1204 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 869) real");
1205 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 869) imag");
1206 };
1207 };
1208 };
1209
1210
1211 {
1212 int order = 101;
1213 int trans = 111;
1214 int uplo = 121;
1215 int diag = 131;
1216 int N = 1;
1217 int lda = 1;
1218 double A[] = { 0.693, -0.22 };
1219 double X[] = { -0.101, 0.889 };
1220 int incX = -1;
1221 double x_expected[] = { 0.125587, 0.638297 };
1222 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1223 {
1224 int i;
1225 for (i = 0; i < 1; i++) {
1226 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 870) real");
1227 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 870) imag");
1228 };
1229 };
1230 };
1231
1232
1233 {
1234 int order = 101;
1235 int trans = 111;
1236 int uplo = 121;
1237 int diag = 132;
1238 int N = 1;
1239 int lda = 1;
1240 double A[] = { 0.693, -0.22 };
1241 double X[] = { -0.101, 0.889 };
1242 int incX = -1;
1243 double x_expected[] = { -0.101, 0.889 };
1244 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1245 {
1246 int i;
1247 for (i = 0; i < 1; i++) {
1248 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 871) real");
1249 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 871) imag");
1250 };
1251 };
1252 };
1253
1254
1255 {
1256 int order = 101;
1257 int trans = 111;
1258 int uplo = 122;
1259 int diag = 131;
1260 int N = 1;
1261 int lda = 1;
1262 double A[] = { 0.693, -0.22 };
1263 double X[] = { -0.101, 0.889 };
1264 int incX = -1;
1265 double x_expected[] = { 0.125587, 0.638297 };
1266 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1267 {
1268 int i;
1269 for (i = 0; i < 1; i++) {
1270 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 872) real");
1271 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 872) imag");
1272 };
1273 };
1274 };
1275
1276
1277 {
1278 int order = 101;
1279 int trans = 111;
1280 int uplo = 122;
1281 int diag = 132;
1282 int N = 1;
1283 int lda = 1;
1284 double A[] = { 0.693, -0.22 };
1285 double X[] = { -0.101, 0.889 };
1286 int incX = -1;
1287 double x_expected[] = { -0.101, 0.889 };
1288 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1289 {
1290 int i;
1291 for (i = 0; i < 1; i++) {
1292 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 873) real");
1293 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 873) imag");
1294 };
1295 };
1296 };
1297
1298
1299 {
1300 int order = 102;
1301 int trans = 111;
1302 int uplo = 121;
1303 int diag = 131;
1304 int N = 1;
1305 int lda = 1;
1306 double A[] = { 0.693, -0.22 };
1307 double X[] = { -0.101, 0.889 };
1308 int incX = -1;
1309 double x_expected[] = { 0.125587, 0.638297 };
1310 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1311 {
1312 int i;
1313 for (i = 0; i < 1; i++) {
1314 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 874) real");
1315 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 874) imag");
1316 };
1317 };
1318 };
1319
1320
1321 {
1322 int order = 102;
1323 int trans = 111;
1324 int uplo = 121;
1325 int diag = 132;
1326 int N = 1;
1327 int lda = 1;
1328 double A[] = { 0.693, -0.22 };
1329 double X[] = { -0.101, 0.889 };
1330 int incX = -1;
1331 double x_expected[] = { -0.101, 0.889 };
1332 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1333 {
1334 int i;
1335 for (i = 0; i < 1; i++) {
1336 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 875) real");
1337 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 875) imag");
1338 };
1339 };
1340 };
1341
1342
1343 {
1344 int order = 102;
1345 int trans = 111;
1346 int uplo = 122;
1347 int diag = 131;
1348 int N = 1;
1349 int lda = 1;
1350 double A[] = { 0.693, -0.22 };
1351 double X[] = { -0.101, 0.889 };
1352 int incX = -1;
1353 double x_expected[] = { 0.125587, 0.638297 };
1354 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1355 {
1356 int i;
1357 for (i = 0; i < 1; i++) {
1358 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 876) real");
1359 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 876) imag");
1360 };
1361 };
1362 };
1363
1364
1365 {
1366 int order = 102;
1367 int trans = 111;
1368 int uplo = 122;
1369 int diag = 132;
1370 int N = 1;
1371 int lda = 1;
1372 double A[] = { 0.693, -0.22 };
1373 double X[] = { -0.101, 0.889 };
1374 int incX = -1;
1375 double x_expected[] = { -0.101, 0.889 };
1376 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1377 {
1378 int i;
1379 for (i = 0; i < 1; i++) {
1380 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 877) real");
1381 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 877) imag");
1382 };
1383 };
1384 };
1385
1386
1387 {
1388 int order = 101;
1389 int trans = 112;
1390 int uplo = 121;
1391 int diag = 131;
1392 int N = 1;
1393 int lda = 1;
1394 double A[] = { -0.216, -0.623 };
1395 double X[] = { 0.048, 0.293 };
1396 int incX = -1;
1397 double x_expected[] = { 0.172171, -0.093192 };
1398 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1399 {
1400 int i;
1401 for (i = 0; i < 1; i++) {
1402 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 878) real");
1403 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 878) imag");
1404 };
1405 };
1406 };
1407
1408
1409 {
1410 int order = 101;
1411 int trans = 112;
1412 int uplo = 121;
1413 int diag = 132;
1414 int N = 1;
1415 int lda = 1;
1416 double A[] = { -0.216, -0.623 };
1417 double X[] = { 0.048, 0.293 };
1418 int incX = -1;
1419 double x_expected[] = { 0.048, 0.293 };
1420 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1421 {
1422 int i;
1423 for (i = 0; i < 1; i++) {
1424 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 879) real");
1425 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 879) imag");
1426 };
1427 };
1428 };
1429
1430
1431 {
1432 int order = 101;
1433 int trans = 112;
1434 int uplo = 122;
1435 int diag = 131;
1436 int N = 1;
1437 int lda = 1;
1438 double A[] = { -0.216, -0.623 };
1439 double X[] = { 0.048, 0.293 };
1440 int incX = -1;
1441 double x_expected[] = { 0.172171, -0.093192 };
1442 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1443 {
1444 int i;
1445 for (i = 0; i < 1; i++) {
1446 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 880) real");
1447 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 880) imag");
1448 };
1449 };
1450 };
1451
1452
1453 {
1454 int order = 101;
1455 int trans = 112;
1456 int uplo = 122;
1457 int diag = 132;
1458 int N = 1;
1459 int lda = 1;
1460 double A[] = { -0.216, -0.623 };
1461 double X[] = { 0.048, 0.293 };
1462 int incX = -1;
1463 double x_expected[] = { 0.048, 0.293 };
1464 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1465 {
1466 int i;
1467 for (i = 0; i < 1; i++) {
1468 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 881) real");
1469 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 881) imag");
1470 };
1471 };
1472 };
1473
1474
1475 {
1476 int order = 102;
1477 int trans = 112;
1478 int uplo = 121;
1479 int diag = 131;
1480 int N = 1;
1481 int lda = 1;
1482 double A[] = { -0.216, -0.623 };
1483 double X[] = { 0.048, 0.293 };
1484 int incX = -1;
1485 double x_expected[] = { 0.172171, -0.093192 };
1486 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1487 {
1488 int i;
1489 for (i = 0; i < 1; i++) {
1490 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 882) real");
1491 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 882) imag");
1492 };
1493 };
1494 };
1495
1496
1497 {
1498 int order = 102;
1499 int trans = 112;
1500 int uplo = 121;
1501 int diag = 132;
1502 int N = 1;
1503 int lda = 1;
1504 double A[] = { -0.216, -0.623 };
1505 double X[] = { 0.048, 0.293 };
1506 int incX = -1;
1507 double x_expected[] = { 0.048, 0.293 };
1508 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1509 {
1510 int i;
1511 for (i = 0; i < 1; i++) {
1512 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 883) real");
1513 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 883) imag");
1514 };
1515 };
1516 };
1517
1518
1519 {
1520 int order = 102;
1521 int trans = 112;
1522 int uplo = 122;
1523 int diag = 131;
1524 int N = 1;
1525 int lda = 1;
1526 double A[] = { -0.216, -0.623 };
1527 double X[] = { 0.048, 0.293 };
1528 int incX = -1;
1529 double x_expected[] = { 0.172171, -0.093192 };
1530 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1531 {
1532 int i;
1533 for (i = 0; i < 1; i++) {
1534 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 884) real");
1535 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 884) imag");
1536 };
1537 };
1538 };
1539
1540
1541 {
1542 int order = 102;
1543 int trans = 112;
1544 int uplo = 122;
1545 int diag = 132;
1546 int N = 1;
1547 int lda = 1;
1548 double A[] = { -0.216, -0.623 };
1549 double X[] = { 0.048, 0.293 };
1550 int incX = -1;
1551 double x_expected[] = { 0.048, 0.293 };
1552 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1553 {
1554 int i;
1555 for (i = 0; i < 1; i++) {
1556 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 885) real");
1557 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 885) imag");
1558 };
1559 };
1560 };
1561
1562
1563 {
1564 int order = 101;
1565 int trans = 113;
1566 int uplo = 121;
1567 int diag = 131;
1568 int N = 1;
1569 int lda = 1;
1570 double A[] = { -0.345, -0.851 };
1571 double X[] = { -0.708, 0.298 };
1572 int incX = -1;
1573 double x_expected[] = { -0.009338, -0.705318 };
1574 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1575 {
1576 int i;
1577 for (i = 0; i < 1; i++) {
1578 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 886) real");
1579 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 886) imag");
1580 };
1581 };
1582 };
1583
1584
1585 {
1586 int order = 101;
1587 int trans = 113;
1588 int uplo = 121;
1589 int diag = 132;
1590 int N = 1;
1591 int lda = 1;
1592 double A[] = { -0.345, -0.851 };
1593 double X[] = { -0.708, 0.298 };
1594 int incX = -1;
1595 double x_expected[] = { -0.708, 0.298 };
1596 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1597 {
1598 int i;
1599 for (i = 0; i < 1; i++) {
1600 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 887) real");
1601 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 887) imag");
1602 };
1603 };
1604 };
1605
1606
1607 {
1608 int order = 101;
1609 int trans = 113;
1610 int uplo = 122;
1611 int diag = 131;
1612 int N = 1;
1613 int lda = 1;
1614 double A[] = { -0.345, -0.851 };
1615 double X[] = { -0.708, 0.298 };
1616 int incX = -1;
1617 double x_expected[] = { -0.009338, -0.705318 };
1618 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1619 {
1620 int i;
1621 for (i = 0; i < 1; i++) {
1622 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 888) real");
1623 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 888) imag");
1624 };
1625 };
1626 };
1627
1628
1629 {
1630 int order = 101;
1631 int trans = 113;
1632 int uplo = 122;
1633 int diag = 132;
1634 int N = 1;
1635 int lda = 1;
1636 double A[] = { -0.345, -0.851 };
1637 double X[] = { -0.708, 0.298 };
1638 int incX = -1;
1639 double x_expected[] = { -0.708, 0.298 };
1640 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1641 {
1642 int i;
1643 for (i = 0; i < 1; i++) {
1644 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 889) real");
1645 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 889) imag");
1646 };
1647 };
1648 };
1649
1650
1651 {
1652 int order = 102;
1653 int trans = 113;
1654 int uplo = 121;
1655 int diag = 131;
1656 int N = 1;
1657 int lda = 1;
1658 double A[] = { -0.345, -0.851 };
1659 double X[] = { -0.708, 0.298 };
1660 int incX = -1;
1661 double x_expected[] = { -0.009338, -0.705318 };
1662 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1663 {
1664 int i;
1665 for (i = 0; i < 1; i++) {
1666 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 890) real");
1667 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 890) imag");
1668 };
1669 };
1670 };
1671
1672
1673 {
1674 int order = 102;
1675 int trans = 113;
1676 int uplo = 121;
1677 int diag = 132;
1678 int N = 1;
1679 int lda = 1;
1680 double A[] = { -0.345, -0.851 };
1681 double X[] = { -0.708, 0.298 };
1682 int incX = -1;
1683 double x_expected[] = { -0.708, 0.298 };
1684 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1685 {
1686 int i;
1687 for (i = 0; i < 1; i++) {
1688 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 891) real");
1689 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 891) imag");
1690 };
1691 };
1692 };
1693
1694
1695 {
1696 int order = 102;
1697 int trans = 113;
1698 int uplo = 122;
1699 int diag = 131;
1700 int N = 1;
1701 int lda = 1;
1702 double A[] = { -0.345, -0.851 };
1703 double X[] = { -0.708, 0.298 };
1704 int incX = -1;
1705 double x_expected[] = { -0.009338, -0.705318 };
1706 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1707 {
1708 int i;
1709 for (i = 0; i < 1; i++) {
1710 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 892) real");
1711 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 892) imag");
1712 };
1713 };
1714 };
1715
1716
1717 {
1718 int order = 102;
1719 int trans = 113;
1720 int uplo = 122;
1721 int diag = 132;
1722 int N = 1;
1723 int lda = 1;
1724 double A[] = { -0.345, -0.851 };
1725 double X[] = { -0.708, 0.298 };
1726 int incX = -1;
1727 double x_expected[] = { -0.708, 0.298 };
1728 cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
1729 {
1730 int i;
1731 for (i = 0; i < 1; i++) {
1732 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 893) real");
1733 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 893) imag");
1734 };
1735 };
1736 };
1737
1738
1739 }
1740