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

Fixed multiple calling of Abs(Q1) in drotmg of reference

Browse Source
This commit is contained in:
btracey
2014-01-06 20:09:40 -08:00
parent 588cbdf1cf
commit e1ee5825c7
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
referenceblas/level1double.go
View File

@@ -313,7 +313,7 @@ func (Blas) Drotmg(d1, d2, x1, y1 float64) (p blas.DrotmParams, rd1, rd2, rx1 fl
//fmt.Println("absq1", absQ1)
//fmt.Println("absq2", absQ2)
if math.Abs(q1) > math.Abs(q2) {
if absQ1 > absQ2 {
p.H[1] = -y1 / x1
p.H[2] = p2 / p1
u = 1 - p.H[2]*p.H[1]