2018-02-26 08:50:55 -06:00
|
|
|
/*
|
|
|
|
Copyright 2018 Statoil ASA
|
|
|
|
|
|
|
|
This file is part of the Open Porous Media project (OPM).
|
|
|
|
|
|
|
|
OPM is free software: you can redistribute it and/or modify
|
|
|
|
it under the terms of the GNU General Public License as published by
|
|
|
|
the Free Software Foundation, either version 3 of the License, or
|
|
|
|
(at your option) any later version.
|
|
|
|
|
|
|
|
OPM is distributed in the hope that it will be useful,
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
GNU General Public License for more details.
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
along with OPM. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include <config.h>
|
|
|
|
|
|
|
|
#define BOOST_TEST_MODULE MultMatrixTransposed
|
|
|
|
#include <boost/test/unit_test.hpp>
|
2022-08-24 02:57:49 -05:00
|
|
|
#include <opm/simulators/linalg/SmallDenseMatrixUtils.hpp>
|
|
|
|
|
|
|
|
#include <dune/common/fmatrix.hh>
|
2018-02-26 08:50:55 -06:00
|
|
|
|
|
|
|
using namespace Dune;
|
2022-08-24 02:57:49 -05:00
|
|
|
using namespace Opm::detail;
|
2018-02-26 08:50:55 -06:00
|
|
|
|
|
|
|
BOOST_AUTO_TEST_CASE(testmultmatrixtrans)
|
|
|
|
{
|
|
|
|
using Scalar = FieldMatrix<double,1,1>;
|
|
|
|
Scalar a1 = {{ 4 }}, b1 = {{ 2 }}, res1 = {{}}, resExpect1 = {{ 8 }};
|
|
|
|
multMatrixTransposed(a1, b1, res1);
|
|
|
|
BOOST_CHECK_EQUAL(res1, resExpect1);
|
|
|
|
|
|
|
|
using Mat2 = FieldMatrix<double,2,2>;
|
|
|
|
|
2018-03-13 06:58:44 -05:00
|
|
|
|
2018-02-26 08:50:55 -06:00
|
|
|
Mat2 a2 = {{ 1, 2 }, { 3, 4} }, b2 = {{ 3, 4 }, { 5, 6} };
|
2018-03-13 06:58:44 -05:00
|
|
|
// resulting matrix filled with temporay values to avoid initialization error
|
|
|
|
// from dune 2.4.1
|
|
|
|
Mat2 res2 = {{0, 0}, {0, 0}};
|
|
|
|
Mat2 resExpect2 = {{ 18, 22 }, {26, 32} };
|
2018-02-26 08:50:55 -06:00
|
|
|
multMatrixTransposed(a2, b2, res2);
|
|
|
|
BOOST_CHECK_EQUAL(res2, resExpect2);
|
2018-03-13 06:58:44 -05:00
|
|
|
|
2018-02-26 08:50:55 -06:00
|
|
|
using Mat3 = FieldMatrix<double,3,3>;
|
|
|
|
|
2018-03-13 06:58:44 -05:00
|
|
|
|
2018-02-26 08:50:55 -06:00
|
|
|
Mat3 a3 = {{ 1, 2, 3 }, { 3, 4, 5}, {6, 7, 8} };
|
2018-03-13 06:58:44 -05:00
|
|
|
|
2018-02-26 08:50:55 -06:00
|
|
|
Mat3 b3 = {{ 3, 4, 5 }, { 5, 6, 7}, {7, 8, 9} };
|
2018-03-13 06:58:44 -05:00
|
|
|
// resulting matrix filled with temporay values to avoid initialization error
|
|
|
|
// from dune 2.4.1
|
|
|
|
Mat3 res3 = {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}};
|
2018-02-26 08:50:55 -06:00
|
|
|
Mat3 resExpect3 = {{ 60, 70, 80 }, {75, 88, 101}, { 90, 106, 122 } };
|
|
|
|
multMatrixTransposed(a3, b3, res3);
|
|
|
|
BOOST_CHECK_EQUAL(res3, resExpect3);
|
|
|
|
}
|