diff options
| -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 | ||