seoprec_constdet_two_flavor_monomial_w.h

Go to the documentation of this file.

// -*- C++ -*-
/*! @file
 * @brief Two-flavor collection of even-odd preconditioned 4D ferm monomials
 */
 
#ifndef __seoprec_two_flavor_monomial_w_h__
#define __seoprec_two_flavor_monomial_w_h__
 
#include "update/molecdyn/field_state.h"
#include "update/molecdyn/monomial/two_flavor_monomial_w.h"
#include "update/molecdyn/monomial/two_flavor_monomial_params_w.h"
 
namespace Chroma 
{
 
  /*! @ingroup monomial */
  namespace SymEvenOddPrecConstDetTwoFlavorWilsonTypeFermMonomialEnv
  {
    bool registerAll();
  }
 
 
  //! Wrapper class for  2-flavor even-odd prec ferm monomials
  /*! @ingroup monomial
   *
   * Monomial is expected to be the same for these fermacts
   */
  class SymEvenOddPrecConstDetTwoFlavorWilsonTypeFermMonomial :
    public  TwoFlavorExactSymEvenOddPrecConstDetWilsonTypeFermMonomial<
    multi1d<LatticeColorMatrix>,
    multi1d<LatticeColorMatrix>,
    LatticeFermion>
  {
  public: 
    // Typedefs to save typing
    typedef LatticeFermion               T;
    typedef multi1d<LatticeColorMatrix>  P;
    typedef multi1d<LatticeColorMatrix>  Q;
 
    // Construct out of a parameter struct. Check against the desired FermAct name
    SymEvenOddPrecConstDetTwoFlavorWilsonTypeFermMonomial(const TwoFlavorWilsonTypeFermMonomialParams& param_);
 
    // Copy Constructor
    SymEvenOddPrecConstDetTwoFlavorWilsonTypeFermMonomial(const SymEvenOddPrecConstDetTwoFlavorWilsonTypeFermMonomial& m) : phi(m.phi), fermact(m.fermact), inv_param(m.inv_param), chrono_predictor(m.chrono_predictor) {}
 
 
    //! Even even contribution (eg ln det Clover)
    Double S_even_even(const AbsFieldState<multi1d<LatticeColorMatrix>,
                       multi1d<LatticeColorMatrix> >& s) {
      return Double(0);
    }
 
#if 1
    //! Compute the odd odd contribution (eg
    Double S_odd_odd(const AbsFieldState<multi1d<LatticeColorMatrix>,
                       multi1d<LatticeColorMatrix> >& s) {
      START_CODE();
 
      XMLWriter& xml_out = TheXMLLogWriter::Instance();
      push(xml_out, "S_odd_odd");
 
      const SymEvenOddPrecWilsonTypeFermAct<T,P,Q>& FA = getFermAct();
 
      Handle< FermState<T,P,Q> > state = FA.createState(s.getQ());
 
      // Get system solver
      Handle< MdagMSystemSolver<T> > invMdagM(FA.invMdagM(state, getInvParams()));
 
      // Need way to get gauge state from AbsFieldState<P,Q>
      Handle< SymEvenOddPrecLinearOperator<T,P,Q> > lin(FA.linOp(state));
      // Get the X fields
      T X;
 
      // Action calc doesnt use chrono predictor use zero guess
      X[ lin->subset() ] = zero;
 
      // No predictor used here.
      QDPIO::cout << "TwoFlavWilson4DMonomial: resetting Predictor before energy calc solve" << std::endl;
      (getMDSolutionPredictor()).reset();
 
      SystemSolverResults_t res = (*invMdagM)(X, getPhi());
      QDPIO::cout << "2Flav::invert,  n_count = " << res.n_count << std::endl;
 
      LatticeDouble site_action=zero;
      site_action[ lin->subset() ] = Double(-12);
      site_action[ lin->subset() ] += localInnerProductReal(getPhi(),X);
     
      //Double action = innerProductReal(getPhi(), X, lin->subset());
      Double action = sum(site_action, lin->subset());
 
      write(xml_out, "n_count", res.n_count);
      write(xml_out, "S_oo", action);
      pop(xml_out);
 
      END_CODE();
 
      return action;
    }
#endif
  protected:
 
    T& getPhi(void) {
      return phi;
    }
 
    const T& getPhi(void) const {
      return phi;
    }
 
    const SymEvenOddPrecWilsonTypeFermAct<T,P,Q>& getFermAct(void) const {
      return *fermact;
    }
      
    //! Get parameters for the inverter
    const GroupXML_t& getInvParams(void) const { 
      return inv_param;
    }
 
    AbsChronologicalPredictor4D<T>& getMDSolutionPredictor(void) { 
      return *chrono_predictor;
    };
 
 
  private:
 
    // Hide empty constructor and =
    SymEvenOddPrecConstDetTwoFlavorWilsonTypeFermMonomial();
    void operator=(const SymEvenOddPrecConstDetTwoFlavorWilsonTypeFermMonomial&);
 
    // Pseudofermion field phi
    T phi;
 
    // A handle for the SymEvenOddPrecWilsonFermAct
    Handle<const SymEvenOddPrecWilsonTypeFermAct<T,P,Q> > fermact;
 
    // The parameters for the inversion
    GroupXML_t inv_param;
 
    Handle<AbsChronologicalPredictor4D<T> > chrono_predictor;
    };
 
 
} //end namespace chroma
 
#endif