Reference documentation for deal.II version 9.0.0
The step-59 tutorial program

This tutorial depends on step-37.

Table of contents
  1. Introduction
  2. The commented program
  1. Results
  2. The plain program

This program was contributed by Katharina Kormann and Martin Kronbichler.

This work was partly supported by the German Research Foundation (DFG) through the project "High-order discontinuous Galerkin for the exa-scale" (ExaDG) within the priority program "Software for Exascale Computing" (SPPEXA).

Introduction

Matrix-free operator evaluation enables very efficient implementations of discretization with high-order polynomial bases due to a method called sum factorization. This concept has been introduced in the step-37 and step-48 tutorial programs. In this tutorial program, we extend those concepts to discontinuous Galerkin (DG) schemes that include face integrals, a class of methods where high orders are particularly widespread.

The underlying idea of the matrix-free evaluation is the same as for continuous elements: The matrix-vector product that appears in an iterative solver or multigrid smoother is not implemented by a classical sparse matrix kernel, but instead applied implicitly by the evaluation of the underlying integrals on the fly. For tensor product shape functions that are integrated with a tensor product quadrature rule, this evaluation is particularly efficient by using the sum-factorization technique, which decomposes the initially \((k+1)^{2d}\) operations for interpolation involving \((k+1)^d\) vector entries with associated shape functions at degree \(k\) in \(d\) dimensions to \((k+1)^d\) quadrature points into \(d\) one-dimensional operations of cost \((k+1)^{d+1}\) each. In 3D, this reduces the order of complexity by two powers in \(k\). When measured as the complexity per degree of freedom, the complexity is \(\mathcal O(k)\) in the polynomial degree. Due to the presence of face integrals in DG, and due to the fact that operations on quadrature points involve more memory transfer, which both scale as \(\mathcal O(1)\), the observed complexity is often constant for moderate \(k\leq 10\). This means that a high order method can be evaluated with the same throughput in terms of degrees of freedom per second as a low-order method.

More information on the algorithms are available in the preprint
Fast matrix-free evaluation of discontinuous Galerkin finite element operators by Martin Kronbichler and Katharina Kormann, arXiv:1711.03590.

The symmetric interior penalty formulation for the Laplacian

For this tutorial program, we exemplify the matrix-free DG framework for the interior penalty discretization of the Laplacian, i.e., the same scheme as the one used for the step-39 tutorial program. The discretization of the Laplacian is given by the following weak form

\begin{align*} &\sum_{K\in\text{cells}} \left(\nabla v_h, \nabla u_h\right)_{K}+\\ &\sum_{F\in\text{faces}}\Big(-\left<[\![v_h]\!], \{\!\{\nabla u_h\}\!\}\right>_{F} - \left<\{\!\{\nabla v_h\}\!\}, [\![u_h]\!]\right>_{F} + \left<[\![v_h]\!], \sigma [\![u_h]\!]\right>_{F}\Big) \\ &= \sum_{K\in\text{cells}}\left(v_h, f\right)_{K}, \end{align*}

where \([\![v]\!] = v^- \mathbf{n}^- + v^+ \mathbf{n}^+ = \mathbf n^{-} \left(v^- - v^+\right)\) denotes the directed jump of the quantity \(v\) from the two associated cells \(K^-\) and \(K^+\), and \(\{\!\{v\}\!\}=\frac{v^- + v^+}{2}\) is the average from both sides.

The terms in the equation represent the cell integral after integration by parts, the primal consistency term that arises at the element interfaces due to integration by parts and insertion of an average flux, the adjoint consistency term that is added for restoring symmetry of the underlying matrix, and a penalty term with factor \(\sigma\), whose magnitude is equal the length of the cells in direction normal to face multiplied by \(k(k+1)\), see step-39. The penalty term is chosen such that an inverse estimate holds and the final weak form is coercive, i.e., positive definite in the discrete setting. The adjoint consistency term and the penalty term involve the jump \([\![u_h]\!]\) at the element interfaces, which disappears for the analytic solution \(u\). Thus, these terms are consistent with the original PDE, ensuring that the method can retain optimal orders of convergence.

In the implementation below, we implement the weak form above by moving the normal vector \(\mathbf{n}^-\) from the jump terms to the derivatives to form a normal derivative of the form \(\mathbf{n}^-\cdot \nabla u_h\). This makes the implementation on quadrature points slightly more efficient because we only need to work with scalar terms rather than tensors, and is mathematically equivalent.

For boundary conditions, we use the so-called mirror principle that defines artificial exterior values \(u^+\) by extrapolation from the interior solution \(u^-\) combined with the given boundary data, setting \(u^+ = -u^- + 2 g_\text{D}\) and \(\mathbf{n}^-\cdot \nabla u^+ = \mathbf{n}^-\cdot \nabla u^-\) on Dirichlet boundaries and \(u^+=u^-\) and \(\mathbf{n}^-\cdot \nabla u^+ = -\mathbf{n}^-\cdot \nabla u^- + 2 g_\text{N}\) on Neumann boundaries, for given Dirichlet values \(g_\text{D}\) and Neumann values \(g_\text{N}\). These expressions are then inserted in the above weak form. Contributions involving the known quantities \(g_\text{D}\) and \(g_\text{N}\) are eventually moved to the right hand side, whereas the unknown value \(u^-\) is retained on the left hand side and contributes to the matrix terms similarly as interior faces. Upon these manipulations, the same weak form as in step-39 is obtained.

Face integration support in MatrixFree and FEFaceEvaluation

The matrix-free framework of deal.II provides the necessary infrastructure to implement the action of the discretized equation above. As opposed to the MatrixFree::cell_loop() that we used in step-37 and step-48, we now build a code in terms of MatrixFree::loop() that takes three function pointers, one for the cell integrals, one for the inner face integrals, and one for the boundary face integrals (in analogy to the design of MeshWorker used in the step-39 tutorial program). In each of these three functions, we then implement the respective terms on the quadrature points. For interpolation between the vector entries and the values and gradients on quadrature points, we use the class FEEvaluation for cell contributions and FEFaceEvaluation for face contributions. The basic usage of these functions has been discussed extensively in the step-37 tutorial program.

In MatrixFree::loop(), all interior faces are visited exactly once, so one must make sure to compute the contributions from both the test functions \(v_h^-\) and \(v_h^+\). Given the fact that the test functions on both sides are indeed independent, the weak form above effectively means that we submit the same contribution to both an FEFaceEvaluation object called phi_inner and phi_outer for testing with the normal derivative of the test function, and values with opposite sign for testing with the values of the test function, because the latter involves opposite signs due to the jump term. For faces between cells of different refinement level, the integration is done from the refined side, and FEFaceEvaluation automatically performs interpolation to a subface on the coarse side. Thus, a hanging node never appears explicitly in a user implementation of a weak form.

The fact that each face is visited exactly once also applies to those faces at subdomain boundaries between different processors when parallelized with MPI, where one cell belongs to one processor and one to the other. The setup in MatrixFree::reinit() splits the faces between the two sides, and eventually only reports the faces actually handled locally in MatrixFree::n_inner_face_batches() and MatrixFree::n_boundary_face_batches(), respectively. Note that, in analogy to the cell integrals discussed in step-37, deal.II applies vectorization over several faces to use SIMD, working on something we call a batch of faces with a single instruction. The face batches are independent from the cell batches, even though the time at which face integrals are processed is kept close to the time when the cell integrals of the respective cells are processed, in order to increase the data locality.

Another thing that is new in this program is the fact that we no longer split the vector access like FEEvaluation::read_dof_values() or FEEvaluation::distribute_local_to_global() from the evaluation and integration steps, but call combined functions FEEvaluation::gather_evaluate() and FEEvaluation::integrate_scatter(), respectively. This is useful for face integrals because, depending on what gets evaluated on the faces, not all vector entries of a cell must be touched in the first place. Think for example of the case of the nodal element FE_DGQ with node points on the element surface: If we are interested in the shape function values on a face, only \((k+ 1)^{d-1}\) degrees of freedom contribute to them in a non-trivial way (in a more technical way of speaking, only \((k+1)^{d-1}\) shape functions have a nonzero support on the face and return true for FiniteElement::has_support_on_face()). When compared to the \((k+1)^d\) degrees of freedom of a cell, this is one power less.

Now of course we are not interested in only the function values, but also the derivatives on the cell. Fortunately, there is an element in deal.II that extends this property of reduced access also for derivatives on faces, the FE_DGQHermite element.

The FE_DGQHermite element

The element FE_DGQHermite belongs to the family of FE_DGQ elements, i.e., its shape functions are a tensor product of 1D polynomials and the element is fully discontinuous. As opposed to the nodal character in the usual FE_DGQ element, the FE_DGQHermite element is a mixture of nodal contributions and derivative contributions based on a Hermite-like concept. The underlying polynomial class is Polynomials::HermiteLikeInterpolation and can be summarized as follows: For cubic polynomials, we use two polynomials to represent the function value and first derivative at the left end of the unit interval, \(x=0\), and two polynomials to represent the function value and first derivative and the right end of the unit interval, \(x=1\). At the opposite ends, both the value and first derivative of the shape functions are zero, ensuring that only two out of the four basis functions contribute to values and derivative on the respective end. However, we deviate from the classical Hermite interpolation in not strictly assigning one degree of freedom for the value and one for the first derivative, but rather allow the first derivative to be a linear combination of the first and the second shape function. This is done to improve the conditioning of the interpolation. Also, when going to degrees beyond three, we add node points in the element interior in a Lagrange-like fashion, combined with double zeros in the points \(x=0\) and \(x=1\). The position of these extra nodes is determined by the zeros of some Jacobi polynomials as explained in the description of the class Polynomials::HermiteLikeInterpolation.

Using this element, we only need to access \(2(k+1)^{d-1}\) degrees of freedom for computing both values and derivatives on a face. The check whether the Hermite property is fulfilled is done transparently inside FEFaceEvaluation::gather_evaluate() and FEFaceEvaluation::integrate_scatter() that check the type of the basis and reduce the access to data if possible. Obviously, this would not be possible if we had separated FEFaceEvaluation::read_dof_values() from FEFaceEvaluation::evaluate(), because the amount of entries we need to read depends on the type of the derivative (only values, first derivative, etc.) and thus must be given to read_dof_values().

This optimization is not only useful for computing the face integrals, but also for the MPI ghost layer exchange: In a naive exchange, we would need to send all degrees of freedom of a cell to another processor if the other processor is responsible for computing the face's contribution. Since we know that only some of the degrees of freedom in the evaluation with FEFaceEvaluation are touched, it is natural to only exchange the relevant ones. The MatrixFree::loop() function has support for a selected data exchange when combined with LinearAlgebra::distributed::Vector. To make this happen, we need to tell the loop what kind of evaluation on faces we are going to do, using an argument of type MatrixFree::DataAccessOnFaces, as can be seen in the implementation of LaplaceOperator::vmult() below. The way data is exchanged in that case is as follows: The ghost layer data in the vector still pretends to represent all degrees of freedom, such that FEFaceEvaluation can continue to read the values as if the cell were a locally owned one. The data exchange routines take care of the task for packing and unpacking the data into this format. While this sounds pretty complicated, we will show in the results section below that this really pays off by comparing the performance to a baseline code that does not specify the data access on faces.

An approximate block-Jacobi smoother using the fast diagonalization method

In the tradition of the step-37 program, we again solve a Poisson problem with a geometric multigrid preconditioner inside a conjugate gradient solver. Instead of computing the diagonal and use the basic PreconditionChebyshev as a smoother, we choose a different strategy in this tutorial program. We implement a block-Jacobi preconditioner, where a block refers to all degrees of freedom on a cell. Rather than building the full cell matrix and applying its LU factorization (or inverse) in the preconditioner — an operation that would be heavily memory bandwidth bound and thus pretty slow — we approximate the inverse of the block by a special technique called fast diagonalization method.

The idea of the method is to take use of the structure of the cell matrix. In case of the Laplacian with constant coefficients discretized on a Cartesian mesh, the cell matrix \(L\) can be written as

\begin{align*} L &= A_1 \otimes M_0 + M_1 \otimes A_0 \end{align*}

in 2D and

\begin{align*} L &= A_2 \otimes M_1 \otimes M_0 + M_2 \otimes A_1 \otimes M_0 + M_2 \otimes M_1 \otimes A_0 \end{align*}

in 3D. The matrices \(A_0\) and \(A_1\) denote the 1D Laplace matrix (including the cell and face term associated to the current cell values \(u^-_h\) and \(v^-_h\)) and \(M_0\) and \(M_1\) are the mass matrices. Note that this simple tensor product structure is lost once there are non-constant coefficients on the cell or the geometry is not constant any more. We mention that a similar setup could also be used to replace the computed integrals with this final tensor product form of the matrices, which would cut the operations for the operator evaluation into less than half. However, given the fact that this only holds for Cartesian cells and constant coefficients, which is a pretty narrow case, we refrain from pursuing this idea.

Interestingly, the exact inverse of the matrix \(L\) can be found through tensor products due to a method introduced by R. E. Lynch, J. R. Rice, D. H. Thomas, Direct solution of partial difference equations by tensor product methods, Numerische Mathematik 6, 185-199 from 1964,

\begin{align*} L^{-1} &= S_1 \otimes S_0 (\Lambda_1 \otimes I + I \otimes \Lambda_0)^{-1} S_1^\mathrm T \otimes S_0^\mathrm T, \end{align*}

where \(S_d\) is the matrix of eigenvectors to the generalized eigenvalue problem in the given tensor direction \(d\):

\begin{align*} A_d s &= \lambda M_d s, \quad d = 0, \ldots,\mathrm{dim-1}, \end{align*}

and \(\Lambda_d\) is the diagonal matrix representing the generalized eigenvalues \(\lambda\). Note that the vectors \(s\) are such that they simultaneously diagonalize \(A_d\) and \(M_d\), i.e. \(S_d^{\mathrm T} A_d S_d = \Lambda_d\) and \(S_d^{\mathrm T} M_d S_d = I\).

The deal.II library implements a class using this concept, called TensorProductMatrixSymmetricSum.

For the sake of this program, we stick with constant coefficients and Cartesian meshes, even though an approximate version based on tensor products would still be possible for a more general mesh, and the operator evaluation itself is of course generic. Also, we do not bother with adaptive meshes where the multigrid algorithm would need to get access to flux matrices over the edges of different refinement, as explained in step-39. One thing we do, however, is to still wrap our block-Jacobi preconditioner inside PreconditionChebyshev. That class relieves us from finding an appropriate relaxation parameter (which would be around 0.7 in 2D and 0.5 in 3D for the block-Jacobi smoother), and often increases smoothing efficiency a bit over plain Jacobi smoothing in that it enables lower the time to solution when setting the degree of the Chebyshev polynomial to one or two.

Note that the block-Jacobi smoother has an additional benefit: The fast diagonalization method can also be interpreted as a change from the Hermite-like polynomials underlying FE_DGQHermite to a basis where the cell Laplacian is diagonal. Thus, it cancels the effect of the basis, and we get the same iteration counts irrespective of whether we use FE_DGQHermite or FE_DGQ. This is in contrast to using the PreconditionChebyshev class with only the diagonal (a point-Jacobi scheme), where FE_DGQ and FE_DGQHermite do indeed behave differently and FE_DGQ needs 2-5 less iterations than FE_DGQHermite, despite the modification made to the Hermite-like shape functions to ensure a good conditioning.

The commented program

The include files are essentially the same as in step-37, with the exception of the finite element class FE_DGQHermite instead of FE_Q. All functionality for matrix-free computations on face integrals is already contained in fe_evaluation.h.

#include <deal.II/base/quadrature_lib.h>
#include <deal.II/base/function.h>
#include <deal.II/base/logstream.h>
#include <deal.II/base/timer.h>
#include <deal.II/lac/full_matrix.h>
#include <deal.II/lac/solver_cg.h>
#include <deal.II/lac/la_parallel_vector.h>
#include <deal.II/lac/precondition.h>
#include <deal.II/lac/tensor_product_matrix.h>
#include <deal.II/fe/fe_dgq.h>
#include <deal.II/fe/fe_tools.h>
#include <deal.II/grid/tria.h>
#include <deal.II/grid/tria_accessor.h>
#include <deal.II/grid/tria_iterator.h>
#include <deal.II/grid/tria_boundary_lib.h>
#include <deal.II/grid/grid_generator.h>
#include <deal.II/grid/grid_tools.h>
#include <deal.II/multigrid/multigrid.h>
#include <deal.II/multigrid/mg_transfer_matrix_free.h>
#include <deal.II/multigrid/mg_tools.h>
#include <deal.II/multigrid/mg_coarse.h>
#include <deal.II/multigrid/mg_smoother.h>
#include <deal.II/multigrid/mg_matrix.h>
#include <deal.II/numerics/vector_tools.h>
#include <deal.II/matrix_free/matrix_free.h>
#include <deal.II/matrix_free/fe_evaluation.h>
#include <iostream>
#include <fstream>
namespace Step59
{
using namespace dealii;

As in step-37, we collect the dimension and polynomial degree as constants here at the top of the program for simplicity. As opposed to step-37, we choose a really high order method this time with degree 8 where any implementation not using sum factorization would become prohibitively slow compared to the implementation with MatrixFree which provides an efficiency that is essentially the same as at degrees two or three. Furthermore, all classes in this tutorial program are templated, so it would be easy to select the degree at run time from an input file or a command-line argument by adding instantiations of the appropriate degrees in the main() function.

const unsigned int degree_finite_element = 8;
const unsigned int dimension = 3;

Equation data

In analogy to step-7, we define an analytic solution that we try to reproduce with our discretization. Since the aim of this tutorial is to show matrix-free methods, we choose one of the simplest possibilities, namely a cosine function whose derivatives are simple enough for us to compute analytically. Further down, the wave number 2.4 we select here will be matched with the domain extent in \(x\)-direction that is 2.5, such that we obtain a periodic solution at \(x = 2.5\) including \(6pi\) or three full wave revolutions in the cosine. The first function defines the solution and its gradient for expressing the analytic solution for the Dirichlet and Neumann boundary conditions, respectively. Furthermore, a class representing the negative Laplacian of the solution is used to represent the right hand side (forcing) function that we use to match the given analytic solution in the discretized version (manufactured solution).

template <int dim>
class Solution : public Function<dim>
{
public:
Solution () : Function<dim>() {}
virtual double value (const Point<dim> &p,
const unsigned int = 0) const override final
{
double val = 1.;
for (unsigned int d=0; d<dim; ++d)
val *= std::cos(numbers::PI * 2.4 * p[d]);
return val;
}
virtual Tensor<1,dim> gradient (const Point<dim> &p,
const unsigned int = 0) const override final
{
const double arg = numbers::PI * 2.4;
for (unsigned int d=0; d<dim; ++d)
{
grad[d] = 1.;
for (unsigned int e=0; e<dim; ++e)
if (d == e)
grad[d] *= -arg * std::sin(arg * p[e]);
else
grad[d] *= std::cos(arg * p[e]);
}
return grad;
}
};
template <int dim>
class RightHandSide : public Function<dim>
{
public:
RightHandSide () : Function<dim>() {}
virtual double value (const Point<dim> &p,
const unsigned int = 0) const override final
{
const double arg = numbers::PI * 2.4;
double val = 1.;
for (unsigned int d=0; d<dim; ++d)
val *= std::cos(arg * p[d]);
return dim * arg * arg * val;
}
};

Matrix-free implementation

The LaplaceOperator class is similar to the respective class in step-37. A significant difference is that we do not derive the class from MatrixFreeOperators::Base because we want to present some additional features of MatrixFree::loop() that are not available in the general-purpose class MatrixFreeOperators::Base. We derive the class from the Subscriptor class to be able to use the operator within the Chebyshev preconditioner because that preconditioner stores the underlying matrix via a SmartPointer.

Given that we implement a complete matrix interface by hand, we need to add an initialize() function, an m() function, a vmult() function, and a Tvmult() function that were previously provided by MatrixFreeOperators::Base. Our LaplaceOperator also contains a member function get_penalty_factor() that centralizes the selection of the penalty parameter in the symmetric interior penalty method according to step-39.

template <int dim, int fe_degree, typename number>
class LaplaceOperator : public Subscriptor
{
public:
typedef number value_type;
LaplaceOperator () = default;
void initialize(std::shared_ptr<const MatrixFree<dim,number> > data);
void clear();
void initialize_dof_vector(LinearAlgebra::distributed::Vector<number> &vec) const;
std::shared_ptr<const MatrixFree<dim,number> >
get_matrix_free() const;
number get_penalty_factor() const
{
return 1.0 * fe_degree * (fe_degree+1);
}
private:
void apply_cell (const MatrixFree<dim,number> &data,
const std::pair<unsigned int,unsigned int> &cell_range) const;
void apply_face (const MatrixFree<dim,number> &data,
const std::pair<unsigned int,unsigned int> &face_range) const;
void apply_boundary (const MatrixFree<dim,number> &data,
const std::pair<unsigned int,unsigned int> &face_range) const;
std::shared_ptr<const MatrixFree<dim,number> > data;
};

The PreconditionBlockJacobi class defines our custom preconditioner for this problem. As opposed to step-37 which was based on the matrix diagonal, we here compute an approximate inversion of the diagonal blocks in the discontinuous Galerkin method by using the so-called fast diagonalization method discussed in the introduction.

template <int dim, int fe_degree, typename number>
{
public:
typedef number value_type;
void clear()
{
cell_matrices.clear();
}
void initialize(const LaplaceOperator<dim, fe_degree, number> &op);
{
vmult(dst, src);
}
private:
std::shared_ptr<const MatrixFree<dim,number> > data;
std::vector<TensorProductMatrixSymmetricSum<dim,VectorizedArray<number>, fe_degree+1> > cell_matrices;
};

This free-standing function is used in both the LaplaceOperator and PreconditionBlockJacobi classes to adjust the ghost range. This function is necessary because some of the vectors that the vmult() functions are supplied with are not initialized properly with LaplaceOperator::initialize_dof_vector that includes the correct layout of ghost entries, but instead comes from the MGTransferMatrixFree class that has no notion on the ghost selection of the matrix-free classes. To avoid index confusion, we must adjust the ghost range before actually doing something with these vectors. Since the vectors are kept around in the multigrid smoother and transfer classes, a vector whose ghost range has once been adjusted will remain in this state throughout the lifetime of the object, so we can use a shortcut at the start of the function to see whether the partitioner object of the distributed vector, which is stored as a shared pointer, is the same as the layout expected by MatrixFree, which is stored in a data structure accessed by MatrixFree::get_dof_info(0), where the 0 indicates the DoFHandler number from which this was extracted; we only use a single DoFHandler in MatrixFree, so the only valid number is 0 here.

template <int dim, typename number>
void
adjust_ghost_range_if_necessary (const MatrixFree<dim,number> &data,
{
if (vec.get_partitioner().get() == data.get_dof_info(0).vector_partitioner.get())
return;
copy_locally_owned_data_from(copy_vec);
}

The next five functions to clear and initialize the LaplaceOperator class, to return the shared pointer holding the MatrixFree data container, as well as the correct initialization of the vector and operator sizes are the same as in step-37 or rather MatrixFreeOperators::Base.

template <int dim, int fe_degree, typename number>
void
LaplaceOperator<dim,fe_degree,number>::clear ()
{
data.reset();
}
template <int dim, int fe_degree, typename number>
void
LaplaceOperator<dim,fe_degree,number>
::initialize (std::shared_ptr<const MatrixFree<dim,number> > data)
{
this->data = data;
}
template <int dim, int fe_degree, typename number>
std::shared_ptr<const MatrixFree<dim,number> >
LaplaceOperator<dim,fe_degree,number>
::get_matrix_free () const
{
return data;
}
template <int dim, int fe_degree, typename number>
void
LaplaceOperator<dim,fe_degree,number>
::initialize_dof_vector (LinearAlgebra::distributed::Vector<number> &vec) const
{
}
template <int dim, int fe_degree, typename number>
LaplaceOperator<dim,fe_degree,number>::m() const
{
Assert(data.get() != nullptr, ExcNotInitialized());
return data->get_dof_handler().n_dofs();
}

This function implements the action of the LaplaceOperator on a vector src and stores the result in the vector dst. When compared to step-37, there are four new features present in this call.

The first new feature is the adjust_ghost_range_if_necessary function mentioned above that is needed to fit the vectors to the layout expected by FEEvaluation and FEFaceEvaluation in the cell and face functions.

The second new feature is the fact that we do not implement a vmult_add() function as we did in step-37 (through the virtual function MatrixFreeOperators::Base::vmult_add()), but directly implement a vmult() functionality. Since both cell and face integrals will sum into the destination vector, we must of course zero the vector somewhere. For DG elements, we are given two options – one is to use FEEvaluation::set_dof_values() instead of FEEvaluation::distribute_local_to_global() in the apply_cell function below. This works because the loop layout in MatrixFree is such that cell integrals always touch a given vector entry before the face integrals. However, this really only works for fully discontinuous bases where every cell has its own degrees of freedom, without any sharing with neighboring results. An alternative setup, the one chosen here, is to let the MatrixFree::loop() take care of zeroing the vector. This can be thought of as simply calling dst = 0; somewhere in the code. The implementation is more involved for supported vectors such as LinearAlgebra::distributed::Vector, because we aim to not zero the whole vector at once. Doing the zero operation on a small enough pieces of a few thousands of vector entries has the advantage that the vector entries that get zeroed remain in caches before they are accessed again in FEEvaluation::distribute_local_to_global() and FEFaceEvaluation::distribute_local_to_global(). Since matrix-free operator evaluation is really fast, just zeroing a large vector can amount to up to a 25% of the operator evaluation time, and we obviously want to avoid this cost. This option of zeroing the vector is also available for MatrixFree::cell_loop and for continuous bases, even though it was not used in the step-37 or step-48 tutorial programs.

The third new feature is the way we provide the functions to compute on cells, inner faces, and boundary faces: The class MatrixFree has a function called loop that takes three function pointers to the three cases, allowing to separate the implementations of different things. As explained in step-37, these function pointers can be std::function objects or member functions of a class. In this case, we use pointers to member functions.

The final new feature are the last two arguments of type MatrixFree::DataAccessOnFaces that can be given to MatrixFree::loop(). This class passes the type of data access for face integrals to the MPI data exchange routines LinearAlgebra::distributed::Vector::update_ghost_values() and LinearAlgebra::distributed::Vector::compress() of the parallel vectors. The purpose is to not send all degrees of freedom of a neighboring element, but to reduce the amount of data to what is really needed for the computations at hand. The data exchange is a real bottleneck in particular for high-degree DG methods, therefore a more restrictive way of exchange is often beneficial. The enum field MatrixFree::DataAccessOnFaces can take the value none, which means that no face integrals at all are done, which would be analogous to MatrixFree::cell_loop(), the value values meaning that only shape function values (but no derivatives) are used on faces, and the value gradients when also first derivatives on faces are accessed besides the values. A value unspecified means that all degrees of freedom will be exchanged for the faces that are located at the processor boundaries and designated to be worked on at the local processor.

To see how the data can be reduced, think of the case of the nodal element FE_DGQ with node points on the element surface, where only \((k+1)^{d-1}\) degrees of freedom contribute to the values on a face for polynomial degree \(k\) in \(d\) space dimensions, out of the \((k+1)^d\) degrees of freedom of a cell. A similar reduction is also possible for the interior penalty method that evaluates values and first derivatives on the faces. When using a Hermite-like basis in 1D, only up to two basis functions contribute to the value and derivative. The class FE_DGQHermite implements a tensor product of this concept, as discussed in the introduction. Thus, only \(2(k+1)^{d-1}\) degrees of freedom must be exchanged for each face, which is a clear win once \(k\) gets larger than four or five. Note that this reduced exchange of FE_DGQHermite is valid also on meshes with curved boundaries, as the derivatives are taken on the reference element, whereas the geometry only mixes them on the inside. Thus, this is different from the attempt to obtain \(C^1\) continuity with continuous Hermite-type shape functions where the non-Cartesian case changes the picture significantly. Obviously, on non-Cartesian meshes the derivatives also include tangential derivatives of shape functions beyond the normal derivative, but those only need the function values on the element surface, too. Should the element not provide any compression, the loop automatically exchanges all entries for the affected cells.

template <int dim, int fe_degree, typename number>
void
LaplaceOperator<dim,fe_degree,number>
{
adjust_ghost_range_if_necessary(*data, dst);
adjust_ghost_range_if_necessary(*data, src);
data->loop (&LaplaceOperator::apply_cell,
&LaplaceOperator::apply_face,
&LaplaceOperator::apply_boundary,
this, dst, src, / *zero_dst =* / true,
}

Since the Laplacian is symmetric, the Tvmult() (needed by the multigrid smoother interfaces) operation is simply forwarded to the vmult() case.

template <int dim, int fe_degree, typename number>
void
LaplaceOperator<dim,fe_degree,number>
{
vmult(dst, src);
}

The cell operation is very similar to step-37. We do not use a coefficient here, though. The second difference is that we replaced the two steps of FEEvaluation::read_dof_values() followed by FEEvaluation::evaluate() by a single function call FEEvaluation::gather_evaluate() which internally calls the sequence of the two individual methods. Likewise, FEEvaluation::integrate_scatter() implements the sequence of FEEvaluation::integrate() followed by FEEvaluation::distribute_local_to_global(). In this case, these new functions merely save two lines of code. However, we use them for the analogy with FEFaceEvaluation where they are more important as explained below.

template <int dim, int fe_degree, typename number>
void
LaplaceOperator<dim,fe_degree,number>
::apply_cell (const MatrixFree<dim,number> &data,
const std::pair<unsigned int,unsigned int> &cell_range) const
{
for (unsigned int cell=cell_range.first; cell<cell_range.second; ++cell)
{
phi.reinit (cell);
phi.gather_evaluate(src, false, true);
for (unsigned int q=0; q<phi.n_q_points; ++q)
phi.submit_gradient (phi.get_gradient(q), q);
phi.integrate_scatter (false, true, dst);
}
}

The face operation implements the terms of the interior penalty method in analogy to step-39, as explained in the introduction. We need two evaluator objects for this task, one for handling the solution that comes from the cell on one of the two sides of an interior face, and one for handling the solution from the other side. The evaluators for face integrals are called FEFaceEvaluation and take a boolean argument in the second slot of the constructor to indicate which of the two sides the evaluator should belong two. In FEFaceEvaluation and MatrixFree, we call one of the two sides the interior one and the other the exterior one. The name exterior refers to the fact that the evaluator from both sides will return the same normal vector. For the interior side, the normal vector points outwards, whereas it points inwards on the other side, and is opposed to the outer normal vector of that cell. Apart from the new class name, we again get a range of items to work with in analogy to what was discussed in step-37, but for the interior faces in this case. Note that the data structure of MatrixFree forms batches of faces that are analogous to the batches of cells for the cell integrals. All faces within a batch involve different cell numbers but have the face number within the reference cell, have the same refinement configuration (no refinement or the same subface), and the same orientation, to keep SIMD operations simple and efficient.

Note that there is no implied meaning in interior versus exterior except the logic decision of the orientation of the normal, which is pretty random internally. One can in no way rely on a certain pattern of assigning interior versus exterior flags, as the decision is made for the sake of access regularity and uniformity in the MatrixFree setup routines. Since most sane DG methods are conservative, i.e., fluxes look the same from both sides of an interface, the mathematics are unaltered if the interior/exterior flags are switched and normal vectors get the opposite sign.

template <int dim, int fe_degree, typename number>
void
LaplaceOperator<dim,fe_degree,number>
::apply_face (const MatrixFree<dim,number> &data,
const std::pair<unsigned int,unsigned int> &face_range) const
{
for (unsigned int face=face_range.first; face<face_range.second; ++face)
{

On a given batch of faces, we first update the pointers to the current face and then access the vector. As mentioned above, we combine the vector access with the evaluation. In the case of face integrals, the data access into the vector can be reduced for the special case of an FE_DGQHermite basis as explained for the data exchange above: Since only \(2(k+1)^{d-1}\) out of the \((k+1)^d\) cell degrees of freedom get multiplied by a non-zero value or derivative of a shape function, this structure can be utilized for the evaluation, significantly reducing the data access. The reduction of the data access is not only beneficial because it reduces the data in flight and thus helps caching, but also because the data access to faces is often more irregular than for cell integrals when gathering values from cells that are farther apart in the index list of cells.

phi_inner.reinit (face);
phi_inner.gather_evaluate(src, true, true);
phi_outer.reinit (face);
phi_outer.gather_evaluate(src, true, true);

The next two statements compute the penalty parameter for the interior penalty method. As explained in the introduction, we would like to have a scaling like \(\frac{1}{h_\text{i}}\) of the length \(h_\text{i}\) normal to the face. For a general non-Cartesian mesh, this length must be computed by the product of the inverse Jacobian times the normal vector in real coordinates. From this vector of dim components, we must finally pick the component that is oriented normal to the reference cell. In the geometry data stored in MatrixFree, a permutation of the components in the Jacobian is applied such that this latter direction is always the last component dim-1 (this is beneficial because reference-cell derivative sorting can be made agnostic of the direction of the face). This means that we can simply access the last entry dim-1 and must not look up the local face number in data.get_face_info(face).interior_face_no and data.get_face_info(face).exterior_face_no. Finally, we must also take the absolute value of these factors as the normal could point into either positive or negative direction.

const VectorizedArray<number> inverse_length_normal_to_face
= 0.5 * (std::abs((phi_inner.get_normal_vector(0)*
phi_inner.inverse_jacobian(0))[dim-1])
+
std::abs((phi_outer.get_normal_vector(0)*
phi_outer.inverse_jacobian(0))[dim-1]));
const VectorizedArray<number> sigma = inverse_length_normal_to_face * get_penalty_factor();

In the loop over the quadrature points, we eventually compute all contributions to the interior penalty scheme. According to the formulas in the introduction, the value of the test function gets multiplied by the difference of the jump in the solution times the penalty parameter and the average of the normal derivative in real space. Since the two evaluators for interior and exterior sides get different signs due to the jump, we pass the result with a different sign here. The normal derivative of the test function gets multiplied by the negative jump in the solution between the interior and exterior side. This term, coined adjoint consistency term, must also include the factor of \(\frac{1}{2}\) in the code in accordance with its relation to the primal consistency term that gets the factor of one half due to the average in the test function slot.

for (unsigned int q=0; q<phi_inner.n_q_points; ++q)
{
const VectorizedArray<number> solution_jump
= (phi_inner.get_value(q)-phi_outer.get_value(q));
const VectorizedArray<number> average_normal_derivative
= (phi_inner.get_normal_derivative(q) +
phi_outer.get_normal_derivative(q)) * number(0.5);
const VectorizedArray<number> test_by_value
= solution_jump * sigma - average_normal_derivative;
phi_inner.submit_value(test_by_value, q);
phi_outer.submit_value(-test_by_value, q);
phi_inner.submit_normal_derivative(-solution_jump * number(0.5), q);
phi_outer.submit_normal_derivative(-solution_jump * number(0.5), q);
}

Once we are done with the loop over quadrature points, we can do the sum factorization operations for the integration loops on faces and sum the results into the result vector, using the integrate_scatter function. The name scatter reflects the distribution of the vector data into scattered positions in the vector using the same pattern as in gather_evaluate. Like before, the combined integrate + write operation allows us to reduce the data access.

phi_inner.integrate_scatter (true, true, dst);
phi_outer.integrate_scatter (true, true, dst);
}
}

The boundary face function follows by and large the interior face function. The only difference is the fact that we do not have a separate FEFaceEvaluation object that provides us with exterior values \(u^+\), but we must define them from the boundary conditions and interior values \(u^-\). As explained in the introduction, we use \(u^+ = -u^- + 2 g_\text{D}\) and \(\mathbf{n}^-\cdot \nabla u^+ = \mathbf{n}^-\cdot \nabla u^-\) on Dirichlet boundaries and \(u^+=u^-\) and \(\mathbf{n}^-\cdot \nabla u^+ = -\mathbf{n}^-\cdot \nabla u^- + 2 g_\text{N}\) on Neumann boundaries. Since this operation implements the homogeneous part, i.e., the matrix-vector product, we must neglect the boundary functions \(g_\text{D}\) and \(g_\text{N}\) here, and added them to the right hand side in LaplaceProblem::compute_rhs(). Note that due to extension of the solution \(u^-\) to the exterior via \(u^+\), we can keep all factors \(0.5\) the same as in the inner face function, see also the discussion in step-39.

There is one catch at this point: The implementation below uses a boolean variable is_dirichlet to switch between the Dirichlet and the Neumann cases. However, we solve a problem where we also want to impose periodic boundary conditions on some boundaries, namely along those in the \(x\) direction. One might wonder how those conditions should be handled here. The answer is that MatrixFree automatically treats periodic boundaries as what they are technically, namely an inner face where the solution values of two adjacent cells meet and must be treated by proper numerical fluxes. Thus, all the faces on the periodic boundaries will appear in the apply_face() function and not in this one.

template <int dim, int fe_degree, typename number>
void
LaplaceOperator<dim,fe_degree,number>
::apply_boundary (const MatrixFree<dim,number> &data,
const std::pair<unsigned int,unsigned int> &face_range) const
{
for (unsigned int face=face_range.first; face<face_range.second; ++face)
{
phi_inner.reinit (face);
phi_inner.gather_evaluate(src, true, true);
const VectorizedArray<number> inverse_length_normal_to_face
= std::abs((phi_inner.get_normal_vector(0)*
phi_inner.inverse_jacobian(0))[dim-1]);
const VectorizedArray<number> sigma = inverse_length_normal_to_face * get_penalty_factor();
const bool is_dirichlet = (data.get_boundary_id(face) == 0);
for (unsigned int q=0; q<phi_inner.n_q_points; ++q)
{
const VectorizedArray<number> u_inner = phi_inner.get_value(q);
const VectorizedArray<number> u_outer = is_dirichlet ? -u_inner : u_inner;
const VectorizedArray<number> normal_derivative_inner = phi_inner.get_normal_derivative(q);
const VectorizedArray<number> normal_derivative_outer
= is_dirichlet ? normal_derivative_inner : -normal_derivative_inner;
const VectorizedArray<number> solution_jump = (u_inner - u_outer);
const VectorizedArray<number> average_normal_derivative
= (normal_derivative_inner + normal_derivative_outer) * number(0.5);
const VectorizedArray<number> test_by_value
= solution_jump * sigma - average_normal_derivative;
phi_inner.submit_normal_derivative(-solution_jump * number(0.5), q);
phi_inner.submit_value(test_by_value, q);
}
phi_inner.integrate_scatter (true, true, dst);
}
}

Next we turn to the preconditioner initialization. As explained in the introduction, we want to construct an (approximate) inverse of the cell matrices from a product of 1D mass and Laplace matrices. Our first task is to compute the 1D matrices, which we do by first creating a 1D finite element. Instead of anticipating FE_DGQHermite<1> here, we get the finite element's name from DoFHandler, replace the <dim> argument (2 or 3) by 1 to create a 1D name, and construct the 1D element by using FETools.

template <int dim, int fe_degree, typename number>
void
::initialize (const LaplaceOperator<dim, fe_degree, number> &op)
{
data = op.get_matrix_free();
std::string name = data->get_dof_handler().get_fe().get_name();
name.replace(name.find('<')+1, 1, "1");
std::unique_ptr<FiniteElement<1> > fe_1d = FETools::get_fe_by_name<1>(name);

As for computing the 1D matrices on the unit element, we simply write down what a typical assembly procedure over rows and columns of the matrix as well as the quadrature points would do. We select the same Laplace matrices once and for all using the coefficients 0.5 for interior faces (but possibly scaled differently in different directions as a result of the mesh). Thus, we make a slight mistake at the Dirichlet boundary (where the correct factor would be 1 for the derivative terms and 2 for the penalty term, see step-39) or at the Neumann boundary where the factor should be zero. Since we only use this class as a smoother inside a multigrid scheme, this error is not going to have any significant effect and merely affects smoothing quality.

const unsigned int N = fe_degree+1;
FullMatrix<double> laplace_unscaled(N, N);
std::array<Table<2,VectorizedArray<number> >,dim> mass_matrices;
std::array<Table<2,VectorizedArray<number> >,dim> laplace_matrices;
for (unsigned int d=0; d<dim; ++d)
{
mass_matrices[d].reinit(N, N);
laplace_matrices[d].reinit(N, N);
}
QGauss<1> quadrature(N);
for (unsigned int i=0; i<N; ++i)
for (unsigned int j=0; j<N; ++j)
{
double sum_mass = 0, sum_laplace = 0;
for (unsigned int q=0; q<quadrature.size(); ++q)
{
sum_mass += (fe_1d->shape_value(i, quadrature.point(q)) *
fe_1d->shape_value(j, quadrature.point(q))
)* quadrature.weight(q);
sum_laplace += (fe_1d->shape_grad(i, quadrature.point(q))[0] *
fe_1d->shape_grad(j, quadrature.point(q))[0]
)* quadrature.weight(q);
}
for (unsigned int d=0; d<dim; ++d)
mass_matrices[d](i,j) = sum_mass;

The left and right boundary terms assembled by the next two statements appear to have somewhat arbitrary signs, but those are correct as can be verified by looking at step-39 and inserting the value -1 and 1 for the normal vector in the 1D case.

sum_laplace += (1.*fe_1d->shape_value(i, Point<1>()) *
fe_1d->shape_value(j, Point<1>()) * op.get_penalty_factor()
+
0.5*fe_1d->shape_grad(i, Point<1>())[0] *
fe_1d->shape_value(j, Point<1>())
+
0.5*fe_1d->shape_grad(j, Point<1>())[0] *
fe_1d->shape_value(i, Point<1>()));
sum_laplace += (1.*fe_1d->shape_value(i, Point<1>(1.0)) *
fe_1d->shape_value(j, Point<1>(1.0)) * op.get_penalty_factor()
-
0.5*fe_1d->shape_grad(i, Point<1>(1.0))[0] *
fe_1d->shape_value(j, Point<1>(1.0))
-
0.5*fe_1d->shape_grad(j, Point<1>(1.0))[0] *
fe_1d->shape_value(i, Point<1>(1.0)));
laplace_unscaled(i,j) = sum_laplace;
}

Next, we go through the cells and pass the scaled matrices to TensorProductMatrixSymmetricSum to actually compute the generalized eigenvalue problem for representing the inverse: Since the matrix approximation is constructed as \(A\otimes M + M\otimes A\) and the weights are constant for each element, we can apply all weights on the Laplace matrix and simply keep the mass matrices unscaled. In the loop over cells, we want to make use of the geometry compression provided by the MatrixFree class and check if the current geometry is the same as on the last cell batch, in which case there is nothing to do. This compression can be accessed by FEEvaluation::get_mapping_data_index_offset() once reinit() has been called.

Once we have accessed the inverse Jacobian through the FEEvaluation access function (we take the one for the zeroth quadrature point as they should be the same on all quadrature points for a Cartesian cell), we check that it is diagonal and then extract the determinant of the original Jacobian, i.e., the inverse of the determinant of the inverse Jacobian, and set the weight as \(\text{det}(J) / h_d^2\) according to the 1D Laplacian times \(d-1\) copies of the mass matrix.

cell_matrices.clear();
unsigned int old_mapping_data_index = numbers::invalid_unsigned_int;
for (unsigned int cell=0; cell<data->n_cell_batches(); ++cell)
{
phi.reinit(cell);
if (phi.get_mapping_data_index_offset() ==
old_mapping_data_index)
continue;
= phi.inverse_jacobian(0);
for (unsigned int d=0; d<dim; ++d)
for (unsigned int e=0; e<dim; ++e)
if (d!=e)
for (unsigned int v=0; v<VectorizedArray<number>::n_array_elements; ++v)
AssertThrow(inverse_jacobian[d][e][v] == 0.,
VectorizedArray<number> jacobian_determinant = inverse_jacobian[0][0];
for (unsigned int e=1; e<dim; ++e)
jacobian_determinant *= inverse_jacobian[e][e];
jacobian_determinant = 1./jacobian_determinant;
for (unsigned int d=0; d<dim; ++d)
{
const VectorizedArray<number> scaling_factor
= inverse_jacobian[d][d] * inverse_jacobian[d][d] * jacobian_determinant;

Once we know the factor by which we should scale the Laplace matrix, we apply this weight to the unscaled DG Laplace matrix and send the array to the class TensorProductMatrixSymmetricSum for computing the generalized eigenvalue problem mentioned in the introduction.

for (unsigned int i=0; i<N; ++i)
for (unsigned int j=0; j<N; ++j)
laplace_matrices[d](i, j) = scaling_factor * laplace_unscaled(i,j);
}
if (cell_matrices.size() <= phi.get_mapping_data_index_offset())
cell_matrices.resize(phi.get_mapping_data_index_offset()+1);
cell_matrices[phi.get_mapping_data_index_offset()]
.reinit(mass_matrices, laplace_matrices);
}
}

The vmult function for the approximate block-Jacobi preconditioner is very simple in the DG context: We simply need to read the values of the current cell batch, apply the inverse for the given entry in the array of tensor product matrix, and write the result back. In this loop, we overwrite the content in dst rather than first setting the entries to zero. This is legitimate for a DG method because every cell has independent degrees of freedom. Furthermore, we manually write out the loop over all cell batches, rather than going through MatrixFree::cell_loop(). We do this because we know that we are not going to need data exchange over the MPI network here as all computations are done on the cells held locally on each processor.

template <int dim, int fe_degree, typename number>
void
{
adjust_ghost_range_if_necessary(*data, dst);
adjust_ghost_range_if_necessary(*data, src);
for (unsigned int cell=0; cell<data->n_cell_batches(); ++cell)
{
phi.reinit(cell);
phi.read_dof_values(src);
cell_matrices[phi.get_mapping_data_index_offset()]
(phi.begin_dof_values(), phi.dofs_per_cell),
(phi.begin_dof_values(), phi.dofs_per_cell));
phi.set_dof_values(dst);
}
}

The definition of the LaplaceProblem class is very similar to step-37. One difference is the fact that we add the element degree as a template argument to the class, which would allow us to more easily include more than one degree in the same program by creating different instances in the main() function. The second difference is the selection of the element, FE_DGQHermite, which is specialized for this kind of equations.

template <int dim, int fe_degree>
class LaplaceProblem
{
public:
LaplaceProblem ();
void run ();
private:
void setup_system ();
void compute_rhs ();
void solve ();
void analyze_results () const;
#ifdef DEAL_II_WITH_P4EST
#else
Triangulation<dim> triangulation;
#endif
DoFHandler<dim> dof_handler;
typedef LaplaceOperator<dim,fe_degree,double> SystemMatrixType;
SystemMatrixType system_matrix;
typedef LaplaceOperator<dim,fe_degree,float> LevelMatrixType;
double setup_time;
ConditionalOStream time_details;
};
template <int dim, int fe_degree>
LaplaceProblem<dim,fe_degree>::LaplaceProblem ()
:
#ifdef DEAL_II_WITH_P4EST
triangulation(MPI_COMM_WORLD,
Triangulation<dim>::limit_level_difference_at_vertices,
parallel::distributed::Triangulation<dim>::construct_multigrid_hierarchy),
#else
triangulation (Triangulation<dim>::limit_level_difference_at_vertices),
#endif
fe (fe_degree),
dof_handler (triangulation),
setup_time(0.),
pcout (std::cout, Utilities::MPI::this_mpi_process(MPI_COMM_WORLD) == 0),
time_details (std::cout, false &&
Utilities::MPI::this_mpi_process(MPI_COMM_WORLD) == 0)
{}

The setup function differs in two aspects from step-37. The first is that we do not need to interpolate any constraints for the discontinuous ansatz space, and simply pass a dummy ConstraintMatrix object into Matrixfree::reinit(). The second change arises because we need to tell MatrixFree to also initialize the data structures for faces. We do this by setting update flags for the inner and boundary faces, respectively. On the boundary faces, we need both the function values, their gradients, JxW values (for integration), the normal vectors, and quadrature points (for the evaluation of the boundary conditions), whereas we only need shape function values, gradients, JxW values, and normal vectors for interior faces. The face data structures in MatrixFree are always built as soon as one of mapping_update_flags_inner_faces or mapping_update_flags_boundary_faces are different from the default value update_default of UpdateFlags.

template <int dim, int fe_degree>
void LaplaceProblem<dim,fe_degree>::setup_system ()
{
Timer time;
setup_time = 0;
system_matrix.clear();
mg_matrices.clear_elements();
dof_handler.distribute_dofs (fe);
dof_handler.distribute_mg_dofs ();
pcout << "Number of degrees of freedom: "
<< dof_handler.n_dofs()
<< std::endl;
setup_time += time.wall_time();
time_details << "Distribute DoFs "
<< time.wall_time() << " s" << std::endl;
time.restart();
dummy.close();
{
typename MatrixFree<dim,double>::AdditionalData additional_data;
additional_data.tasks_parallel_scheme =
std::shared_ptr<MatrixFree<dim,double> >
system_mf_storage(new MatrixFree<dim,double>());
system_mf_storage->reinit (dof_handler, dummy, QGauss<1>(fe.degree+1),
additional_data);
system_matrix.initialize (system_mf_storage);
}
system_matrix.initialize_dof_vector(solution);
system_matrix.initialize_dof_vector(system_rhs);
setup_time += time.wall_time();
time_details << "Setup matrix-free system "
<< time.wall_time() << " s" << std::endl;
time.restart();
const unsigned int nlevels = triangulation.n_global_levels();
mg_matrices.resize(0, nlevels-1);
for (unsigned int level=0; level<nlevels; ++level)
{
typename MatrixFree<dim,float>::AdditionalData additional_data;
additional_data.tasks_parallel_scheme =
additional_data.level_mg_handler = level;
std::shared_ptr<MatrixFree<dim,float> >
mg_mf_storage_level(new MatrixFree<dim,float>());
mg_mf_storage_level->reinit(dof_handler, dummy,
QGauss<1>(fe.degree+1), additional_data);
mg_matrices[level].initialize(mg_mf_storage_level);
}
setup_time += time.wall_time();
time_details << "Setup matrix-free levels "
<< time.wall_time() << " s" << std::endl;
}

The computation of the right hand side is a bit more complicated than in step-37. The cell term now consists of the negative Laplacian of the analytical solution, RightHandSide, for which we need to first split up the Point of VectorizedArray fields, i.e., a batch of points, into a single point by evaluating all lanes in the VectorizedArray separately. Remember that the number of lanes depends on the hardware; it could be 1 for systems that do not offer vectorization (or where deal.II does not have intrinsics), but it could also be 8 or 16 on AVX-512 of recent Intel architectures.

template <int dim, int fe_degree>
void
LaplaceProblem<dim,fe_degree>::compute_rhs ()
{
Timer time;
system_rhs = 0;
const MatrixFree<dim,double> &data = *system_matrix.get_matrix_free();
RightHandSide<dim> rhs_func;
Solution<dim> exact_solution;
for (unsigned int cell=0; cell<data.n_cell_batches(); ++cell)
{
phi.reinit(cell);
for (unsigned int q=0; q<phi.n_q_points; ++q)
{
Point<dim,VectorizedArray<double> > point_batch = phi.quadrature_point(q);
for (unsigned int v=0; v<VectorizedArray<double>::n_array_elements; ++v)
{
Point<dim> single_point;
for (unsigned int d=0; d<dim; ++d)
single_point[d] = point_batch[d][v];
rhs_val[v] = rhs_func.value(single_point);
}
phi.submit_value(rhs_val, q);
}
phi.integrate_scatter(true, false, system_rhs);
}

Secondly, we also need to apply the Dirichlet and Neumann boundary conditions. This function is the missing part of to the function LaplaceOperator::apply_boundary() function once the exterior solution values \(u^+ = -u^- + 2 g_\text{D}\) and \(\mathbf{n}^-\cdot \nabla u^+ = \mathbf{n}^-\cdot \nabla u^-\) on Dirichlet boundaries and \(u^+=u^-\) and \(\mathbf{n}^-\cdot \nabla u^+ = -\mathbf{n}^-\cdot \nabla u^- + 2 g_\text{N}\) on Neumann boundaries are inserted and expanded in terms of the boundary functions \(g_\text{D}\) and \(g_\text{N}\). One thing to remember is that we move the boundary conditions to the right hand side, so the sign is the opposite from what we imposed on the solution part.

We could have issued both the cell and the boundary part through a MatrixFree::loop part, but we choose to manually write the full loop over all faces to learn how the index layout of face indices is set up in MatrixFree: Both the inner faces and the boundary faces share the index range, and all batches of inner faces have lower numbers than the batches of boundary cells. A single index for both variants allows us to easily use the same data structure FEFaceEvaluation for both cases that attaches to the same data field, just at different positions. The number of inner face batches (where a batch is due to the combination of several faces into one for vectorization) is given by MatrixFree::n_inner_face_batches(), whereas the number of boundary face batches is given by MatrixFree::n_boundary_face_batches().

FEFaceEvaluation<dim,fe_degree> phi_face(data, true);
for (unsigned int face=data.n_inner_face_batches();
face<data.n_inner_face_batches()+data.n_boundary_face_batches(); ++face)
{
phi_face.reinit(face);
const VectorizedArray<double> inverse_length_normal_to_face
= std::abs((phi_face.get_normal_vector(0)*phi_face.inverse_jacobian(0))[dim-1]);
const VectorizedArray<double> sigma = inverse_length_normal_to_face * system_matrix.get_penalty_factor();
for (unsigned int q=0; q<phi_face.n_q_points; ++q)
{
test_normal_derivative = VectorizedArray<double>();
Point<dim,VectorizedArray<double> > point_batch = phi_face.quadrature_point(q);
for (unsigned int v=0; v<VectorizedArray<double>::n_array_elements; ++v)
{
Point<dim> single_point;
for (unsigned int d=0; d<dim; ++d)
single_point[d] = point_batch[d][v];

The MatrixFree class lets us query the boundary_id of the current face batch. Remember that MatrixFree sets up the batches for vectorization such that all faces within a batch have the same properties, which includes their boundary_id. Thus, we can query that id here for the current face index face and either impose the Dirichlet case (where we add something to the function value) or the Neumann case (where we add something to the normal derivative).

if (data.get_boundary_id(face) == 0)
test_value[v] = 2.0*exact_solution.value(single_point);
else
{
Tensor<1,dim> normal;
for (unsigned int d=0; d<dim; ++d)
normal[d] = phi_face.get_normal_vector(q)[d][v];
test_normal_derivative[v] = -normal *
exact_solution.gradient(single_point);
}
}
phi_face.submit_value(test_value*sigma - test_normal_derivative, q);
phi_face.submit_normal_derivative(-0.5*test_value, q);
}
phi_face.integrate_scatter(true, true, system_rhs);
}

Since we have manually run the loop over cells rather than using MatrixFree::loop(), we must not forget to perform the data exchange with MPI - or actually, we would not need that for DG elements here because each cell carries its own degrees of freedom and cell and boundary integrals only evaluate quantities on the locally owned cells. The coupling to neighboring subdomain only comes in by the inner face integrals, which we have not done here. That said, it does not hurt to call this function here, so we do it as a reminder of what happens inside MatrixFree::loop().

setup_time += time.wall_time();
time_details << "Compute right hand side " << time.wall_time() << " s\n";
}

The solve() function is copied almost verbatim from step-37. We set up the same multigrid ingredients, namely the level transfer, a smoother, and a coarse grid solver. The only difference is the fact that we do not use the diagonal of the Laplacian for the preconditioner of the Chebyshev iteration used for smoothing, but instead our newly resolved class PreconditionBlockJacobi. The mechanisms are the same, though.

template <int dim, int fe_degree>
void LaplaceProblem<dim,fe_degree>::solve ()
{
Timer time;
mg_transfer.build(dof_handler);
setup_time += time.wall_time();
time_details << "MG build transfer time " << time.wall_time() << " s\n";
time.restart();
mg_smoother;
smoother_data.resize(0, triangulation.n_global_levels()-1);
for (unsigned int level = 0; level<triangulation.n_global_levels(); ++level)
{
if (level > 0)
{
smoother_data[level].smoothing_range = 15.;
smoother_data[level].degree = 2;
smoother_data[level].eig_cg_n_iterations = 10;
}
else
{
smoother_data[0].smoothing_range = 2e-2;
smoother_data[0].degree = numbers::invalid_unsigned_int;
smoother_data[0].eig_cg_n_iterations = mg_matrices[0].m();
}
smoother_data[level].preconditioner.reset(new PreconditionBlockJacobi<dim,fe_degree,float>());
smoother_data[level].preconditioner->initialize(mg_matrices[level]);
}
mg_smoother.initialize(mg_matrices, smoother_data);
mg_coarse.initialize(mg_smoother);
mg_coarse,
mg_transfer,
mg_smoother,
mg_smoother);
preconditioner(dof_handler, mg, mg_transfer);
SolverControl solver_control (10000, 1e-12*system_rhs.l2_norm());
setup_time += time.wall_time();
time_details << "MG build smoother time " << time.wall_time() << "s\n";
pcout << "Total setup time " << setup_time
<< " s\n";
time.reset();
time.start();
cg.solve (system_matrix, solution, system_rhs, preconditioner);
pcout << "Time solve ("
<< solver_control.last_step()
<< " iterations) "
<< time.wall_time() << " s"
<< std::endl;
}

Since we have solved a problem with analytic solution, we want to verify the correctness of our implementation by computing the L2 error of the numerical result against the analytic solution.

template <int dim, int fe_degree>
void LaplaceProblem<dim,fe_degree>::analyze_results () const
{
Vector<float> error_per_cell(triangulation.n_active_cells());
solution,
Solution<dim>(),
error_per_cell,
pcout << "Verification via L2 error: "
<< std::sqrt(Utilities::MPI::sum(error_per_cell.norm_sqr(), MPI_COMM_WORLD))
<< std::endl;
}

The run() function sets up the initial grid and then runs the multigrid program in the usual way. As a domain, we choose a rectangle with periodic boundary conditions in the \(x\)-direction, a Dirichlet condition on the front face in \(y\) direction (i.e., the face with index number 2, with boundary id equal to 0), and Neumann conditions on the back face as well as the two faces in \(z\) direction for the 3D case (with boundary id equal to 1). The extent of the domain is a bit different in the \(x\) direction (where we want to achieve a periodic solution given the definition of Solution) as compared to the \(y\) and \(z\) directions.

template <int dim, int fe_degree>
void LaplaceProblem<dim,fe_degree>::run ()
{
const unsigned int n_ranks = Utilities::MPI::n_mpi_processes(MPI_COMM_WORLD);
pcout << "Running with " << n_ranks
<< " MPI process" << (n_ranks > 1 ? "es" : "")
<< ", element " << fe.get_name()
<< std::endl << std::endl;
for (unsigned int cycle=0; cycle<9-dim; ++cycle)
{
pcout << "Cycle " << cycle << std::endl;
if (cycle == 0)
{
Point<dim> upper_right;
upper_right[0] = 2.5;
for (unsigned int d=1; d<dim; ++d)
upper_right[d] = 2.8;
GridGenerator::hyper_rectangle(triangulation, Point<dim>(), upper_right);
triangulation.begin_active()->face(0)->set_boundary_id(10);
triangulation.begin_active()->face(1)->set_boundary_id(11);
triangulation.begin_active()->face(2)->set_boundary_id(0);
for (unsigned int f=3; f<GeometryInfo<dim>::faces_per_cell; ++f)
triangulation.begin_active()->face(f)->set_boundary_id(1);
std::vector<GridTools::PeriodicFacePair<typename Triangulation<dim>::cell_iterator> >
periodic_faces;
GridTools::collect_periodic_faces(triangulation, 10, 11, 0, periodic_faces);
triangulation.add_periodicity(periodic_faces);
triangulation.refine_global (6-2*dim);
}
triangulation.refine_global (1);
setup_system ();
compute_rhs ();
solve ();
analyze_results ();
pcout << std::endl;
};
}
}

There is nothing unexpected in the main() function. We call MPI_Init() through the MPI_InitFinalize class, pass on the two parameters on the dimension and the degree set at the top of the file, and run the Laplace problem.

int main (int argc, char *argv[])
{
try
{
using namespace Step59;
Utilities::MPI::MPI_InitFinalize mpi_init(argc, argv, 1);
LaplaceProblem<dimension,degree_finite_element> laplace_problem;
laplace_problem.run ();
}
catch (std::exception &exc)
{
std::cerr << std::endl << std::endl
<< "----------------------------------------------------"
<< std::endl;
std::cerr << "Exception on processing: " << std::endl
<< exc.what() << std::endl
<< "Aborting!" << std::endl
<< "----------------------------------------------------"
<< std::endl;
return 1;
}
catch (...)
{
std::cerr << std::endl << std::endl
<< "----------------------------------------------------"
<< std::endl;
std::cerr << "Unknown exception!" << std::endl
<< "Aborting!" << std::endl
<< "----------------------------------------------------"
<< std::endl;
return 1;
}
return 0;
}

Results

Program output

Like in step-37, we evaluate the multigrid solver in terms of run time. In two space dimensions with elements of degree 8, a possible output could look as follows:

Running with 12 MPI processes, element FE_DGQHermite<2>(8)
Cycle 0
Number of degrees of freedom: 5184
Total setup time 0.0282445 s
Time solve (14 iterations) 0.0110712 s
Verification via L2 error: 1.66232e-07
Cycle 1
Number of degrees of freedom: 20736
Total setup time 0.0126282 s
Time solve (14 iterations) 0.0157021 s
Verification via L2 error: 2.91505e-10
Cycle 2
Number of degrees of freedom: 82944
Total setup time 0.0227573 s
Time solve (14 iterations) 0.026568 s
Verification via L2 error: 6.64514e-13
Cycle 3
Number of degrees of freedom: 331776
Total setup time 0.0604685 s
Time solve (14 iterations) 0.0628356 s
Verification via L2 error: 5.57513e-13
Cycle 4
Number of degrees of freedom: 1327104
Total setup time 0.154359 s
Time solve (13 iterations) 0.219555 s
Verification via L2 error: 3.08139e-12
Cycle 5
Number of degrees of freedom: 5308416
Total setup time 0.467764 s
Time solve (13 iterations) 1.1821 s
Verification via L2 error: 3.90334e-12
Cycle 6
Number of degrees of freedom: 21233664
Total setup time 1.73263 s
Time solve (13 iterations) 5.21054 s
Verification via L2 error: 4.94543e-12

Like in step-37, the number of CG iterations remains constant with increasing problem size. The iteration counts are a bit higher, which is because we use a lower degree of the Chebyshev polynomial (2 vs 5 in step-37) and because the interior penalty discretization has a somewhat larger spread in eigenvalues. Nonetheless, 13 iterations to reduce the residual by 12 orders of magnitude, or almost a factor of 9 per iteration, indicates an overall very efficient method. In particular, we can solve a system with 21 million degrees of freedom in 5 seconds when using 12 cores, which is a very good efficiency. Of course, in 2D we are well inside the regime of roundoff for a polynomial degree of 8 – as a matter of fact, around 83k DoFs or 0.025s would have been enough to fully converge this (simple) analytic solution here.

Not much changes if we run the program in three spatial dimensions, except for the fact that we now use do something more useful with the higher polynomial degree and increasing mesh sizes, as the roundoff errors are only obtained at the finest mesh. Still, it is remarkable that we can solve a 3D Laplace problem with a wave of three periods to roundoff accuracy on a twelve-core machine pretty easily - using about 3.5 GB of memory in total for the second to largest case with 24m DoFs, taking not more than eight seconds. The largest case uses 30GB of memory with 191m DoFs.

Running with 12 MPI processes, element FE_DGQHermite<3>(8)
Cycle 0
Number of degrees of freedom: 5832
Total setup time 0.0210681 s
Time solve (15 iterations) 0.0956945 s
Verification via L2 error: 0.0297194
Cycle 1
Number of degrees of freedom: 46656
Total setup time 0.0452428 s
Time solve (15 iterations) 0.113827 s
Verification via L2 error: 9.55733e-05
Cycle 2
Number of degrees of freedom: 373248
Total setup time 0.190423 s
Time solve (15 iterations) 0.218309 s
Verification via L2 error: 2.6868e-07
Cycle 3
Number of degrees of freedom: 2985984
Total setup time 0.627914 s
Time solve (15 iterations) 1.0595 s
Verification via L2 error: 4.6918e-10
Cycle 4
Number of degrees of freedom: 23887872
Total setup time 2.85215 s
Time solve (15 iterations) 8.30576 s
Verification via L2 error: 9.38583e-13
Cycle 5
Number of degrees of freedom: 191102976
Total setup time 16.1324 s
Time solve (15 iterations) 65.57 s
Verification via L2 error: 3.17875e-13

Comparison of efficiency at different polynomial degrees

In the introduction and in-code comments, it was mentioned several times that high orders are treated very efficiently with the FEEvaluation and FEFaceEvaluation evaluators. Now, we want to substantiate these claims by looking at the throughput of the 3D multigrid solver for various polynomial degrees. We collect the times as follows: We first run a solver at problem size close to ten million, indicated in the first four table rows, and record the timings. Then, we normalize the throughput by recording the number of million degrees of freedom solved per second (MDoFs/s) to be able to compare the efficiency of the different degrees, which is computed by dividing the number of degrees of freedom by the solver time.

degree 1 2 3 4 5 6 7 8 9 10 11 12
Number of DoFs 2097152 7077888 16777216 32768000 7077888 11239424 16777216 23887872 32768000 43614208 7077888 8998912
Number of iterations 13 12 12 12 13 13 15 15 17 19 18 18
Solver time [s] 0.713 2.150 4.638 8.803 2.041 3.295 5.723 8.306 12.75 19.25 3.530 4.814
MDoFs/s 2.94 3.29 3.62 3.72 3.47 3.41 2.93 2.88 2.57 2.27 2.01 1.87

We clearly see how the efficiency per DoF initially improves until it reaches a maximum for the polynomial degree \(k=4\). This effect is surprising, not only because higher polynomial degrees often yield a vastly better solution, but especially also when having matrix-based schemes in mind where the denser coupling at higher degree leads to a monotonously decreasing throughput (and a drastic one in 3D, with \(k=4\) being more than ten times slower than \(k=1\)!). For higher degres, the throughput decreases a bit, which is both due to an increase in the number of iterations (going from 12 at \(k=2,3,4\) to 19 at \(k=10\)) and due to the \(\mathcal O(k)\) complexity of operator evaluation. Nonetheless, efficiency as the time to solution would be still better at higher degrees because they have better convergence rates (at least for problems as simple as this one). For \(k=12\), we reach roundoff accuracy already at 1 million Dofs (solver time less than a second), whereas for \(k=8\) we need 24 million DoFs and 8 seconds. For \(k=5\), the error is around \(10^{-9}\) at 57m DoFs and thus still far away from roundoff, despite taking 16 seconds.

Note that the above numbers are a bit pessimistic because they include the time it takes the Chebyshev smoother to compute an eigenvalue estimate, which is around 10 percent of the solver time.

Evaluation of efficiency of ingredients

Finally, we take a look at some of the special ingredients presented in this tutorial program, namely the FE_DGQHermite basis in particular and the specification of MatrixFree::DataAccessOnFaces. In the following table, the third row shows the optimized solver above, the fourth row shows the timings with only the MatrixFree::DataAccessOnFaces set to unspecified rather than the optimal gradients, and the last one with replacing FE_DGQHermite by the basic FE_DGQ elements where both the MPI exchange are more expensive and the operations done by FEFaceEvaluation::gather_evaluate() and FEFaceEvaluation::integrate_scatter().

degree 1 2 3 4 5 6 7 8 9 10 11 12
Number of DoFs 2097152 7077888 16777216 32768000 7077888 11239424 16777216 23887872 32768000 43614208 7077888 8998912
Solver time optimized as in tutorial [s] 0.713 2.150 4.638 8.803 2.041 3.295 5.723 8.306 12.75 19.25 3.530 4.814
Solver time MatrixFree::DataAccessOnFaces::unspecified [s] 0.711 2.151 4.675 8.968 2.243 3.655 6.277 9.082 13.50 20.05 3.817 5.178
Solver time FE_DGQ [s] 0.712 2.041 5.066 9.335 2.379 3.802 6.564 9.714 14.54 22.76 4.148 5.857

The data in the table shows that not using MatrixFree::DataAccessOnFaces increases timings by around 10% for higher polynomial degrees. For lower degrees, the difference is obviously less pronounced because the volume-to-surface ratio is more beneficial and less data needs to be exchanged. The difference is larger when looking at the matrix-vector product only, rather than the full multigrid solver shown here, with around 20% worse timings just because of the MPI communication.

For \(k=1\) and \(k=2\), the Hermite-like basis functions do obviously not really pay off (indeed, for \(k=1\) the polynomials are exactly the same as for FE_DGQ) and the results are similar as with the FE_DGQ basis. However, for degrees starting at three, we see an increasing advantage for FE_DGQHermite, showing the effectiveness of these basis functions.

Possibilities for extension

As mentioned in the introduction, the fast diagonalization method is tied to a Cartesian mesh with constant coefficients. If we wanted to solve variable-coefficient problems, we would need to invest a bit more time in the design of the smoother parameters by selecting better values.

Another way of extending the program would be to include support for adaptive meshes, for which an interface operation at edges of different refinement level becomes necessary, as discussed in step-39.

The plain program

/* ---------------------------------------------------------------------
*
* Copyright (C) 2018 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.
*
* ---------------------------------------------------------------------
*
* Authors: Katharina Kormann, Martin Kronbichler, 2018
*/
#include <deal.II/base/quadrature_lib.h>
#include <deal.II/base/function.h>
#include <deal.II/base/logstream.h>
#include <deal.II/base/timer.h>
#include <deal.II/lac/full_matrix.h>
#include <deal.II/lac/solver_cg.h>
#include <deal.II/lac/la_parallel_vector.h>
#include <deal.II/lac/precondition.h>
#include <deal.II/lac/tensor_product_matrix.h>
#include <deal.II/fe/fe_dgq.h>
#include <deal.II/fe/fe_tools.h>
#include <deal.II/grid/tria.h>
#include <deal.II/grid/tria_accessor.h>
#include <deal.II/grid/tria_iterator.h>
#include <deal.II/grid/tria_boundary_lib.h>
#include <deal.II/grid/grid_generator.h>
#include <deal.II/grid/grid_tools.h>
#include <deal.II/multigrid/multigrid.h>
#include <deal.II/multigrid/mg_transfer_matrix_free.h>
#include <deal.II/multigrid/mg_tools.h>
#include <deal.II/multigrid/mg_coarse.h>
#include <deal.II/multigrid/mg_smoother.h>
#include <deal.II/multigrid/mg_matrix.h>
#include <deal.II/numerics/vector_tools.h>
#include <deal.II/matrix_free/matrix_free.h>
#include <deal.II/matrix_free/fe_evaluation.h>
#include <iostream>
#include <fstream>
namespace Step59
{
using namespace dealii;
const unsigned int degree_finite_element = 8;
const unsigned int dimension = 3;
template <int dim>
class Solution : public Function<dim>
{
public:
Solution () : Function<dim>() {}
virtual double value (const Point<dim> &p,
const unsigned int = 0) const override final
{
double val = 1.;
for (unsigned int d=0; d<dim; ++d)
val *= std::cos(numbers::PI * 2.4 * p[d]);
return val;
}
virtual Tensor<1,dim> gradient (const Point<dim> &p,
const unsigned int = 0) const override final
{
const double arg = numbers::PI * 2.4;
for (unsigned int d=0; d<dim; ++d)
{
grad[d] = 1.;
for (unsigned int e=0; e<dim; ++e)
if (d == e)
grad[d] *= -arg * std::sin(arg * p[e]);
else
grad[d] *= std::cos(arg * p[e]);
}
return grad;
}
};
template <int dim>
class RightHandSide : public Function<dim>
{
public:
RightHandSide () : Function<dim>() {}
virtual double value (const Point<dim> &p,
const unsigned int = 0) const override final
{
const double arg = numbers::PI * 2.4;
double val = 1.;
for (unsigned int d=0; d<dim; ++d)
val *= std::cos(arg * p[d]);
return dim * arg * arg * val;
}
};
template <int dim, int fe_degree, typename number>
class LaplaceOperator : public Subscriptor
{
public:
typedef number value_type;
LaplaceOperator () = default;
void initialize(std::shared_ptr<const MatrixFree<dim,number> > data);
void clear();
void initialize_dof_vector(LinearAlgebra::distributed::Vector<number> &vec) const;
std::shared_ptr<const MatrixFree<dim,number> >
get_matrix_free() const;
number get_penalty_factor() const
{
return 1.0 * fe_degree * (fe_degree+1);
}
private:
void apply_cell (const MatrixFree<dim,number> &data,
const std::pair<unsigned int,unsigned int> &cell_range) const;
void apply_face (const MatrixFree<dim,number> &data,
const std::pair<unsigned int,unsigned int> &face_range) const;
void apply_boundary (const MatrixFree<dim,number> &data,
const std::pair<unsigned int,unsigned int> &face_range) const;
std::shared_ptr<const MatrixFree<dim,number> > data;
};
template <int dim, int fe_degree, typename number>
{
public:
typedef number value_type;
void clear()
{
cell_matrices.clear();
}
void initialize(const LaplaceOperator<dim, fe_degree, number> &op);
{
vmult(dst, src);
}
private:
std::shared_ptr<const MatrixFree<dim,number> > data;
std::vector<TensorProductMatrixSymmetricSum<dim,VectorizedArray<number>, fe_degree+1> > cell_matrices;
};
template <int dim, typename number>
void
adjust_ghost_range_if_necessary (const MatrixFree<dim,number> &data,
{
if (vec.get_partitioner().get() == data.get_dof_info(0).vector_partitioner.get())
return;
copy_locally_owned_data_from(copy_vec);
}
template <int dim, int fe_degree, typename number>
void
LaplaceOperator<dim,fe_degree,number>::clear ()
{
data.reset();
}
template <int dim, int fe_degree, typename number>
void
LaplaceOperator<dim,fe_degree,number>
::initialize (std::shared_ptr<const MatrixFree<dim,number> > data)
{
this->data = data;
}
template <int dim, int fe_degree, typename number>
std::shared_ptr<const MatrixFree<dim,number> >
LaplaceOperator<dim,fe_degree,number>
::get_matrix_free () const
{
return data;
}
template <int dim, int fe_degree, typename number>
void
LaplaceOperator<dim,fe_degree,number>
::initialize_dof_vector (LinearAlgebra::distributed::Vector<number> &vec) const
{
}
template <int dim, int fe_degree, typename number>
LaplaceOperator<dim,fe_degree,number>::m() const
{
Assert(data.get() != nullptr, ExcNotInitialized());
return data->get_dof_handler().n_dofs();
}
template <int dim, int fe_degree, typename number>
void
LaplaceOperator<dim,fe_degree,number>
{
adjust_ghost_range_if_necessary(*data, dst);
adjust_ghost_range_if_necessary(*data, src);
data->loop (&LaplaceOperator::apply_cell,
&LaplaceOperator::apply_face,
&LaplaceOperator::apply_boundary,
this, dst, src, /*zero_dst =*/ true,
}
template <int dim, int fe_degree, typename number>
void
LaplaceOperator<dim,fe_degree,number>
{
vmult(dst, src);
}
template <int dim, int fe_degree, typename number>
void
LaplaceOperator<dim,fe_degree,number>
::apply_cell (const MatrixFree<dim,number> &data,
const std::pair<unsigned int,unsigned int> &cell_range) const
{
for (unsigned int cell=cell_range.first; cell<cell_range.second; ++cell)
{
phi.reinit (cell);
phi.gather_evaluate(src, false, true);
for (unsigned int q=0; q<phi.n_q_points; ++q)
phi.submit_gradient (phi.get_gradient(q), q);
phi.integrate_scatter (false, true, dst);
}
}
template <int dim, int fe_degree, typename number>
void
LaplaceOperator<dim,fe_degree,number>
::apply_face (const MatrixFree<dim,number> &data,
const std::pair<unsigned int,unsigned int> &face_range) const
{
for (unsigned int face=face_range.first; face<face_range.second; ++face)
{
phi_inner.reinit (face);
phi_inner.gather_evaluate(src, true, true);
phi_outer.reinit (face);
phi_outer.gather_evaluate(src, true, true);
const VectorizedArray<number> inverse_length_normal_to_face
= 0.5 * (std::abs((phi_inner.get_normal_vector(0)*
phi_inner.inverse_jacobian(0))[dim-1])
+
std::abs((phi_outer.get_normal_vector(0)*
phi_outer.inverse_jacobian(0))[dim-1]));
const VectorizedArray<number> sigma = inverse_length_normal_to_face * get_penalty_factor();
for (unsigned int q=0; q<phi_inner.n_q_points; ++q)
{
const VectorizedArray<number> solution_jump
= (phi_inner.get_value(q)-phi_outer.get_value(q));
const VectorizedArray<number> average_normal_derivative
= (phi_inner.get_normal_derivative(q) +
phi_outer.get_normal_derivative(q)) * number(0.5);
const VectorizedArray<number> test_by_value
= solution_jump * sigma - average_normal_derivative;
phi_inner.submit_value(test_by_value, q);
phi_outer.submit_value(-test_by_value, q);
phi_inner.submit_normal_derivative(-solution_jump * number(0.5), q);
phi_outer.submit_normal_derivative(-solution_jump * number(0.5), q);
}
phi_inner.integrate_scatter (true, true, dst);
phi_outer.integrate_scatter (true, true, dst);
}
}
template <int dim, int fe_degree, typename number>
void
LaplaceOperator<dim,fe_degree,number>
::apply_boundary (const MatrixFree<dim,number> &data,
const std::pair<unsigned int,unsigned int> &face_range) const
{
for (unsigned int face=face_range.first; face<face_range.second; ++face)
{
phi_inner.reinit (face);
phi_inner.gather_evaluate(src, true, true);
const VectorizedArray<number> inverse_length_normal_to_face
= std::abs((phi_inner.get_normal_vector(0)*
phi_inner.inverse_jacobian(0))[dim-1]);
const VectorizedArray<number> sigma = inverse_length_normal_to_face * get_penalty_factor();
const bool is_dirichlet = (data.get_boundary_id(face) == 0);
for (unsigned int q=0; q<phi_inner.n_q_points; ++q)
{
const VectorizedArray<number> u_inner = phi_inner.get_value(q);
const VectorizedArray<number> u_outer = is_dirichlet ? -u_inner : u_inner;
const VectorizedArray<number> normal_derivative_inner = phi_inner.get_normal_derivative(q);
const VectorizedArray<number> normal_derivative_outer
= is_dirichlet ? normal_derivative_inner : -normal_derivative_inner;
const VectorizedArray<number> solution_jump = (u_inner - u_outer);
const VectorizedArray<number> average_normal_derivative
= (normal_derivative_inner + normal_derivative_outer) * number(0.5);
const VectorizedArray<number> test_by_value
= solution_jump * sigma - average_normal_derivative;
phi_inner.submit_normal_derivative(-solution_jump * number(0.5), q);
phi_inner.submit_value(test_by_value, q);
}
phi_inner.integrate_scatter (true, true, dst);
}
}
template <int dim, int fe_degree, typename number>
void
::initialize (const LaplaceOperator<dim, fe_degree, number> &op)
{
data = op.get_matrix_free();
std::string name = data->get_dof_handler().get_fe().get_name();
name.replace(name.find('<')+1, 1, "1");
std::unique_ptr<FiniteElement<1> > fe_1d = FETools::get_fe_by_name<1>(name);
const unsigned int N = fe_degree+1;
FullMatrix<double> laplace_unscaled(N, N);
std::array<Table<2,VectorizedArray<number> >,dim> mass_matrices;
std::array<Table<2,VectorizedArray<number> >,dim> laplace_matrices;
for (unsigned int d=0; d<dim; ++d)
{
mass_matrices[d].reinit(N, N);
laplace_matrices[d].reinit(N, N);
}
QGauss<1> quadrature(N);
for (unsigned int i=0; i<N; ++i)
for (unsigned int j=0; j<N; ++j)
{
double sum_mass = 0, sum_laplace = 0;
for (unsigned int q=0; q<quadrature.size(); ++q)
{
sum_mass += (fe_1d->shape_value(i, quadrature.point(q)) *
fe_1d->shape_value(j, quadrature.point(q))
)* quadrature.weight(q);
sum_laplace += (fe_1d->shape_grad(i, quadrature.point(q))[0] *
fe_1d->shape_grad(j, quadrature.point(q))[0]
)* quadrature.weight(q);
}
for (unsigned int d=0; d<dim; ++d)
mass_matrices[d](i,j) = sum_mass;
sum_laplace += (1.*fe_1d->shape_value(i, Point<1>()) *
fe_1d->shape_value(j, Point<1>()) * op.get_penalty_factor()
+
0.5*fe_1d->shape_grad(i, Point<1>())[0] *
fe_1d->shape_value(j, Point<1>())
+
0.5*fe_1d->shape_grad(j, Point<1>())[0] *
fe_1d->shape_value(i, Point<1>()));
sum_laplace += (1.*fe_1d->shape_value(i, Point<1>(1.0)) *
fe_1d->shape_value(j, Point<1>(1.0)) * op.get_penalty_factor()
-
0.5*fe_1d->shape_grad(i, Point<1>(1.0))[0] *
fe_1d->shape_value(j, Point<1>(1.0))
-
0.5*fe_1d->shape_grad(j, Point<1>(1.0))[0] *
fe_1d->shape_value(i, Point<1>(1.0)));
laplace_unscaled(i,j) = sum_laplace;
}
cell_matrices.clear();
unsigned int old_mapping_data_index = numbers::invalid_unsigned_int;
for (unsigned int cell=0; cell<data->n_cell_batches(); ++cell)
{
phi.reinit(cell);
if (phi.get_mapping_data_index_offset() ==
old_mapping_data_index)
continue;
= phi.inverse_jacobian(0);
for (unsigned int d=0; d<dim; ++d)
for (unsigned int e=0; e<dim; ++e)
if (d!=e)
for (unsigned int v=0; v<VectorizedArray<number>::n_array_elements; ++v)
AssertThrow(inverse_jacobian[d][e][v] == 0.,
VectorizedArray<number> jacobian_determinant = inverse_jacobian[0][0];
for (unsigned int e=1; e<dim; ++e)
jacobian_determinant *= inverse_jacobian[e][e];
jacobian_determinant = 1./jacobian_determinant;
for (unsigned int d=0; d<dim; ++d)
{
const VectorizedArray<number> scaling_factor
= inverse_jacobian[d][d] * inverse_jacobian[d][d] * jacobian_determinant;
for (unsigned int i=0; i<N; ++i)
for (unsigned int j=0; j<N; ++j)
laplace_matrices[d](i, j) = scaling_factor * laplace_unscaled(i,j);
}
if (cell_matrices.size() <= phi.get_mapping_data_index_offset())
cell_matrices.resize(phi.get_mapping_data_index_offset()+1);
cell_matrices[phi.get_mapping_data_index_offset()]
.reinit(mass_matrices, laplace_matrices);
}
}
template <int dim, int fe_degree, typename number>
void
{
adjust_ghost_range_if_necessary(*data, dst);
adjust_ghost_range_if_necessary(*data, src);
for (unsigned int cell=0; cell<data->n_cell_batches(); ++cell)
{
phi.reinit(cell);
phi.read_dof_values(src);
cell_matrices[phi.get_mapping_data_index_offset()]
(phi.begin_dof_values(), phi.dofs_per_cell),
(phi.begin_dof_values(), phi.dofs_per_cell));
phi.set_dof_values(dst);
}
}
template <int dim, int fe_degree>
class LaplaceProblem
{
public:
LaplaceProblem ();
void run ();
private:
void setup_system ();
void compute_rhs ();
void solve ();
void analyze_results () const;
#ifdef DEAL_II_WITH_P4EST
#else
Triangulation<dim> triangulation;
#endif
DoFHandler<dim> dof_handler;
typedef LaplaceOperator<dim,fe_degree,double> SystemMatrixType;
SystemMatrixType system_matrix;
typedef LaplaceOperator<dim,fe_degree,float> LevelMatrixType;
double setup_time;
ConditionalOStream time_details;
};
template <int dim, int fe_degree>
LaplaceProblem<dim,fe_degree>::LaplaceProblem ()
:
#ifdef DEAL_II_WITH_P4EST
triangulation(MPI_COMM_WORLD,
Triangulation<dim>::limit_level_difference_at_vertices,
parallel::distributed::Triangulation<dim>::construct_multigrid_hierarchy),
#else
triangulation (Triangulation<dim>::limit_level_difference_at_vertices),
#endif
fe (fe_degree),
dof_handler (triangulation),
setup_time(0.),
pcout (std::cout, Utilities::MPI::this_mpi_process(MPI_COMM_WORLD) == 0),
time_details (std::cout, false &&
Utilities::MPI::this_mpi_process(MPI_COMM_WORLD) == 0)
{}
template <int dim, int fe_degree>
void LaplaceProblem<dim,fe_degree>::setup_system ()
{
Timer time;
setup_time = 0;
system_matrix.clear();
mg_matrices.clear_elements();
dof_handler.distribute_dofs (fe);
dof_handler.distribute_mg_dofs ();
pcout << "Number of degrees of freedom: "
<< dof_handler.n_dofs()
<< std::endl;
setup_time += time.wall_time();
time_details << "Distribute DoFs "
<< time.wall_time() << " s" << std::endl;
time.restart();
dummy.close();
{
typename MatrixFree<dim,double>::AdditionalData additional_data;
additional_data.tasks_parallel_scheme =
std::shared_ptr<MatrixFree<dim,double> >
system_mf_storage(new MatrixFree<dim,double>());
system_mf_storage->reinit (dof_handler, dummy, QGauss<1>(fe.degree+1),
additional_data);
system_matrix.initialize (system_mf_storage);
}
system_matrix.initialize_dof_vector(solution);
system_matrix.initialize_dof_vector(system_rhs);
setup_time += time.wall_time();
time_details << "Setup matrix-free system "
<< time.wall_time() << " s" << std::endl;
time.restart();
const unsigned int nlevels = triangulation.n_global_levels();
mg_matrices.resize(0, nlevels-1);
for (unsigned int level=0; level<nlevels; ++level)
{
typename MatrixFree<dim,float>::AdditionalData additional_data;
additional_data.tasks_parallel_scheme =
additional_data.level_mg_handler = level;
std::shared_ptr<MatrixFree<dim,float> >
mg_mf_storage_level(new MatrixFree<dim,float>());
mg_mf_storage_level->reinit(dof_handler, dummy,
QGauss<1>(fe.degree+1), additional_data);
mg_matrices[level].initialize(mg_mf_storage_level);
}
setup_time += time.wall_time();
time_details << "Setup matrix-free levels "
<< time.wall_time() << " s" << std::endl;
}
template <int dim, int fe_degree>
void
LaplaceProblem<dim,fe_degree>::compute_rhs ()
{
Timer time;
system_rhs = 0;
const MatrixFree<dim,double> &data = *system_matrix.get_matrix_free();
RightHandSide<dim> rhs_func;
Solution<dim> exact_solution;
for (unsigned int cell=0; cell<data.n_cell_batches(); ++cell)
{
phi.reinit(cell);
for (unsigned int q=0; q<phi.n_q_points; ++q)
{
Point<dim,VectorizedArray<double> > point_batch = phi.quadrature_point(q);
for (unsigned int v=0; v<VectorizedArray<double>::n_array_elements; ++v)
{
Point<dim> single_point;
for (unsigned int d=0; d<dim; ++d)
single_point[d] = point_batch[d][v];
rhs_val[v] = rhs_func.value(single_point);
}
phi.submit_value(rhs_val, q);
}
phi.integrate_scatter(true, false, system_rhs);
}
FEFaceEvaluation<dim,fe_degree> phi_face(data, true);
for (unsigned int face=data.n_inner_face_batches();
face<data.n_inner_face_batches()+data.n_boundary_face_batches(); ++face)
{
phi_face.reinit(face);
const VectorizedArray<double> inverse_length_normal_to_face
= std::abs((phi_face.get_normal_vector(0)*phi_face.inverse_jacobian(0))[dim-1]);
const VectorizedArray<double> sigma = inverse_length_normal_to_face * system_matrix.get_penalty_factor();
for (unsigned int q=0; q<phi_face.n_q_points; ++q)
{
test_normal_derivative = VectorizedArray<double>();
Point<dim,VectorizedArray<double> > point_batch = phi_face.quadrature_point(q);
for (unsigned int v=0; v<VectorizedArray<double>::n_array_elements; ++v)
{
Point<dim> single_point;
for (unsigned int d=0; d<dim; ++d)
single_point[d] = point_batch[d][v];
if (data.get_boundary_id(face) == 0)
test_value[v] = 2.0*exact_solution.value(single_point);
else
{
Tensor<1,dim> normal;
for (unsigned int d=0; d<dim; ++d)
normal[d] = phi_face.get_normal_vector(q)[d][v];
test_normal_derivative[v] = -normal *
exact_solution.gradient(single_point);
}
}
phi_face.submit_value(test_value*sigma - test_normal_derivative, q);
phi_face.submit_normal_derivative(-0.5*test_value, q);
}
phi_face.integrate_scatter(true, true, system_rhs);
}
setup_time += time.wall_time();
time_details << "Compute right hand side " << time.wall_time() << " s\n";
}
template <int dim, int fe_degree>
void LaplaceProblem<dim,fe_degree>::solve ()
{
Timer time;
mg_transfer.build(dof_handler);
setup_time += time.wall_time();
time_details << "MG build transfer time " << time.wall_time() << " s\n";
time.restart();
mg_smoother;
smoother_data.resize(0, triangulation.n_global_levels()-1);
for (unsigned int level = 0; level<triangulation.n_global_levels(); ++level)
{
if (level > 0)
{
smoother_data[level].smoothing_range = 15.;
smoother_data[level].degree = 2;
smoother_data[level].eig_cg_n_iterations = 10;
}
else
{
smoother_data[0].smoothing_range = 2e-2;
smoother_data[0].degree = numbers::invalid_unsigned_int;
smoother_data[0].eig_cg_n_iterations = mg_matrices[0].m();
}
smoother_data[level].preconditioner.reset(new PreconditionBlockJacobi<dim,fe_degree,float>());
smoother_data[level].preconditioner->initialize(mg_matrices[level]);
}
mg_smoother.initialize(mg_matrices, smoother_data);
mg_coarse.initialize(mg_smoother);
mg_coarse,
mg_transfer,
mg_smoother,
mg_smoother);
preconditioner(dof_handler, mg, mg_transfer);
SolverControl solver_control (10000, 1e-12*system_rhs.l2_norm());
setup_time += time.wall_time();
time_details << "MG build smoother time " << time.wall_time() << "s\n";
pcout << "Total setup time " << setup_time
<< " s\n";
time.reset();
time.start();
cg.solve (system_matrix, solution, system_rhs, preconditioner);
pcout << "Time solve ("
<< solver_control.last_step()
<< " iterations) "
<< time.wall_time() << " s"
<< std::endl;
}
template <int dim, int fe_degree>
void LaplaceProblem<dim,fe_degree>::analyze_results () const
{
Vector<float> error_per_cell(triangulation.n_active_cells());
solution,
Solution<dim>(),
error_per_cell,
pcout << "Verification via L2 error: "
<< std::sqrt(Utilities::MPI::sum(error_per_cell.norm_sqr(), MPI_COMM_WORLD))
<< std::endl;
}
template <int dim, int fe_degree>
void LaplaceProblem<dim,fe_degree>::run ()
{
const unsigned int n_ranks = Utilities::MPI::n_mpi_processes(MPI_COMM_WORLD);
pcout << "Running with " << n_ranks
<< " MPI process" << (n_ranks > 1 ? "es" : "")
<< ", element " << fe.get_name()
<< std::endl << std::endl;
for (unsigned int cycle=0; cycle<9-dim; ++cycle)
{
pcout << "Cycle " << cycle << std::endl;
if (cycle == 0)
{
Point<dim> upper_right;
upper_right[0] = 2.5;
for (unsigned int d=1; d<dim; ++d)
upper_right[d] = 2.8;
GridGenerator::hyper_rectangle(triangulation, Point<dim>(), upper_right);
triangulation.begin_active()->face(0)->set_boundary_id(10);
triangulation.begin_active()->face(1)->set_boundary_id(11);
triangulation.begin_active()->face(2)->set_boundary_id(0);
for (unsigned int f=3; f<GeometryInfo<dim>::faces_per_cell; ++f)
triangulation.begin_active()->face(f)->set_boundary_id(1);
std::vector<GridTools::PeriodicFacePair<typename Triangulation<dim>::cell_iterator> >
periodic_faces;
GridTools::collect_periodic_faces(triangulation, 10, 11, 0, periodic_faces);
triangulation.add_periodicity(periodic_faces);
triangulation.refine_global (6-2*dim);
}
triangulation.refine_global (1);
setup_system ();
compute_rhs ();
solve ();
analyze_results ();
pcout << std::endl;
};
}
}
int main (int argc, char *argv[])
{
try
{
using namespace Step59;
Utilities::MPI::MPI_InitFinalize mpi_init(argc, argv, 1);
LaplaceProblem<dimension,degree_finite_element> laplace_problem;
laplace_problem.run ();
}
catch (std::exception &exc)
{
std::cerr << std::endl << std::endl
<< "----------------------------------------------------"
<< std::endl;
std::cerr << "Exception on processing: " << std::endl
<< exc.what() << std::endl
<< "Aborting!" << std::endl
<< "----------------------------------------------------"
<< std::endl;
return 1;
}
catch (...)
{
std::cerr << std::endl << std::endl
<< "----------------------------------------------------"
<< std::endl;
std::cerr << "Unknown exception!" << std::endl
<< "Aborting!" << std::endl
<< "----------------------------------------------------"
<< std::endl;
return 1;
}
return 0;
}