package/gonum
1
0
Fork 0
mirror of https://github.com/gonum/gonum.git synced 2025-10-04 23:02:42 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

lapack/testlapack: fix comments and error messages about orthogonality

Browse Source
This commit is contained in:
Vladimir Chalupecky
2018-07-24 15:48:19 +02:00
committed by Vladimír Chalupecký
parent 22345aeeda
commit 25826f7966
4 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lapack/testlapack/dsteqr.go
View File

@@ -60,13 +60,14 @@ func DsteqrTest(t *testing.T, impl Dsteqrer) {
aCopy := make([]float64, len(a))
copy(aCopy, a)
if compz == lapack.OriginalEV {
// Compute triangular decomposition and orthonormal matrix.
uplo := blas.Upper
tau := make([]float64, n)
work := make([]float64, 1)
impl.Dsytrd(blas.Upper, n, a, lda, d, e, tau, work, -1)
work = make([]float64, int(work[0]))
// Reduce A to symmetric tridiagonal form.
impl.Dsytrd(uplo, n, a, lda, d, e, tau, work, len(work))
// Compute the orthogonal matrix Q.
impl.Dorgtr(uplo, n, a, lda, tau, work, len(work))
} else {
for i := 0; i < n; i++ {