diff options
author | cnlohr <lohr85@gmail.com> | 2018-04-15 17:43:12 -0400 |
---|---|---|
committer | cnlohr <lohr85@gmail.com> | 2018-04-15 17:43:12 -0400 |
commit | 0ab91a6e9374f190c049a5d8ea1319b9b37529c1 (patch) | |
tree | 85398db4a4d5a40b3adec733fe1d1e183e13f3b8 /dave/dclapack_test.c | |
parent | dd9936ef174746b73a688706de9c4a14fca2d58e (diff) | |
download | libsurvive-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.c | 34 |
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; -} - |