25 bool init = Action::Factory::Register(
"Action_G_Rectangle_SF", create_object);
56 #ifdef USE_PARAMETERS_FACTORY
71 const string str_vlevel = params.
get_string(
"verbose_level");
76 double beta, c_plaq, c_rect;
77 double ct0, ct1, ct2, ctr0, ctr1, ctr2;
78 std::vector<double> phi, phipr;
102 double gg = 6.0 / beta;
104 double ct = ct0 + ct1 * gg + ct2 * gg * gg;
105 double ctr = ctr0 + ctr1 * gg + ctr2 * gg * gg;
107 set_parameters(beta, c_plaq, c_rect, &phi[0], &phipr[0], ct, ctr);
127 double *phi,
double *phipr,
double ct,
double ctr)
160 double c0r, c0i, c1r, c1i, c2r, c2i;
161 c0r = cos(phi[0] / Lx);
162 c0i = sin(phi[0] / Lx);
163 c1r = cos(phi[1] / Lx);
164 c1i = sin(phi[1] / Lx);
165 c2r = cos(phi[2] / Lx);
166 c2i = sin(phi[2] / Lx);
168 wk.
set(0, 0, c0r, c0i);
169 wk.
set(1, 1, c1r, c1i);
170 wk.
set(2, 2, c2r, c2i);
172 c0r = cos(phipr[0] / Lx);
173 c0i = sin(phipr[0] / Lx);
174 c1r = cos(phipr[1] / Lx);
175 c1i = sin(phipr[1] / Lx);
176 c2r = cos(phipr[2] / Lx);
177 c2i = sin(phipr[2] / Lx);
186 int NinG = 2 *
Nc *
Nc;
193 double H_U =
calcH();
273 for (
int mu = 0; mu < Ndim; ++mu) {
274 for (
int nu = mu + 1; nu < Ndim; ++nu) {
287 for (
int site = 0; site < Nvol; ++site) {
316 for (
int site = 0; site < Nvol; ++site) {
331 for (
int site = 0; site < Nvol; ++site) {
426 assert(
m_U->
nex() == Ndim);
428 assert(force.
nin() ==
Nc *
Nc * 2);
429 assert(force.
nvol() == Nvol);
430 assert(force.
nex() == Ndim);
451 for (
int mu = 0; mu < Ndim; ++mu) {
453 for (
int nu = 0; nu < Ndim; ++nu) {
454 if (nu == mu)
continue;
593 axpy(force, mu, -betaNc, force2, 0);
596 double Fave, Fmax, Fdev;
597 force.
stat(Fave, Fmax, Fdev);
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 Register_string(const string &, const string &)
Parameters_Action_G_Rectangle_SF()
void set(const int jin, const int site, const int jex, double v)
void upper(Field_G_SF &, const Field_G &, const int, const int)
void set_parameters(const Parameters ¶ms)
void mult_Field_Gdn(Field_G &w, const int ex, const Field_G &u1, const int ex1, const Field_G &u2, const int ex2)
void general(const char *format,...)
Container of Field-type object.
static int ipe(const int dir)
logical coordinate of current proc.
void addpart_ex(int ex, const Field &w, int exw)
Base class of HMC action class family.
void mult_ct_boundary(int t, double ct)
Multiply the boundary improvement factor ct or ctr to an SU(N) matrix object which belongs to a site ...
void set_parameters(const Parameters ¶ms)
Mat_SU_N wk
SF boundary condition.
void mult_Field_Gnd(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 mult_Field_Gnn(Field_G &w, const int ex, const Field_G &u1, const int ex1, const Field_G &u2, const int ex2)
double m_ct
SF boundary improvement coefficient for the plaquatte action.
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 at_Field_G(Field_G &w, const int ex)
void crucial(const char *format,...)
static bool Register(const std::string &realm, const creator_callback &cb)
Bridge::VerboseLevel m_vl
Base class of random number generators.
double m_ctr
SF boundary improvement coefficient for the rectangle action.
void Register_double_vector(const string &, const std::vector< double > &)
static const std::string class_name
void lower(Field_G_SF &, const Field_G &, const int, const int)
void stat(double &Fave, double &Fmax, double &Fdev) const
determines the statistics of the field. average, maximum value, and deviation is determined over glob...
Mat_SU_N mat_dag(const int site, const int mn=0) const
double langevin(RandomNumbers *)
Langevis step.
int fetch_double_vector(const string &key, std::vector< double > &val) const
static int reduce_sum(int count, double *recv_buf, double *send_buf, int pattern=0)
make a global sum of an array of double over the communicator. pattern specifies the dimensions to be...
void Register_double(const string &, const double)
void set(int c, double re, const double &im)
void setpart_ex(int ex, const Field &w, int exw)
int fetch_double(const string &key, double &val) const
string get_string(const string &key) const
Mat_SU_N mat(const int site, const int mn=0) const
static VerboseLevel set_verbose_level(const std::string &str)
double ReTr(const Mat_SU_N &m)
void forward(Field &, const Field &, const int mu)