diff options
| author | Alberto Ruiz <aruiz@um.es> | 2014-06-20 08:58:19 +0200 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2014-06-20 08:58:19 +0200 |
| commit | 1e564ccf064a3486532aeb32d689e5ca4fd2e260 (patch) | |
| tree | c0072487b0b9cefe2a89cc9342b51fc3295e5a95 /packages | |
| parent | 7163e8027574d2a02e1f852a84d9252c51ade573 (diff) | |
don't compute eigenvectors in eigOnlyH!
Diffstat (limited to 'packages')
| -rw-r--r-- | packages/base/src/Numeric/LinearAlgebra/LAPACK.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/base/src/Numeric/LinearAlgebra/LAPACK.hs b/packages/base/src/Numeric/LinearAlgebra/LAPACK.hs index b32b67f..e088fdc 100644 --- a/packages/base/src/Numeric/LinearAlgebra/LAPACK.hs +++ b/packages/base/src/Numeric/LinearAlgebra/LAPACK.hs | |||
| @@ -320,7 +320,7 @@ eigOnlyS = vrev . fst. eigSHAux (dsyev 0) "eigS'" . fmat | |||
| 320 | -- | Eigenvalues of a hermitian complex matrix, using LAPACK's /zheev/ with jobz == \'N\'. | 320 | -- | Eigenvalues of a hermitian complex matrix, using LAPACK's /zheev/ with jobz == \'N\'. |
| 321 | -- The eigenvalues are sorted in descending order. | 321 | -- The eigenvalues are sorted in descending order. |
| 322 | eigOnlyH :: Matrix (Complex Double) -> Vector Double | 322 | eigOnlyH :: Matrix (Complex Double) -> Vector Double |
| 323 | eigOnlyH = vrev . fst. eigSHAux (zheev 1) "eigH'" . fmat | 323 | eigOnlyH = vrev . fst. eigSHAux (zheev 0) "eigH'" . fmat |
| 324 | 324 | ||
| 325 | vrev = flatten . flipud . reshape 1 | 325 | vrev = flatten . flipud . reshape 1 |
| 326 | 326 | ||