devtools/eigen
1
0
Fork 0
mirror of https://gitlab.com/libeigen/eigen.git synced 2026-04-10 11:34:33 +08:00
Code Issues Packages Projects Releases Wiki Activity

blas: add a default implementation of xerbla

Browse Source
This commit is contained in:
Gael Guennebaud
2010-03-02 14:50:41 +01:00
parent a76c296e7f
commit 0ed5edd24d
3 changed files with 20 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
blas/level1_impl.h
View File

@@ -289,7 +289,7 @@ int EIGEN_BLAS_FUNC(scal)(int *n, RealScalar *palpha, RealScalar *px, int *incx)
Scalar* x = reinterpret_cast<Scalar*>(px);
Scalar alpha = *reinterpret_cast<Scalar*>(palpha);
std::cerr << "_scal " << *n << " " << alpha << " " << *incx << "\n";
// std::cerr << "_scal " << *n << " " << alpha << " " << *incx << "\n";
if(*n<=0)
return 0;
@@ -306,7 +306,7 @@ int EIGEN_CAT(EIGEN_CAT(SCALAR_SUFFIX,REAL_SCALAR_SUFFIX),scal_)(int *n, RealSca
Scalar* x = reinterpret_cast<Scalar*>(px);
RealScalar alpha = *palpha;
std::cerr << "__scal " << *n << " " << alpha << " " << *incx << "\n";
// std::cerr << "__scal " << *n << " " << alpha << " " << *incx << "\n";
if(*n<=0)
return 0;
@@ -320,7 +320,7 @@ int EIGEN_CAT(EIGEN_CAT(SCALAR_SUFFIX,REAL_SCALAR_SUFFIX),scal_)(int *n, RealSca
int EIGEN_BLAS_FUNC(swap)(int *n, RealScalar *px, int *incx, RealScalar *py, int *incy)
{
std::cerr << "_swap " << *n << " " << *incx << " " << *incy << "\n";
// std::cerr << "_swap " << *n << " " << *incx << " " << *incy << "\n";
Scalar* x = reinterpret_cast<Scalar*>(px);
Scalar* y = reinterpret_cast<Scalar*>(py);