summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to 'debian/ti-timl/usr/src/timl/src/test/util/testUtilBLAS.c')
-rw-r--r--debian/ti-timl/usr/src/timl/src/test/util/testUtilBLAS.c68
1 files changed, 68 insertions, 0 deletions
diff --git a/debian/ti-timl/usr/src/timl/src/test/util/testUtilBLAS.c b/debian/ti-timl/usr/src/timl/src/test/util/testUtilBLAS.c
new file mode 100644
index 0000000..808ef21
--- /dev/null
+++ b/debian/ti-timl/usr/src/timl/src/test/util/testUtilBLAS.c
@@ -0,0 +1,68 @@
1/******************************************************************************/
2/*!
3 * \file testUtilBLAS.c
4 */
5/* Copyright (C) 2015 Texas Instruments Incorporated - http://www.ti.com/
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 *
11 * Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 *
14 * Redistributions in binary form must reproduce the above copyright
15 * notice, this list of conditions and the following disclaimer in the
16 * documentation and/or other materials provided with the
17 * distribution.
18 *
19 * Neither the name of Texas Instruments Incorporated nor the names of
20 * its contributors may be used to endorse or promote products derived
21 * from this software without specific prior written permission.
22 *
23 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
24 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
25 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
26 * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
27 * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
28 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
29 * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
30 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
31 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
32 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
33 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
34 *
35 ******************************************************************************/
36
37
38/*******************************************************************************
39 *
40 * INCLUDES
41 *
42 ******************************************************************************/
43
44#include "testUtil.h"
45
46
47/******************************************************************************/
48/*!
49 * \ingroup testUtil
50 * \brief BLAS function test
51 * \return Error code
52 */
53/******************************************************************************/
54
55int testUtilBLAS(void)
56{
57 float a[9] = { 1, 2, 3, 4, 5, 6, 7, 8, 9 };
58 float b[4] = { 1, 2, 3, 4 };
59 float c[16];
60 float d[12];
61 int m = 3;
62 int n = 2;
63 cblas_sgemv(CblasRowMajor, CblasNoTrans, m, n, 1.0, a, n, b, 1, 0.0, c, 1);
64 cblas_sgemv(CblasRowMajor, CblasTrans, m, n, 1.0, a, n, d, 1, 0.0, b, 1);
65 cblas_sger(CblasRowMajor, 6, 2, 1.0, a, 1, b, 1, d, 2);
66
67 return 0;
68}