
// =================================================================================================
// This file is part of the CLBlast project. Author(s):
//   Cedric Nugteren <www.cedricnugteren.nl>
//
// This file implements the Xhpmv class (see the header for information about the class).
//
// =================================================================================================

#include "routines/level2/xhpmv.hpp"

#include <cstddef>
#include <string>

#include "routines/level2/xgemv.hpp"
#include "utilities/backend.hpp"
#include "utilities/utilities.hpp"

namespace clblast {
// =================================================================================================

// Constructor: forwards to base class constructor
template <typename T>
Xhpmv<T>::Xhpmv(Queue& queue, EventPointer event, const std::string& name) : Xgemv<T>(queue, event, name) {}

// =================================================================================================

// The main routine
template <typename T>
void Xhpmv<T>::DoHpmv(const Layout layout, const Triangle triangle, const size_t n, const T alpha,
                      const Buffer<T>& ap_buffer, const size_t ap_offset, const Buffer<T>& x_buffer,
                      const size_t x_offset, const size_t x_inc, const T beta, const Buffer<T>& y_buffer,
                      const size_t y_offset, const size_t y_inc) {
  // The data is either in the upper or lower triangle
  size_t is_upper = ((triangle == Triangle::kUpper && layout != Layout::kRowMajor) ||
                     (triangle == Triangle::kLower && layout == Layout::kRowMajor));

  // Runs the generic matrix-vector multiplication, disabling the use of fast vectorized kernels.
  // The specific hermitian packed matrix-accesses are implemented in the kernel guarded by the
  // ROUTINE_HPMV define.
  bool fast_kernels = false;
  MatVec(layout, Transpose::kNo, n, n, alpha, ap_buffer, ap_offset, n, x_buffer, x_offset, x_inc, beta, y_buffer,
         y_offset, y_inc, fast_kernels, fast_kernels, is_upper, true, 0, 0);
}

// =================================================================================================

// Compiles the templated class
template class Xhpmv<float2>;
template class Xhpmv<double2>;

// =================================================================================================
}  // namespace clblast
