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

native,testlapack: fix docs and checks for correct size of T and W in Dlaqr2

Browse Source
This commit is contained in:
Vladimir Chalupecky
2016-08-18 23:00:44 +09:00
parent eef8e925c0
commit 30aa278560
2 changed files with 10 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
testlapack/dlaqr2.go
View File

@@ -232,27 +232,27 @@ func testDlaqr2(t *testing.T, impl Dlaqr2er, test dlaqr2Test, opt bool, rnd *ran
v := randomGeneral(nw, nw, nw+extra, rnd)
var nh int
if nw > 0 {
nh = rnd.Intn(nw) + 1
nh = nw + rnd.Intn(nw) // nh must be at least nw.
}
tmat := randomGeneral(nw, nw, nw+extra, rnd)
tmat := randomGeneral(nw, nh, nh+extra, rnd)
var nv int
if nw > 0 {
nv = rnd.Intn(nw) + 1
}
wv := randomGeneral(nw, nw, nw+extra, rnd)
wv := randomGeneral(nv, nw, nw+extra, rnd)
var work []float64
if opt {
work = nanSlice(1)
impl.Dlaqr2(wantt, wantz, n, ktop, kbot, nw, h.Data, h.Stride, iloz, ihiz, z.Data, z.Stride,
sr, si, v.Data, v.Stride, nh, tmat.Data, tmat.Stride, nv, wv.Data, wv.Stride, work, -1)
sr, si, v.Data, v.Stride, tmat.Cols, tmat.Data, tmat.Stride, wv.Rows, wv.Data, wv.Stride, work, -1)
work = nanSlice(int(work[0]))
} else {
work = nanSlice(max(1, 2*nw))
}
ns, nd := impl.Dlaqr2(wantt, wantz, n, ktop, kbot, nw, h.Data, h.Stride, iloz, ihiz, z.Data, z.Stride,
sr, si, v.Data, v.Stride, nh, tmat.Data, tmat.Stride, nv, wv.Data, wv.Stride, work, len(work))
sr, si, v.Data, v.Stride, tmat.Cols, tmat.Data, tmat.Stride, wv.Rows, wv.Data, wv.Stride, work, len(work))
prefix := fmt.Sprintf("Case wantt=%v, wantz=%v, n=%v, ktop=%v, kbot=%v, nw=%v, iloz=%v, ihiz=%v, extra=%v",
wantt, wantz, n, ktop, kbot, nw, iloz, ihiz, extra)