aboutsummaryrefslogtreecommitdiff
path: root/dave/dclapack_test.c
diff options
context:
space:
mode:
authorcnlohr <lohr85@gmail.com>2018-04-15 17:43:12 -0400
committercnlohr <lohr85@gmail.com>2018-04-15 17:43:12 -0400
commit0ab91a6e9374f190c049a5d8ea1319b9b37529c1 (patch)
tree85398db4a4d5a40b3adec733fe1d1e183e13f3b8 /dave/dclapack_test.c
parentdd9936ef174746b73a688706de9c4a14fca2d58e (diff)
downloadlibsurvive-0ab91a6e9374f190c049a5d8ea1319b9b37529c1.tar.gz
libsurvive-0ab91a6e9374f190c049a5d8ea1319b9b37529c1.tar.bz2
Move things into attic and update Makefile to do dependnencies.
Diffstat (limited to 'dave/dclapack_test.c')
-rw-r--r--dave/dclapack_test.c34
1 files changed, 0 insertions, 34 deletions
diff --git a/dave/dclapack_test.c b/dave/dclapack_test.c
deleted file mode 100644
index 3f48b08..0000000
--- a/dave/dclapack_test.c
+++ /dev/null
@@ -1,34 +0,0 @@
-#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;
-}
-