Shark machine learning library
About Shark
News!
Contribute
Credits and copyright
Downloads
Getting Started
Installation
Using the docs
Documentation
Tutorials
Quick references
Class list
Global functions
FAQ
Showroom
include
shark
LinAlg
BLAS
kernels
tpmv.hpp
Go to the documentation of this file.
1
/*!
2
*
3
*
4
* \brief Triangular packed matrix-vector multiplication
5
*
6
* \author O. Krause
7
* \date 2012
8
*
9
*
10
* \par Copyright 1995-2015 Shark Development Team
11
*
12
* <BR><HR>
13
* This file is part of Shark.
14
* <http://image.diku.dk/shark/>
15
*
16
* Shark is free software: you can redistribute it and/or modify
17
* it under the terms of the GNU Lesser General Public License as published
18
* by the Free Software Foundation, either version 3 of the License, or
19
* (at your option) any later version.
20
*
21
* Shark is distributed in the hope that it will be useful,
22
* but WITHOUT ANY WARRANTY; without even the implied warranty of
23
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24
* GNU Lesser General Public License for more details.
25
*
26
* You should have received a copy of the GNU Lesser General Public License
27
* along with Shark. If not, see <http://www.gnu.org/licenses/>.
28
*
29
*/
30
31
#ifndef SHARK_LINALG_BLAS_KERNELS_TPMV_HPP
32
#define SHARK_LINALG_BLAS_KERNELS_TPMV_HPP
33
34
#ifdef SHARK_USE_CBLAS
35
#include "
cblas/tpmv.hpp
"
36
#else
37
// if no bindings are included, we have to provide the default has_optimized_gemv
38
// otherwise the binding will take care of this
39
namespace
shark
{
namespace
blas {
namespace
bindings{
40
template
<
class
M1,
class
M2>
41
struct
has_optimized_tpmv
42
:
public
boost::mpl::false_{};
43
}}}
44
#endif
45
46
#include "
default/tpmv.hpp
"
47
48
namespace
shark
{
namespace
blas {
namespace
kernels{
49
50
///\brief Implements the Tringular Packed Matrix-Vector multiplication(TPMV)
51
///
52
/// It computes b=A*b where A is a lower or upper packed triangular matrix.
53
template
<
typename
TriangularA,
typename
VecB>
54
void
tpmv
(
55
matrix_expression<TriangularA>
const
&A,
56
vector_expression<VecB>
& b
57
){
58
SIZE_CHECK
(A().size1() == A().size2());
59
SIZE_CHECK
(A().size1() == b().
size
());
60
61
bindings::tpmv
(A,b,
typename
bindings::has_optimized_tpmv<TriangularA, VecB>::type());
62
}
63
64
}}}
65
66
#endif