fopr_CloverTerm_General_impl.h

Go to the documentation of this file.

 
#ifndef FOPR_CLOVERTERM_GENERAL_IMPL_ORG_INCLUDED
#define FOPR_CLOVERTERM_GENERAL_IMPL_ORG_INCLUDED
 
#include "Fopr/fopr_Wilson.h"
 
#include "Measurements/Gauge/staple_lex.h"
 
#include "IO/bridgeIO.h"
using Bridge::vout;
 
 
namespace Org {
  class Fopr_CloverTerm_General : public Fopr
  {
   public:
    static const std::string class_name;
 
   private:
    Bridge::VerboseLevel m_vl;
 
    double m_kappa_s, m_kappa_t;
    double m_cSW_s, m_cSW_t;
    std::vector<int> m_boundary;
    std::string m_repr;
    std::string m_mode;
    void (Fopr_CloverTerm_General::*m_csw)(Field&, const Field&);
    void (Fopr_CloverTerm_General::*m_gm5)(Field&, const Field&);
 
    int m_Nc, m_Nd, m_NinF, m_Ndim;
    int m_Nvol;
 
    const Field_G *m_U;  
 
    ShiftField_lex m_shift;
    Staple_lex m_staple;
    Field_G m_Cup, m_Cdn, m_v1, m_v2;                  
    Field_G m_Bx, m_By, m_Bz, m_Ex, m_Ey, m_Ez;        
    // Bx = -iF(1,2), By = -iF(2,0), Bz = -iF(0,1)
    // Ex = -iF(3,0), Ey = -iF(3,1), Ez = -iF(3,2)
 
    std::vector<GammaMatrix> m_SG;
    GammaMatrix m_GM5;
 
   public:
    DEPRECATED
    Fopr_CloverTerm_General()
      : m_vl(CommonParameters::Vlevel())
    {
      init("Dirac");
    }
 
    DEPRECATED
    Fopr_CloverTerm_General(const std::string repr)
      : m_vl(CommonParameters::Vlevel())
    {
      init(repr);
    }
 
    Fopr_CloverTerm_General(const Parameters& params)
      : m_vl(CommonParameters::Vlevel())
    {
      std::string repr = params.get_string("gamma_matrix_type");
      init(repr);
      set_parameters(params);
    }
 
    ~Fopr_CloverTerm_General()
    {
      tidyup();
    }
 
    void set_parameters(const Parameters& params);
    void set_parameters(const double kappa_s, const double kappa_t,
                        const double cSW_s, const double cSW_t,
                        const std::vector<int> bc);
 
    void get_parameters(Parameters& params) const;
 
    void set_config(Field *U);
 
    void set_mode(const std::string mode)
    {
      m_mode = mode;
    }
 
    std::string get_mode() const
    {
      return m_mode;
    }
 
    void mult(Field& v, const Field& f)
    {
      // csw kappa sigma_{mu nu} F_{mu nu}
      if ((m_mode == "D") || (m_mode == "F")) {
        mult_sigmaF(v, f);
//  } else if(m_mode=="H"){
//    H(v,f);
      } else {
        vout.crucial("Error at %s: undefined mode = %s\n", class_name.c_str(), m_mode.c_str());
        exit(EXIT_FAILURE);
      }
    }
 
    void mult_dag(Field& v, const Field& f)
    {
      mult(v, f);
    }
 
    void mult_sigmaF(Field&, const Field&);
 
    void mult_gm5(Field& v, const Field& w);
 
    void mult_isigma(Field_F&, const Field_F&,
                     const int mu, const int nu);
 
    int field_nvol() { return m_Nvol; }
    int field_nin() { return 2 * m_Nc * m_Nd; }
    int field_nex() { return 1; }
 
    double flop_count();
 
   private:
    void init(std::string repr);
    void tidyup();
 
    void set_csw();
    void set_fieldstrength(Field_G&, const int, const int);
 
    void gm5_dirac(Field&, const Field&);
    void gm5_chiral(Field&, const Field&);
 
    // multiplies csw kappa sigma_{mu nu} F_{mu nu}
    // NOTE: this is NOT 1 - csw kappa sigma_{mu nu} F_{mu nu}
    void mult_csw(Field&, const Field&);
    void mult_csw_dirac(Field&, const Field&);
    void mult_csw_chiral(Field&, const Field&);
 
    void mult_csw_dirac(Field_F&, const Field_F&);
    void mult_csw_chiral(Field_F&, const Field_F&);
 
    int sg_index(const int mu, const int nu) { return mu * m_Ndim + nu; }
  };
}
#endif /* FOPR_CLOVERTERM_GENERAL_IMPL_ORG_INCLUDED */