diff options
author | Cedric Nugteren <web@cedricnugteren.nl> | 2016-06-19 13:55:49 +0200 |
---|---|---|
committer | Cedric Nugteren <web@cedricnugteren.nl> | 2016-06-19 13:55:49 +0200 |
commit | 61203453aaca4e47c05c598a673150522160ca87 (patch) | |
tree | 36cdce32423c2227de88e019c34415bef9499a6a /src/routines/level2/xtpmv.cc | |
parent | f726fbdc9fef937fbe32222f0e66aac8d7e2678c (diff) |
Renamed all C++ source files to .cpp to match the .hpp extension better
Diffstat (limited to 'src/routines/level2/xtpmv.cc')
-rw-r--r-- | src/routines/level2/xtpmv.cc | 82 |
1 files changed, 0 insertions, 82 deletions
diff --git a/src/routines/level2/xtpmv.cc b/src/routines/level2/xtpmv.cc deleted file mode 100644 index 46811089..00000000 --- a/src/routines/level2/xtpmv.cc +++ /dev/null @@ -1,82 +0,0 @@ - -// ================================================================================================= -// This file is part of the CLBlast project. The project is licensed under Apache Version 2.0. This -// project loosely follows the Google C++ styleguide and uses a tab-size of two spaces and a max- -// width of 100 characters per line. -// -// Author(s): -// Cedric Nugteren <www.cedricnugteren.nl> -// -// This file implements the Xtpmv class (see the header for information about the class). -// -// ================================================================================================= - -#include "routines/level2/xtpmv.hpp" - -#include <string> -#include <vector> - -namespace clblast { -// ================================================================================================= - -// Constructor: forwards to base class constructor -template <typename T> -Xtpmv<T>::Xtpmv(Queue &queue, EventPointer event, const std::string &name): - Xgemv<T>(queue, event, name) { -} - -// ================================================================================================= - -// The main routine -template <typename T> -StatusCode Xtpmv<T>::DoTpmv(const Layout layout, const Triangle triangle, - const Transpose a_transpose, const Diagonal diagonal, - const size_t n, - 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) { - - // Creates a copy of X: a temporary scratch buffer - auto scratch_buffer = Buffer<T>(context_, n*x_inc + x_offset); - try { - x_buffer.CopyTo(queue_, n*x_inc + x_offset, scratch_buffer); - } catch (...) { } // Continues: error-code is returned in MatVec - - // 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)); - - // Adds '2' to the parameter if the diagonal is unit - auto parameter = (diagonal == Diagonal::kUnit) ? is_upper + 2 : is_upper; - - // Runs the generic matrix-vector multiplication, disabling the use of fast vectorized kernels. - // The specific triangular packed matrix-accesses are implemented in the kernel guarded by the - // ROUTINE_TPMV define. - auto fast_kernels = false; - auto status = MatVec(layout, a_transpose, - n, n, static_cast<T>(1), - ap_buffer, ap_offset, n, - scratch_buffer, x_offset, x_inc, static_cast<T>(0), - x_buffer, x_offset, x_inc, - fast_kernels, fast_kernels, - parameter, true, 0, 0); - - // Returns the proper error code (renames vector Y to X) - switch(status) { - case StatusCode::kInvalidVectorY: return StatusCode::kInvalidVectorX; - case StatusCode::kInvalidIncrementY: return StatusCode::kInvalidIncrementX; - case StatusCode::kInsufficientMemoryY: return StatusCode::kInsufficientMemoryX; - default: return status; - } -} - -// ================================================================================================= - -// Compiles the templated class -template class Xtpmv<half>; -template class Xtpmv<float>; -template class Xtpmv<double>; -template class Xtpmv<float2>; -template class Xtpmv<double2>; - -// ================================================================================================= -} // namespace clblast |