--- /dev/null
+New: add Utilities::MPI::sum() for LAPACKFullMatrix objects.
+<br>
+(Denis Davydov, 2017/09/04)
template <typename Number> class Vector;
//Forward type declaration to allow MPI sums over FullMatrix<number> type
template <typename Number> class FullMatrix;
+//Forward type declaration to allow MPI sums over LAPACKFullMatrix<number> type
+template <typename Number> class LAPACKFullMatrix;
namespace Utilities
const MPI_Comm &mpi_communicator,
FullMatrix<T> &sums);
+ /**
+ * Same as above but for LAPACKFullMatrix.
+ */
+ template <typename T>
+ void sum (const LAPACKFullMatrix<T> &values,
+ const MPI_Comm &mpi_communicator,
+ LAPACKFullMatrix<T> &sums);
+
/**
* Perform an MPI sum of the entries of a symmetric tensor.
*
#include <deal.II/base/symmetric_tensor.h>
#include <deal.II/lac/vector.h>
#include <deal.II/lac/full_matrix.h>
+#include <deal.II/lac/lapack_full_matrix.h>
#include <vector>
all_reduce(mpi_op, &values[0][0], mpi_communicator, &output[0][0], values.m() * values.n());
}
+
+
+ template <typename T>
+ void all_reduce (const MPI_Op &mpi_op,
+ const LAPACKFullMatrix<T> &values,
+ const MPI_Comm &mpi_communicator,
+ LAPACKFullMatrix<T> &output)
+ {
+ Assert(values.m() == output.m(),
+ ExcDimensionMismatch(values.m(), output.m()));
+ Assert(values.n() == output.n(),
+ ExcDimensionMismatch(values.n(), output.n()));
+ all_reduce(mpi_op, &values(0,0), mpi_communicator, &output(0,0), values.m() * values.n());
+ }
+
}
+ template <typename T>
+ void sum (const LAPACKFullMatrix<T> &values,
+ const MPI_Comm &mpi_communicator,
+ LAPACKFullMatrix<T> &sums)
+ {
+ internal::all_reduce(MPI_SUM, values, mpi_communicator, sums);
+ }
+
+
+
template <int rank, int dim, typename Number>
Tensor<rank,dim,Number>
sum (const Tensor<rank,dim,Number> &local,
//
// ---------------------------------------------------------------------
+for (S : REAL_SCALARS)
+{
+ template
+ void sum<S> (const LAPACKFullMatrix<S> &, const MPI_Comm &, LAPACKFullMatrix<S> &);
+}
for (S : MPI_SCALARS)
{
--- /dev/null
+// ---------------------------------------------------------------------
+//
+// Copyright (C) 2017 by the deal.II authors
+//
+// This file is part of the deal.II library.
+//
+// The deal.II library is free software; you can use it, redistribute
+// it, and/or modify it under the terms of the GNU Lesser General
+// Public License as published by the Free Software Foundation; either
+// version 2.1 of the License, or (at your option) any later version.
+// The full text of the license can be found in the file LICENSE at
+// the top level of the deal.II distribution.
+//
+// ---------------------------------------------------------------------
+
+
+
+// check Utilities::MPI::sum() for LAPACKFullMatrix objects
+
+#include "../tests.h"
+#include <deal.II/lac/lapack_full_matrix.h>
+#include <deal.II/lac/vector.h>
+
+template <typename NumberType>
+void test(const unsigned int m = 13, const unsigned int n = 5)
+{
+ Assert( Utilities::MPI::job_supports_mpi(), ExcInternalError());
+
+ LAPACKFullMatrix<NumberType> full_matrix(m,n);
+ {
+ unsigned int index = 0;
+ for (unsigned int i = 0; i < full_matrix.m(); ++i)
+ for (unsigned int j = 0; j < full_matrix.n(); ++j)
+ full_matrix(i,j) = index++;
+ }
+
+ LAPACKFullMatrix<NumberType> full_matrix_original(m,n);
+ full_matrix_original = full_matrix;
+
+ // inplace
+ Utilities::MPI::sum(full_matrix, MPI_COMM_WORLD, full_matrix);
+
+ const unsigned int numprocs = Utilities::MPI::n_mpi_processes (MPI_COMM_WORLD);
+ for (unsigned int i = 0; i < full_matrix.m(); ++i)
+ for (unsigned int j = 0; j < full_matrix.n(); ++j)
+ Assert (full_matrix(i,j) == full_matrix_original(i,j) * double(numprocs), ExcInternalError());
+
+ if (Utilities::MPI::this_mpi_process (MPI_COMM_WORLD) == 0)
+ deallog << "Ok" << std::endl;
+}
+
+
+int main(int argc, char *argv[])
+{
+ Utilities::MPI::MPI_InitFinalize mpi_initialization (argc, argv, testing_max_num_threads());
+
+ if (Utilities::MPI::this_mpi_process (MPI_COMM_WORLD) == 0)
+ {
+ initlog();
+ deallog.push("float");
+ test<float>();
+ deallog.pop();
+ deallog.push("double");
+ test<double>();
+ deallog.pop();
+ }
+ else
+ {
+ test<float>();
+ test<double>();
+ }
+
+}
--- /dev/null
+
+DEAL:float::Ok
+DEAL:double::Ok
--- /dev/null
+
+DEAL:float::Ok
+DEAL:double::Ok