force_F_Clover_SF.h

Go to the documentation of this file.

#ifndef FORCE_F_CLOVER_SF_INCLUDED
#define FORCE_F_CLOVER_SF_INCLUDED

#include "fopr_Clover_SF.h"
#include "force_F_Wilson_SF.h"
#include "field_G_SF.h"
#include "staples_SF.h"

#include "tensorProd.h"

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


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

class Force_F_Clover_SF : public Force
{
 private:
  double             m_kappa;      
  double             m_cSW;        
  std::valarray<int> m_boundary;   
  Field_G            *m_U;         

  int     m_Ndim;
  Field_G *m_Cud;                  

  Fopr_Clover_SF    *m_fopr_c;
  Force_F_Wilson_SF *m_force_w;
  Force_F_Clover_SF *m_imp;

  double m_phi[3];
  double m_phipr[3];

  Field_F_SF set_zero;
  Field_G_SF set_wk;

 public:

  Force_F_Clover_SF()
  {
    m_fopr_c  = new Fopr_Clover_SF;
    m_force_w = new Force_F_Wilson_SF;

    int Nvol = CommonParameters::Nvol();
    m_Ndim = CommonParameters::Ndim();

    m_boundary.resize(m_Ndim);
    m_Cud = new Field_G(Nvol, m_Ndim * m_Ndim);
  }

  ~Force_F_Clover_SF()
  {
    delete m_Cud;
    delete m_force_w;
    delete m_fopr_c;
  }

  void set_parameters(const Parameters& params);

  // void set_parameters (const Parameters_Fopr_Clover_SF& params);

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

  void set_config(Field *U)
  {
    m_U = (Field_G *)U;
    m_fopr_c->set_config(m_U);
    m_force_w->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:

  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