diff options
author | Justin Berger <j.david.berger@gmail.com> | 2018-03-17 09:32:22 -0600 |
---|---|---|
committer | Justin Berger <j.david.berger@gmail.com> | 2018-03-17 09:32:22 -0600 |
commit | 0b9e66ad2ff686a4dcf8a6838f33edb203a1bff5 (patch) | |
tree | 2ccc16e01e625901f00c59cc85535286116b1792 /redist/dclhelpers.c | |
parent | 7c97cfe7f63650fc79ce4fa7f081b556ce275475 (diff) | |
download | libsurvive-0b9e66ad2ff686a4dcf8a6838f33edb203a1bff5.tar.gz libsurvive-0b9e66ad2ff686a4dcf8a6838f33edb203a1bff5.tar.bz2 |
Fixed gemm
Diffstat (limited to 'redist/dclhelpers.c')
-rw-r--r-- | redist/dclhelpers.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/redist/dclhelpers.c b/redist/dclhelpers.c index fb6aba6..3e51fd2 100644 --- a/redist/dclhelpers.c +++ b/redist/dclhelpers.c @@ -1,9 +1,10 @@ #include "dclhelpers.h" #define FLOAT DCL_FLOAT #define DYNAMIC_INDEX -#include <stdio.h> #include "dclapack.h" #include <alloca.h> +#include <assert.h> +#include <stdio.h> void dclPrint( const DCL_FLOAT * PMATRIX, int PMATRIXc, int n, int m ) { @@ -77,7 +78,7 @@ void dcldgemm( int Cc //must be n ) { - const DCL_FLOAT * ta; + const DCL_FLOAT *ta; const DCL_FLOAT * tb; int tac = Ac; int tbc = Bc; @@ -102,7 +103,7 @@ void dcldgemm( } else tb = B; - - GMULADD(C,ta,tb,C,alpha,beta,n,m,k); + printf("%d %d %d\n", tac, tbc, Cc); + GMULADD(C, ta, tb, C, alpha, beta, m, n, k); } |