portelli/Grid
1
0
Fork 0
mirror of https://github.com/paboyle/Grid.git synced 2025-06-12 20:27:06 +01:00
Code Releases Activity

Debugging process for the clover term

Browse Source
This commit is contained in:
Guido Cossu
2017-10-23 18:27:34 +01:00
parent 6391b2a1d0
commit 031c94e02e
3 changed files with 65 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/qcd/action/fermion/WilsonCloverFermion.cc
View File

@ -71,10 +71,10 @@ void WilsonCloverFermion<Impl>::ImportGauge(const GaugeField &_Umu)
GridBase *grid = _Umu._grid;
typename Impl::GaugeLinkField Bx(grid), By(grid), Bz(grid), Ex(grid), Ey(grid), Ez(grid);
// Compute the field strength terms
WilsonLoops<Impl>::FieldStrength(Bx, _Umu, Ydir, Zdir);
// Compute the field strength terms mu>nu
WilsonLoops<Impl>::FieldStrength(Bx, _Umu, Zdir, Ydir);
WilsonLoops<Impl>::FieldStrength(By, _Umu, Zdir, Xdir);
WilsonLoops<Impl>::FieldStrength(Bz, _Umu, Xdir, Ydir);
WilsonLoops<Impl>::FieldStrength(Bz, _Umu, Ydir, Xdir);
WilsonLoops<Impl>::FieldStrength(Ex, _Umu, Tdir, Xdir);
WilsonLoops<Impl>::FieldStrength(Ey, _Umu, Tdir, Ydir);
WilsonLoops<Impl>::FieldStrength(Ez, _Umu, Tdir, Zdir);
@ -86,7 +86,7 @@ void WilsonCloverFermion<Impl>::ImportGauge(const GaugeField &_Umu)
CloverTerm += fillCloverXT(Ex);
CloverTerm += fillCloverYT(Ey);
CloverTerm += fillCloverZT(Ez);
CloverTerm *= 0.5 * csw; // FieldStrength normalization? should be ( -i/8 ). Is it the anti-symmetric combination?
CloverTerm *= (0.5) * csw;
int lvol = _Umu._grid->lSites();
@ -232,7 +232,8 @@ void WilsonCloverFermion<Impl>::MooeeInternal(const FermionField &in, FermionFie
out = *Clover * in;
} else {
Clover = (inv) ? &CloverTermInv : &CloverTerm;
out = adj(*Clover) * in;
//out = adj(*Clover) * in;
out = adj(CloverTerm) * in;
}

24
lib/qcd/action/fermion/WilsonCloverFermion.h
View File

@ -156,10 +156,10 @@ private:
PARALLEL_FOR_LOOP
for (int i = 0; i < CloverTerm._grid->oSites(); i++)
{
T._odata[i]()(0, 1) = timesI(F._odata[i]()()); //fixed
T._odata[i]()(1, 0) = timesI(F._odata[i]()()); //fixed
T._odata[i]()(2, 3) = timesMinusI(F._odata[i]()()); //fixed
T._odata[i]()(3, 2) = timesMinusI(F._odata[i]()()); //fixed
T._odata[i]()(0, 1) = timesI(F._odata[i]()());
T._odata[i]()(1, 0) = timesI(F._odata[i]()());
T._odata[i]()(2, 3) = timesMinusI(F._odata[i]()());
T._odata[i]()(3, 2) = timesMinusI(F._odata[i]()());
}
return T;
@ -172,10 +172,10 @@ private:
PARALLEL_FOR_LOOP
for (int i = 0; i < CloverTerm._grid->oSites(); i++)
{
T._odata[i]()(0, 1) = -(F._odata[i]()()); //fixed
T._odata[i]()(1, 0) = (F._odata[i]()()); //fixed
T._odata[i]()(2, 3) = (F._odata[i]()()); //fixed
T._odata[i]()(3, 2) = -(F._odata[i]()()); //fixed
T._odata[i]()(0, 1) = -(F._odata[i]()());
T._odata[i]()(1, 0) = (F._odata[i]()());
T._odata[i]()(2, 3) = (F._odata[i]()());
T._odata[i]()(3, 2) = -(F._odata[i]()());
}
return T;
@ -188,10 +188,10 @@ private:
PARALLEL_FOR_LOOP
for (int i = 0; i < CloverTerm._grid->oSites(); i++)
{
T._odata[i]()(0, 0) = timesI(F._odata[i]()()); //fixed
T._odata[i]()(1, 1) = timesMinusI(F._odata[i]()()); //fixed
T._odata[i]()(2, 2) = timesMinusI(F._odata[i]()()); //fixed
T._odata[i]()(3, 3) = timesI(F._odata[i]()()); //fixed
T._odata[i]()(0, 0) = timesI(F._odata[i]()());
T._odata[i]()(1, 1) = timesMinusI(F._odata[i]()());
T._odata[i]()(2, 2) = timesMinusI(F._odata[i]()());
T._odata[i]()(3, 3) = timesI(F._odata[i]()());
}
return T;