summaryrefslogtreecommitdiff
path: root/gsl-1.9/cblas/test_trmv.c
diff options
context:
space:
mode:
Diffstat (limited to 'gsl-1.9/cblas/test_trmv.c')
-rw-r--r--gsl-1.9/cblas/test_trmv.c1739
1 files changed, 1739 insertions, 0 deletions
diff --git a/gsl-1.9/cblas/test_trmv.c b/gsl-1.9/cblas/test_trmv.c
new file mode 100644
index 0000000..312df89
--- /dev/null
+++ b/gsl-1.9/cblas/test_trmv.c
@@ -0,0 +1,1739 @@
+#include <gsl/gsl_test.h>
+#include <gsl/gsl_ieee_utils.h>
+#include <gsl/gsl_math.h>
+#include <gsl/gsl_cblas.h>
+
+#include "tests.h"
+
+void
+test_trmv (void) {
+const double flteps = 1e-4, dbleps = 1e-6;
+ {
+ int order = 101;
+ int trans = 111;
+ int uplo = 121;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.987f };
+ float X[] = { -0.138f };
+ int incX = -1;
+ float x_expected[] = { -0.136206f };
+ cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 814)");
+ }
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 111;
+ int uplo = 121;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.987f };
+ float X[] = { -0.138f };
+ int incX = -1;
+ float x_expected[] = { -0.138f };
+ cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 815)");
+ }
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 111;
+ int uplo = 122;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.987f };
+ float X[] = { -0.138f };
+ int incX = -1;
+ float x_expected[] = { -0.136206f };
+ cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 816)");
+ }
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 111;
+ int uplo = 122;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.987f };
+ float X[] = { -0.138f };
+ int incX = -1;
+ float x_expected[] = { -0.138f };
+ cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 817)");
+ }
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 111;
+ int uplo = 121;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.987f };
+ float X[] = { -0.138f };
+ int incX = -1;
+ float x_expected[] = { -0.136206f };
+ cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 818)");
+ }
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 111;
+ int uplo = 121;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.987f };
+ float X[] = { -0.138f };
+ int incX = -1;
+ float x_expected[] = { -0.138f };
+ cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 819)");
+ }
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 111;
+ int uplo = 122;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.987f };
+ float X[] = { -0.138f };
+ int incX = -1;
+ float x_expected[] = { -0.136206f };
+ cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 820)");
+ }
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 111;
+ int uplo = 122;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.987f };
+ float X[] = { -0.138f };
+ int incX = -1;
+ float x_expected[] = { -0.138f };
+ cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 821)");
+ }
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 112;
+ int uplo = 121;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ float A[] = { -0.329f };
+ float X[] = { 0.463f };
+ int incX = -1;
+ float x_expected[] = { -0.152327f };
+ cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 822)");
+ }
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 112;
+ int uplo = 121;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ float A[] = { -0.329f };
+ float X[] = { 0.463f };
+ int incX = -1;
+ float x_expected[] = { 0.463f };
+ cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 823)");
+ }
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 112;
+ int uplo = 122;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ float A[] = { -0.329f };
+ float X[] = { 0.463f };
+ int incX = -1;
+ float x_expected[] = { -0.152327f };
+ cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 824)");
+ }
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 112;
+ int uplo = 122;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ float A[] = { -0.329f };
+ float X[] = { 0.463f };
+ int incX = -1;
+ float x_expected[] = { 0.463f };
+ cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 825)");
+ }
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 112;
+ int uplo = 121;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ float A[] = { -0.329f };
+ float X[] = { 0.463f };
+ int incX = -1;
+ float x_expected[] = { -0.152327f };
+ cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 826)");
+ }
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 112;
+ int uplo = 121;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ float A[] = { -0.329f };
+ float X[] = { 0.463f };
+ int incX = -1;
+ float x_expected[] = { 0.463f };
+ cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 827)");
+ }
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 112;
+ int uplo = 122;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ float A[] = { -0.329f };
+ float X[] = { 0.463f };
+ int incX = -1;
+ float x_expected[] = { -0.152327f };
+ cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 828)");
+ }
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 112;
+ int uplo = 122;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ float A[] = { -0.329f };
+ float X[] = { 0.463f };
+ int incX = -1;
+ float x_expected[] = { 0.463f };
+ cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 829)");
+ }
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 111;
+ int uplo = 121;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.429 };
+ double X[] = { -0.899 };
+ int incX = -1;
+ double x_expected[] = { 0.385671 };
+ cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 830)");
+ }
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 111;
+ int uplo = 121;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.429 };
+ double X[] = { -0.899 };
+ int incX = -1;
+ double x_expected[] = { -0.899 };
+ cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 831)");
+ }
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 111;
+ int uplo = 122;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.429 };
+ double X[] = { -0.899 };
+ int incX = -1;
+ double x_expected[] = { 0.385671 };
+ cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 832)");
+ }
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 111;
+ int uplo = 122;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.429 };
+ double X[] = { -0.899 };
+ int incX = -1;
+ double x_expected[] = { -0.899 };
+ cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 833)");
+ }
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 111;
+ int uplo = 121;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.429 };
+ double X[] = { -0.899 };
+ int incX = -1;
+ double x_expected[] = { 0.385671 };
+ cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 834)");
+ }
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 111;
+ int uplo = 121;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.429 };
+ double X[] = { -0.899 };
+ int incX = -1;
+ double x_expected[] = { -0.899 };
+ cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 835)");
+ }
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 111;
+ int uplo = 122;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.429 };
+ double X[] = { -0.899 };
+ int incX = -1;
+ double x_expected[] = { 0.385671 };
+ cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 836)");
+ }
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 111;
+ int uplo = 122;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.429 };
+ double X[] = { -0.899 };
+ int incX = -1;
+ double x_expected[] = { -0.899 };
+ cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 837)");
+ }
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 112;
+ int uplo = 121;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ double A[] = { 0.842 };
+ double X[] = { 0.192 };
+ int incX = -1;
+ double x_expected[] = { 0.161664 };
+ cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 838)");
+ }
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 112;
+ int uplo = 121;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ double A[] = { 0.842 };
+ double X[] = { 0.192 };
+ int incX = -1;
+ double x_expected[] = { 0.192 };
+ cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 839)");
+ }
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 112;
+ int uplo = 122;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ double A[] = { 0.842 };
+ double X[] = { 0.192 };
+ int incX = -1;
+ double x_expected[] = { 0.161664 };
+ cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 840)");
+ }
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 112;
+ int uplo = 122;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ double A[] = { 0.842 };
+ double X[] = { 0.192 };
+ int incX = -1;
+ double x_expected[] = { 0.192 };
+ cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 841)");
+ }
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 112;
+ int uplo = 121;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ double A[] = { 0.842 };
+ double X[] = { 0.192 };
+ int incX = -1;
+ double x_expected[] = { 0.161664 };
+ cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 842)");
+ }
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 112;
+ int uplo = 121;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ double A[] = { 0.842 };
+ double X[] = { 0.192 };
+ int incX = -1;
+ double x_expected[] = { 0.192 };
+ cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 843)");
+ }
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 112;
+ int uplo = 122;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ double A[] = { 0.842 };
+ double X[] = { 0.192 };
+ int incX = -1;
+ double x_expected[] = { 0.161664 };
+ cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 844)");
+ }
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 112;
+ int uplo = 122;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ double A[] = { 0.842 };
+ double X[] = { 0.192 };
+ int incX = -1;
+ double x_expected[] = { 0.192 };
+ cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 845)");
+ }
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 111;
+ int uplo = 121;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ float A[] = { -0.162f, -0.108f };
+ float X[] = { 0.542f, 0.461f };
+ int incX = -1;
+ float x_expected[] = { -0.038016f, -0.133218f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 846) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 846) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 111;
+ int uplo = 121;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ float A[] = { -0.162f, -0.108f };
+ float X[] = { 0.542f, 0.461f };
+ int incX = -1;
+ float x_expected[] = { 0.542f, 0.461f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 847) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 847) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 111;
+ int uplo = 122;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ float A[] = { -0.162f, -0.108f };
+ float X[] = { 0.542f, 0.461f };
+ int incX = -1;
+ float x_expected[] = { -0.038016f, -0.133218f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 848) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 848) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 111;
+ int uplo = 122;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ float A[] = { -0.162f, -0.108f };
+ float X[] = { 0.542f, 0.461f };
+ int incX = -1;
+ float x_expected[] = { 0.542f, 0.461f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 849) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 849) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 111;
+ int uplo = 121;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ float A[] = { -0.162f, -0.108f };
+ float X[] = { 0.542f, 0.461f };
+ int incX = -1;
+ float x_expected[] = { -0.038016f, -0.133218f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 850) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 850) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 111;
+ int uplo = 121;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ float A[] = { -0.162f, -0.108f };
+ float X[] = { 0.542f, 0.461f };
+ int incX = -1;
+ float x_expected[] = { 0.542f, 0.461f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 851) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 851) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 111;
+ int uplo = 122;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ float A[] = { -0.162f, -0.108f };
+ float X[] = { 0.542f, 0.461f };
+ int incX = -1;
+ float x_expected[] = { -0.038016f, -0.133218f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 852) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 852) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 111;
+ int uplo = 122;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ float A[] = { -0.162f, -0.108f };
+ float X[] = { 0.542f, 0.461f };
+ int incX = -1;
+ float x_expected[] = { 0.542f, 0.461f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 853) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 853) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 112;
+ int uplo = 121;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.547f, 0.583f };
+ float X[] = { -0.302f, 0.434f };
+ int incX = -1;
+ float x_expected[] = { -0.418216f, 0.061332f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 854) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 854) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 112;
+ int uplo = 121;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.547f, 0.583f };
+ float X[] = { -0.302f, 0.434f };
+ int incX = -1;
+ float x_expected[] = { -0.302f, 0.434f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 855) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 855) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 112;
+ int uplo = 122;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.547f, 0.583f };
+ float X[] = { -0.302f, 0.434f };
+ int incX = -1;
+ float x_expected[] = { -0.418216f, 0.061332f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 856) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 856) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 112;
+ int uplo = 122;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.547f, 0.583f };
+ float X[] = { -0.302f, 0.434f };
+ int incX = -1;
+ float x_expected[] = { -0.302f, 0.434f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 857) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 857) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 112;
+ int uplo = 121;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.547f, 0.583f };
+ float X[] = { -0.302f, 0.434f };
+ int incX = -1;
+ float x_expected[] = { -0.418216f, 0.061332f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 858) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 858) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 112;
+ int uplo = 121;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.547f, 0.583f };
+ float X[] = { -0.302f, 0.434f };
+ int incX = -1;
+ float x_expected[] = { -0.302f, 0.434f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 859) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 859) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 112;
+ int uplo = 122;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.547f, 0.583f };
+ float X[] = { -0.302f, 0.434f };
+ int incX = -1;
+ float x_expected[] = { -0.418216f, 0.061332f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 860) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 860) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 112;
+ int uplo = 122;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.547f, 0.583f };
+ float X[] = { -0.302f, 0.434f };
+ int incX = -1;
+ float x_expected[] = { -0.302f, 0.434f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 861) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 861) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 113;
+ int uplo = 121;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.216f, 0.192f };
+ float X[] = { -0.564f, -0.297f };
+ int incX = -1;
+ float x_expected[] = { -0.178848f, 0.044136f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 862) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 862) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 113;
+ int uplo = 121;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.216f, 0.192f };
+ float X[] = { -0.564f, -0.297f };
+ int incX = -1;
+ float x_expected[] = { -0.564f, -0.297f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 863) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 863) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 113;
+ int uplo = 122;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.216f, 0.192f };
+ float X[] = { -0.564f, -0.297f };
+ int incX = -1;
+ float x_expected[] = { -0.178848f, 0.044136f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 864) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 864) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 113;
+ int uplo = 122;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.216f, 0.192f };
+ float X[] = { -0.564f, -0.297f };
+ int incX = -1;
+ float x_expected[] = { -0.564f, -0.297f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 865) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 865) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 113;
+ int uplo = 121;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.216f, 0.192f };
+ float X[] = { -0.564f, -0.297f };
+ int incX = -1;
+ float x_expected[] = { -0.178848f, 0.044136f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 866) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 866) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 113;
+ int uplo = 121;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.216f, 0.192f };
+ float X[] = { -0.564f, -0.297f };
+ int incX = -1;
+ float x_expected[] = { -0.564f, -0.297f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 867) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 867) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 113;
+ int uplo = 122;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.216f, 0.192f };
+ float X[] = { -0.564f, -0.297f };
+ int incX = -1;
+ float x_expected[] = { -0.178848f, 0.044136f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 868) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 868) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 113;
+ int uplo = 122;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ float A[] = { 0.216f, 0.192f };
+ float X[] = { -0.564f, -0.297f };
+ int incX = -1;
+ float x_expected[] = { -0.564f, -0.297f };
+ cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 869) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 869) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 111;
+ int uplo = 121;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ double A[] = { 0.693, -0.22 };
+ double X[] = { -0.101, 0.889 };
+ int incX = -1;
+ double x_expected[] = { 0.125587, 0.638297 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 870) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 870) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 111;
+ int uplo = 121;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ double A[] = { 0.693, -0.22 };
+ double X[] = { -0.101, 0.889 };
+ int incX = -1;
+ double x_expected[] = { -0.101, 0.889 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 871) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 871) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 111;
+ int uplo = 122;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ double A[] = { 0.693, -0.22 };
+ double X[] = { -0.101, 0.889 };
+ int incX = -1;
+ double x_expected[] = { 0.125587, 0.638297 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 872) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 872) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 111;
+ int uplo = 122;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ double A[] = { 0.693, -0.22 };
+ double X[] = { -0.101, 0.889 };
+ int incX = -1;
+ double x_expected[] = { -0.101, 0.889 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 873) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 873) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 111;
+ int uplo = 121;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ double A[] = { 0.693, -0.22 };
+ double X[] = { -0.101, 0.889 };
+ int incX = -1;
+ double x_expected[] = { 0.125587, 0.638297 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 874) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 874) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 111;
+ int uplo = 121;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ double A[] = { 0.693, -0.22 };
+ double X[] = { -0.101, 0.889 };
+ int incX = -1;
+ double x_expected[] = { -0.101, 0.889 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 875) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 875) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 111;
+ int uplo = 122;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ double A[] = { 0.693, -0.22 };
+ double X[] = { -0.101, 0.889 };
+ int incX = -1;
+ double x_expected[] = { 0.125587, 0.638297 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 876) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 876) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 111;
+ int uplo = 122;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ double A[] = { 0.693, -0.22 };
+ double X[] = { -0.101, 0.889 };
+ int incX = -1;
+ double x_expected[] = { -0.101, 0.889 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 877) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 877) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 112;
+ int uplo = 121;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.216, -0.623 };
+ double X[] = { 0.048, 0.293 };
+ int incX = -1;
+ double x_expected[] = { 0.172171, -0.093192 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 878) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 878) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 112;
+ int uplo = 121;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.216, -0.623 };
+ double X[] = { 0.048, 0.293 };
+ int incX = -1;
+ double x_expected[] = { 0.048, 0.293 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 879) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 879) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 112;
+ int uplo = 122;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.216, -0.623 };
+ double X[] = { 0.048, 0.293 };
+ int incX = -1;
+ double x_expected[] = { 0.172171, -0.093192 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 880) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 880) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 112;
+ int uplo = 122;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.216, -0.623 };
+ double X[] = { 0.048, 0.293 };
+ int incX = -1;
+ double x_expected[] = { 0.048, 0.293 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 881) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 881) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 112;
+ int uplo = 121;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.216, -0.623 };
+ double X[] = { 0.048, 0.293 };
+ int incX = -1;
+ double x_expected[] = { 0.172171, -0.093192 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 882) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 882) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 112;
+ int uplo = 121;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.216, -0.623 };
+ double X[] = { 0.048, 0.293 };
+ int incX = -1;
+ double x_expected[] = { 0.048, 0.293 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 883) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 883) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 112;
+ int uplo = 122;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.216, -0.623 };
+ double X[] = { 0.048, 0.293 };
+ int incX = -1;
+ double x_expected[] = { 0.172171, -0.093192 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 884) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 884) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 112;
+ int uplo = 122;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.216, -0.623 };
+ double X[] = { 0.048, 0.293 };
+ int incX = -1;
+ double x_expected[] = { 0.048, 0.293 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 885) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 885) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 113;
+ int uplo = 121;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.345, -0.851 };
+ double X[] = { -0.708, 0.298 };
+ int incX = -1;
+ double x_expected[] = { -0.009338, -0.705318 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 886) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 886) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 113;
+ int uplo = 121;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.345, -0.851 };
+ double X[] = { -0.708, 0.298 };
+ int incX = -1;
+ double x_expected[] = { -0.708, 0.298 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 887) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 887) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 113;
+ int uplo = 122;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.345, -0.851 };
+ double X[] = { -0.708, 0.298 };
+ int incX = -1;
+ double x_expected[] = { -0.009338, -0.705318 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 888) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 888) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 101;
+ int trans = 113;
+ int uplo = 122;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.345, -0.851 };
+ double X[] = { -0.708, 0.298 };
+ int incX = -1;
+ double x_expected[] = { -0.708, 0.298 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 889) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 889) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 113;
+ int uplo = 121;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.345, -0.851 };
+ double X[] = { -0.708, 0.298 };
+ int incX = -1;
+ double x_expected[] = { -0.009338, -0.705318 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 890) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 890) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 113;
+ int uplo = 121;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.345, -0.851 };
+ double X[] = { -0.708, 0.298 };
+ int incX = -1;
+ double x_expected[] = { -0.708, 0.298 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 891) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 891) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 113;
+ int uplo = 122;
+ int diag = 131;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.345, -0.851 };
+ double X[] = { -0.708, 0.298 };
+ int incX = -1;
+ double x_expected[] = { -0.009338, -0.705318 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 892) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 892) imag");
+ };
+ };
+ };
+
+
+ {
+ int order = 102;
+ int trans = 113;
+ int uplo = 122;
+ int diag = 132;
+ int N = 1;
+ int lda = 1;
+ double A[] = { -0.345, -0.851 };
+ double X[] = { -0.708, 0.298 };
+ int incX = -1;
+ double x_expected[] = { -0.708, 0.298 };
+ cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
+ {
+ int i;
+ for (i = 0; i < 1; i++) {
+ gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 893) real");
+ gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 893) imag");
+ };
+ };
+ };
+
+
+}
generated by cgit v1.2.3 (git 2.25.1) at 2024-05-01 08:50:37 +0000