diff options
author | Gael Guennebaud <g.gael@free.fr> | 2010-11-22 18:49:12 +0100 |
---|---|---|
committer | Gael Guennebaud <g.gael@free.fr> | 2010-11-22 18:49:12 +0100 |
commit | f5f288b741b173a271b9c939ac5231639135dd93 (patch) | |
tree | 977b85dc7b88aa9faf58696eabba0163ca7c2235 /blas/common.h | |
parent | a6f483e86b0c4c1d82622eec99fb051c804bf13d (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.h | 4 |
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; |