diff options
Diffstat (limited to 'packages/base')
-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 | ||