petsc_nonlinear_solver.h

Go to the documentation of this file.

// The libMesh Finite Element Library.
// Copyright (C) 2002-2019 Benjamin S. Kirk, John W. Peterson, Roy H. Stogner
 
// This library is free software; you can 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.
 
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
 
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 
 
#ifndef LIBMESH_PETSC_NONLINEAR_SOLVER_H
#define LIBMESH_PETSC_NONLINEAR_SOLVER_H
 
#include "libmesh/libmesh_config.h"
 
// Petsc include files.
#ifdef LIBMESH_HAVE_PETSC
 
// Local includes
#include "libmesh/nonlinear_solver.h"
#include "libmesh/petsc_macro.h"
 
// PETSc includes
#ifdef I
# define LIBMESH_SAW_I
#endif
#include <petscsnes.h>
#ifndef LIBMESH_SAW_I
# undef I // Avoid complex.h contamination
#endif
 
namespace libMesh
{
class ResidualContext;
 
// Allow users access to these functions in case they want to reuse them.  Users shouldn't
// need access to these most of the time as they are used internally by this object.
extern "C"
{
  PetscErrorCode libmesh_petsc_snes_monitor (SNES, PetscInt its, PetscReal fnorm, void *);
  PetscErrorCode libmesh_petsc_snes_residual (SNES, Vec x, Vec r, void * ctx);
  PetscErrorCode libmesh_petsc_snes_fd_residual (SNES, Vec x, Vec r, void * ctx);
  PetscErrorCode libmesh_petsc_snes_mffd_residual (SNES snes, Vec x, Vec r, void * ctx);
  PetscErrorCode libmesh_petsc_snes_mffd_interface (void * ctx, Vec x, Vec r);
#if PETSC_RELEASE_LESS_THAN(3,5,0)
  PetscErrorCode libmesh_petsc_snes_jacobian (SNES, Vec x, Mat * jac, Mat * pc, MatStructure * msflag, void * ctx);
#else
  PetscErrorCode libmesh_petsc_snes_jacobian (SNES, Vec x, Mat jac, Mat pc, void * ctx);
#endif
 
  PetscErrorCode libmesh_petsc_snes_postcheck(
#if PETSC_VERSION_LESS_THAN(3,3,0)
                                                SNES, Vec x, Vec y, Vec w, void * context, PetscBool * changed_y, PetscBool * changed_w
#else
                                                SNESLineSearch, Vec x, Vec y, Vec w, PetscBool * changed_y, PetscBool * changed_w, void * context
#endif
                                                );
  PetscErrorCode libmesh_petsc_linesearch_shellfunc(SNESLineSearch linesearch, void * ctx);
 
#ifdef LIBMESH_ENABLE_DEPRECATED
  PetscErrorCode __libmesh_petsc_snes_monitor (SNES, PetscInt its, PetscReal fnorm, void *);
  PetscErrorCode __libmesh_petsc_snes_residual (SNES, Vec x, Vec r, void * ctx);
  PetscErrorCode __libmesh_petsc_snes_fd_residual (SNES, Vec x, Vec r, void * ctx);
  PetscErrorCode __libmesh_petsc_snes_mffd_interface (void * ctx, Vec x, Vec r);
#if PETSC_RELEASE_LESS_THAN(3,5,0)
  PetscErrorCode __libmesh_petsc_snes_jacobian (SNES, Vec x, Mat * jac, Mat * pc, MatStructure * msflag, void * ctx);
#else
  PetscErrorCode __libmesh_petsc_snes_jacobian (SNES, Vec x, Mat jac, Mat pc, void * ctx);
#endif
 
  PetscErrorCode __libmesh_petsc_snes_postcheck(
#if PETSC_VERSION_LESS_THAN(3,3,0)
                                                SNES, Vec x, Vec y, Vec w, void * context, PetscBool * changed_y, PetscBool * changed_w
#else
                                                SNESLineSearch, Vec x, Vec y, Vec w, PetscBool * changed_y, PetscBool * changed_w, void * context
#endif
                                                );
#endif
}
 
template <typename T>
class PetscNonlinearSolver : public NonlinearSolver<T>
{
public:
  typedef NonlinearImplicitSystem sys_type;
 
  explicit
  PetscNonlinearSolver (sys_type & system);
 
  ~PetscNonlinearSolver ();
 
  virtual void clear () override;
 
  virtual void init (const char * name = nullptr) override;
 
  SNES snes() { this->init(); return _snes; }
 
  virtual std::pair<unsigned int, Real>
  solve (SparseMatrix<T> &,                     // System Jacobian Matrix
         NumericVector<T> &,                    // Solution vector
         NumericVector<T> &,                    // Residual vector
         const double,                         // Stopping tolerance
         const unsigned int) override; // N. Iterations
 
  virtual void print_converged_reason() override;
 
  SNESConvergedReason get_converged_reason();
 
  virtual int get_total_linear_iterations() override;
 
  virtual unsigned get_current_nonlinear_iteration_number() const override
  { return _current_nonlinear_iteration_number; }
 
  void set_residual_zero_out(bool state) { _zero_out_residual = state; }
 
  void set_jacobian_zero_out(bool state) { _zero_out_jacobian = state; }
 
  void use_default_monitor(bool state) { _default_monitor = state; }
 
  void set_snesmf_reuse_base(bool state) { _snesmf_reuse_base = state; }
 
  class ComputeLineSearchObject
  {
  public:
    virtual ~ComputeLineSearchObject () {}
 
    virtual void linesearch (SNESLineSearch linesearch) = 0;
  };
 
  std::unique_ptr<ComputeLineSearchObject> linesearch_object;
 
protected:
 
  SNES _snes;
 
  SNESConvergedReason _reason;
 
  PetscInt _n_linear_iterations;
 
  unsigned _current_nonlinear_iteration_number;
 
  bool _zero_out_residual;
 
  bool _zero_out_jacobian;
 
  bool _default_monitor;
 
  bool _snesmf_reuse_base;
 
#if !PETSC_VERSION_LESS_THAN(3,3,0)
  void build_mat_null_space(NonlinearImplicitSystem::ComputeVectorSubspace * computeSubspaceObject,
                            void (*)(std::vector<NumericVector<Number> *> &, sys_type &),
                            MatNullSpace *);
#endif
private:
  friend ResidualContext libmesh_petsc_snes_residual_helper (SNES snes, Vec x, void * ctx);
  friend PetscErrorCode libmesh_petsc_snes_residual (SNES snes, Vec x, Vec r, void * ctx);
  friend PetscErrorCode libmesh_petsc_snes_fd_residual (SNES snes, Vec x, Vec r, void * ctx);
  friend PetscErrorCode libmesh_petsc_snes_mffd_residual (SNES snes, Vec x, Vec r, void * ctx);
#if PETSC_RELEASE_LESS_THAN(3,5,0)
  friend PetscErrorCode libmesh_petsc_snes_jacobian (SNES snes, Vec x, Mat * jac, Mat * pc, MatStructure * msflag, void * ctx);
#else
  friend PetscErrorCode libmesh_petsc_snes_jacobian (SNES snes, Vec x, Mat jac, Mat pc, void * ctx);
#endif
};
 
 
 
} // namespace libMesh
 
 
#endif // #ifdef LIBMESH_HAVE_PETSC
#endif // LIBMESH_PETSC_NONLINEAR_SOLVER_H