From bcf08b95ab6daa7ac7bffe1449fa8a11cad2a02a Mon Sep 17 00:00:00 2001
From: cnlohr <lohr85@gmail.com>
Date: Sat, 17 Mar 2018 02:28:11 -0400
Subject: Get closer to functional.

---
 redist/dclhelpers.c | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

(limited to 'redist/dclhelpers.c')

diff --git a/redist/dclhelpers.c b/redist/dclhelpers.c
index 2ee6c4a..23c3ca5 100644
--- a/redist/dclhelpers.c
+++ b/redist/dclhelpers.c
@@ -60,4 +60,29 @@ void dclGMulAdd( DCL_FLOAT * R, const DCL_FLOAT * A, const DCL_FLOAT * B, const
 	GMULADD(R,A,B,C,alpha,beta,n,m,p);
 }
 
+/* dclGMulAdd( R, ((transA)?TRANS(A):A, (transB)?TRANS(B):B), C, alpha, beta, n, m, p ); */
+void dcldgemm(
+	char transA,
+	char transB,
+	int m,
+	int n,
+	int k,
+	DCL_FLOAT alpha,
+	const DCL_FLOAT* A,
+	int lda, //must be n
+	const DCL_FLOAT* B,
+	int ldb, //must be m
+	DCL_FLOAT beta,
+	const DCL_FLOAT * C,
+	int ldc //must be n
+	 )
+{
+	DCL_FLOAT * ta;
+	DCL_FLOAT * tb;
+	if( transA )
+	{
+		ta = alloca( sizeof( DCL_FLOAT ) * n * m );
+		
+	}
+}
 
-- 
cgit v1.2.3