From f5f288b741b173a271b9c939ac5231639135dd93 Mon Sep 17 00:00:00 2001 From: Gael Guennebaud Date: Mon, 22 Nov 2010 18:49:12 +0100 Subject: split level 1 and 2 implementation files into smaller ones and fix a couple of numerical and tricky issues discovered by the lapack test suite --- blas/common.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'blas/common.h') diff --git a/blas/common.h b/blas/common.h index 290ae112a..d073361ed 100644 --- a/blas/common.h +++ b/blas/common.h @@ -133,7 +133,7 @@ T* get_compact_vector(T* x, int n, int incx) { if(incx==1) return x; - + T* ret = new Scalar[n]; if(incx<0) vector(ret,n) = vector(x,n,-incx).reverse(); else vector(ret,n) = vector(x,n, incx); @@ -145,7 +145,7 @@ T* copy_back(T* x_cpy, T* x, int n, int incx) { if(x_cpy==x) return 0; - + if(incx<0) vector(x,n,-incx).reverse() = vector(x_cpy,n); else vector(x,n, incx) = vector(x_cpy,n); return x_cpy; -- cgit v1.2.3