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

further simplification to Drotm

Browse Source
This commit is contained in:
btracey
2014-01-06 15:26:37 -08:00
parent 6825287c89
commit 228e338324
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
referenceblas/level1double.go
View File

@@ -457,15 +457,14 @@ func (Blas) Drotm(n int, x []float64, incX int, y []float64, incY int, p blas.Dr
iy = (-n + 1) * incY iy = (-n + 1) * incY
} }
for i := 0; i < n; i++ { for i := 0; i < n; i++ {
w := x[ix] x[ix], y[iy] = x[ix]*h11+y[iy]*h12, x[ix]*h21+y[iy]*h22
z := y[iy]
x[ix] = w*h11 + z*h12
y[iy] = w*h21 + z*h22
ix += incX ix += incX
iy += incY iy += incY
} }
/* /*
More complicated version of the above, though possibly faster
if flag == -2 { if flag == -2 {
return return
} }