diff options
author | cnlohr <lohr85@gmail.com> | 2018-03-17 14:44:10 -0400 |
---|---|---|
committer | cnlohr <lohr85@gmail.com> | 2018-03-17 14:44:10 -0400 |
commit | f6586a91478b1ca5920c58f90925deaafab81465 (patch) | |
tree | d91b6e61768f9f3beeda446947e3ac3ff3f77dbf /redist/dclapack.h | |
parent | 04bd16aeb391e67716344268cf0f43d1f31f180a (diff) | |
download | libsurvive-f6586a91478b1ca5920c58f90925deaafab81465.tar.gz libsurvive-f6586a91478b1ca5920c58f90925deaafab81465.tar.bz2 |
Update tests... seems to work with both cblas and dclapack... Still haven't checked outputs.
Diffstat (limited to 'redist/dclapack.h')
-rw-r--r-- | redist/dclapack.h | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/redist/dclapack.h b/redist/dclapack.h index cae377b..d4634ac 100644 --- a/redist/dclapack.h +++ b/redist/dclapack.h @@ -269,7 +269,6 @@ PRINT(Ainv,n,n); \ for (int _k = 0; _k < n; _k++) { \ sum += _(A, _i, _k) * _(B, _k, _j); \ } \ - printf( "-> %d %d = %f %f %f %f[%d %d]\n", _i, _j, alpha,sum,beta, _(C,_i,_j), _i, _j ); \ _(R, _i, _j) = alpha * sum + beta * _(C, _i, _j); \ } \ } \ |