diff --git a/include/htool/wrappers/wrapper_blas.hpp b/include/htool/wrappers/wrapper_blas.hpp index 066a060a..cbc67e63 100644 --- a/include/htool/wrappers/wrapper_blas.hpp +++ b/include/htool/wrappers/wrapper_blas.hpp @@ -110,16 +110,6 @@ struct Blas { inline void Blas::gemm(const char *const transa, const char *const transb, const int *const m, const int *const n, const int *const k, const T *const alpha, const T *const a, const int *const lda, const T *const b, const int *const ldb, const T *const beta, T *const c, const int *const ldc) { \ HTOOL_BLAS_F77(C##gemm) \ (transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc); \ - } \ - template <> \ - inline void Blas::trsm(const char *side, const char *uplo, const char *transa, const char *diag, const int *m, const int *n, const T *alpha, const T *a, const int *lda, T *b, const int *ldb) { \ - HTOOL_BLAS_F77(C##trsm) \ - (side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb); \ - } \ - template <> \ - inline void Blas::laswp(const int *N, T *A, const int *lda, const int *K1, const int *K2, const int *ipiv, const int *incx) { \ - HTOOL_BLAS_F77(C##laswp) \ - (N, A, lda, K1, K2, ipiv, incx); \ } # if !HTOOL_MKL @@ -170,6 +160,16 @@ struct Blas { inline void Blas::syrk(const char *const uplo, const char *const trans, const int *const n, const int *const k, const T *const alpha, const T *const a, const int *const lda, const T *const beta, T *const c, const int *const ldc) { \ HTOOL_BLAS_F77(C##syrk) \ (uplo, trans, n, k, alpha, a, lda, beta, c, ldc); \ + } \ + template <> \ + inline void Blas::trsm(const char *side, const char *uplo, const char *transa, const char *diag, const int *m, const int *n, const T *alpha, const T *a, const int *lda, T *b, const int *ldb) { \ + HTOOL_BLAS_F77(C##trsm) \ + (side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb); \ + } \ + template <> \ + inline void Blas::laswp(const int *N, T *A, const int *lda, const int *K1, const int *K2, const int *ipiv, const int *incx) { \ + HTOOL_BLAS_F77(C##laswp) \ + (N, A, lda, K1, K2, ipiv, incx); \ } # define HTOOL_GENERATE_BLAS_COMPLEX(C, T, B, U) \ HTOOL_GENERATE_BLAS(C, T) \