Skip to content
Newer
Older
100644 14 lines (11 sloc) 291 Bytes
0baa7d0 @ziutek Idamax and Sswap added
authored Nov 12, 2011
1 package blas
2
3 // Exchange the elements of the vectors X and Y.
519970a @ziutek Makefile removed
authored Mar 6, 2012
4 func Sswap(N int, X []float32, incX int, Y []float32, incY int)
5
6 func sswap(N int, X []float32, incX int, Y []float32, incY int) {
0baa7d0 @ziutek Idamax and Sswap added
authored Nov 12, 2011
7 var xi, yi int
8 for ; N > 0; N-- {
9 X[xi], Y[yi] = Y[yi], X[xi]
10 xi += incX
11 yi += incY
12 }
13 }
Something went wrong with that request. Please try again.