field_G_SF.cpp

Go to the documentation of this file.

#include "field_G_SF.h"

#ifdef USE_PARAMETERS_FACTORY
#include "parameters_factory.h"
#endif

//- parameter entries
namespace {
  void append_entry(Parameters& param)
  {
    param.Register_double("phi", 0.0);
    param.Register_double("phipr", 0.0);
  }


#ifdef USE_PARAMETERS_FACTORY
  bool init_param = ParametersFactory::Register("Field_G_SF", append_entry);
#endif
}
//- end

//- parameters class
Parameters_Field_G_SF::Parameters_Field_G_SF() { append_entry(*this); }
//- end

//====================================================================

void Field_G_SF::set_boundary_wk(const Mat_SU_N& U)
{
  int mn = 0;

  if (Communicator::ipe(3) == 0) {
    for (int site = 0; site < Svol; ++site) {
      for (int cc = 0; cc < m_Nc * m_Nc; ++cc) {
        field[myindex(2 * cc, site, mn)]     = U.r(cc);
        field[myindex(2 * cc + 1, site, mn)] = U.i(cc);
      }
    }
  }
}


//====================================================================

void Field_G_SF::set_boundary_wkpr(const Mat_SU_N& U)
{
  int mn = 0;

  if (Communicator::ipe(3) == NPEt - 1) {
    for (int site = m_Nvol - Svol; site < m_Nvol; ++site) {
      for (int cc = 0; cc < m_Nc * m_Nc; ++cc) {
        field[myindex(2 * cc, site, mn)]     = U.r(cc);
        field[myindex(2 * cc + 1, site, mn)] = U.i(cc);
      }
    }
  }
}


//====================================================================

void Field_G_SF::set_boundary_zero()
{
  int mn = 0;

  if (Communicator::ipe(3) == 0) {
    for (int site = 0; site < Svol; ++site) {
      for (int cc = 0; cc < 2 * m_Nc * m_Nc; ++cc) {
        field[myindex(cc, site, mn)] = 0.0;
      }
    }
  }
}


//====================================================================

void Field_G_SF::set_boundary_spatial_link_zero()
{
  if (Communicator::ipe(3) == 0) {
    for (int mn = 0; mn < 3; ++mn) {
      for (int site = 0; site < Svol; ++site) {
        for (int cc = 0; cc < 2 * m_Nc * m_Nc; ++cc) {
          field[myindex(cc, site, mn)] = 0.0;
        }
      }
    }
  }
}


//====================================================================

void Field_G_SF::mult_ct_boundary(int t, double ct)
{
  int mn  = 0;
  int ini = Nx * Ny * Nz * t;
  int fin = Nx * Ny * Nz * (t + 1);

  if (((Communicator::ipe(3) == 0) && ((t == 0) || (t == 1))) || ((Communicator::ipe(3) == NPEt - 1) && (t == Nt - 1))) {
    for (int site = ini; site < fin; ++site) {
      for (int cc = 0; cc < 2 * m_Nc * m_Nc; ++cc) {
        field[myindex(cc, site, mn)] *= ct;
      }
    }
  }
}


//====================================================================

void Field_G_SF::set_boundary_wk(Field_G& f)
{
  int mn = 0;

  assert(f.nex() == 1);
  if (Communicator::ipe(3) == 0) {
    for (int site = 0; site < Svol; ++site) {
      f.set_mat(site, mn, wk);
    }
  }
}


//====================================================================

void Field_G_SF::set_boundary_wkpr(Field_G& f)
{
  int mn = 0;

  assert(f.nex() == 1);
  if (Communicator::ipe(3) == NPEt - 1) {
    for (int site = m_Nvol - Svol; site < m_Nvol; ++site) {
      f.set_mat(site, mn, wkpr);
    }
  }
}


//====================================================================

void Field_G_SF::set_boundary_zero(Field_G& f)
{
  int mn = 0;

  assert(f.nex() == 1);
  if (Communicator::ipe(3) == 0) {
    for (int site = 0; site < Svol; ++site) {
      for (int cc = 0; cc < m_Nc * m_Nc; ++cc) {
        f.set_ri(cc, site, mn, 0.0, 0.0);
      }
    }
  }
}


//====================================================================

void Field_G_SF::set_boundary_spatial_link_zero(Field_G& f)
{
  assert(f.nex() >= 3);
  if (Communicator::ipe(3) == 0) {
    for (int mn = 0; mn < 3; ++mn) {
      for (int site = 0; site < Svol; ++site) {
        for (int cc = 0; cc < m_Nc * m_Nc; ++cc) {
          f.set_ri(cc, site, mn, 0.0, 0.0);
        }
      }
    }
  }
}


//====================================================================
void Field_G_SF::set_parameters(const Parameters_Field_G_SF& params)
{
  std::valarray<double> phi   = params.get_double_vector("phi");
  std::valarray<double> phipr = params.get_double_vector("phipr");

  set_parameters(&phi[0], &phipr[0]);
}


//====================================================================
void Field_G_SF::set_parameters(const std::valarray<double>& phi,
                                const std::valarray<double>& phipr)
{
  double aphi[3];
  double aphipr[3];

  for (int i = 0; i < 3; ++i) {
    aphi[i]   = phi[i];
    aphipr[i] = phipr[i];
  }

  set_parameters(aphi, aphipr);
}


//====================================================================
void Field_G_SF::set_parameters(double *phi, double *phipr)
{
  int    Lx = CommonParameters::Lx();
  double c0r, c0i, c1r, c1i, c2r, c2i;

  c0r = cos(phi[0] / Lx);
  c0i = sin(phi[0] / Lx);
  c1r = cos(phi[1] / Lx);
  c1i = sin(phi[1] / Lx);
  c2r = cos(phi[2] / Lx);
  c2i = sin(phi[2] / Lx);

  wk.zero();
  wk.set(0, 0, c0r, c0i);
  wk.set(1, 1, c1r, c1i);
  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);

  wkpr.zero();
  wkpr.set(0, 0, c0r, c0i);
  wkpr.set(1, 1, c1r, c1i);
  wkpr.set(2, 2, c2r, c2i);
}


//====================================================================