From cebcf6f6fba7fc2b2ef9e752704b55efa60ea29a Mon Sep 17 00:00:00 2001
From: Christophe Geuzaine <cgeuzaine@ulg.ac.be>
Date: Mon, 15 Dec 2008 12:10:34 +0000
Subject: [PATCH] fix coeffs in blas calls
---
Numeric/GmshMatrix.h | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/Numeric/GmshMatrix.h b/Numeric/GmshMatrix.h
index 698e34ee3a..47335903bc 100644
--- a/Numeric/GmshMatrix.h
+++ b/Numeric/GmshMatrix.h
@@ -362,7 +362,7 @@ class GSL_Matrix
}
inline void mult(const GSL_Matrix &x, GSL_Matrix &b)
{
- gsl_blas_dgemm(CblasNoTrans, CblasNoTrans, 1.0, data, x.data, 1.0, b.data);
+ gsl_blas_dgemm(CblasNoTrans, CblasNoTrans, 1., data, x.data, 0., b.data);
}
inline void set_all(const double &m)
{
@@ -432,7 +432,7 @@ class GSL_Matrix
}
inline void mult(const GSL_Vector &x, GSL_Vector &b)
{
- gsl_blas_dgemv(CblasNoTrans, 1.0, data, x.data, 1.0, b.data);
+ gsl_blas_dgemv(CblasNoTrans, 1., data, x.data, 0., b.data);
}
inline void blas_dgemm(const GSL_Matrix &x, GSL_Matrix &b,
const double c_a = 1.0, const double c_b = 1.0)
--
GitLab