26 bool init = ForceSmear::Factory::Register(
"APE_SF", create_object);
37 const string str_vlevel = params.
get_string(
"verbose_level");
43 std::vector<double> phi, phipr;
80 for (
int mu = 0; mu <
m_Ndim; ++mu) {
81 for (
int nu = 0; nu <
m_Ndim; ++nu) {
86 for (
int i = 0; i < 3; ++i) {
101 for (
int mu = 0; mu <
m_Ndim; ++mu) {
115 assert(rho.size() == m_Ndim *
m_Ndim);
119 for (
int mu = 0; mu <
m_Ndim; ++mu) {
120 for (
int nu = 0; nu <
m_Ndim; ++nu) {
125 for (
int i = 0; i < 3; ++i) {
145 for (
int mu = 0; mu <
m_Ndim; ++mu) {
146 for (
int nu = 0; nu <
m_Ndim; ++nu) {
182 int NinG = 2 * Nc * Nc;
184 assert(Sigmap.
nin() == NinG);
191 for (
int mu = 0; mu <
m_Ndim; ++mu) {
192 m_U[mu].setpart_ex(0, U, mu);
197 for (
int mu = 0; mu <
m_Ndim; ++mu) {
199 for (
int nu = 0; nu <
m_Ndim; ++nu) {
200 if (nu == mu)
continue;
201 double rho =
m_rho[mu + m_Ndim * nu];
203 C.addpart_ex(0, c_tmp, 0, rho);
206 sigmap_tmp.setpart_ex(0, Sigmap, mu);
208 double alpha =
m_rho[mu + m_Ndim * mu];
210 alpha, sigmap_tmp, C,
m_U[mu]);
215 for (
int mu = 0; mu <
m_Ndim; ++mu) {
216 for (
int nu = 0; nu <
m_Ndim; ++nu) {
217 if (nu == mu)
continue;
218 double rho =
m_rho[mu + m_Ndim * nu];
263 axpy(Sigma_mu, 1.0, vt3);
269 axpy(Sigma_mu, 1.0, vt3);
282 axpy(Sigma_mu, 1.0, vt2);
Bridge::VerboseLevel m_vl
void set_boundary_wkpr(const Mat_SU_N &U)
Set the boundary spatial link at t=Nt-1 for SF bc.
int fetch_double_vector(const string &key, vector< double > &value) const
void set(const int jin, const int site, const int jex, double v)
void force_udiv(Field_G &Sigma, const Field_G &Sigma_p, const Field_G &U)
void general(const char *format,...)
static const std::string class_name
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)
void set_parameters(const Parameters ¶ms)
int fetch_double(const string &key, double &value) const
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_iTheta
void addpart_ex(int ex, const Field &w, int exw)
void force_each(Field_G &, const Field_G &, const Field_G &, const Field_G &, const Field_G &, int mu, int nu)
Base class for force calculation of smeared operators.
std::vector< double > m_rho
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.
double m_phi[3]
SF boundary condition at t=0.
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.
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
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,...)
base class for projection operator into gauge group.
std::vector< Field_G > m_U
double m_phipr[3]
SF boundary condition at t=Nt.
void staple(Field_G &, const Field_G &, const Field_G &, int mu, int nu)
Recursive calculation for APE smeared fermion force.
void setpart_ex(int ex, const Field &w, int exw)
string get_string(const string &key) const
double rho(int mu, int nu)
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)