mirror of
https://github.com/paboyle/Grid.git
synced 2024-11-10 15:55:37 +00:00
aa52fdadcc
preparing to pass integrator, smearing, bc's as policy classes to hmc. Propose to unify "integrator" and integrator algorithm in a base/derived way to override step. Want to read through ForceGradient to ensure that abstraction covers the force gradient case.
54 lines
1.5 KiB
C++
54 lines
1.5 KiB
C++
#ifndef QCD_WILSON_GAUGE_ACTION_H
|
|
#define QCD_WILSON_GAUGE_ACTION_H
|
|
|
|
namespace Grid{
|
|
namespace QCD{
|
|
|
|
////////////////////////////////////////////////////////////////////////
|
|
// Wilson Gauge Action .. should I template the Nc etc..
|
|
////////////////////////////////////////////////////////////////////////
|
|
template<class GaugeField>
|
|
class WilsonGaugeAction : public Action<GaugeField> {
|
|
public:
|
|
|
|
typedef LorentzScalar<GaugeField> GaugeLinkField;
|
|
|
|
private:
|
|
RealD beta;
|
|
public:
|
|
WilsonGaugeAction(RealD b):beta(b){};
|
|
|
|
virtual void init(const GaugeField &U, GridParallelRNG& pRNG) {};
|
|
|
|
virtual RealD S(const GaugeField &U) {
|
|
RealD plaq = WilsonLoops<GaugeField>::avgPlaquette(U);
|
|
std::cout<<GridLogMessage << "Plaq : "<<plaq << "\n";
|
|
RealD vol = U._grid->gSites();
|
|
RealD action=beta*(1.0 -plaq)*(Nd*(Nd-1.0))*vol*0.5;
|
|
std::cout << GridLogMessage << "WilsonGauge action "<<action<<std::endl;
|
|
return action;
|
|
};
|
|
|
|
virtual void deriv(const GaugeField &U,GaugeField & dSdU) {
|
|
//not optimal implementation FIXME
|
|
//extend Ta to include Lorentz indexes
|
|
RealD factor = 0.5*beta/RealD(Nc);
|
|
GaugeLinkField Umu(U._grid);
|
|
GaugeLinkField dSdU_mu(U._grid);
|
|
for (int mu=0; mu < Nd; mu++){
|
|
|
|
Umu = PeekIndex<LorentzIndex>(U,mu);
|
|
|
|
// Staple in direction mu
|
|
WilsonLoops<GaugeField>::Staple(dSdU_mu,U,mu);
|
|
dSdU_mu = Ta(Umu*adj(dSdU_mu))*factor;
|
|
pokeLorentz(dSdU, dSdU_mu, mu);
|
|
}
|
|
};
|
|
};
|
|
|
|
}
|
|
}
|
|
|
|
#endif
|