unprec_ovlap_contfrac5d_pv_linop_array_w.h

Go to the documentation of this file.

// -*- C++ -*-
/*! \file
 *  \brief Unpreconditioned Pauli-Villars Continued Fraction 5D
 */
 
#ifndef __unprec_ovlap_contfrac5d_pv_linop_array_w_h__
#define __unprec_ovlap_contfrac5d_pv_linop_array_w_h__
 
#include "linearop.h"
#include "unprec_wilstype_fermact_w.h" 
 
 
namespace Chroma 
{ 
  //! Unpreconditioned Pauli-Villars Continued Fraction 5D
  /*!
   * \ingroup linop
   *
   * Paulli-Villars cont. frac.
   */
 
  class UnprecOvlapContFrac5DPVLinOpArray : public UnprecLinearOperatorArray<LatticeFermion, 
                                            multi1d<LatticeColorMatrix>, multi1d<LatticeColorMatrix> >
  {
  public:
    // Typedefs to save typing
    typedef LatticeFermion               T;
    typedef multi1d<LatticeColorMatrix>  P;
    typedef multi1d<LatticeColorMatrix>  Q;
 
    //! Full constructor
    UnprecOvlapContFrac5DPVLinOpArray(const UnprecWilsonTypeFermAct<T,P,Q>& S_aux,
                                      Handle< FermState<T,P,Q> > state,
                                      const Real& _m_q,
                                      int _N5,
                                      const Real& _scale_fac,
                                      const multi1d<Real>& _alpha,
                                      const multi1d<Real>& _beta,
                                      int _NEig,
                                      const multi1d<Real>& _EigValFunc,
                                      const multi1d<LatticeFermion>& _EigVec,
                                      const bool _isLastZeroP ) :
      M(S_aux.linOp(state)), fbc(state->getFermBC()),
      m_q(_m_q), N5(_N5), scale_fac(_scale_fac), alpha(_alpha),
      beta(_beta), NEig(_NEig), EigVec(_EigVec), EigValFunc(_EigValFunc),
      isLastZeroP(_isLastZeroP) 
    {
      QDPIO::cout << "LinOpPV isLastZeroP = " << isLastZeroP << std::endl;
    }
 
    //! Length of DW flavor index/space
    int size() const {return N5;}
 
    //! Destructor is automatic
    ~UnprecOvlapContFrac5DPVLinOpArray() {}
 
    //! Return the fermion BC object for this linear operator
    const FermBC<T,P,Q>& getFermBC() const {return *fbc;}
 
    //! Only defined on the entire lattice
    const Subset& subset() const {return all;}
 
    //! Apply the operator onto a source std::vector
    void operator() (multi1d<LatticeFermion>& chi, 
                     const multi1d<LatticeFermion>& psi, 
                     enum PlusMinus isign) const;
 
    //! Derivative
    void deriv(multi1d<LatticeColorMatrix>& ds_u, 
               const multi1d<LatticeFermion>& chi, const multi1d<LatticeFermion>& psi, 
               enum PlusMinus isign) const;
 
  private:
    Handle< DiffLinearOperator<T,P,Q> > M;  // Wilson(esque) Op
    Handle< FermBC<T,P,Q> > fbc;
    const Real m_q;
    const int  N5;    // Size of the 5th dimension
    const Real scale_fac;
    const multi1d<Real> alpha;
    const multi1d<Real> beta;
    const int NEig;
    const multi1d<LatticeFermion> EigVec;
    const multi1d<Real> EigValFunc;
    const bool isLastZeroP;
  };
 
} // End Namespace Chroma
 
 
#endif