summaryrefslogtreecommitdiff
path: root/packages/base/src
diff options
context:
space:
mode:
Diffstat (limited to 'packages/base/src')
-rw-r--r--packages/base/src/Numeric/LinearAlgebra/LAPACK.hs2
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.
322eigOnlyH :: Matrix (Complex Double) -> Vector Double 322eigOnlyH :: Matrix (Complex Double) -> Vector Double
323eigOnlyH = vrev . fst. eigSHAux (zheev 1) "eigH'" . fmat 323eigOnlyH = vrev . fst. eigSHAux (zheev 0) "eigH'" . fmat
324 324
325vrev = flatten . flipud . reshape 1 325vrev = flatten . flipud . reshape 1
326 326