source_Wall_SF.cpp

Go to the documentation of this file.

 
#include "source_Wall_SF.h"
 
const std::string Source_Wall_SF::class_name = "Source_Wall_SF";
 
//====================================================================
void Source_Wall_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 ct_tilde;
 
  int err = 0;
  err += params.fetch_double("ct_tilde", ct_tilde);
 
  if (err) {
    vout.crucial(m_vl, "Error at %s: input parameter not found.\n", class_name.c_str());
    exit(EXIT_FAILURE);
  }
 
  set_parameters(ct_tilde);
}
 
 
//====================================================================
void Source_Wall_SF::get_parameters(Parameters& params) const
{
  params.set_double("ct_tilde", m_ct_tilde);
 
  params.set_string("verbose_level", vout.get_verbose_level(m_vl));
}
 
 
//====================================================================
void Source_Wall_SF::set_parameters(const double ct_tilde)
{
  //- print input parameters
  vout.general(m_vl, "%s:\n", class_name.c_str());
  vout.general(m_vl, "  ct_tilde = %10.6f\n", ct_tilde);
 
  //- range check
  // NB. ct_tilde=0 is allowed.
 
  //- store values
  m_ct_tilde = ct_tilde;
}
 
 
//====================================================================
void Source_Wall_SF::set_parameters(Field_G *U, const double ct_tilde)
{
  //- print input parameters
  vout.general(m_vl, "%s:\n", class_name.c_str());
  vout.general(m_vl, "  ct_tilde = %10.6f\n", ct_tilde);
 
  //- range check
  // NB. ct_tilde=0 is allowed.
 
  //- store values
  m_U        = U;
  m_ct_tilde = ct_tilde;
}
 
 
//====================================================================
 
void Source_Wall_SF::set_parameters(Field_G *U, Director_Smear *dr_smear,
                                    const double ct_tilde)
{
  //- print input parameters
  vout.general(m_vl, "%s:\n", class_name.c_str());
  vout.general(m_vl, "  ct_tilde = %10.6f\n", ct_tilde);
 
  //- range check
  // NB. ct_tilde=0 is allowed.
 
  //- store values
  dr_smear->set_config(U);
  const int Nsmear = dr_smear->get_Nsmear();
  m_U = (Field_G *)dr_smear->getptr_smearedConfig(Nsmear);
 
  m_ct_tilde = ct_tilde;
}
 
 
//====================================================================
 
void Source_Wall_SF::set_t0(Field_F& src, const int ic, const int id)
{
  const int Nvol = CommonParameters::Nvol();
  const int Ndim = CommonParameters::Ndim();
 
  std::vector<int> Nsize(Ndim);
 
  Nsize[0] = CommonParameters::Nx();
  Nsize[1] = CommonParameters::Ny();
  Nsize[2] = CommonParameters::Nz();
  Nsize[3] = CommonParameters::Nt();
 
  const int Nc = CommonParameters::Nc();
  const int Nd = CommonParameters::Nd();
 
  assert(ic < Nc);
  assert(id < Nd / 2);
  assert(src.nvol() == Nvol);
  assert(src.nex() == 1);
 
  Mat_SU_N u0dag(Nc);
  src.set(0.0);
 
  if (Communicator::ipe(3) == 0) {
    const int t = 1;
 
    for (int z = 0; z < Nsize[2]; ++z) {
      for (int y = 0; y < Nsize[1]; ++y) {
        for (int x = 0; x < Nsize[0]; ++x) {
          int site  = m_index.site(x, y, z, t);
          int site0 = m_index.site(x, y, z, t - 1);
 
          u0dag = m_U->mat_dag(site0, 3);
 
          for (int ac = 0; ac < Nc; ++ac) {
            src.set_ri(ac, id, site, 0, u0dag.r(ac, ic), u0dag.i(ac, ic));
          }
        }
      }
    }
    scal(src, m_ct_tilde);
  }
}
 
 
//====================================================================
 
void Source_Wall_SF::set_tT(Field_F& src, const int ic, const int id)
{
  const int NPEt = CommonParameters::NPEt();
  const int Nvol = CommonParameters::Nvol();
  const int Ndim = CommonParameters::Ndim();
 
  std::vector<int> Nsize(Ndim);
 
  Nsize[0] = CommonParameters::Nx();
  Nsize[1] = CommonParameters::Ny();
  Nsize[2] = CommonParameters::Nz();
  Nsize[3] = CommonParameters::Nt();
 
  const int Nc = CommonParameters::Nc();
  const int Nd = CommonParameters::Nd();
 
  assert(ic < Nc);
  assert(id > Nd / 2 - 1);
  assert(id < Nd);
  assert(src.nvol() == Nvol);
  assert(src.nex() == 1);
 
  Mat_SU_N u0(Nc);
  src.set(0.0);
 
  if (Communicator::ipe(3) == (NPEt - 1)) {
    const int t = Nsize[3] - 1;
 
    for (int z = 0; z < Nsize[2]; ++z) {
      for (int y = 0; y < Nsize[1]; ++y) {
        for (int x = 0; x < Nsize[0]; ++x) {
          int site = m_index.site(x, y, z, t);
          u0 = m_U->mat(site, 3);
 
          for (int ac = 0; ac < Nc; ++ac) {
            src.set_ri(ac, id, site, 0, u0.r(ac, ic), u0.i(ac, ic));
          }
        }
      }
    }
    scal(src, m_ct_tilde);
  }
}
 
 
//====================================================================
//============================================================END=====