25 bool init = ForceSmear::Factory::Register(
"HYP_SF", create_object);
36 const string str_vlevel = params.
get_string(
"verbose_level");
41 double alpha1, alpha2, alpha3;
42 std::vector<double> phi, phipr;
63 double *phi,
double *phipr)
87 for (
int i = 0; i < 3; ++i) {
138 for (
int mu = 0; mu <
m_Ndim; ++mu) {
139 m_U[mu].setpart_ex(0, U, mu);
181 for (
int mu = 0; mu <
m_Ndim; ++mu) {
183 for (
int nu = 0; nu <
m_Ndim; ++nu) {
184 if (nu == mu)
continue;
186 C.addpart_ex(0, c_tmp, 0);
190 Sigmap_tmp.setpart_ex(0, Sigmap, mu);
196 for (
int mu = 0; mu <
m_Ndim; ++mu) {
197 for (
int nu = 0; nu <
m_Ndim; ++nu) {
198 if (nu == mu)
continue;
227 for (
int mu = 0; mu <
m_Ndim; ++mu) {
228 for (
int nu = 0; nu <
m_Ndim; ++nu) {
229 if (nu == mu)
continue;
233 for (
int rho = 0; rho <
m_Ndim; ++rho) {
234 if ((rho == mu) || (rho == nu))
continue;
237 C.addpart_ex(0, c_tmp, 0);
247 for (
int mu = 0; mu <
m_Ndim; ++mu) {
248 for (
int nu = 0; nu <
m_Ndim; ++nu) {
249 if (nu == mu)
continue;
250 for (
int rho = 0; rho <
m_Ndim; ++rho) {
251 if ((rho == mu) || (rho == nu))
continue;
278 for (
int mu = 0; mu <
m_Ndim; ++mu) {
279 for (
int nu = 0; nu <
m_Ndim; ++nu) {
280 if (nu == mu)
continue;
281 for (
int rho = 0; rho <
m_Ndim; ++rho) {
282 if ((rho == mu) || (rho == nu))
continue;
284 int sig = 6 - mu - nu - rho;
295 for (
int mu = 0; mu <
m_Ndim; ++mu) {
296 for (
int nu = 0; nu <
m_Ndim; ++nu) {
297 if (nu == mu)
continue;
298 for (
int rho = 0; rho <
m_Ndim; ++rho) {
299 if ((rho == mu) || (rho == nu))
continue;
300 int sig = 6 - mu - nu - rho;
349 axpy(Sigma_mu, 1.0, vt3);
355 axpy(Sigma_mu, 1.0, vt3);
368 axpy(Sigma_mu, 1.0, vt2);
384 for (
int mu = 0; mu <
m_Ndim; ++mu) {
385 for (
int nu = 0; nu <
m_Ndim; ++nu) {
386 if (nu == mu)
continue;
387 for (
int rho = nu + 1; rho <
m_Ndim; ++rho) {
388 if (rho == mu)
continue;
389 int sig = 6 - mu - nu - rho;
405 for (
int mu = 0; mu <
m_Ndim; ++mu) {
406 for (
int nu = 0; nu <
m_Ndim; ++nu) {
407 if (nu == mu)
continue;
411 for (
int rho = 0; rho <
m_Ndim; ++rho) {
412 if ((rho != mu) && (rho != nu)) {
415 c2.addpart_ex(0, u_tmp, 0);
void scal(Field &x, const double a)
scal(x, a): x = a * x
Bridge::VerboseLevel m_vl
static const std::string class_name
void set_boundary_zero()
Set the boundary matrix to 0 for SF bc.
void set_boundary_wkpr(const Mat_SU_N &U)
Set the boundary spatial link at t=Nt-1 for SF bc.
void force_udiv(Field_G &Sigma, const Field_G &Sigma_p, const Field_G &U)
int fetch_double_vector(const string &key, vector< double > &value) const
void set(const int jin, const int site, const int jex, double v)
double m_phi[3]
SF boundary condition at t=0.
void general(const char *format,...)
void multadd_Field_Gnd(Field_G &W, const int ex, const Field_G &U1, const int ex1, const Field_G &U2, const int ex2, const double ff)
int fetch_double(const string &key, double &value) const
std::vector< Field_G > m_iTheta2
void mult_Field_Gdn(Field_G &W, const int ex, const Field_G &U1, const int ex1, const Field_G &U2, const int ex2)
std::vector< Field_G > m_Sigma2
void force_step2(Field_G &)
void addpart_ex(int ex, const Field &w, int exw)
void set_parameters(const Parameters ¶ms)
Base class for force calculation of smeared operators.
void set_boundary_spatial_link_zero()
Set the boundary spatial link to 0 for SF bc.
virtual void force_recursive(Field_G &Xi, Field_G &iTheta, double alpha, const Field_G &Sigmap, const Field_G &C, const Field_G &U)=0
determination of fields for force calculation
void set_parameters(const std::vector< double > &phi, const std::vector< double > &phipr)
Set the parameter by giving vector objects.
void mult_Field_Gdd(Field_G &W, const int ex, const Field_G &U1, const int ex1, const Field_G &U2, const int ex2)
void set_boundary_wk(const Mat_SU_N &U)
Set the boundary spatial link at t=0 for SF bc.
std::vector< Field_G > m_iTheta3
std::vector< Field_G > m_v1
void backward(Field &, const Field &, const int mu)
void axpy(Field &y, const double a, const Field &x)
axpy(y, a, x): y := a * x + y
std::vector< Field_G > m_Sigma3
Recursive calculation of HYP smeared fermion force with SF BC.
void mult_Field_Gnn(Field_G &W, const int ex, const Field_G &U1, const int ex1, const Field_G &U2, const int ex2)
void crucial(const char *format,...)
std::vector< Field_G > m_v2
base class for projection operator into gauge group.
void staple(Field_G &, const Field_G &, const Field_G &, int mu, int nu)
void force_each(Field_G &, const Field_G &, const Field_G &, const Field_G &, const Field_G &, int mu, int nu)
std::vector< Field_G > m_U
int idx1b(int mu, int nu, int rho)
void force_step3(Field_G &, const Field_G &)
int idx1(int mu, int nu, int rho)
virtual void project(Field_G &v, double alpha, const Field_G &C, const Field_G &U)=0
projection V = P[alpha, C, U]
string get_string(const string &key) const
double m_phipr[3]
SF boundary condition at t=Nt.
void force_step1(Field_G &)
static VerboseLevel set_verbose_level(const std::string &str)
void forward(Field &, const Field &, const int mu)
void mult_Field_Gnd(Field_G &W, const int ex, const Field_G &U1, const int ex1, const Field_G &U2, const int ex2)
std::vector< Field_G > m_iTheta1