From c86d047c2f83d335d2d126079d53d6925db01740 Mon Sep 17 00:00:00 2001 From: Chen-Pang He Date: Wed, 5 Sep 2012 18:59:32 +0800 Subject: BLAS: implement DSDOT and SDSDOT; update test for them. --- blas/single.cpp | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'blas/single.cpp') diff --git a/blas/single.cpp b/blas/single.cpp index 1b7775aed..d549a906e 100644 --- a/blas/single.cpp +++ b/blas/single.cpp @@ -2,6 +2,7 @@ // for linear algebra. // // Copyright (C) 2009 Gael Guennebaud +// Copyright (C) 2012 Chen-Pang He // // This Source Code Form is subject to the terms of the Mozilla // Public License v. 2.0. If a copy of the MPL was not distributed @@ -17,3 +18,19 @@ #include "level2_impl.h" #include "level2_real_impl.h" #include "level3_impl.h" + +float BLASFUNC(sdsdot)(int* n, float* alpha, float* px, int* incx, float* py, int* incy) +{ + float* x = reinterpret_cast(px); + float* y = reinterpret_cast(py); + float ret = *alpha; + + if(*n>0) { + if(*incx==1 && *incy==1) ret += (vector(x,*n).cwiseProduct(vector(y,*n))).sum(); + else if(*incx>0 && *incy>0) ret += (vector(x,*n,*incx).cwiseProduct(vector(y,*n,*incy))).sum(); + else if(*incx<0 && *incy>0) ret += (vector(x,*n,-*incx).reverse().cwiseProduct(vector(y,*n,*incy))).sum(); + else if(*incx>0 && *incy<0) ret += (vector(x,*n,*incx).cwiseProduct(vector(y,*n,-*incy).reverse())).sum(); + else if(*incx<0 && *incy<0) ret += (vector(x,*n,-*incx).reverse().cwiseProduct(vector(y,*n,-*incy).reverse())).sum(); + } + return ret; +} -- cgit v1.2.3