diff options
| author | Reiner Pope <reiner.pope@gmail.com> | 2012-01-08 14:33:21 +1100 |
|---|---|---|
| committer | Reiner Pope <reiner.pope@gmail.com> | 2012-01-08 14:33:21 +1100 |
| commit | 68c19b1e94a4aba5260455daaf76493e50b7f0b4 (patch) | |
| tree | a489b0159e8865c27905be05c8a013037de12230 | |
| parent | 97e7156b59811bd51d0a9d6060e868eafedfcc75 (diff) | |
Fix multiply.
| -rw-r--r-- | lib/Numeric/LinearAlgebra/LAPACK.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Numeric/LinearAlgebra/LAPACK.hs b/lib/Numeric/LinearAlgebra/LAPACK.hs index 349650c..7ad58e1 100644 --- a/lib/Numeric/LinearAlgebra/LAPACK.hs +++ b/lib/Numeric/LinearAlgebra/LAPACK.hs | |||
| @@ -61,8 +61,8 @@ foreign import ccall "multiplyQ" cgemmc :: CInt -> CInt -> TQMQMQM | |||
| 61 | isT Matrix{order = ColumnMajor} = 0 | 61 | isT Matrix{order = ColumnMajor} = 0 |
| 62 | isT Matrix{order = RowMajor} = 1 | 62 | isT Matrix{order = RowMajor} = 1 |
| 63 | 63 | ||
| 64 | tt x@Matrix{order = RowMajor} = x | 64 | tt x@Matrix{order = ColumnMajor} = x |
| 65 | tt x@Matrix{order = ColumnMajor} = trans x | 65 | tt x@Matrix{order = RowMajor} = trans x |
| 66 | 66 | ||
| 67 | multiplyAux f st a b = unsafePerformIO $ do | 67 | multiplyAux f st a b = unsafePerformIO $ do |
| 68 | when (cols a /= rows b) $ error $ "inconsistent dimensions in matrix product "++ | 68 | when (cols a /= rows b) $ error $ "inconsistent dimensions in matrix product "++ |