Teuchos Package Browser (Single Doxygen Collection)
Version of the Day
numerics
example
BLAS
numerics/example/BLAS/cxx_main.cpp
Go to the documentation of this file.
1
/*
2
// @HEADER
3
// ***********************************************************************
4
//
5
// Teuchos: Common Tools Package
6
// Copyright (2004) Sandia Corporation
7
//
8
// Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive
9
// license for use of this work by or on behalf of the U.S. Government.
10
//
11
// Redistribution and use in source and binary forms, with or without
12
// modification, are permitted provided that the following conditions are
13
// met:
14
//
15
// 1. Redistributions of source code must retain the above copyright
16
// notice, this list of conditions and the following disclaimer.
17
//
18
// 2. Redistributions in binary form must reproduce the above copyright
19
// notice, this list of conditions and the following disclaimer in the
20
// documentation and/or other materials provided with the distribution.
21
//
22
// 3. Neither the name of the Corporation nor the names of the
23
// contributors may be used to endorse or promote products derived from
24
// this software without specific prior written permission.
25
//
26
// THIS SOFTWARE IS PROVIDED BY SANDIA CORPORATION "AS IS" AND ANY
27
// EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
28
// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
29
// PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SANDIA CORPORATION OR THE
30
// CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
31
// EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
32
// PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
33
// PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
34
// LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
35
// NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
36
// SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
37
//
38
// Questions? Contact Michael A. Heroux (maherou@sandia.gov)
39
//
40
// ***********************************************************************
41
// @HEADER
42
*/
43
44
#include "
Teuchos_BLAS.hpp
"
45
#include "
Teuchos_Version.hpp
"
46
47
int
main
(
int
argc,
char
* argv[])
48
{
49
std::cout <<
Teuchos::Teuchos_Version
() << std::endl << std::endl;
50
51
// Creating an instance of the BLAS class for double-precision kernels looks like:
52
Teuchos::BLAS<int, double>
blas;
53
54
// This instance provides the access to all the BLAS kernels listed in Figure \ref{blas_kernels}:
55
const
int
n
= 10;
56
double
alpha = 2.0;
57
double
x[
n
];
58
for
(
int
i=0; i<
n
; i++ ) { x[i] = i; }
59
blas.
SCAL
(
n
, alpha, x, 1 );
60
int
max_idx = blas.
IAMAX
(
n
, x, 1 );
61
std::cout<<
"The index of the maximum magnitude entry of x[] is the "
62
<< max_idx <<
"-th and x[ "
<< max_idx-1 <<
" ] = "
<< x[max_idx-1]
63
<< std::endl;
64
65
return
0;
66
}
Teuchos_BLAS.hpp
Templated interface class to BLAS routines.
Teuchos::BLAS< int, double >
Definition:
Teuchos_BLAS.hpp:2285
Teuchos::BLAS< int, double >::SCAL
void SCAL(const int n, const double alpha, double *x, const int incx) const
Definition:
Teuchos_BLAS.cpp:248
Teuchos::BLAS< int, double >::IAMAX
int IAMAX(const int n, const double *x, const int incx) const
Definition:
Teuchos_BLAS.cpp:242
Teuchos::Teuchos_Version
std::string Teuchos_Version()
Definition:
Teuchos_Version.hpp:54
main
int main(int argc, char *argv[])
Definition:
numerics/example/BLAS/cxx_main.cpp:47
ArrayUnitTestHelpers::n
int n
Definition:
Array_UnitTest_helpers.cpp:47
Teuchos_Version.hpp
Generated by
1.8.14