From 0b9e66ad2ff686a4dcf8a6838f33edb203a1bff5 Mon Sep 17 00:00:00 2001
From: Justin Berger <j.david.berger@gmail.com>
Date: Sat, 17 Mar 2018 09:32:22 -0600
Subject: Fixed gemm

---
 redist/dclhelpers.c | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'redist/dclhelpers.c')

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);
 }
 
-- 
cgit v1.2.3