1 //=================================================================================================
2 /*!
3 // \file src/mathtest/operations/smatsmatsub/DCaSCb.cpp
4 // \brief Source file for the DCaSCb sparse matrix/sparse matrix subtraction math test
5 //
6 // Copyright (C) 2012-2020 Klaus Iglberger - All Rights Reserved
7 //
8 // This file is part of the Blaze library. You can redistribute it and/or modify it under
9 // the terms of the New (Revised) BSD License. Redistribution and use in source and binary
10 // forms, with or without modification, are permitted provided that the following conditions
11 // are met:
12 //
13 // 1. Redistributions of source code must retain the above copyright notice, this list of
14 // conditions and the following disclaimer.
15 // 2. Redistributions in binary form must reproduce the above copyright notice, this list
16 // of conditions and the following disclaimer in the documentation and/or other materials
17 // provided with the distribution.
18 // 3. Neither the names of the Blaze development group nor the names of its contributors
19 // may be used to endorse or promote products derived from this software without specific
20 // prior written permission.
21 //
22 // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY
23 // EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
24 // OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT
25 // SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
26 // INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
27 // TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
28 // BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
29 // CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
30 // ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
31 // DAMAGE.
32 */
33 //=================================================================================================
34
35
36 //*************************************************************************************************
37 // Includes
38 //*************************************************************************************************
39
40 #include <cstdlib>
41 #include <iostream>
42 #include <blaze/math/CompressedMatrix.h>
43 #include <blaze/math/DiagonalMatrix.h>
44 #include <blaze/math/SymmetricMatrix.h>
45 #include <blazetest/mathtest/Creator.h>
46 #include <blazetest/mathtest/operations/smatsmatsub/OperationTest.h>
47 #include <blazetest/system/MathTest.h>
48
49 #ifdef BLAZE_USE_HPX_THREADS
50 # include <hpx/hpx_main.hpp>
51 #endif
52
53
54 //=================================================================================================
55 //
56 // MAIN FUNCTION
57 //
58 //=================================================================================================
59
60 //*************************************************************************************************
main()61 int main()
62 {
63 std::cout << " Running 'DCaSCb'..." << std::endl;
64
65 using blazetest::mathtest::TypeA;
66 using blazetest::mathtest::TypeB;
67
68 try
69 {
70 // Matrix type definitions
71 using DCa = blaze::DiagonalMatrix< blaze::CompressedMatrix<TypeA> >;
72 using SCb = blaze::SymmetricMatrix< blaze::CompressedMatrix<TypeB> >;
73
74 // Creator type definitions
75 using CDCa = blazetest::Creator<DCa>;
76 using CSCb = blazetest::Creator<SCb>;
77
78 // Running tests with small matrices
79 for( size_t i=0UL; i<=6UL; ++i ) {
80 for( size_t j=0UL; j<=i; ++j ) {
81 for( size_t k=0UL; k<=i*i; ++k ) {
82 RUN_SMATSMATSUB_OPERATION_TEST( CDCa( i, j ), CSCb( i, k ) );
83 }
84 }
85 }
86
87 // Running tests with large matrices
88 RUN_SMATSMATSUB_OPERATION_TEST( CDCa( 67UL, 7UL ), CSCb( 67UL, 13UL ) );
89 RUN_SMATSMATSUB_OPERATION_TEST( CDCa( 128UL, 16UL ), CSCb( 128UL, 8UL ) );
90 }
91 catch( std::exception& ex ) {
92 std::cerr << "\n\n ERROR DETECTED during sparse matrix/sparse matrix subtraction:\n"
93 << ex.what() << "\n";
94 return EXIT_FAILURE;
95 }
96
97 return EXIT_SUCCESS;
98 }
99 //*************************************************************************************************
100