action_G_Rectangle_SF.cpp

Go to the documentation of this file.

 
#include "action_G_Rectangle_SF.h"
 
#ifdef USE_FACTORY_AUTOREGISTER
namespace {
  bool init = Action_G_Rectangle_SF::register_factory();
}
#endif
 
const std::string Action_G_Rectangle_SF::class_name = "Action_G_Rectangle_SF";
 
//====================================================================
void Action_G_Rectangle_SF::set_parameters(const Parameters& params)
{
  std::string vlevel;
  if (!params.fetch_string("verbose_level", vlevel)) {
    m_vl = vout.set_verbose_level(vlevel);
  }
 
  //- fetch and check input parameters
  double              beta, c_plaq, c_rect;
  double              ct0, ct1, ct2, ctr0, ctr1, ctr2;
  std::vector<double> phi, phipr;
 
  int err = 0;
  err += params.fetch_double("beta", beta);
  err += params.fetch_double("c_plaq", c_plaq);
  err += params.fetch_double("c_rect", c_rect);
 
  err += params.fetch_double("ct0", ct0);
  err += params.fetch_double("ct1", ct1);
  err += params.fetch_double("ct2", ct2);
 
  err += params.fetch_double("ctr0", ctr0);
  err += params.fetch_double("ctr1", ctr1);
  err += params.fetch_double("ctr2", ctr2);
 
  err += params.fetch_double_vector("phi", phi);
  err += params.fetch_double_vector("phipr", phipr);
 
  if (err) {
    vout.crucial(m_vl, "Error at %s: input parameter not found.\n", class_name.c_str());
    exit(EXIT_FAILURE);
  }
 
 
  const double gg = 6.0 / beta;
 
  const double ct  = ct0 + ct1 * gg + ct2 * gg * gg;
  const double ctr = ctr0 + ctr1 * gg + ctr2 * gg * gg;
 
  set_parameters(beta, c_plaq, c_rect, &phi[0], &phipr[0], ct, ctr);
 
  //- post-process
  m_force_G->set_parameters(params);
}
 
 
//====================================================================
void Action_G_Rectangle_SF::get_parameters(Parameters& params) const
{
  params.set_double("beta", m_beta);
  params.set_double("c_plaq", m_c_plaq);
  params.set_double("c_rect", m_c_rect);
 
  // params.set_double("ct0", m_ct0);
  // params.set_double("ct1", m_ct1);
  // params.set_double("ct2", m_ct2);
 
  // params.set_double("ctr0", m_ctr0);
  // params.set_double("ctr1", m_ctr1);
  // params.set_double("ctr2", m_ctr2);
 
  params.set_double_vector("phi", m_phi);
  params.set_double_vector("phipr", m_phipr);
 
  params.set_double("ct", m_ct);
  params.set_double("ctr", m_ctr);
 
  params.set_string("verbose_level", vout.get_verbose_level(m_vl));
}
 
 
//====================================================================
 
void Action_G_Rectangle_SF::set_parameters(const double beta, const double c_plaq, const double c_rect,
                                           double *phi, double *phipr,
                                           const double ct, const double ctr)
{
  //- print input parameters
  vout.general(m_vl, "%s:\n", class_name.c_str());
  vout.general(m_vl, "  beta   = %12.6f\n", beta);
  vout.general(m_vl, "  c_plaq = %12.6f\n", c_plaq);
  vout.general(m_vl, "  c_rect = %12.6f\n", c_rect);
  vout.general(m_vl, "  phi1   = %12.6f\n", phi[0]);
  vout.general(m_vl, "  phi2   = %12.6f\n", phi[1]);
  vout.general(m_vl, "  phi3   = %12.6f\n", phi[2]);
  vout.general(m_vl, "  phipr1 = %12.6f\n", phipr[0]);
  vout.general(m_vl, "  phipr2 = %12.6f\n", phipr[1]);
  vout.general(m_vl, "  phipr3 = %12.6f\n", phipr[2]);
  vout.general(m_vl, "  ct     = %12.6f\n", ct);
  vout.general(m_vl, "  ctr    = %12.6f\n", ctr);
 
  //- range check
  // NB. beta,c_plaq,c_rect,phi,phipr,ct,ctr = 0 is allowed.
 
  //- store values
  m_beta   = beta;
  m_c_plaq = c_plaq;
  m_c_rect = c_rect;
 
  m_ct  = ct;
  m_ctr = ctr;
 
  //  m_phi = std::vector<double>(phi, phi+3);
  //  m_phipr = std::vector<double>(phipr, phipr+3);
  m_phi.resize(3);
  m_phipr.resize(3);
  for (int i = 0; i < 3; ++i) {
    m_phi[i]   = phi[i];
    m_phipr[i] = phipr[i];
  }
 
  //- post-process
  m_staple.set_parameters(m_phi, m_phipr);
 
  const int Lx = CommonParameters::Lx();
 
  double c0r = cos(phi[0] / Lx);
  double c0i = sin(phi[0] / Lx);
  double c1r = cos(phi[1] / Lx);
  double c1i = sin(phi[1] / Lx);
  double c2r = cos(phi[2] / Lx);
  double c2i = sin(phi[2] / Lx);
  m_wk.zero();
  m_wk.set(0, 0, c0r, c0i);
  m_wk.set(1, 1, c1r, c1i);
  m_wk.set(2, 2, c2r, c2i);
 
  c0r = cos(phipr[0] / Lx);
  c0i = sin(phipr[0] / Lx);
  c1r = cos(phipr[1] / Lx);
  c1i = sin(phipr[1] / Lx);
  c2r = cos(phipr[2] / Lx);
  c2i = sin(phipr[2] / Lx);
  m_wkpr.zero();
  m_wkpr.set(0, 0, c0r, c0i);
  m_wkpr.set(1, 1, c1r, c1i);
  m_wkpr.set(2, 2, c2r, c2i);
}
 
 
//====================================================================
double Action_G_Rectangle_SF::langevin(RandomNumbers *rand)
{
  const double H_U = calcH();
 
  return H_U;
}
 
 
//====================================================================
 
double Action_G_Rectangle_SF::calcH()
{
  const int Ndim = CommonParameters::Ndim();
  const int Nvol = CommonParameters::Nvol();
 
  const int Nt   = CommonParameters::Nt();
  const int NPEt = CommonParameters::NPEt();
 
  vout.general(m_vl, "  %s: %s\n", class_name.c_str(), m_label.c_str());
 
  double plaqF = 0.0;
  double rectF = 0.0;
 
  for (int mu = 0; mu < Ndim; ++mu) {
    for (int nu = mu + 1; nu < Ndim; ++nu) {
      Field_G Cup1;
      m_staple.upper(Cup1, *m_U, mu, nu);
 
      Field_G Cup2;
      m_staple.upper(Cup2, *m_U, nu, mu);
 
      // plaquette term
      Field_G Unu = Cup2;
      // If the node is at the boundary the temporal plaquette is multiplied with ct.
      if ((nu == 3) && (Communicator::ipe(3) == 0)) {
        //Unu.mult_ct_boundary(0, m_ct);
        Field_SF::mult_ct_boundary(Unu, 0, m_ct);
      }
      if ((nu == 3) && (Communicator::ipe(3) == NPEt - 1)) {
        Field_SF::mult_ct_boundary(Unu, Nt - 1, m_ct);
      }
      for (int site = 0; site < Nvol; ++site) {
        plaqF += ReTr(m_U->mat(site, nu) * Unu.mat_dag(site));
      }
 
      // rectangular terms
 
      //      +---+---+
      //      |       |   term
      //      x   <---+
      Field_G Umu;
      Umu.setpart_ex(0, *m_U, mu);
      Unu.setpart_ex(0, *m_U, nu);
      if ((Communicator::ipe(3) == 0) && (nu == 3)) {
        Field_SF::set_boundary_wk(Umu, m_wk);
      }
 
      Field_G v;
      m_shift.backward(v, Cup2, mu);
 
      Field_G c;
      m_shift.backward(c, Umu, nu);
      if ((Communicator::ipe(3) == 0) && (nu == 3)) {
        Field_SF::mult_ct_boundary(c, 0, m_ctr);
      }
      if ((Communicator::ipe(3) == NPEt - 1) && (nu == 3)) {
        Field_SF::set_boundary_wkpr(c, m_wkpr);
        Field_SF::mult_ct_boundary(c, Nt - 1, m_ctr);
      }
 
      Field_G w;
      mult_Field_Gnd(w, 0, c, 0, v, 0);
 
      mult_Field_Gnn(c, 0, Unu, 0, w, 0);
      for (int site = 0; site < Nvol; ++site) {
        rectF += ReTr(Umu.mat(site) * c.mat_dag(site));
      }
 
      //      +---+
      //      |   |
      //      +   +   term
      //      |   |
      //      x   v
 
      m_shift.backward(v, Unu, mu);
      m_shift.backward(c, Cup1, nu);
 
      mult_Field_Gnd(w, 0, c, 0, v, 0);
      mult_Field_Gnn(c, 0, Unu, 0, w, 0);
      for (int site = 0; site < Nvol; ++site) {
        rectF += ReTr(Umu.mat(site) * c.mat_dag(site));
      }
    }
  }
 
  plaqF = Communicator::reduce_sum(plaqF);
  rectF = Communicator::reduce_sum(rectF);
 
  //  double plaq = plaqF/Nc;
  //  vout.general(m_vl,"    Plaquette    = %18.8f\n",plaq/size_U);
 
  //  double H_U =  m_c_plaq * (Ndim2*Lvol - plaqF/Nc)
  //              + m_c_rect * (Ndim2*Lvol*2 - rectF/Nc);
  double H_U = m_c_plaq * (-plaqF / m_Nc)
               + m_c_rect * (-rectF / m_Nc);
 
  H_U = m_beta * H_U;
 
  vout.general(m_vl, "    H_Grectangle = %18.8f\n", H_U);
  //  vout.general(m_vl,"    H_G/dof      = %18.8f\n",H_U/size_U);
 
  return H_U;
}
 
 
//====================================================================
 
void Action_G_Rectangle_SF::force(Field& force)
{
  //- check of argument type
  assert(force.nin() == m_U->nin());
  assert(force.nvol() == m_U->nvol());
  assert(force.nex() == m_U->nex());
 
  vout.general(m_vl, "  %s: %s\n", class_name.c_str(), m_label.c_str());
 
  force.set(0.0);
 
  m_force_G->force_core(force, m_U);
}
 
 
//====================================================================
//============================================================END=====