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/base/src/Numeric | |
parent | 7163e8027574d2a02e1f852a84d9252c51ade573 (diff) |
don't compute eigenvectors in eigOnlyH!
Diffstat (limited to 'packages/base/src/Numeric')
-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 | ||