aboutsummaryrefslogtreecommitdiffhomepage
path: root/blas/common.h
diff options
context:
space:
mode:
authorGravatar Gael Guennebaud <g.gael@free.fr>2010-11-22 18:49:12 +0100
committerGravatar Gael Guennebaud <g.gael@free.fr>2010-11-22 18:49:12 +0100
commitf5f288b741b173a271b9c939ac5231639135dd93 (patch)
tree977b85dc7b88aa9faf58696eabba0163ca7c2235 /blas/common.h
parenta6f483e86b0c4c1d82622eec99fb051c804bf13d (diff)
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
Diffstat (limited to 'blas/common.h')
-rw-r--r--blas/common.h4
1 files changed, 2 insertions, 2 deletions
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;