diff options
| author | Alberto Ruiz <aruiz@um.es> | 2010-04-23 19:37:56 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2010-04-23 19:37:56 +0000 |
| commit | 0ce6e74a5375b8d7ee1d95826252d8ff622f2cb4 (patch) | |
| tree | cab666c674543adf0908ea5bc42ec9e9d35a9ea1 /lib/Numeric/LinearAlgebra/LAPACK.hs | |
| parent | f7cbac4bb8d8fc1c4210a548674c222b691f8e9c (diff) | |
app5-10, some SCC, and other minor changes
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 |