solvelt.h

Go to the documentation of this file.

// ========================================================================= //
// This file is part of MyraMath, copyright (c) 2014-2019 by Ryan A Chilton  //
// and distributed by MyraCore, LLC. See LICENSE.txt for license terms.      //
// ========================================================================= //

#ifndef MYRAMATH_MULTIFRONTAL_LU_SOLVELT_H
#define MYRAMATH_MULTIFRONTAL_LU_SOLVELT_H

#include <myramath/multifrontal/detail/solveu.h>

namespace myra {
namespace multifrontal {
namespace lu {
namespace solvelt {

template<class Number> class JobGraphBase : public ::myra::multifrontal::detail::solveu::JobGraphBase2<Number>
  {
  public:

    // Structural typedefs for base class.
    typedef ::myra::multifrontal::detail::solveu::JobGraphBase2<Number> Base;

    // Typedefs related to numeric storage on LUContainer
    typedef LUKernel<Number> Kernel;
    typedef ::myra::multifrontal::detail::lu::LUContainer<Kernel> LUContainer;    
  
    // Constructor - requires const reference to LUContainer, mutable reference to right hand side.
    JobGraphBase(const LUContainer* in_lucontainer, const MatrixRange<Number>& in_B, int in_blocksize)
      : Base(&in_lucontainer->tree(), in_B, in_blocksize), lucontainer(in_lucontainer) { }

    // Virtual copy constructor. 
    virtual ::myra::JobGraphBase* clone() const
      { return new JobGraphBase(*this); }

  protected:

    // Accesors for L Kernel's/Block's
    const Kernel& l(int n, int ij) const
      { return lucontainer->lu(n,ij); }
    const CMatrixRange<Number> l(int n, int i, int j) const
      { return lucontainer->lu(n,i,j); }

    // Solves Un(k,k)*Xn(k,j) = Bn(k,j)
    virtual uint64_t backsolve(int n, int k, int j)
      {
      const Kernel& Ln_kk = this->l(n,k);
      MatrixRange<Number> Bn_kj = this->b(n,k,j);
      return Ln_kk.solveL(Bn_kj,'L','T');
      }
    
    // Downdates Bn(i,j) -= Un(i,k)*Xn(k,j)
    virtual uint64_t downdate(int n, int k, int i, int j)
      {
      CMatrixRange<Number> Ln_ki = this->l(n,k,i);
      CMatrixRange<Number> Xn_kj = this->x(n,k,j);
       MatrixRange<Number> Bn_ij = this->b(n,i,j);
      Number one(1);
      return gemm_nwork(Bn_ij, Ln_ki, 'T', Xn_kj, 'N', -one, one);
      }

  private:
  
    // Reference to LUContainer (const).
    const LUContainer* lucontainer;
    
  }; // class JobGraph

} } } } // namespace

#endif