diff options
author | CNLohr <charles@cnlohr.com> | 2018-04-15 20:41:39 -0400 |
---|---|---|
committer | GitHub <noreply@github.com> | 2018-04-15 20:41:39 -0400 |
commit | 63daf8c314ed3111fb8d45822c547f5e526d84bd (patch) | |
tree | 927d843a553ef53217c283f19f16728b0ca51c50 /attic/dave/dclapack_test.c | |
parent | 39a63badbb5864314a9d9e18c0871718ac5d2912 (diff) | |
parent | 69b31d3c3b1957e59d7962722a4145bfb0db16f9 (diff) | |
download | libsurvive-63daf8c314ed3111fb8d45822c547f5e526d84bd.tar.gz libsurvive-63daf8c314ed3111fb8d45822c547f5e526d84bd.tar.bz2 |
Merge pull request #129 from cnlohr/tcc_build
Improved Makefile system.
Diffstat (limited to 'attic/dave/dclapack_test.c')
-rw-r--r-- | attic/dave/dclapack_test.c | 34 |
1 files changed, 34 insertions, 0 deletions
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; +} + |