pweakform.hpp

Go to the documentation of this file.

// Copyright (c) 2010-2024, Lawrence Livermore National Security, LLC. Produced
// at the Lawrence Livermore National Laboratory. All Rights reserved. See files
// LICENSE and NOTICE for details. LLNL-CODE-806117.
//
// This file is part of the MFEM library. For more information and source code
// availability visit https://mfem.org.
//
// MFEM is free software; you can redistribute it and/or modify it under the
// terms of the BSD-3 license. We welcome feedback and contributions, see file
// CONTRIBUTING.md for details.
 
#ifndef MFEM_PDPGWEAKFORM
#define MFEM_PDPGWEAKFORM
 
#include "mfem.hpp"
#include "weakform.hpp"
 
#ifdef MFEM_USE_MPI
 
namespace mfem
{
 
/** @brief Class representing the parallel weak formulation.
 * (Convenient for DPG Equations) */
class ParDPGWeakForm : public DPGWeakForm
{
 
protected:
   // Trial FE spaces
   Array<ParFiniteElementSpace * > trial_pfes;
 
   // ess_tdof list for each space
   Array<Array<int> *> ess_tdofs;
 
   // split ess_tdof_list given in global tdof (for all spaces)
   // to individual lists for each space
   void FillEssTdofLists(const Array<int> & ess_tdof_list);
 
   // Block operator of HypreParMatrix
   BlockOperator * P = nullptr; // Block Prolongation
   BlockMatrix * R = nullptr; // Block Restriction
 
   // Block operator of HypreParMatrix
   BlockOperator * p_mat = nullptr;
   BlockOperator * p_mat_e = nullptr;
 
   void BuildProlongation();
 
private:
 
public:
 
   ParDPGWeakForm() {}
 
   /// Creates bilinear form associated with FE spaces @a trial_pfes_.
   ParDPGWeakForm(Array<ParFiniteElementSpace* > & trial_pfes_,
                  Array<FiniteElementCollection* > & fecol_)
      : DPGWeakForm()
   {
      SetParSpaces(trial_pfes_,fecol_);
   }
 
   void SetParSpaces(Array<ParFiniteElementSpace* > & trial_pfes_,
                     Array<FiniteElementCollection* > & fecol_)
   {
      trial_pfes = trial_pfes_;
      ess_tdofs.SetSize(trial_pfes.Size());
 
      Array<FiniteElementSpace * > trial_sfes(trial_pfes.Size());
      for (int i = 0; i<trial_sfes.Size(); i++)
      {
         trial_sfes[i] = (FiniteElementSpace *)trial_pfes[i];
         ess_tdofs[i] = new Array<int>();
      }
 
      SetSpaces(trial_sfes,fecol_);
   }
 
 
   /// Assemble the local matrix
   void Assemble(int skip_zeros = 1);
 
   /// Returns the matrix assembled on the true dofs, i.e. P^t A P.
   /** The returned matrix has to be deleted by the caller. */
   void ParallelAssemble(BlockMatrix *mat);
 
   void FormLinearSystem(const Array<int> &ess_tdof_list, Vector &x,
                         OperatorHandle &A, Vector &X,
                         Vector &B, int copy_interior = 0);
 
   void FormSystemMatrix(const Array<int> &ess_tdof_list,
                         OperatorHandle &A);
 
   /** Call this method after solving a linear system constructed using the
       FormLinearSystem method to recover the solution as a ParGridFunction-size
       vector in x. Use the same arguments as in the FormLinearSystem call. */
   virtual void RecoverFEMSolution(const Vector &X, Vector &x);
 
   virtual void Update();
 
   /// Destroys bilinear form.
   virtual ~ParDPGWeakForm();
 
};
 
} // namespace mfem
 
 
#endif // MFEM_USE_MPI
 
 
#endif