diff options
author | cnlohr <lohr85@gmail.com> | 2018-03-17 14:21:20 -0400 |
---|---|---|
committer | cnlohr <lohr85@gmail.com> | 2018-03-17 14:21:20 -0400 |
commit | 04bd16aeb391e67716344268cf0f43d1f31f180a (patch) | |
tree | 2efb24782dc15a994c487e01e0a2ba2e31005721 /redist/dclhelpers.c | |
parent | 497e65e339edcc77bd272b97b9c1b1b5217a24b6 (diff) | |
download | libsurvive-04bd16aeb391e67716344268cf0f43d1f31f180a.tar.gz libsurvive-04bd16aeb391e67716344268cf0f43d1f31f180a.tar.bz2 |
Update dcl and test.
Diffstat (limited to 'redist/dclhelpers.c')
-rw-r--r-- | redist/dclhelpers.c | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/redist/dclhelpers.c b/redist/dclhelpers.c index 3e51fd2..5b956b0 100644 --- a/redist/dclhelpers.c +++ b/redist/dclhelpers.c @@ -5,15 +5,23 @@ #include <alloca.h> #include <assert.h> #include <stdio.h> +#include <string.h> void dclPrint( const DCL_FLOAT * PMATRIX, int PMATRIXc, int n, int m ) { PRINT( PMATRIX, n, m ); } -void dclIdentity( DCL_FLOAT * I, int Ic, int n ) +void dclIdentity( DCL_FLOAT * I, int Ic, int m, int n ) { - IDENTITY( I, n ); + IDENTITY( I, m, n ); +} + + +/* Returns the zero matrix */ +void dclZero( DCL_FLOAT * Z, int Zc, int m, int n ) +{ + memset( Z, 0, m*n*sizeof(DCL_FLOAT) ); } void dclTransp( DCL_FLOAT * R, int Rc, const DCL_FLOAT * A, int Ac, int n, int m ) @@ -103,7 +111,7 @@ void dcldgemm( } else tb = B; - printf("%d %d %d\n", tac, tbc, Cc); + GMULADD(C, ta, tb, C, alpha, beta, m, n, k); } |