diff options
author | cnlohr <lohr85@gmail.com> | 2018-03-17 14:57:20 -0400 |
---|---|---|
committer | cnlohr <lohr85@gmail.com> | 2018-03-17 14:57:20 -0400 |
commit | a3d7611ef9cbdd4171d64942cf3b3d6a0eb5caed (patch) | |
tree | 0ddd422efe8c3a8100399f01fd812586acfd83f8 /redist | |
parent | f6586a91478b1ca5920c58f90925deaafab81465 (diff) | |
download | libsurvive-a3d7611ef9cbdd4171d64942cf3b3d6a0eb5caed.tar.gz libsurvive-a3d7611ef9cbdd4171d64942cf3b3d6a0eb5caed.tar.bz2 |
The results still disagree.
Diffstat (limited to 'redist')
-rw-r--r-- | redist/test_dcl.c | 8 |
1 files changed, 5 insertions, 3 deletions
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, |