diff options
| author | cnlohr <lohr85@gmail.com> | 2018-03-17 02:28:11 -0400 |
|---|---|---|
| committer | cnlohr <lohr85@gmail.com> | 2018-03-17 02:28:11 -0400 |
| commit | bcf08b95ab6daa7ac7bffe1449fa8a11cad2a02a (patch) | |
| tree | 6c3055ff0a97763de32386bac2b3e88160252a52 /redist/dclhelpers.c | |
| parent | 9bd8c4c5ed38d186c04ea318722ca54b2f9c8ea1 (diff) | |
| download | libsurvive-bcf08b95ab6daa7ac7bffe1449fa8a11cad2a02a.tar.gz libsurvive-bcf08b95ab6daa7ac7bffe1449fa8a11cad2a02a.tar.bz2 | |
Get closer to functional.
Diffstat (limited to 'redist/dclhelpers.c')
| -rw-r--r-- | redist/dclhelpers.c | 25 |
1 files changed, 25 insertions, 0 deletions
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 ); + + } +} |