Slightly improved Dasum

ziutek · Oct 26, 2011 · 7845a0f · 7845a0f
1 parent 061d4bc
commit 7845a0f
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 7 deletions.
diff --git a/Makefile b/Makefile
@@ -2,7 +2,7 @@ include $(GOROOT)/src/Make.inc
 
 TARG=blas
 
-_OFILES_amd64=\
+OFILES_amd64=\
 	     sdsdot_amd64.$O\
 	     sdot_amd64.$O\
 	     ddot_amd64.$O\
@@ -18,6 +18,7 @@ ALLGOFILES=\
 	   ddot.go\
 	   dnrm2.go\
 	   dasum.go\
+	   idamax.go\
 
 NOGOFILES=\
 	$(subst _$(GOARCH).$O,.go,$(OFILES_$(GOARCH)))

diff --git a/dasum.go b/dasum.go
@@ -9,10 +9,9 @@ func Dasum(N int, X []float64, incX int) float64 {
 	for ; N > 0; N-- {
 		x := X[xi]
 		if x < 0 {
-			a -= x
-		} else {
-			a += x
+			x = -x
 		}
+		a += x
 		xi += incX
 	}
 	return a

diff --git a/todo.go b/todo.go
@@ -1,8 +1,5 @@
 package blas
 
-// Largest element of the vector X
-//func Idamax(N int, X []float64, incX int) float64
-
 // Exchange the elements of the vectors Y and Y
 //func Dswap(N int, X []float64, incX int, Y []float64, incY int)