Task 6, Sheet 3

Sheet3/bench_funcs_blas.cpp

@@ -0,0 +1,27 @@
+#include "bench_funcs_blas.h"
+#include <cblas.h>
+
+double dot_cblas(const std::vector<double>& x, const std::vector<double>& y) {
+    return cblas_ddot((int)x.size(), x.data(), 1, y.data(), 1);
+}
+
+void matvec_cblas(const std::vector<double>& A, std::size_t M, std::size_t N,
+                  const std::vector<double>& x, std::vector<double>& b) {
+    b.resize(M);
+    cblas_dgemv(CblasRowMajor, CblasNoTrans,
+                (int)M, (int)N,
+                1.0, A.data(), (int)N,
+                x.data(), 1,
+                0.0, b.data(), 1);
+}
+
+void matmul_cblas(const std::vector<double>& A, std::size_t M, std::size_t L,
+                  const std::vector<double>& B, std::size_t N,
+                  std::vector<double>& C) {
+    C.resize(M * N);
+    cblas_dgemm(CblasRowMajor, CblasNoTrans, CblasNoTrans,
+                (int)M, (int)N, (int)L,
+                1.0, A.data(), (int)L,
+                B.data(), (int)N,
+                0.0, C.data(), (int)N);
+}