diff options
author | cnlohr <lohr85@gmail.com> | 2018-03-17 12:50:32 -0400 |
---|---|---|
committer | cnlohr <lohr85@gmail.com> | 2018-03-17 12:50:32 -0400 |
commit | 497e65e339edcc77bd272b97b9c1b1b5217a24b6 (patch) | |
tree | 653258548596fd0f6db6f9f5c799999cd03d7771 | |
parent | 5d4f4068ae265271d0840ca1bddd7dfcddd948e9 (diff) | |
download | libsurvive-497e65e339edcc77bd272b97b9c1b1b5217a24b6.tar.gz libsurvive-497e65e339edcc77bd272b97b9c1b1b5217a24b6.tar.bz2 |
Check in new failing test.
-rw-r--r-- | redist/test_dcl.c | 29 |
1 files changed, 26 insertions, 3 deletions
diff --git a/redist/test_dcl.c b/redist/test_dcl.c index 42f4fd6..056acdf 100644 --- a/redist/test_dcl.c +++ b/redist/test_dcl.c @@ -56,9 +56,32 @@ int main() assert(fabs(R[3][j]) < .0000001); } } - // void dclTransp( DCL_FLOAT * R, int Rc, const DCL_FLOAT * A, int Ac, int n, int m ); - // dclIdentity( A[0], MATx, 5 ); - // dclPrint( A[0], MATx, MATx, MATy ); + + printf( "The following should be an identity matrix\n" ); + dclPrint( MM[0], 3, 3, 3 ); + + + //Currently failing test... + { + FLT em1[12][20]; + FLT em2[20][12]; + FLT emo[12][12]; + int x, y; + + for( y = 0; y < 12; y++ ) + for( x = 0; x < 20; x++ ) + { + em1[y][x] = (rand()%1000)/1000.0; + em2[x][y] = (rand()%1000)/1000.0; + } + + int m = 12; + int n = 20; + int k = 12; + dcldgemm( 0, 0, m, n, k, 0.1, em1[0], 20, em2[0], 12, .1, emo[0], 12 ); + dclPrint( emo[0], 12, 12, 12 ); + } + } |