OilfieldToolsNet/opm-simulators
4
0
Fork 0
mirror of https://github.com/OPM/opm-simulators.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Revert "changed: reduce some code duplication"

Browse Source
This commit is contained in:
Bård Skaflestad
2022-08-24 20:34:52 +02:00
committed by GitHub
parent e66c7f6444
commit a56cd6752c
9 changed files with 809 additions and 161 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
tests/test_invert.cpp
View File

@@ -21,7 +21,7 @@
#define BOOST_TEST_MODULE InvertSpecializationTest
#include <boost/test/unit_test.hpp>
#include <opm/simulators/linalg/matrixblock.hh>
#include <opm/simulators/linalg/MatrixBlock.hpp>
void checkIdentity(Dune::FieldMatrix<double, 4, 4> M) {
@@ -41,7 +41,7 @@ void checkIdentity(Dune::FieldMatrix<double, 4, 4> M) {
BOOST_AUTO_TEST_CASE(Invert4x4)
{
using BaseType = Dune::FieldMatrix<double, 4, 4>;
typedef Dune::FieldMatrix<double, 4, 4> BaseType;
BaseType matrix;
BaseType eye;
BaseType inverse;
@@ -56,15 +56,17 @@ BOOST_AUTO_TEST_CASE(Invert4x4)
matrix[3][0] = 5;
matrix[0][3] = 14;
double det = Opm::detail::invertMatrix4<Opm::detail::FMat4>(matrix, inverse);
double det = Dune::FMatrixHelp::invertMatrix(matrix, inverse);
BOOST_CHECK_CLOSE(4, det, 1e-14);
// check matrix * inverse close to identiy
checkIdentity(matrix.rightmultiply(inverse));
// check singular matrix
double det2 = Opm::detail::invertMatrix4<Opm::detail::FMat4>(matrix_sing, inverse);
BOOST_CHECK_CLOSE(0.0, det2, 1e-14);
// check return identity matrix if singular matrix
inverse = 0.0;
double det2 = Dune::FMatrixHelp::invertMatrix(matrix_sing, inverse);
BOOST_CHECK_CLOSE(1.0, det2, 1e-14);
checkIdentity(inverse);
}