diff options
Diffstat (limited to 'packages/base/src/Internal/Sparse.hs')
-rw-r--r-- | packages/base/src/Internal/Sparse.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/packages/base/src/Internal/Sparse.hs b/packages/base/src/Internal/Sparse.hs index 1604e7e..1ff3f57 100644 --- a/packages/base/src/Internal/Sparse.hs +++ b/packages/base/src/Internal/Sparse.hs | |||
@@ -144,13 +144,13 @@ gmXv :: GMatrix -> Vector Double -> Vector Double | |||
144 | gmXv SparseR { gmCSR = CSR{..}, .. } v = unsafePerformIO $ do | 144 | gmXv SparseR { gmCSR = CSR{..}, .. } v = unsafePerformIO $ do |
145 | dim v /= nCols ~!~ printf "gmXv (CSR): incorrect sizes: (%d,%d) x %d" nRows nCols (dim v) | 145 | dim v /= nCols ~!~ printf "gmXv (CSR): incorrect sizes: (%d,%d) x %d" nRows nCols (dim v) |
146 | r <- createVector nRows | 146 | r <- createVector nRows |
147 | c_smXv # csrVals # csrCols # csrRows # v # r #|"CSRXv" | 147 | (csrVals # csrCols # csrRows # v #! r) c_smXv #|"CSRXv" |
148 | return r | 148 | return r |
149 | 149 | ||
150 | gmXv SparseC { gmCSC = CSC{..}, .. } v = unsafePerformIO $ do | 150 | gmXv SparseC { gmCSC = CSC{..}, .. } v = unsafePerformIO $ do |
151 | dim v /= nCols ~!~ printf "gmXv (CSC): incorrect sizes: (%d,%d) x %d" nRows nCols (dim v) | 151 | dim v /= nCols ~!~ printf "gmXv (CSC): incorrect sizes: (%d,%d) x %d" nRows nCols (dim v) |
152 | r <- createVector nRows | 152 | r <- createVector nRows |
153 | c_smTXv # cscVals # cscRows # cscCols # v # r #|"CSCXv" | 153 | (cscVals # cscRows # cscCols # v #! r) c_smTXv #|"CSCXv" |
154 | return r | 154 | return r |
155 | 155 | ||
156 | gmXv Diag{..} v | 156 | gmXv Diag{..} v |
@@ -211,4 +211,3 @@ instance Transposable GMatrix GMatrix | |||
211 | tr (Diag v n m) = Diag v m n | 211 | tr (Diag v n m) = Diag v m n |
212 | tr (Dense a n m) = Dense (tr a) m n | 212 | tr (Dense a n m) = Dense (tr a) m n |
213 | tr' = tr | 213 | tr' = tr |
214 | |||