6 "gonum.org/v1/gonum/blas"
9 type Dgbmver interface {
10 Dgbmv(tA blas.Transpose, m, n, kL, kU int, alpha float64, a []float64, lda int, x []float64, incX int, beta float64, y []float64, incY int)
13 func DgbmvTest(t *testing.T, blasser Dgbmver) {
14 for i, test := range []struct {
45 x: []float64{1, 2, 3, 4, 5, 6},
46 y: []float64{-1, -2, -3, -4, -5, -6, -7, -8, -9},
47 ans: []float64{31, 86, 153, 97, 404, 3, 91, 92, -18},
68 x: []float64{1, 2, 3, 4, 5, 6, 7, 8, 9},
69 y: []float64{-1, -2, -3, -4, -5, -6},
70 ans: []float64{43, 77, 306, 241, 104, 348},
86 x: []float64{1, 2, 3},
87 y: []float64{-1, -2, -3, -4, -5, -6},
88 ans: []float64{1, 2, 3, -4, -5, -6},
107 x: []float64{1, 2, 3, 4, 5, 6},
108 y: []float64{-1, -2, -3},
109 ans: []float64{1, 2, 3},
113 aFlat := flattenBanded(test.a, test.kU, test.kL)
114 incTest := func(incX, incY, extra int) {
115 xnew := makeIncremented(test.x, incX, extra)
116 ynew := makeIncremented(test.y, incY, extra)
117 ans := makeIncremented(test.ans, incY, extra)
118 blasser.Dgbmv(test.tA, test.m, test.n, test.kL, test.kU, test.alpha, aFlat, test.lda, xnew, incX, test.beta, ynew, incY)
119 if !dSliceTolEqual(ans, ynew) {
120 t.Errorf("Case %v: Want %v, got %v", i, ans, ynew)
125 incTest(1, -3, extra)
127 incTest(2, -3, extra)
129 incTest(-3, 2, extra)