+++ /dev/null
-// Copyright ©2015 The Gonum Authors. All rights reserved.
-// Use of this source code is governed by a BSD-style
-// license that can be found in the LICENSE file.
-
-package testlapack
-
-import (
- "testing"
-
- "golang.org/x/exp/rand"
-
- "gonum.org/v1/gonum/blas"
- "gonum.org/v1/gonum/blas/blas64"
- "gonum.org/v1/gonum/floats"
-)
-
-type Dorm2rer interface {
- Dgeqrfer
- Dorm2r(side blas.Side, trans blas.Transpose, m, n, k int, a []float64, lda int, tau, c []float64, ldc int, work []float64)
-}
-
-func Dorm2rTest(t *testing.T, impl Dorm2rer) {
- rnd := rand.New(rand.NewSource(1))
- for _, side := range []blas.Side{blas.Left, blas.Right} {
- for _, trans := range []blas.Transpose{blas.NoTrans, blas.Trans} {
- for _, test := range []struct {
- common, adim, cdim, lda, ldc int
- }{
- {3, 4, 5, 0, 0},
- {3, 5, 4, 0, 0},
- {4, 3, 5, 0, 0},
- {4, 5, 3, 0, 0},
- {5, 3, 4, 0, 0},
- {5, 4, 3, 0, 0},
- {3, 4, 5, 6, 20},
- {3, 5, 4, 6, 20},
- {4, 3, 5, 6, 20},
- {4, 5, 3, 6, 20},
- {5, 3, 4, 6, 20},
- {5, 4, 3, 6, 20},
- {3, 4, 5, 20, 6},
- {3, 5, 4, 20, 6},
- {4, 3, 5, 20, 6},
- {4, 5, 3, 20, 6},
- {5, 3, 4, 20, 6},
- {5, 4, 3, 20, 6},
- } {
- var ma, na, mc, nc int
- if side == blas.Left {
- ma = test.common
- na = test.adim
- mc = test.common
- nc = test.cdim
- } else {
- ma = test.common
- na = test.adim
- mc = test.cdim
- nc = test.common
- }
-
- // Generate a random matrix
- lda := test.lda
- if lda == 0 {
- lda = na
- }
- a := make([]float64, ma*lda)
- for i := range a {
- a[i] = rnd.Float64()
- }
- ldc := test.ldc
- if ldc == 0 {
- ldc = nc
- }
- // Compute random C matrix
- c := make([]float64, mc*ldc)
- for i := range c {
- c[i] = rnd.Float64()
- }
-
- // Compute QR
- k := min(ma, na)
- tau := make([]float64, k)
- work := make([]float64, 1)
- impl.Dgeqrf(ma, na, a, lda, tau, work, -1)
- work = make([]float64, int(work[0]))
- impl.Dgeqrf(ma, na, a, lda, tau, work, len(work))
-
- // Build Q from result
- q := constructQ("QR", ma, na, a, lda, tau)
-
- cMat := blas64.General{
- Rows: mc,
- Cols: nc,
- Stride: ldc,
- Data: make([]float64, len(c)),
- }
- copy(cMat.Data, c)
- cMatCopy := blas64.General{
- Rows: cMat.Rows,
- Cols: cMat.Cols,
- Stride: cMat.Stride,
- Data: make([]float64, len(cMat.Data)),
- }
- copy(cMatCopy.Data, cMat.Data)
- switch {
- default:
- panic("bad test")
- case side == blas.Left && trans == blas.NoTrans:
- blas64.Gemm(blas.NoTrans, blas.NoTrans, 1, q, cMatCopy, 0, cMat)
- case side == blas.Left && trans == blas.Trans:
- blas64.Gemm(blas.Trans, blas.NoTrans, 1, q, cMatCopy, 0, cMat)
- case side == blas.Right && trans == blas.NoTrans:
- blas64.Gemm(blas.NoTrans, blas.NoTrans, 1, cMatCopy, q, 0, cMat)
- case side == blas.Right && trans == blas.Trans:
- blas64.Gemm(blas.NoTrans, blas.Trans, 1, cMatCopy, q, 0, cMat)
- }
- // Do Dorm2r ard compare
- if side == blas.Left {
- work = make([]float64, nc)
- } else {
- work = make([]float64, mc)
- }
- aCopy := make([]float64, len(a))
- copy(aCopy, a)
- tauCopy := make([]float64, len(tau))
- copy(tauCopy, tau)
- impl.Dorm2r(side, trans, mc, nc, k, a, lda, tau, c, ldc, work)
- if !floats.Equal(a, aCopy) {
- t.Errorf("a changed in call")
- }
- if !floats.Equal(tau, tauCopy) {
- t.Errorf("tau changed in call")
- }
- if !floats.EqualApprox(cMat.Data, c, 1e-14) {
- t.Errorf("Multiplication mismatch.\n Want %v \n got %v.", cMat.Data, c)
- }
- }
- }
- }
-}