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/double.cpp | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) (limited to 'blas/double.cpp') diff --git a/blas/double.cpp b/blas/double.cpp index cad2f63ec..9b53be484 100644 --- a/blas/double.cpp +++ b/blas/double.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,21 @@ #include "level2_impl.h" #include "level2_real_impl.h" #include "level3_impl.h" + +// currently used by DSDOT only +double* cast_vector_to_double(float* x, int n, int incx) +{ + double* ret = new double[n]; + if(incx<0) vector(ret,n) = vector(x,n,-incx).reverse().cast(); + else vector(ret,n) = vector(x,n, incx).cast(); + return ret; +} + +double BLASFUNC(dsdot)(int* n, float* px, int* incx, float* py, int* incy) +{ + if(*n <= 0) return 0; + double* x = cast_vector_to_double(px, *n, *incx); + double* y = cast_vector_to_double(py, *n, *incy); + return vector(x,*n).cwiseProduct(vector(y,*n)).sum(); +} + -- cgit v1.2.3