force_F_CloverTerm.h

Go to the documentation of this file.

#ifndef FORCE_F_CLOVERTERM_INCLUDED
#define FORCE_F_CLOVERTERM_INCLUDED

#include "force.h"
#include "fopr_CloverTerm.h"

#include "staples.h"
#include "shiftField_lex.h"
#include "tensorProd.h"

#include "bridgeIO.h"
using Bridge::vout;


//- parameters class
class Parameters_Force_F_CloverTerm : virtual public Parameters
{
 public:
  Parameters_Force_F_CloverTerm();
};
//- end

class Force_F_CloverTerm : public Force
{
 public:
  static const std::string class_name;

 private:
  double             m_kappa;    
  double             m_cSW;      
  std::valarray<int> m_boundary; 

  std::string m_repr;            

//  Field_G         *m_U;          //!< pointer to gauge field
  int             m_Ndim;        
  Field_G         *m_Cud;        
  Fopr_CloverTerm *m_fopr_csw;   

 public:
  Force_F_CloverTerm()
    : Force()
  {
    init("Dirac");    
  }

  Force_F_CloverTerm(std::string repr)
    : Force()
  {
    init(repr);    
  }

  ~Force_F_CloverTerm()
  {
    tidyup();
  }

  void set_parameters(const Parameters& params);

  // void set_parameters (const Parameters_Fopr_CloverTerm& params);

  void set_parameters(double kappa, double cSW, const std::valarray<int> bc);

  void set_config(Field *U)
  {
    m_U = (Field_G *)U;
    m_fopr_csw->set_config(m_U);
    //    m_forcew->set_config(U);
    set_component();
  }

  void force_core(Field& force, const Field& eta);  // override default

//   //! Force determination for clover fermion.
//   void force_core1(Field& force, const Field& zeta, const Field& eta);

  void force_udiv(Field& force, const Field& eta);

  void force_udiv1(Field& force, const Field& zeta, const Field& eta);

 private:

  void init(std::string);
  void tidyup();

  void force_udiv1_impl(Field_G& force, const Field_F& zeta, const Field_F& eta);

  void set_component();

  int index_dir(int mu, int nu)
  {
    return mu + m_Ndim * nu;
  }
};
#endif