From 0ab91a6e9374f190c049a5d8ea1319b9b37529c1 Mon Sep 17 00:00:00 2001
From: cnlohr <lohr85@gmail.com>
Date: Sun, 15 Apr 2018 17:43:12 -0400
Subject: Move things into attic and update Makefile to do dependnencies.

---
 attic/dave/dclapack_test.c | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 attic/dave/dclapack_test.c

(limited to 'attic/dave/dclapack_test.c')

diff --git a/attic/dave/dclapack_test.c b/attic/dave/dclapack_test.c
new file mode 100644
index 0000000..3f48b08
--- /dev/null
+++ b/attic/dave/dclapack_test.c
@@ -0,0 +1,34 @@
+#define FLOAT float
+#define ORDER 50
+#include "../redist/dclapack.h"
+
+#include <stdio.h>
+#include <stdlib.h>
+
+int main()
+{
+    float A[ORDER][ORDER];
+    float Ainv[ORDER][ORDER];
+    float Prod[ORDER][ORDER];
+
+    int i, j, n = 3;
+    srand(7779);
+
+    for(i=0; i<n; i++) {
+        for(j=0; j<n; j++) {
+            A[i][j] = (float)rand() / RAND_MAX;
+        }
+    }
+
+    for (i=0; i<10000; i++) {
+        INV(A,Ainv,n);
+    }
+
+    PRINT(A,n,n);
+    PRINT(Ainv,n,n);
+    MUL(A,Ainv,Prod,n,n,n);
+    PRINT(Prod,n,n);
+
+    return 0;
+}
+
-- 
cgit v1.2.3