diff options
| author | Alberto Ruiz <aruiz@um.es> | 2012-01-08 00:55:04 -0800 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2012-01-08 00:55:04 -0800 |
| commit | b4f18a13826316be5362ab525d7122c0ca39d6ce (patch) | |
| tree | a489b0159e8865c27905be05c8a013037de12230 | |
| parent | 97e7156b59811bd51d0a9d6060e868eafedfcc75 (diff) | |
| parent | 68c19b1e94a4aba5260455daaf76493e50b7f0b4 (diff) | |
Merge pull request #7 from reinerp/master
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 "++ |