fix BLAS declaration

htool-ddm · Aug 31, 2024 · 07fc497 · 07fc497
1 parent 7a36dd2
commit 07fc497
Showing 1 changed file with 10 additions and 10 deletions.
diff --git a/include/htool/wrappers/wrapper_blas.hpp b/include/htool/wrappers/wrapper_blas.hpp
@@ -110,16 +110,6 @@ struct Blas {
         inline void Blas<T>::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<T>::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<T>::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<T>::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<T>::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<T>::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)                                                                                                                                                                                                                                                        \