LaspackMatrixTest Class Reference

Inheritance diagram for LaspackMatrixTest:

Public Member Functions
	LaspackMatrixTest ()
void	setUp ()
	CPPUNIT_TEST_SUITE (LaspackMatrixTest)
SPARSEMATRIXTEST	CPPUNIT_TEST_SUITE_END ()
void	tearDown ()
void	setValues ()
void	testValues ()
void	testGetAndSet ()
void	testReadMatlab (const std::string &filename)
void	testReadMatlab1 ()
void	testReadMatlab2 ()
void	testReadMatlab4 ()
void	testWriteAndRead ()
void	testClone ()

Protected Attributes
std::string	libmesh_suite_name
libMesh::Parallel::Communicator *	my_comm
std::unique_ptr< LaspackMatrix< Number > >	matrix
libMesh::numeric_index_type	nonsquare
libMesh::numeric_index_type	local_m
libMesh::numeric_index_type	local_n
libMesh::numeric_index_type	global_m
libMesh::numeric_index_type	global_n
const libMesh::Real	_tolerance

Private Attributes
Parallel::Communicator	comm_self

Detailed Description

Definition at line 11 of file laspack_matrix_test.C.

Constructor & Destructor Documentation

LaspackMatrixTest()

LaspackMatrixTest::LaspackMatrixTest ( )

inline

Definition at line 14 of file laspack_matrix_test.C.

References libMesh::PerfLog::summarized_logs_enabled(), and unitlog.

                      :
    SparseMatrixTest<LaspackMatrix<Number>>() {
    if (unitlog->summarized_logs_enabled())
      this->libmesh_suite_name = "SparseMatrixTest";
    else
      this->libmesh_suite_name = "LaspackMatrixTest";
  }

Member Function Documentation

CPPUNIT_TEST_SUITE()

LaspackMatrixTest::CPPUNIT_TEST_SUITE

(

LaspackMatrixTest

)

CPPUNIT_TEST_SUITE_END()

SPARSEMATRIXTEST LaspackMatrixTest::CPPUNIT_TEST_SUITE_END

(

)

setUp()

void LaspackMatrixTest::setUp ( )

inline

Definition at line 22 of file laspack_matrix_test.C.

  {
    // LaspackMatrix is serial; we'll tell it to use MPI_COMM_SELF
    // so we just do these tests embarrassingly parallel
    my_comm = &comm_self;

    // LaspackMatrix doesn't support non-square matrices?
    nonsquare = 0;

    SparseMatrixTest<LaspackMatrix<Number>>::setUp();
  }

setValues()

void SparseMatrixTest< LaspackMatrix< Number > >::setValues ( )

inlineinherited

Definition at line 77 of file sparse_matrix_test.h.

References libMesh::Utility::iota(), SparseMatrixTest< DerivedClass >::local_m, SparseMatrixTest< DerivedClass >::local_n, libMesh::make_range(), SparseMatrixTest< DerivedClass >::matrix, SparseMatrixTest< DerivedClass >::my_comm, and TIMPI::Communicator::rank().

  {
    std::vector<libMesh::numeric_index_type> rows(local_m);
    std::iota(rows.begin(), rows.end(), matrix->row_start());
    std::vector<libMesh::numeric_index_type> cols(local_n);
    std::iota(cols.begin(), cols.end(), matrix->col_start());

    libMesh::DenseMatrix<libMesh::Number> local(local_m, local_n);

    for (auto i : libMesh::make_range(local_m))
      for (auto j : libMesh::make_range(local_n))
        local(i, j) = (i + 1) * (j + 1) * (my_comm->rank() + 1);

    matrix->zero();

    matrix->add_matrix(local, rows, cols);
    matrix->close();
  }

tearDown()

void SparseMatrixTest< LaspackMatrix< Number > >::tearDown ( )

inlineinherited

Definition at line 74 of file sparse_matrix_test.h.

{}

testClone()

void SparseMatrixTest< LaspackMatrix< Number > >::testClone ( )

inlineinherited

Definition at line 223 of file sparse_matrix_test.h.

References SparseMatrixTest< DerivedClass >::_tolerance, SparseMatrixTest< DerivedClass >::matrix, libMesh::relative_fuzzy_equals(), and SparseMatrixTest< DerivedClass >::setValues().

  {
    LOG_UNIT_TEST;

    setValues();

    // Matrix must be closed before it can be cloned.
    matrix->close();

    {
      // Create copy, test that it can go out of scope
      auto copy = matrix->clone();

      // Check that matrices have the same local/global sizes
      CPPUNIT_ASSERT_EQUAL(copy->m(), matrix->m());
      CPPUNIT_ASSERT_EQUAL(copy->n(), matrix->n());
      CPPUNIT_ASSERT_EQUAL(copy->local_m(), matrix->local_m());
      CPPUNIT_ASSERT_EQUAL(copy->row_start(), matrix->row_start());
      CPPUNIT_ASSERT_EQUAL(copy->row_stop(), matrix->row_stop());

      // Check that copy has same values as original
      LIBMESH_ASSERT_FP_EQUAL(copy->l1_norm(), matrix->l1_norm(), _tolerance);
      CPPUNIT_ASSERT(relative_fuzzy_equals(*matrix, *copy));
      copy->scale(2);
      CPPUNIT_ASSERT(!relative_fuzzy_equals(*matrix, *copy));
    }

    {
      // Create zero copy
      auto zero_copy = matrix->zero_clone();

      // Check that matrices have the same local/global sizes
      CPPUNIT_ASSERT_EQUAL(zero_copy->m(), matrix->m());
      CPPUNIT_ASSERT_EQUAL(zero_copy->n(), matrix->n());
      CPPUNIT_ASSERT_EQUAL(zero_copy->local_m(), matrix->local_m());
      CPPUNIT_ASSERT_EQUAL(zero_copy->row_start(), matrix->row_start());
      CPPUNIT_ASSERT_EQUAL(zero_copy->row_stop(), matrix->row_stop());

      // Check that zero_copy has same values as original
      LIBMESH_ASSERT_FP_EQUAL(0.0, zero_copy->l1_norm(), _tolerance);
    }
  }

testGetAndSet()

void SparseMatrixTest< LaspackMatrix< Number > >::testGetAndSet ( )

inlineinherited

Definition at line 137 of file sparse_matrix_test.h.

References SparseMatrixTest< DerivedClass >::setValues(), and SparseMatrixTest< DerivedClass >::testValues().

  {
    LOG_UNIT_TEST;

    setValues();

    testValues();
  }

testReadMatlab()

void SparseMatrixTest< LaspackMatrix< Number > >::testReadMatlab ( const std::string &  filename )

inlineinherited

Definition at line 146 of file sparse_matrix_test.h.

References libMesh::LASPACK_SOLVERS, and SparseMatrixTest< DerivedClass >::matrix.

  {
    // Laspack doesn't handle non-square matrices)
    if (matrix->solver_package() == libMesh::LASPACK_SOLVERS)
      return;

    matrix->clear();

    auto matrix2 = std::make_unique<DerivedClass>(*my_comm);

    matrix->read(filename);

#ifndef LIBMESH_HAVE_GZSTREAM
    return;
#endif

    matrix2->read(std::string(filename)+".gz");

    // We need some more SparseMatrix operators, but not today
    CPPUNIT_ASSERT(matrix->l1_norm() == matrix2->l1_norm());
    CPPUNIT_ASSERT(matrix->linfty_norm() == matrix2->linfty_norm());
  }

testReadMatlab1()

void SparseMatrixTest< LaspackMatrix< Number > >::testReadMatlab1 ( )

inlineinherited

Definition at line 170 of file sparse_matrix_test.h.

References SparseMatrixTest< DerivedClass >::testReadMatlab().

  {
    LOG_UNIT_TEST;
    testReadMatlab("matrices/geom_1_extraction_op.m");
  }

testReadMatlab2()

void SparseMatrixTest< LaspackMatrix< Number > >::testReadMatlab2 ( )

inlineinherited

Definition at line 177 of file sparse_matrix_test.h.

References SparseMatrixTest< DerivedClass >::testReadMatlab().

  {
    LOG_UNIT_TEST;
    testReadMatlab("matrices/geom_2_extraction_op.m");
  }

testReadMatlab4()

void SparseMatrixTest< LaspackMatrix< Number > >::testReadMatlab4 ( )

inlineinherited

Definition at line 184 of file sparse_matrix_test.h.

References SparseMatrixTest< DerivedClass >::testReadMatlab().

  {
    LOG_UNIT_TEST;
    testReadMatlab("matrices/geom_4_extraction_op.m");
  }

testValues()

void SparseMatrixTest< LaspackMatrix< Number > >::testValues ( )

inlineinherited

Definition at line 97 of file sparse_matrix_test.h.

References SparseMatrixTest< DerivedClass >::_tolerance, libMesh::index_range(), libMesh::make_range(), SparseMatrixTest< DerivedClass >::matrix, SparseMatrixTest< DerivedClass >::my_comm, and TIMPI::Communicator::rank().

  {
    auto functor = [this]()
    {
      std::vector<libMesh::numeric_index_type> cols_to_get;
      std::vector<libMesh::Number> values;
      const libMesh::numeric_index_type col_start =
        matrix->col_start();
      for (libMesh::numeric_index_type i :
           libMesh::make_range(matrix->row_start(),
                               matrix->row_stop()))
        {
          matrix->get_row(i, cols_to_get, values);
          for (libMesh::numeric_index_type col_j :
               libMesh::index_range(cols_to_get))
            {
              CPPUNIT_ASSERT_EQUAL(cols_to_get[col_j], col_start + col_j);
              LIBMESH_ASSERT_NUMBERS_EQUAL
                ((i - matrix->row_start() + 1) * (col_j + 1) * (my_comm->rank() + 1),
                 values[col_j], _tolerance);
            }
        }
    };

#ifdef LIBMESH_HAVE_CXX11_THREAD
    auto num_threads = std::min(unsigned(2),
                                std::max(
                                  std::thread::hardware_concurrency(),
                                  unsigned(1)));
    std::vector<std::thread> threads(num_threads);
    for (unsigned int thread = 0; thread < num_threads; ++thread)
      threads[thread] = std::thread(functor);
    std::for_each(threads.begin(), threads.end(),
                  [](std::thread & x){x.join();});
#else
    functor();
#endif
  }

testWriteAndRead()

void SparseMatrixTest< LaspackMatrix< Number > >::testWriteAndRead ( )

inlineinherited

Definition at line 191 of file sparse_matrix_test.h.

References TIMPI::Communicator::barrier(), SparseMatrixTest< DerivedClass >::libmesh_suite_name, SparseMatrixTest< DerivedClass >::matrix, TIMPI::Communicator::rank(), SparseMatrixTest< DerivedClass >::setValues(), TestCommWorld, and SparseMatrixTest< DerivedClass >::testValues().

  {
    LOG_UNIT_TEST;

    setValues();

    // If we're working with serial matrices then just print one of
    // them so they don't step on the others' toes.
    if (matrix->n_processors() > 1 ||
        TestCommWorld->rank() == 0)
      matrix->print_matlab(libmesh_suite_name+"_matrix.m");

    matrix->clear();

    // Let's make sure we don't have any race conditions; we have
    // multiple SparseMatrix subclasses that might be trying to read
    // and write the same file.

    TestCommWorld->barrier();

#ifdef LIBMESH_USE_COMPLEX_NUMBERS
    // We're not supporting complex reads quite yet
    return;
#endif

    matrix->read(libmesh_suite_name+"_matrix.m");

    TestCommWorld->barrier();

    testValues();
  }

Member Data Documentation

_tolerance

const libMesh::Real SparseMatrixTest< LaspackMatrix< Number > >::_tolerance

protectedinherited

Definition at line 278 of file sparse_matrix_test.h.

comm_self

Parallel::Communicator LaspackMatrixTest::comm_self

private

Definition at line 42 of file laspack_matrix_test.C.

global_m

libMesh::numeric_index_type SparseMatrixTest< LaspackMatrix< Number > >::global_m

protectedinherited

Definition at line 274 of file sparse_matrix_test.h.

global_n

libMesh::numeric_index_type SparseMatrixTest< LaspackMatrix< Number > >::global_n

protectedinherited

Definition at line 274 of file sparse_matrix_test.h.

libmesh_suite_name

std::string SparseMatrixTest< LaspackMatrix< Number > >::libmesh_suite_name

protectedinherited

Definition at line 268 of file sparse_matrix_test.h.

local_m

libMesh::numeric_index_type SparseMatrixTest< LaspackMatrix< Number > >::local_m

protectedinherited

Definition at line 274 of file sparse_matrix_test.h.

local_n

libMesh::numeric_index_type SparseMatrixTest< LaspackMatrix< Number > >::local_n

protectedinherited

Definition at line 274 of file sparse_matrix_test.h.

matrix

std::unique_ptr<LaspackMatrix< Number > > SparseMatrixTest< LaspackMatrix< Number > >::matrix

protectedinherited

Definition at line 272 of file sparse_matrix_test.h.

my_comm

libMesh::Parallel::Communicator* SparseMatrixTest< LaspackMatrix< Number > >::my_comm

protectedinherited

Definition at line 270 of file sparse_matrix_test.h.

nonsquare

libMesh::numeric_index_type SparseMatrixTest< LaspackMatrix< Number > >::nonsquare

protectedinherited

Definition at line 274 of file sparse_matrix_test.h.

---

The documentation for this class was generated from the following file:

• tests/numerics/laspack_matrix_test.C