fopr_Wilson_Isochemical.h

Go to the documentation of this file.

#ifndef FOPR_WILSON_ISOCHEMICAL_INCLUDED
#define FOPR_WILSON_ISOCHEMICAL_INCLUDED

#include "fopr_Wilson.h"

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


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

class Fopr_Wilson_Isochemical : public Fopr
{
 public:
  static const std::string class_name;

 private:
  int                m_Nvol, m_Ndim;
  double             m_kappa;    
  double             m_mu;       
  std::valarray<int> m_boundary;
  std::string        m_mode;
  Fopr_Wilson        *m_fopr_w;

  double m_exp_mu;               

  std::string m_repr;
  void        (Fopr_Wilson_Isochemical::*m_mult)(Field &, const Field &);
  void        (Fopr_Wilson_Isochemical::*m_mult_dag)(Field &, const Field &);
  void        (Fopr_Wilson_Isochemical::*m_D)(Field &, const Field &);
  void        (Fopr_Wilson_Isochemical::*m_gm5)(Field &, const Field &);

  const Field_G *m_U;

  Field m_vt;  
  Field m_w2;  

 public:

  Fopr_Wilson_Isochemical() : Fopr()
  {
    init("Dirac");
  }

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

  ~Fopr_Wilson_Isochemical()
  {
    tidyup();
  }

  // this method is temporary. After all calls specify bc, to be removed.
  void set_parameters(const Parameters& params);

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

  void set_config(Field *U)
  {
    m_U = (Field_G *)U;
    m_fopr_w->set_config(U);
  }

  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)
  {
    (this->*m_mult)(v, f);
  }

  void mult_dag(Field& v, const Field& f)
  {
    (this->*m_mult_dag)(v, f);
  }

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

    if (m_mode == "D") {
      m_mult     = &Fopr_Wilson_Isochemical::D;
      m_mult_dag = &Fopr_Wilson_Isochemical::Ddag;
    } else if (m_mode == "Ddag") {
      m_mult     = &Fopr_Wilson_Isochemical::Ddag;
      m_mult_dag = &Fopr_Wilson_Isochemical::D;
    } else if (m_mode == "DdagD") {
      m_mult     = &Fopr_Wilson_Isochemical::DdagD;
      m_mult_dag = &Fopr_Wilson_Isochemical::DdagD;
    } else if (m_mode == "H") {
      m_mult     = &Fopr_Wilson_Isochemical::H;
      m_mult_dag = &Fopr_Wilson_Isochemical::Hdag;
    } else {
      vout.crucial(m_vl, "%s: input mode is undefined.\n", class_name.c_str());
      abort();
    }
  }

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

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

    mult_gm5(v, f);
    return v;
  }

  const Field_F mult_gm5p(int mu, const Field_F& w);

  void mult_gm5(Field&, const Field&);
  void D(Field&, const Field&);
  void Dminmu(Field&, const Field&);
  void Dspc(Field&, const Field&);

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

  void mult_undef(Field&, const Field&)
  {
    vout.crucial(m_vl, "%s: mode undefined.\n", class_name.c_str());
    abort();
  }

  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 fprop_normalize(Field& v)
  {
    v *= (2.0 * m_kappa);
  }

  void fopr_normalize(Field& v)
  {
    v *= 1.0 / (2.0 * m_kappa);
  }

  int field_nvol() { return CommonParameters::Nvol(); }
  int field_nin() { return 2 * CommonParameters::Nc() * CommonParameters::Nd(); }
  int field_nex() { return 1; }

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