force_F_Clover_Nf2.h

Go to the documentation of this file.

#ifndef FORCE_F_CLOVER_NF2_INCLUDED
#define FORCE_F_CLOVER_NF2_INCLUDED

#include "fopr_Clover.h"

#include "force_F_Wilson_Nf2.h"
#include "force_F_CloverTerm.h"

#include "staples.h"

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


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

class Force_F_Clover_Nf2 : public Force
{
 private:
  double             m_kappa;      
  double             m_cSW;        
  std::valarray<int> m_boundary;   

  std::string m_repr;              

  Field_G            *m_U;         
  int                m_Ndim;       
  Field_G            *m_Cud;       
  Fopr_Clover        *m_fopr_c;    
  Force_F_Wilson_Nf2 *m_force_w;   
  Force_F_CloverTerm *m_force_csw; 

 public:

  Force_F_Clover_Nf2()
    : Force()
  {
    init("Dirac");    
  }

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

  ~Force_F_Clover_Nf2()
  {
    tidyup();
  }

  void set_parameters(const Parameters& params);

//  void set_parameters (const Parameters_Fopr_Clover& params);

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

  void set_config(Field *U)
  {
    m_U = (Field_G *)U;
    m_fopr_c->set_config(U);
    m_force_w->set_config(U);
    m_force_csw->set_config(U);
    set_component();
  }

  Field force_core(const Field& eta);

  Field force_core1(const Field& zeta, const Field& eta);

  Field force_udiv(const Field& eta);

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

 private:

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

  Field force_udiv1_impl(const Field_F& zeta, const Field_F& eta);

  void set_component();

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