fopr_Clover_Isochemical.h

Go to the documentation of this file.

#ifndef FOPR_CLOVER_ISOCHEMICAL_INCLUDED
#define FOPR_CLOVER_ISOCHEMICAL_INCLUDED

#include "fopr_Wilson_Isochemical.h"
#include "fopr_CloverTerm.h"

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


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

class Fopr_Clover_Isochemical : public Fopr
{
 private:
  double             m_kappa;             
  double             m_cSW;               
  double             m_mu;                
  std::valarray<int> m_boundary;          
  std::string        m_repr;              
  std::string        m_mode;              

  int m_Nvol, m_Ndim, m_Nc, m_Nd, m_NinF; 

  Fopr_Wilson_Isochemical *m_fopr_w;      
  Fopr_CloverTerm         *m_fopr_csw;    

  const Field_G *m_U;                     

 public:
  Fopr_Clover_Isochemical()
    : Fopr()
  {
    init("Dirac");
  }

  Fopr_Clover_Isochemical(std::string repr)
    : Fopr()
  {
    init(repr);
  }

  ~Fopr_Clover_Isochemical()
  {
    tidyup();
  }

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

  void set_config(Field *U);

  void set_mode(std::string mode)
  {
    m_mode = mode;
  }

  std::string get_mode() const
  {
    return m_mode;
  }

  const Field mult(const Field& f)
  {
    Field v(f.nin(), f.nvol(), f.nex());

    mult(v, f);
    return v;
  }

  const Field mult_dag(const Field& f)
  {
    Field v(f.nin(), f.nvol(), f.nex());

    mult_dag(v, f);
    return v;
  }

  void mult(Field& v, const Field& f)
  {
    if (m_mode == "D") {
      D(v, f);
    } else if (m_mode == "DdagD") {
      DdagD(v, f);
    } else if (m_mode == "Ddag") {
      Ddag(v, f);
    } else if (m_mode == "H") {
      H(v, f);
    } else {
      vout.crucial(m_vl, "Fopr_Clover_Isochemical: undefined mode = %s.\n", m_mode.c_str());
      abort();
    }
  }

  void mult_dag(Field& v, const Field& f)
  {
    if (m_mode == "D") {
      Ddag(v, f);
    } else if (m_mode == "DdagD") {
      DdagD(v, f);
    } else if (m_mode == "Ddag") {
      D(v, f);
    } else if (m_mode == "H") {
      Hdag(v, f);
    } else {
      vout.crucial(m_vl, "Fopr_Clover_Isochemical: undefined mode = %s.\n", m_mode.c_str());
      abort();
    }
  }

  void DdagD(Field&, const Field&);
  void D(Field&, const Field&);
  void Ddag(Field&, const Field&);
  void H(Field&, const Field&);
  void Hdag(Field&, const Field&);

  void mult_gm5(Field& v, const Field& w)
  {
    m_fopr_w->mult_gm5(v, w);
  }

  const Field mult_gm5(const Field& w)
  {
    return m_fopr_w->mult_gm5(w);
  }

  void mult_up(int mu, Field& v, const Field& w)
  {
    m_fopr_w->mult_up(mu, v, w);
  }

  void mult_dn(int mu, Field& v, const Field& w)
  {
    m_fopr_w->mult_dn(mu, v, 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; }

 private:
  void init(std::string repr);
  void tidyup();
};
#endif