frontal_solver.h

Go to the documentation of this file.

// LIC// ====================================================================
// LIC// This file forms part of oomph-lib, the object-oriented,
// LIC// multi-physics finite-element library, available
// LIC// at http://www.oomph-lib.org.
// LIC//
// LIC// Copyright (C) 2006-2022 Matthias Heil and Andrew Hazel
// LIC//
// LIC// This library is free software; you can redistribute it and/or
// LIC// modify it under the terms of the GNU Lesser General Public
// LIC// License as published by the Free Software Foundation; either
// LIC// version 2.1 of the License, or (at your option) any later version.
// LIC//
// LIC// This library is distributed in the hope that it will be useful,
// LIC// but WITHOUT ANY WARRANTY; without even the implied warranty of
// LIC// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// LIC// Lesser General Public License for more details.
// LIC//
// LIC// You should have received a copy of the GNU Lesser General Public
// LIC// License along with this library; if not, write to the Free Software
// LIC// Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
// LIC// 02110-1301  USA.
// LIC//
// LIC// The authors may be contacted at oomph-lib@maths.man.ac.uk.
// LIC//
// LIC//====================================================================
// This is the header file for the C-wrapper functions for the HSL MA42
// frontal solver
 
// Include guards to prevent multiple inclusions of the header
#ifndef HSL_MA42OOMPH__FRONTAL_SOLVER_HEADER
#define HSL_MA42OOMPH__FRONTAL_SOLVER_HEADER
 
 
// Config header generated by autoconfig
#ifdef HAVE_CONFIG_H
#include <oomph-lib-config.h>
#endif
 
#ifdef OOMPH_HAS_MPI
#include "mpi.h"
#endif
 
// oomph-lib headers
#include "Vector.h"
#include "linear_solver.h"
 
namespace oomph
{
  //====================================================================
  //====================================================================
  class HSL_MA42 : public LinearSolver
  {
  private:
    void solve_for_one_dof(Problem* const& problem_pt, DoubleVector& result);
 
 
    bool Doc_stats;
 
    bool Reorder_flag;
 
    bool Use_direct_access_files;
 
    double Lenbuf_factor0;
 
    double Lenbuf_factor1;
 
    double Lenbuf_factor2;
 
    double Front_factor;
 
    double Lenfle_factor;
 
    int Icntl[8];
 
    int Isave[45];
 
    int Info[23];
 
    double* W;
 
    int Lw;
 
    int* IW;
 
    int Liw;
 
    unsigned long N_dof;
 
  public:
    HSL_MA42() : W(0), Lw(0), IW(0), Liw(0), N_dof(0)
    {
      Doc_stats = false;
      Reorder_flag = false;
      Use_direct_access_files = false;
 
      // Default values for memory allocation
      Lenbuf_factor0 = 1.2;
      Lenbuf_factor1 = 1.2;
      Lenbuf_factor2 = 1.5;
      Front_factor = 1.1;
      Lenfle_factor = 1.5;
    }
 
    ~HSL_MA42()
    {
      clean_up_memory();
    }
 
    HSL_MA42(const HSL_MA42&) = delete;
 
    void operator=(const HSL_MA42&) = delete;
 
    void clean_up_memory()
    {
      if (IW)
      {
        delete[] IW;
        IW = 0;
        Liw = 0;
      }
      if (W)
      {
        delete[] W;
        W = 0;
        Lw = 0;
      }
    }
 
    void disable_resolve()
    {
      LinearSolver::disable_resolve();
      clean_up_memory();
    }
 
    void solve(Problem* const& problem_pt, DoubleVector& result);
 
    void solve(DoubleMatrixBase* const& matrix_pt,
               const DoubleVector& rhs,
               DoubleVector& result)
    {
      LinearSolver::solve(matrix_pt, rhs, result);
    }
 
 
    void solve(DoubleMatrixBase* const& matrix_pt,
               const Vector<double>& rhs,
               Vector<double>& result)
    {
      LinearSolver::solve(matrix_pt, rhs, result);
    }
 
 
    void resolve(const DoubleVector& rhs, DoubleVector& result);
 
    void reorder_elements(Problem* const& problem_pt);
 
    void enable_doc_stats()
    {
      Doc_stats = true;
    }
 
    void disable_doc_stats()
    {
      Doc_stats = false;
    }
 
    void enable_reordering()
    {
      Reorder_flag = true;
    }
 
    void disable_reordering()
    {
      Reorder_flag = false;
    }
 
    void enable_direct_access_files()
    {
      Use_direct_access_files = true;
    }
 
    void disable_direct_access_files()
    {
      Use_direct_access_files = false;
    }
 
    double& lenbuf_factor0()
    {
      return Lenbuf_factor0;
    }
 
    double& lenbuf_factor1()
    {
      return Lenbuf_factor1;
    }
 
    double& lenbuf_factor2()
    {
      return Lenbuf_factor2;
    }
 
    double& front_factor()
    {
      return Front_factor;
    }
 
    double& lenfle_factor()
    {
      return Lenfle_factor;
    }
  };
 
} // namespace oomph
 
#endif