diff options
Diffstat (limited to 'lib/Numeric/LinearAlgebra/LAPACK.hs')
| -rw-r--r-- | lib/Numeric/LinearAlgebra/LAPACK.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/lib/Numeric/LinearAlgebra/LAPACK.hs b/lib/Numeric/LinearAlgebra/LAPACK.hs index 539ffb9..f5af8be 100644 --- a/lib/Numeric/LinearAlgebra/LAPACK.hs +++ b/lib/Numeric/LinearAlgebra/LAPACK.hs | |||
| @@ -237,7 +237,6 @@ eigR m = (s', v'') | |||
| 237 | s' = fixeig1 s | 237 | s' = fixeig1 s |
| 238 | v' = toRows $ trans v | 238 | v' = toRows $ trans v |
| 239 | v'' = fromColumns $ fixeig (toList s') v' | 239 | v'' = fromColumns $ fixeig (toList s') v' |
| 240 | r = rows m | ||
| 241 | 240 | ||
| 242 | eigRaux :: Matrix Double -> (Vector (Complex Double), Matrix Double) | 241 | eigRaux :: Matrix Double -> (Vector (Complex Double), Matrix Double) |
| 243 | eigRaux m = unsafePerformIO $ do | 242 | eigRaux m = unsafePerformIO $ do |