Mercurial > hg > octave-lyh
diff liboctave/dSparse.cc @ 5429:2042301733ce
[project @ 2005-08-25 12:21:24 by dbateman]
author | dbateman |
---|---|
date | Thu, 25 Aug 2005 12:21:24 +0000 |
parents | b91241999ba6 |
children | ed08548b9054 |
line wrap: on
line diff
--- a/liboctave/dSparse.cc +++ b/liboctave/dSparse.cc @@ -6478,13 +6478,33 @@ operator * (const SparseMatrix& m, const SparseMatrix& a) { #ifdef HAVE_SPARSE_BLAS - // XXX FIXME XXX Isn't there a sparse BLAS ?? + // XXX FIXME XXX Isn't there a sparse BLAS ?? Is it faster?? #else // Use Andy's sparse matrix multiply function SPARSE_SPARSE_MUL (SparseMatrix, double); #endif } +Matrix +operator * (const Matrix& m, const SparseMatrix& a) +{ +#ifdef HAVE_SPARSE_BLAS + // XXX FIXME XXX Isn't there a sparse BLAS ?? Is it faster?? +#else + FULL_SPARSE_MUL (Matrix, double); +#endif +} + +Matrix +operator * (const SparseMatrix& m, const Matrix& a) +{ +#ifdef HAVE_SPARSE_BLAS + // XXX FIXME XXX Isn't there a sparse BLAS ?? Is it faster?? +#else + SPARSE_FULL_MUL (Matrix, double); +#endif +} + // XXX FIXME XXX -- it would be nice to share code among the min/max // functions below.