aboutsummaryrefslogtreecommitdiff
path: root/redist/dclhelpers.c
diff options
context:
space:
mode:
authorcnlohr <lohr85@gmail.com>2018-03-17 14:21:20 -0400
committercnlohr <lohr85@gmail.com>2018-03-17 14:21:20 -0400
commit04bd16aeb391e67716344268cf0f43d1f31f180a (patch)
tree2efb24782dc15a994c487e01e0a2ba2e31005721 /redist/dclhelpers.c
parent497e65e339edcc77bd272b97b9c1b1b5217a24b6 (diff)
downloadlibsurvive-04bd16aeb391e67716344268cf0f43d1f31f180a.tar.gz
libsurvive-04bd16aeb391e67716344268cf0f43d1f31f180a.tar.bz2
Update dcl and test.
Diffstat (limited to 'redist/dclhelpers.c')
-rw-r--r--redist/dclhelpers.c14
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);
}