This is an automated email from the git hooks/post-receive script.
logari81 pushed a commit to branch master
in repository getfem.
The following commit(s) were added to refs/heads/master by this push:
new 7c08587f Remove redundant macro arguments
7c08587f is described below
commit 7c08587f62b2b47c60cc30cc84706981c9db2f30
Author: Konstantinos Poulios <logar...@gmail.com>
AuthorDate: Mon Mar 25 09:04:03 2024 +0100
Remove redundant macro arguments
---
src/gmm/gmm_blas_interface.h | 23 ++++++++++-------------
1 file changed, 10 insertions(+), 13 deletions(-)
diff --git a/src/gmm/gmm_blas_interface.h b/src/gmm/gmm_blas_interface.h
index cc8fdee4..a81f7ab5 100644
--- a/src/gmm/gmm_blas_interface.h
+++ b/src/gmm/gmm_blas_interface.h
@@ -182,21 +182,18 @@ namespace gmm {
/* vect_norm2(x). */
/* ********************************************************************* */
-# define nrm2_interface(param1, trans1, blas_name, base_type) \
- inline number_traits<base_type >::magnitude_type \
- vect_norm2(param1(base_type)) { \
- GMMLAPACK_TRACE("nrm2_interface"); \
- BLAS_INT inc(1), n(BLAS_INT(vect_size(x))); trans1(base_type); \
- return blas_name(&n, &x[0], &inc); \
+# define nrm2_interface(blas_name, base_type) \
+ inline number_traits<base_type >::magnitude_type \
+ vect_norm2(const std::vector<base_type > &x) { \
+ GMMLAPACK_TRACE("nrm2_interface"); \
+ BLAS_INT inc(1), n(BLAS_INT(vect_size(x))); \
+ return blas_name(&n, &x[0], &inc); \
}
-# define nrm2_p1(base_type) const std::vector<base_type > &x
-# define nrm2_trans1(base_type)
-
- nrm2_interface(nrm2_p1, nrm2_trans1, snrm2_, BLAS_S)
- nrm2_interface(nrm2_p1, nrm2_trans1, dnrm2_, BLAS_D)
- nrm2_interface(nrm2_p1, nrm2_trans1, scnrm2_, BLAS_C)
- nrm2_interface(nrm2_p1, nrm2_trans1, dznrm2_, BLAS_Z)
+ nrm2_interface(snrm2_, BLAS_S)
+ nrm2_interface(dnrm2_, BLAS_D)
+ nrm2_interface(scnrm2_, BLAS_C)
+ nrm2_interface(dznrm2_, BLAS_Z)
/* ********************************************************************* */
/* vect_sp(x, y). */
