From a3d7611ef9cbdd4171d64942cf3b3d6a0eb5caed Mon Sep 17 00:00:00 2001 From: cnlohr Date: Sat, 17 Mar 2018 14:57:20 -0400 Subject: The results still disagree. --- redist/test_dcl.c | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'redist') diff --git a/redist/test_dcl.c b/redist/test_dcl.c index 29c3c72..5435a3c 100644 --- a/redist/test_dcl.c +++ b/redist/test_dcl.c @@ -95,16 +95,18 @@ int main() int n = 20; int k = 12; - dclPrint( em1[0], 20, 12, 20 ); - dclPrint( em2[0], 12, 20, 12 ); + dclPrint( DMS(em1), 12, 20 ); + dclPrint( DMS(em2), 20, 12 ); int i; double start = OGGetAbsoluteTime(); for( i = 0; i < 10000; i++ ) { + dclZero( DMS(emo), 20, 20 ); + dcldgemm( 0, 0, m, n, k, 1.0, DMS(em1), DMS(em2), .1, DMS(emo) ); - //cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, m, n, k, 1.0, DMS(em1), DMS(em2), .1, DMS(emo) ); + //cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, m, n, k, 1.0, DMS(em1), DMS(em2), .1, DMS(emo) ); /*void cblas_dgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, CBLAS_TRANSPOSE TransB, const int M, const int N, -- cgit v1.2.3