summaryrefslogtreecommitdiff
path: root/packages/sparse
diff options
context:
space:
mode:
Diffstat (limited to 'packages/sparse')
-rw-r--r--packages/sparse/src/Numeric/LinearAlgebra/Sparse.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/sparse/src/Numeric/LinearAlgebra/Sparse.hs b/packages/sparse/src/Numeric/LinearAlgebra/Sparse.hs
index d75fec2..b2ca7f0 100644
--- a/packages/sparse/src/Numeric/LinearAlgebra/Sparse.hs
+++ b/packages/sparse/src/Numeric/LinearAlgebra/Sparse.hs
@@ -27,7 +27,7 @@ dss :: CSR -> Vector Double -> Vector Double
27dss CSR{..} b = unsafePerformIO $ do 27dss CSR{..} b = unsafePerformIO $ do
28 size b /= csrNRows ??? printf "dss: incorrect sizes: (%d,%d) x %d" csrNRows csrNCols (size b) 28 size b /= csrNRows ??? printf "dss: incorrect sizes: (%d,%d) x %d" csrNRows csrNCols (size b)
29 r <- createVector csrNCols 29 r <- createVector csrNCols
30 app5 c_dss vec csrVals vec csrCols vec csrRows vec b vec r "dss" 30 c_dss `apply` csrVals `apply` csrCols `apply` csrRows `apply` b `apply` r #|"dss"
31 return r 31 return r
32 32
33foreign import ccall unsafe "dss" 33foreign import ccall unsafe "dss"