1 files changed, 163 insertions, 0 deletions
diff --git a/gsl-1.9/cblas/test_spr.c b/gsl-1.9/cblas/test_spr.c
new file mode 100644
index 0000000..36891bd
--- /dev/null
+++ b/gsl-1.9/cblas/test_spr.c
@@ -0,0 +1,163 @@
+#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_spr (void) {
+const double flteps = 1e-4, dbleps = 1e-6;
+  {
+   int order = 101;
+   int uplo = 121;
+   int N = 2;
+   float alpha = -0.3f;
+   float Ap[] = { -0.764f, -0.257f, -0.064f };
+   float X[] = { 0.455f, -0.285f };
+   int incX = -1;
+   float Ap_expected[] = { -0.788367f, -0.218097f, -0.126108f };
+   cblas_sspr(order, uplo, N, alpha, X, incX, Ap);
+   {
+     int i;
+     for (i = 0; i < 3; i++) {
+       gsl_test_rel(Ap[i], Ap_expected[i], flteps, "sspr(case 1426)");
+     }
+   };
+  };
+
+
+  {
+   int order = 101;
+   int uplo = 122;
+   int N = 2;
+   float alpha = -0.3f;
+   float Ap[] = { -0.764f, -0.257f, -0.064f };
+   float X[] = { 0.455f, -0.285f };
+   int incX = -1;
+   float Ap_expected[] = { -0.788367f, -0.218097f, -0.126108f };
+   cblas_sspr(order, uplo, N, alpha, X, incX, Ap);
+   {
+     int i;
+     for (i = 0; i < 3; i++) {
+       gsl_test_rel(Ap[i], Ap_expected[i], flteps, "sspr(case 1427)");
+     }
+   };
+  };
+
+
+  {
+   int order = 102;
+   int uplo = 121;
+   int N = 2;
+   float alpha = -0.3f;
+   float Ap[] = { -0.764f, -0.257f, -0.064f };
+   float X[] = { 0.455f, -0.285f };
+   int incX = -1;
+   float Ap_expected[] = { -0.788367f, -0.218097f, -0.126108f };
+   cblas_sspr(order, uplo, N, alpha, X, incX, Ap);
+   {
+     int i;
+     for (i = 0; i < 3; i++) {
+       gsl_test_rel(Ap[i], Ap_expected[i], flteps, "sspr(case 1428)");
+     }
+   };
+  };
+
+
+  {
+   int order = 102;
+   int uplo = 122;
+   int N = 2;
+   float alpha = -0.3f;
+   float Ap[] = { -0.764f, -0.257f, -0.064f };
+   float X[] = { 0.455f, -0.285f };
+   int incX = -1;
+   float Ap_expected[] = { -0.788367f, -0.218097f, -0.126108f };
+   cblas_sspr(order, uplo, N, alpha, X, incX, Ap);
+   {
+     int i;
+     for (i = 0; i < 3; i++) {
+       gsl_test_rel(Ap[i], Ap_expected[i], flteps, "sspr(case 1429)");
+     }
+   };
+  };
+
+
+  {
+   int order = 101;
+   int uplo = 121;
+   int N = 2;
+   double alpha = -1;
+   double Ap[] = { 0.819, 0.175, -0.809 };
+   double X[] = { -0.645, -0.222 };
+   int incX = -1;
+   double Ap_expected[] = { 0.769716, 0.03181, -1.225025 };
+   cblas_dspr(order, uplo, N, alpha, X, incX, Ap);
+   {
+     int i;
+     for (i = 0; i < 3; i++) {
+       gsl_test_rel(Ap[i], Ap_expected[i], dbleps, "dspr(case 1430)");
+     }
+   };
+  };
+
+
+  {
+   int order = 101;
+   int uplo = 122;
+   int N = 2;
+   double alpha = -1;
+   double Ap[] = { 0.819, 0.175, -0.809 };
+   double X[] = { -0.645, -0.222 };
+   int incX = -1;
+   double Ap_expected[] = { 0.769716, 0.03181, -1.225025 };
+   cblas_dspr(order, uplo, N, alpha, X, incX, Ap);
+   {
+     int i;
+     for (i = 0; i < 3; i++) {
+       gsl_test_rel(Ap[i], Ap_expected[i], dbleps, "dspr(case 1431)");
+     }
+   };
+  };
+
+
+  {
+   int order = 102;
+   int uplo = 121;
+   int N = 2;
+   double alpha = -1;
+   double Ap[] = { 0.819, 0.175, -0.809 };
+   double X[] = { -0.645, -0.222 };
+   int incX = -1;
+   double Ap_expected[] = { 0.769716, 0.03181, -1.225025 };
+   cblas_dspr(order, uplo, N, alpha, X, incX, Ap);
+   {
+     int i;
+     for (i = 0; i < 3; i++) {
+       gsl_test_rel(Ap[i], Ap_expected[i], dbleps, "dspr(case 1432)");
+     }
+   };
+  };
+
+
+  {
+   int order = 102;
+   int uplo = 122;
+   int N = 2;
+   double alpha = -1;
+   double Ap[] = { 0.819, 0.175, -0.809 };
+   double X[] = { -0.645, -0.222 };
+   int incX = -1;
+   double Ap_expected[] = { 0.769716, 0.03181, -1.225025 };
+   cblas_dspr(order, uplo, N, alpha, X, incX, Ap);
+   {
+     int i;
+     for (i = 0; i < 3; i++) {
+       gsl_test_rel(Ap[i], Ap_expected[i], dbleps, "dspr(case 1433)");
+     }
+   };
+  };
+
+
+}