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>
10 const double flteps = 1e-4, dbleps = 1e-6;
18 float A[] = { 0.995f };
19 float X[] = { 0.348f };
21 float x_expected[] = { 0.349749f };
22 cblas_strsv(order, uplo, trans, diag, N, A, lda, X, incX);
25 for (i = 0; i < 1; i++) {
26 gsl_test_rel(X[i], x_expected[i], flteps, "strsv(case 1150)");
39 float A[] = { 0.995f };
40 float X[] = { 0.348f };
42 float x_expected[] = { 0.348f };
43 cblas_strsv(order, uplo, trans, diag, N, A, lda, X, incX);
46 for (i = 0; i < 1; i++) {
47 gsl_test_rel(X[i], x_expected[i], flteps, "strsv(case 1151)");
60 float A[] = { 0.995f };
61 float X[] = { 0.348f };
63 float x_expected[] = { 0.349749f };
64 cblas_strsv(order, uplo, trans, diag, N, A, lda, X, incX);
67 for (i = 0; i < 1; i++) {
68 gsl_test_rel(X[i], x_expected[i], flteps, "strsv(case 1152)");
81 float A[] = { 0.995f };
82 float X[] = { 0.348f };
84 float x_expected[] = { 0.348f };
85 cblas_strsv(order, uplo, trans, diag, N, A, lda, X, incX);
88 for (i = 0; i < 1; i++) {
89 gsl_test_rel(X[i], x_expected[i], flteps, "strsv(case 1153)");
102 float A[] = { 0.995f };
103 float X[] = { 0.348f };
105 float x_expected[] = { 0.349749f };
106 cblas_strsv(order, uplo, trans, diag, N, A, lda, X, incX);
109 for (i = 0; i < 1; i++) {
110 gsl_test_rel(X[i], x_expected[i], flteps, "strsv(case 1154)");
123 float A[] = { 0.995f };
124 float X[] = { 0.348f };
126 float x_expected[] = { 0.348f };
127 cblas_strsv(order, uplo, trans, diag, N, A, lda, X, incX);
130 for (i = 0; i < 1; i++) {
131 gsl_test_rel(X[i], x_expected[i], flteps, "strsv(case 1155)");
144 float A[] = { 0.995f };
145 float X[] = { 0.348f };
147 float x_expected[] = { 0.349749f };
148 cblas_strsv(order, uplo, trans, diag, N, A, lda, X, incX);
151 for (i = 0; i < 1; i++) {
152 gsl_test_rel(X[i], x_expected[i], flteps, "strsv(case 1156)");
165 float A[] = { 0.995f };
166 float X[] = { 0.348f };
168 float x_expected[] = { 0.348f };
169 cblas_strsv(order, uplo, trans, diag, N, A, lda, X, incX);
172 for (i = 0; i < 1; i++) {
173 gsl_test_rel(X[i], x_expected[i], flteps, "strsv(case 1157)");
186 float A[] = { 0.793f };
187 float X[] = { 0.338f };
189 float x_expected[] = { 0.42623f };
190 cblas_strsv(order, uplo, trans, diag, N, A, lda, X, incX);
193 for (i = 0; i < 1; i++) {
194 gsl_test_rel(X[i], x_expected[i], flteps, "strsv(case 1158)");
207 float A[] = { 0.793f };
208 float X[] = { 0.338f };
210 float x_expected[] = { 0.338f };
211 cblas_strsv(order, uplo, trans, diag, N, A, lda, X, incX);
214 for (i = 0; i < 1; i++) {
215 gsl_test_rel(X[i], x_expected[i], flteps, "strsv(case 1159)");
228 float A[] = { 0.793f };
229 float X[] = { 0.338f };
231 float x_expected[] = { 0.42623f };
232 cblas_strsv(order, uplo, trans, diag, N, A, lda, X, incX);
235 for (i = 0; i < 1; i++) {
236 gsl_test_rel(X[i], x_expected[i], flteps, "strsv(case 1160)");
249 float A[] = { 0.793f };
250 float X[] = { 0.338f };
252 float x_expected[] = { 0.338f };
253 cblas_strsv(order, uplo, trans, diag, N, A, lda, X, incX);
256 for (i = 0; i < 1; i++) {
257 gsl_test_rel(X[i], x_expected[i], flteps, "strsv(case 1161)");
270 float A[] = { 0.793f };
271 float X[] = { 0.338f };
273 float x_expected[] = { 0.42623f };
274 cblas_strsv(order, uplo, trans, diag, N, A, lda, X, incX);
277 for (i = 0; i < 1; i++) {
278 gsl_test_rel(X[i], x_expected[i], flteps, "strsv(case 1162)");
291 float A[] = { 0.793f };
292 float X[] = { 0.338f };
294 float x_expected[] = { 0.338f };
295 cblas_strsv(order, uplo, trans, diag, N, A, lda, X, incX);
298 for (i = 0; i < 1; i++) {
299 gsl_test_rel(X[i], x_expected[i], flteps, "strsv(case 1163)");
312 float A[] = { 0.793f };
313 float X[] = { 0.338f };
315 float x_expected[] = { 0.42623f };
316 cblas_strsv(order, uplo, trans, diag, N, A, lda, X, incX);
319 for (i = 0; i < 1; i++) {
320 gsl_test_rel(X[i], x_expected[i], flteps, "strsv(case 1164)");
333 float A[] = { 0.793f };
334 float X[] = { 0.338f };
336 float x_expected[] = { 0.338f };
337 cblas_strsv(order, uplo, trans, diag, N, A, lda, X, incX);
340 for (i = 0; i < 1; i++) {
341 gsl_test_rel(X[i], x_expected[i], flteps, "strsv(case 1165)");
354 double A[] = { -0.21 };
355 double X[] = { 0.473 };
357 double x_expected[] = { -2.25238095238 };
358 cblas_dtrsv(order, uplo, trans, diag, N, A, lda, X, incX);
361 for (i = 0; i < 1; i++) {
362 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrsv(case 1166)");
375 double A[] = { -0.21 };
376 double X[] = { 0.473 };
378 double x_expected[] = { 0.473 };
379 cblas_dtrsv(order, uplo, trans, diag, N, A, lda, X, incX);
382 for (i = 0; i < 1; i++) {
383 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrsv(case 1167)");
396 double A[] = { -0.21 };
397 double X[] = { 0.473 };
399 double x_expected[] = { -2.25238095238 };
400 cblas_dtrsv(order, uplo, trans, diag, N, A, lda, X, incX);
403 for (i = 0; i < 1; i++) {
404 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrsv(case 1168)");
417 double A[] = { -0.21 };
418 double X[] = { 0.473 };
420 double x_expected[] = { 0.473 };
421 cblas_dtrsv(order, uplo, trans, diag, N, A, lda, X, incX);
424 for (i = 0; i < 1; i++) {
425 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrsv(case 1169)");
438 double A[] = { -0.21 };
439 double X[] = { 0.473 };
441 double x_expected[] = { -2.25238095238 };
442 cblas_dtrsv(order, uplo, trans, diag, N, A, lda, X, incX);
445 for (i = 0; i < 1; i++) {
446 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrsv(case 1170)");
459 double A[] = { -0.21 };
460 double X[] = { 0.473 };
462 double x_expected[] = { 0.473 };
463 cblas_dtrsv(order, uplo, trans, diag, N, A, lda, X, incX);
466 for (i = 0; i < 1; i++) {
467 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrsv(case 1171)");
480 double A[] = { -0.21 };
481 double X[] = { 0.473 };
483 double x_expected[] = { -2.25238095238 };
484 cblas_dtrsv(order, uplo, trans, diag, N, A, lda, X, incX);
487 for (i = 0; i < 1; i++) {
488 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrsv(case 1172)");
501 double A[] = { -0.21 };
502 double X[] = { 0.473 };
504 double x_expected[] = { 0.473 };
505 cblas_dtrsv(order, uplo, trans, diag, N, A, lda, X, incX);
508 for (i = 0; i < 1; i++) {
509 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrsv(case 1173)");
522 double A[] = { 0.748 };
523 double X[] = { 0.979 };
525 double x_expected[] = { 1.30882352941 };
526 cblas_dtrsv(order, uplo, trans, diag, N, A, lda, X, incX);
529 for (i = 0; i < 1; i++) {
530 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrsv(case 1174)");
543 double A[] = { 0.748 };
544 double X[] = { 0.979 };
546 double x_expected[] = { 0.979 };
547 cblas_dtrsv(order, uplo, trans, diag, N, A, lda, X, incX);
550 for (i = 0; i < 1; i++) {
551 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrsv(case 1175)");
564 double A[] = { 0.748 };
565 double X[] = { 0.979 };
567 double x_expected[] = { 1.30882352941 };
568 cblas_dtrsv(order, uplo, trans, diag, N, A, lda, X, incX);
571 for (i = 0; i < 1; i++) {
572 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrsv(case 1176)");
585 double A[] = { 0.748 };
586 double X[] = { 0.979 };
588 double x_expected[] = { 0.979 };
589 cblas_dtrsv(order, uplo, trans, diag, N, A, lda, X, incX);
592 for (i = 0; i < 1; i++) {
593 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrsv(case 1177)");
606 double A[] = { 0.748 };
607 double X[] = { 0.979 };
609 double x_expected[] = { 1.30882352941 };
610 cblas_dtrsv(order, uplo, trans, diag, N, A, lda, X, incX);
613 for (i = 0; i < 1; i++) {
614 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrsv(case 1178)");
627 double A[] = { 0.748 };
628 double X[] = { 0.979 };
630 double x_expected[] = { 0.979 };
631 cblas_dtrsv(order, uplo, trans, diag, N, A, lda, X, incX);
634 for (i = 0; i < 1; i++) {
635 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrsv(case 1179)");
648 double A[] = { 0.748 };
649 double X[] = { 0.979 };
651 double x_expected[] = { 1.30882352941 };
652 cblas_dtrsv(order, uplo, trans, diag, N, A, lda, X, incX);
655 for (i = 0; i < 1; i++) {
656 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrsv(case 1180)");
669 double A[] = { 0.748 };
670 double X[] = { 0.979 };
672 double x_expected[] = { 0.979 };
673 cblas_dtrsv(order, uplo, trans, diag, N, A, lda, X, incX);
676 for (i = 0; i < 1; i++) {
677 gsl_test_rel(X[i], x_expected[i], dbleps, "dtrsv(case 1181)");
690 float A[] = { 0.529f, -0.348f };
691 float X[] = { -0.95f, 0.343f };
693 float x_expected[] = { -1.55112f, -0.372004f };
694 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
697 for (i = 0; i < 1; i++) {
698 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1182) real");
699 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1182) imag");
712 float A[] = { 0.529f, -0.348f };
713 float X[] = { -0.95f, 0.343f };
715 float x_expected[] = { -0.95f, 0.343f };
716 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
719 for (i = 0; i < 1; i++) {
720 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1183) real");
721 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1183) imag");
734 float A[] = { 0.529f, -0.348f };
735 float X[] = { -0.95f, 0.343f };
737 float x_expected[] = { -1.55112f, -0.372004f };
738 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
741 for (i = 0; i < 1; i++) {
742 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1184) real");
743 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1184) imag");
756 float A[] = { 0.529f, -0.348f };
757 float X[] = { -0.95f, 0.343f };
759 float x_expected[] = { -0.95f, 0.343f };
760 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
763 for (i = 0; i < 1; i++) {
764 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1185) real");
765 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1185) imag");
778 float A[] = { 0.529f, -0.348f };
779 float X[] = { -0.95f, 0.343f };
781 float x_expected[] = { -1.55112f, -0.372004f };
782 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
785 for (i = 0; i < 1; i++) {
786 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1186) real");
787 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1186) imag");
800 float A[] = { 0.529f, -0.348f };
801 float X[] = { -0.95f, 0.343f };
803 float x_expected[] = { -0.95f, 0.343f };
804 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
807 for (i = 0; i < 1; i++) {
808 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1187) real");
809 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1187) imag");
822 float A[] = { 0.529f, -0.348f };
823 float X[] = { -0.95f, 0.343f };
825 float x_expected[] = { -1.55112f, -0.372004f };
826 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
829 for (i = 0; i < 1; i++) {
830 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1188) real");
831 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1188) imag");
844 float A[] = { 0.529f, -0.348f };
845 float X[] = { -0.95f, 0.343f };
847 float x_expected[] = { -0.95f, 0.343f };
848 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
851 for (i = 0; i < 1; i++) {
852 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1189) real");
853 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1189) imag");
866 float A[] = { 0.6f, 0.041f };
867 float X[] = { 0.896f, -0.447f };
869 float x_expected[] = { 1.43572f, -0.843108f };
870 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
873 for (i = 0; i < 1; i++) {
874 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1190) real");
875 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1190) imag");
888 float A[] = { 0.6f, 0.041f };
889 float X[] = { 0.896f, -0.447f };
891 float x_expected[] = { 0.896f, -0.447f };
892 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
895 for (i = 0; i < 1; i++) {
896 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1191) real");
897 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1191) imag");
910 float A[] = { 0.6f, 0.041f };
911 float X[] = { 0.896f, -0.447f };
913 float x_expected[] = { 1.43572f, -0.843108f };
914 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
917 for (i = 0; i < 1; i++) {
918 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1192) real");
919 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1192) imag");
932 float A[] = { 0.6f, 0.041f };
933 float X[] = { 0.896f, -0.447f };
935 float x_expected[] = { 0.896f, -0.447f };
936 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
939 for (i = 0; i < 1; i++) {
940 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1193) real");
941 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1193) imag");
954 float A[] = { 0.6f, 0.041f };
955 float X[] = { 0.896f, -0.447f };
957 float x_expected[] = { 1.43572f, -0.843108f };
958 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
961 for (i = 0; i < 1; i++) {
962 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1194) real");
963 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1194) imag");
976 float A[] = { 0.6f, 0.041f };
977 float X[] = { 0.896f, -0.447f };
979 float x_expected[] = { 0.896f, -0.447f };
980 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
983 for (i = 0; i < 1; i++) {
984 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1195) real");
985 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1195) imag");
998 float A[] = { 0.6f, 0.041f };
999 float X[] = { 0.896f, -0.447f };
1001 float x_expected[] = { 1.43572f, -0.843108f };
1002 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1005 for (i = 0; i < 1; i++) {
1006 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1196) real");
1007 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1196) imag");
1020 float A[] = { 0.6f, 0.041f };
1021 float X[] = { 0.896f, -0.447f };
1023 float x_expected[] = { 0.896f, -0.447f };
1024 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1027 for (i = 0; i < 1; i++) {
1028 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1197) real");
1029 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1197) imag");
1042 float A[] = { 0.397f, 0.683f };
1043 float X[] = { 0.765f, 0.18f };
1045 float x_expected[] = { 0.289642f, 0.951701f };
1046 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1049 for (i = 0; i < 1; i++) {
1050 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1198) real");
1051 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1198) imag");
1064 float A[] = { 0.397f, 0.683f };
1065 float X[] = { 0.765f, 0.18f };
1067 float x_expected[] = { 0.765f, 0.18f };
1068 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1071 for (i = 0; i < 1; i++) {
1072 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1199) real");
1073 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1199) imag");
1086 float A[] = { 0.397f, 0.683f };
1087 float X[] = { 0.765f, 0.18f };
1089 float x_expected[] = { 0.289642f, 0.951701f };
1090 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1093 for (i = 0; i < 1; i++) {
1094 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1200) real");
1095 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1200) imag");
1108 float A[] = { 0.397f, 0.683f };
1109 float X[] = { 0.765f, 0.18f };
1111 float x_expected[] = { 0.765f, 0.18f };
1112 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1115 for (i = 0; i < 1; i++) {
1116 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1201) real");
1117 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1201) imag");
1130 float A[] = { 0.397f, 0.683f };
1131 float X[] = { 0.765f, 0.18f };
1133 float x_expected[] = { 0.289642f, 0.951701f };
1134 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1137 for (i = 0; i < 1; i++) {
1138 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1202) real");
1139 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1202) imag");
1152 float A[] = { 0.397f, 0.683f };
1153 float X[] = { 0.765f, 0.18f };
1155 float x_expected[] = { 0.765f, 0.18f };
1156 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1159 for (i = 0; i < 1; i++) {
1160 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1203) real");
1161 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1203) imag");
1174 float A[] = { 0.397f, 0.683f };
1175 float X[] = { 0.765f, 0.18f };
1177 float x_expected[] = { 0.289642f, 0.951701f };
1178 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1181 for (i = 0; i < 1; i++) {
1182 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1204) real");
1183 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1204) imag");
1196 float A[] = { 0.397f, 0.683f };
1197 float X[] = { 0.765f, 0.18f };
1199 float x_expected[] = { 0.765f, 0.18f };
1200 cblas_ctrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1203 for (i = 0; i < 1; i++) {
1204 gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrsv(case 1205) real");
1205 gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrsv(case 1205) imag");
1218 double A[] = { 0.977, -0.955 };
1219 double X[] = { -0.627, 0.281 };
1221 double x_expected[] = { -0.471957414573, -0.173714770642 };
1222 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1225 for (i = 0; i < 1; i++) {
1226 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1206) real");
1227 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1206) imag");
1240 double A[] = { 0.977, -0.955 };
1241 double X[] = { -0.627, 0.281 };
1243 double x_expected[] = { -0.627, 0.281 };
1244 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1247 for (i = 0; i < 1; i++) {
1248 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1207) real");
1249 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1207) imag");
1262 double A[] = { 0.977, -0.955 };
1263 double X[] = { -0.627, 0.281 };
1265 double x_expected[] = { -0.471957414573, -0.173714770642 };
1266 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1269 for (i = 0; i < 1; i++) {
1270 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1208) real");
1271 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1208) imag");
1284 double A[] = { 0.977, -0.955 };
1285 double X[] = { -0.627, 0.281 };
1287 double x_expected[] = { -0.627, 0.281 };
1288 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1291 for (i = 0; i < 1; i++) {
1292 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1209) real");
1293 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1209) imag");
1306 double A[] = { 0.977, -0.955 };
1307 double X[] = { -0.627, 0.281 };
1309 double x_expected[] = { -0.471957414573, -0.173714770642 };
1310 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1313 for (i = 0; i < 1; i++) {
1314 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1210) real");
1315 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1210) imag");
1328 double A[] = { 0.977, -0.955 };
1329 double X[] = { -0.627, 0.281 };
1331 double x_expected[] = { -0.627, 0.281 };
1332 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1335 for (i = 0; i < 1; i++) {
1336 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1211) real");
1337 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1211) imag");
1350 double A[] = { 0.977, -0.955 };
1351 double X[] = { -0.627, 0.281 };
1353 double x_expected[] = { -0.471957414573, -0.173714770642 };
1354 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1357 for (i = 0; i < 1; i++) {
1358 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1212) real");
1359 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1212) imag");
1372 double A[] = { 0.977, -0.955 };
1373 double X[] = { -0.627, 0.281 };
1375 double x_expected[] = { -0.627, 0.281 };
1376 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1379 for (i = 0; i < 1; i++) {
1380 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1213) real");
1381 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1213) imag");
1394 double A[] = { 0.076, -0.16 };
1395 double X[] = { 0.3, -0.874 };
1397 double x_expected[] = { 5.18357980622, -0.587200407955 };
1398 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1401 for (i = 0; i < 1; i++) {
1402 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1214) real");
1403 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1214) imag");
1416 double A[] = { 0.076, -0.16 };
1417 double X[] = { 0.3, -0.874 };
1419 double x_expected[] = { 0.3, -0.874 };
1420 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1423 for (i = 0; i < 1; i++) {
1424 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1215) real");
1425 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1215) imag");
1438 double A[] = { 0.076, -0.16 };
1439 double X[] = { 0.3, -0.874 };
1441 double x_expected[] = { 5.18357980622, -0.587200407955 };
1442 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1445 for (i = 0; i < 1; i++) {
1446 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1216) real");
1447 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1216) imag");
1460 double A[] = { 0.076, -0.16 };
1461 double X[] = { 0.3, -0.874 };
1463 double x_expected[] = { 0.3, -0.874 };
1464 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1467 for (i = 0; i < 1; i++) {
1468 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1217) real");
1469 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1217) imag");
1482 double A[] = { 0.076, -0.16 };
1483 double X[] = { 0.3, -0.874 };
1485 double x_expected[] = { 5.18357980622, -0.587200407955 };
1486 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1489 for (i = 0; i < 1; i++) {
1490 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1218) real");
1491 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1218) imag");
1504 double A[] = { 0.076, -0.16 };
1505 double X[] = { 0.3, -0.874 };
1507 double x_expected[] = { 0.3, -0.874 };
1508 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1511 for (i = 0; i < 1; i++) {
1512 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1219) real");
1513 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1219) imag");
1526 double A[] = { 0.076, -0.16 };
1527 double X[] = { 0.3, -0.874 };
1529 double x_expected[] = { 5.18357980622, -0.587200407955 };
1530 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1533 for (i = 0; i < 1; i++) {
1534 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1220) real");
1535 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1220) imag");
1548 double A[] = { 0.076, -0.16 };
1549 double X[] = { 0.3, -0.874 };
1551 double x_expected[] = { 0.3, -0.874 };
1552 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1555 for (i = 0; i < 1; i++) {
1556 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1221) real");
1557 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1221) imag");
1570 double A[] = { 0.372, -0.745 };
1571 double X[] = { -0.085, -0.303 };
1573 double x_expected[] = { -0.371144591432, -0.0712292456544 };
1574 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1577 for (i = 0; i < 1; i++) {
1578 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1222) real");
1579 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1222) imag");
1592 double A[] = { 0.372, -0.745 };
1593 double X[] = { -0.085, -0.303 };
1595 double x_expected[] = { -0.085, -0.303 };
1596 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1599 for (i = 0; i < 1; i++) {
1600 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1223) real");
1601 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1223) imag");
1614 double A[] = { 0.372, -0.745 };
1615 double X[] = { -0.085, -0.303 };
1617 double x_expected[] = { -0.371144591432, -0.0712292456544 };
1618 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1621 for (i = 0; i < 1; i++) {
1622 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1224) real");
1623 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1224) imag");
1636 double A[] = { 0.372, -0.745 };
1637 double X[] = { -0.085, -0.303 };
1639 double x_expected[] = { -0.085, -0.303 };
1640 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1643 for (i = 0; i < 1; i++) {
1644 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1225) real");
1645 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1225) imag");
1658 double A[] = { 0.372, -0.745 };
1659 double X[] = { -0.085, -0.303 };
1661 double x_expected[] = { -0.371144591432, -0.0712292456544 };
1662 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1665 for (i = 0; i < 1; i++) {
1666 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1226) real");
1667 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1226) imag");
1680 double A[] = { 0.372, -0.745 };
1681 double X[] = { -0.085, -0.303 };
1683 double x_expected[] = { -0.085, -0.303 };
1684 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1687 for (i = 0; i < 1; i++) {
1688 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1227) real");
1689 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1227) imag");
1702 double A[] = { 0.372, -0.745 };
1703 double X[] = { -0.085, -0.303 };
1705 double x_expected[] = { -0.371144591432, -0.0712292456544 };
1706 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1709 for (i = 0; i < 1; i++) {
1710 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1228) real");
1711 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1228) imag");
1724 double A[] = { 0.372, -0.745 };
1725 double X[] = { -0.085, -0.303 };
1727 double x_expected[] = { -0.085, -0.303 };
1728 cblas_ztrsv(order, uplo, trans, diag, N, A, lda, X, incX);
1731 for (i = 0; i < 1; i++) {
1732 gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrsv(case 1229) real");
1733 gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrsv(case 1229) imag");