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

lapack/testlapack: use real arguments in workspace query calls

Browse Source
This commit is contained in:
Vladimir Chalupecky
2018-11-20 17:11:10 +01:00
committed by Vladimír Chalupecký
parent 3f7ecaa7e8
commit ce429941af
9 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lapack/testlapack/dgeev.go
View File

@@ -579,7 +579,7 @@ func testDgeev(t *testing.T, impl Dgeever, tc string, test dgeevTest, jobvl lapa
}
case mediumWork:
work := make([]float64, 1)
impl.Dgeev(jobvl, jobvr, n, nil, 1, nil, nil, nil, 1, nil, 1, work, -1)
impl.Dgeev(jobvl, jobvr, n, a.Data, a.Stride, wr, wi, vl.Data, vl.Stride, vr.Data, vr.Stride, work, -1)
if jobvl == lapack.LeftEVCompute || jobvr == lapack.RightEVCompute {
lwork = (int(work[0]) + 4*n) / 2
} else {
@@ -588,7 +588,7 @@ func testDgeev(t *testing.T, impl Dgeever, tc string, test dgeevTest, jobvl lapa
lwork = max(1, lwork)
case optimumWork:
work := make([]float64, 1)
impl.Dgeev(jobvl, jobvr, n, nil, 1, nil, nil, nil, 1, nil, 1, work, -1)
impl.Dgeev(jobvl, jobvr, n, a.Data, a.Stride, wr, wi, vl.Data, vl.Stride, vr.Data, vr.Stride, work, -1)
lwork = int(work[0])
}
work := make([]float64, lwork)