portelli/Grid
1
0
Fork 0
mirror of https://github.com/paboyle/Grid.git synced 2025-11-04 05:54:32 +00:00
Code Releases Activity

updated test clover + first attempt derivative clove term (still missing spin part)

Browse Source
This commit is contained in:
pretidav
2017-10-16 02:47:33 +02:00
parent d810e8c8fb
commit 317ddfedee
3 changed files with 180 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -46,7 +46,6 @@ RealD WilsonCloverFermion<Impl>::M(const FermionField &in, FermionField &out)
// apply the sigma and Fmunu // apply the sigma and Fmunu
FermionField temp(out._grid); FermionField temp(out._grid);
Mooee(in, temp); Mooee(in, temp);
// overall factor
out += temp; out += temp;
return axpy_norm(out, 4 + this->mass, in, out); return axpy_norm(out, 4 + this->mass, in, out);
} }
@@ -89,6 +88,7 @@ void WilsonCloverFermion<Impl>::ImportGauge(const GaugeField &_Umu)
CloverTerm += fillCloverZT(Ez); CloverTerm += fillCloverZT(Ez);
CloverTerm *= 0.5 * csw; // FieldStrength normalization? should be ( -i/8 ). Is it the anti-symmetric combination? CloverTerm *= 0.5 * csw; // FieldStrength normalization? should be ( -i/8 ). Is it the anti-symmetric combination?
int lvol = _Umu._grid->lSites(); int lvol = _Umu._grid->lSites();
int DimRep = Impl::Dimension; int DimRep = Impl::Dimension;
@@ -98,20 +98,21 @@ void WilsonCloverFermion<Impl>::ImportGauge(const GaugeField &_Umu)
std::vector<int> lcoor; std::vector<int> lcoor;
typename SiteCloverType::scalar_object Qx = zero, Qxinv = zero; typename SiteCloverType::scalar_object Qx = zero, Qxinv = zero;
for (int site = 0; site < lvol; site++) for (int site = 0; site < lvol; site++)
{ {
grid->LocalIndexToLocalCoor(site, lcoor); grid->LocalIndexToLocalCoor(site, lcoor);
EigenCloverOp = Eigen::MatrixXcd::Zero(Ns * DimRep, Ns * DimRep); EigenCloverOp = Eigen::MatrixXcd::Zero(Ns * DimRep, Ns * DimRep);
peekLocalSite(Qx, CloverTerm, lcoor); peekLocalSite(Qx, CloverTerm, lcoor);
Qxinv = zero; Qxinv = zero;
//if (csw!=0){
for (int j = 0; j < Ns; j++) for (int j = 0; j < Ns; j++)
for (int k = 0; k < Ns; k++) for (int k = 0; k < Ns; k++)
for (int a = 0; a < DimRep; a++) for (int a = 0; a < DimRep; a++)
for (int b = 0; b < DimRep; b++) for (int b = 0; b < DimRep; b++)
EigenCloverOp(a + j * DimRep, b + k * DimRep) = Qx()(j, k)(a, b); EigenCloverOp(a + j * DimRep, b + k * DimRep) = Qx()(j, k)(a, b);
// if (site==0) std::cout << "site =" << site << "\n" << EigenCloverOp << std::endl; // if (site==0) std::cout << "site =" << site << "\n" << EigenCloverOp << std::endl;
EigenInvCloverOp = EigenCloverOp.inverse(); EigenInvCloverOp = EigenCloverOp.inverse();
//std::cout << EigenInvCloverOp << std::endl; //std::cout << EigenInvCloverOp << std::endl;
for (int j = 0; j < Ns; j++) for (int j = 0; j < Ns; j++)
@@ -120,9 +121,11 @@ void WilsonCloverFermion<Impl>::ImportGauge(const GaugeField &_Umu)
for (int b = 0; b < DimRep; b++) for (int b = 0; b < DimRep; b++)
Qxinv()(j, k)(a, b) = EigenInvCloverOp(a + j * DimRep, b + k * DimRep); Qxinv()(j, k)(a, b) = EigenInvCloverOp(a + j * DimRep, b + k * DimRep);
// if (site==0) std::cout << "site =" << site << "\n" << EigenInvCloverOp << std::endl; // if (site==0) std::cout << "site =" << site << "\n" << EigenInvCloverOp << std::endl;
// }
pokeLocalSite(Qxinv, CloverTermInv, lcoor); pokeLocalSite(Qxinv, CloverTermInv, lcoor);
} }
// Separate the even and odd parts. // Separate the even and odd parts.
pickCheckerboard(Even, CloverTermEven, CloverTerm); pickCheckerboard(Even, CloverTermEven, CloverTerm);
@@ -180,7 +183,7 @@ void WilsonCloverFermion<Impl>::MooeeInternal(const FermionField &in, FermionFie
if (dag){ if (dag){
if (in._grid->_isCheckerBoarded){ if (in._grid->_isCheckerBoarded){
if (in.checkerboard == Odd){ if (in.checkerboard == Odd){
std::cout << "Calling clover term adj Odd" << std::endl; // std::cout << "Calling clover term adj Odd" << std::endl;
Clover = (inv) ? &CloverTermInvDagOdd : &CloverTermDagOdd; Clover = (inv) ? &CloverTermInvDagOdd : &CloverTermDagOdd;
/* test /* test
@@ -203,7 +206,7 @@ void WilsonCloverFermion<Impl>::MooeeInternal(const FermionField &in, FermionFie
} else { } else {
std::cout << "Calling clover term adj Even" << std::endl; // std::cout << "Calling clover term adj Even" << std::endl;
Clover = (inv) ? &CloverTermInvDagEven : &CloverTermDagEven; Clover = (inv) ? &CloverTermInvDagEven : &CloverTermDagEven;
/* test /* test
@@ -225,7 +228,7 @@ void WilsonCloverFermion<Impl>::MooeeInternal(const FermionField &in, FermionFie
} }
std::cout << GridLogMessage << "*Clover.checkerboard " << (*Clover).checkerboard << std::endl; // std::cout << GridLogMessage << "*Clover.checkerboard " << (*Clover).checkerboard << std::endl;
out = *Clover * in; out = *Clover * in;
} else { } else {
Clover = (inv) ? &CloverTermInv : &CloverTerm; Clover = (inv) ? &CloverTermInv : &CloverTerm;
@@ -239,14 +242,14 @@ void WilsonCloverFermion<Impl>::MooeeInternal(const FermionField &in, FermionFie
if (in._grid->_isCheckerBoarded){ if (in._grid->_isCheckerBoarded){
if (in.checkerboard == Odd){ if (in.checkerboard == Odd){
std::cout << "Calling clover term Odd" << std::endl; // std::cout << "Calling clover term Odd" << std::endl;
Clover = (inv) ? &CloverTermInvOdd : &CloverTermOdd; Clover = (inv) ? &CloverTermInvOdd : &CloverTermOdd;
} else { } else {
std::cout << "Calling clover term Even" << std::endl; // std::cout << "Calling clover term Even" << std::endl;
Clover = (inv) ? &CloverTermInvEven : &CloverTermEven; Clover = (inv) ? &CloverTermInvEven : &CloverTermEven;
} }
out = *Clover * in; out = *Clover * in;
std::cout << GridLogMessage << "*Clover.checkerboard " << (*Clover).checkerboard << std::endl; // std::cout << GridLogMessage << "*Clover.checkerboard " << (*Clover).checkerboard << std::endl;
} else { } else {
Clover = (inv) ? &CloverTermInv : &CloverTerm; Clover = (inv) ? &CloverTermInv : &CloverTerm;
out = *Clover * in; out = *Clover * in;
@@ -281,8 +284,12 @@ void WilsonCloverFermion<Impl>::MooDeriv(GaugeField &mat, const FermionField &X,
GridBase *grid = mat._grid; GridBase *grid = mat._grid;
//GaugeLinkField Lambdaodd(grid), Lambdaeven(grid), tmp(grid);
//Lambdaodd = zero; //Yodd*dag(Xodd)+Xodd*dag(Yodd); // I have to peek spin and decide the color structure
//Lambdaeven = zero; //Teven*dag(Xeven)+Xeven*dag(Yeven) + 2*(Dee^-1)
GaugeLinkField Lambda(grid), tmp(grid); GaugeLinkField Lambda(grid), tmp(grid);
Lambda = zero; //Y*dag(X)+X*dag(Y); // I have to peek spin and decide the color structure Lambda=zero;
conformable(mat._grid, X._grid); conformable(mat._grid, X._grid);
conformable(Y._grid, X._grid); conformable(Y._grid, X._grid);
@@ -297,37 +304,53 @@ for (int mu = 0; mu < Nd; mu++) {
C1m[mu]=zero; C2m[mu]=zero; C3m[mu]=zero; C4m[mu]=zero; C1m[mu]=zero; C2m[mu]=zero; C3m[mu]=zero; C4m[mu]=zero;
} }
/*
PARALLEL_FOR_LOOP
for (int i = 0; i < CloverTerm._grid->oSites(); i++)
{
T._odata[i]()(0, 1) = timesMinusI(F._odata[i]()());
T._odata[i]()(1, 0) = timesMinusI(F._odata[i]()());
T._odata[i]()(2, 3) = timesMinusI(F._odata[i]()());
T._odata[i]()(3, 2) = timesMinusI(F._odata[i]()());
}
*/
for (int i=0;i<4;i++){ //spin
for(int j=0;j<4;j++){ //spin
for (int mu=0;mu<4;mu++){ //color
for (int nu=0;nu<4;nu++){ //color
for (int mu=0;mu<4;mu++){
for (int nu=0;nu<4;nu++){
// insertion in upper staple // insertion in upper staple
tmp = Impl::CovShiftIdentityBackward(Lambda, nu) * U[nu]; tmp = Lambda * U[nu];
C1p[mu]+= Cshift(Impl::CovShiftForward(tmp, nu, Impl::CovShiftBackward(U[mu], mu, Cshift(U[nu], nu, -1))), mu, 1); C1p[mu]+=Impl::ShiftStaple(Impl::CovShiftForward(tmp, nu, Impl::CovShiftBackward(U[mu], mu, Impl::CovShiftIdentityBackward(U[nu], nu))), mu);
tmp = Impl::CovShiftIdentityForward(Lambda, mu) * U[mu]; tmp = Lambda * U[mu];
C2p[mu]+= Cshift(Impl::CovShiftForward(U[nu], nu, Impl::CovShiftBackward(tmp, mu, Cshift(U[nu], nu, -1))), mu, 1); C2p[mu]+= Impl::ShiftStaple(Impl::CovShiftForward(U[nu], nu, Impl::CovShiftBackward(tmp, mu, Impl::CovShiftIdentityBackward(U[nu], nu))), mu);
tmp = Impl::CovShiftIdentityForward(Lambda, nu) * U[nu]; tmp = Impl::CovShiftIdentityForward(Lambda, nu) * U[nu];
C3p[mu]+= Cshift(Impl::CovShiftForward(U[nu], nu, Impl::CovShiftBackward(U[mu], mu, Cshift(tmp, nu, -1))), mu, 1); C3p[mu]+= Impl::ShiftStaple(Impl::CovShiftForward(U[nu], nu, Impl::CovShiftBackward(U[mu], mu, Impl::CovShiftIdentityBackward(tmp, nu))), mu);
tmp = Lambda; tmp = Lambda;
C4p[mu]+= Cshift(Impl::CovShiftForward(U[nu], nu, Impl::CovShiftBackward(U[mu], mu, Cshift(U[nu], nu, -1))),mu,1) * tmp; C4p[mu]+= Impl::ShiftStaple(Impl::CovShiftForward(U[nu], nu, Impl::CovShiftBackward(U[mu], mu, Impl::CovShiftIdentityBackward(U[nu], nu))),mu) * tmp;
// insertion in lower staple // insertion in lower staple
tmp = Impl::CovShiftIdentityForward(Lambda, nu) * U[nu]; tmp = Lambda * U[nu];
C1m[mu]+= Cshift(Impl::CovShiftBackward(tmp, nu, Impl::CovShiftBackward(U[mu], mu, U[nu])), mu, 1); C1m[mu]+= Impl::ShiftStaple(Impl::CovShiftBackward(tmp, nu, Impl::CovShiftBackward(U[mu], mu, U[nu])), mu);
tmp = Cshift(Cshift(Lambda, nu, 2),mu, 1) * U[mu]; tmp = Lambda * U[mu];
C2m[mu]+= Cshift(Impl::CovShiftBackward(U[nu], nu, Impl::CovShiftBackward(tmp, mu, U[nu])), mu ,1); C2m[mu]+= Impl::ShiftStaple(Impl::CovShiftBackward(U[nu], nu, Impl::CovShiftBackward(tmp, mu, U[nu])), mu);
tmp = Cshift(Lambda, nu, 2) * U[nu]; tmp = Lambda * U[nu];
C3m[mu]+= Cshift(Impl::CovShiftBackward(U[nu], nu, Impl::CovShiftBackward(U[mu], mu, tmp)), mu, 1); C3m[mu]+= Impl::ShiftStaple(Impl::CovShiftBackward(U[nu], nu, Impl::CovShiftBackward(U[mu], mu, tmp)), mu);
tmp = Lambda; tmp = Lambda;
C4m[mu]+= Cshift(Impl::CovShiftBackward(U[nu], nu, Impl::CovShiftBackward(U[mu], mu, U[nu])), mu, 1)* tmp; C4m[mu]+= Impl::ShiftStaple(Impl::CovShiftBackward(U[nu], nu, Impl::CovShiftBackward(U[mu], mu, U[nu])), mu)* tmp;
} }
} }
}
}
//Still implementing. Have to be tested, and understood how to project EO //Still implementing. Have to be tested, and understood how to project EO

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

@@ -44,7 +44,7 @@ public:
INHERIT_IMPL_TYPES(Impl); INHERIT_IMPL_TYPES(Impl);
template <typename vtype> using iImplClover = iScalar<iMatrix<iMatrix<vtype, Impl::Dimension>, Ns> >; template <typename vtype> using iImplClover = iScalar<iMatrix<iMatrix<vtype, Impl::Dimension>, Ns> >;
typedef iImplClover<Simd> SiteCloverType; typedef iImplClover<Simd> SiteCloverType;
typedef Lattice<SiteCloverType> CloverFieldType; typedef Lattice<SiteCloverType> CloverFieldType;
public: public:
typedef WilsonFermion<Impl> WilsonBase; typedef WilsonFermion<Impl> WilsonBase;
@@ -91,14 +91,12 @@ public:
private: private:
// here fixing the 4 dimensions, make it more general? // here fixing the 4 dimensions, make it more general?
RealD csw; // Clover coefficient RealD csw; // Clover coefficient
CloverFieldType CloverTerm, CloverTermInv; // Clover term CloverFieldType CloverTerm=zero, CloverTermInv=zero; // Clover term
CloverFieldType CloverTermEven, CloverTermOdd; CloverFieldType CloverTermEven=zero, CloverTermOdd=zero; // Clover term EO
CloverFieldType CloverTermInvEven, CloverTermInvOdd; // Clover term CloverFieldType CloverTermInvEven=zero, CloverTermInvOdd=zero; // Clover term Inv EO
CloverFieldType CloverTermDagEven=zero, CloverTermDagOdd=zero; // Clover term Dag EO
CloverFieldType CloverTermInvDagEven, CloverTermInvDagOdd; //test CloverFieldType CloverTermInvDagEven=zero, CloverTermInvDagOdd=zero; // Clover term Inv Dag EO
CloverFieldType CloverTermDagEven, CloverTermDagOdd; //test
// eventually these two can be compressed into 6x6 blocks instead of the 12x12 // eventually these two can be compressed into 6x6 blocks instead of the 12x12
// using the DeGrand-Rossi basis for the gamma matrices // using the DeGrand-Rossi basis for the gamma matrices

156
tests/core/Test_wilson_clover.cc
View File

@@ -55,13 +55,15 @@ int main (int argc, char ** argv)
typedef typename WilsonCloverFermionR::FermionField FermionField; typedef typename WilsonCloverFermionR::FermionField FermionField;
typename WilsonCloverFermionR::ImplParams params; typename WilsonCloverFermionR::ImplParams params;
FermionField src (&Grid); random(pRNG,src); FermionField src (&Grid); random(pRNG,src);
FermionField result(&Grid); result=zero; FermionField result(&Grid); result=zero;
FermionField ref(&Grid); ref=zero; FermionField result2(&Grid); result2=zero;
FermionField tmp(&Grid); tmp=zero; FermionField ref(&Grid); ref=zero;
FermionField err(&Grid); tmp=zero; FermionField tmp(&Grid); tmp=zero;
FermionField phi (&Grid); random(pRNG,phi); FermionField err(&Grid); err=zero;
FermionField chi (&Grid); random(pRNG,chi); FermionField err2(&Grid); err2=zero;
FermionField phi (&Grid); random(pRNG,phi);
FermionField chi (&Grid); random(pRNG,chi);
LatticeGaugeField Umu(&Grid); SU3::HotConfiguration(pRNG,Umu); LatticeGaugeField Umu(&Grid); SU3::HotConfiguration(pRNG,Umu);
std::vector<LatticeColourMatrix> U(4,&Grid); std::vector<LatticeColourMatrix> U(4,&Grid);
@@ -71,24 +73,9 @@ int main (int argc, char ** argv)
volume=volume*latt_size[mu]; volume=volume*latt_size[mu];
} }
// Only one non-zero (y) RealD mass= 0.1;
for(int mu=0;mu<Nd;mu++){
U[mu] = PeekIndex<LorentzIndex>(Umu,mu);
/* Debug force unit
U[mu] = 1.0;
PokeIndex<LorentzIndex>(Umu,U[mu],mu);
*/
}
ref = zero;
RealD mass=0.1;
RealD csw = 1.0; RealD csw = 1.0;
{ // Simple clover implementation
// ref = ref + mass * src;
}
WilsonCloverFermionR Dwc(Umu,Grid,RBGrid,mass,csw,params); WilsonCloverFermionR Dwc(Umu,Grid,RBGrid,mass,csw,params);
Dwc.ImportGauge(Umu); Dwc.ImportGauge(Umu);
@@ -176,27 +163,26 @@ int main (int argc, char ** argv)
std::cout<<GridLogMessage <<"pDco - conj(cDpe) "<< pDco-conj(cDpe) <<std::endl; std::cout<<GridLogMessage <<"pDco - conj(cDpe) "<< pDco-conj(cDpe) <<std::endl;
std::cout<<GridLogMessage<<"=============================================================="<<std::endl; std::cout<<GridLogMessage<<"=============================================================="<<std::endl;
std::cout<<GridLogMessage<<"= Test MeeInv Mee = 1 "<<std::endl; std::cout<<GridLogMessage<<"= Test MeeInv Mee = 1 (if csw!=0) "<<std::endl;
std::cout<<GridLogMessage<<"=============================================================="<<std::endl; std::cout<<GridLogMessage<<"=============================================================="<<std::endl;
pickCheckerboard(Even,chi_e,chi); pickCheckerboard(Even,chi_e,chi);
pickCheckerboard(Odd ,chi_o,chi); pickCheckerboard(Odd ,chi_o,chi);
Dwc.Mooee(chi_e,src_e); Dwc.Mooee(chi_e,src_e);
Dwc.MooeeInv(src_e,phi_e); Dwc.MooeeInv(src_e,phi_e);
Dwc.Mooee(chi_o,src_o); Dwc.Mooee(chi_o,src_o);
Dwc.MooeeInv(src_o,phi_o); Dwc.MooeeInv(src_o,phi_o);
setCheckerboard(phi,phi_e); setCheckerboard(phi,phi_e);
setCheckerboard(phi,phi_o); setCheckerboard(phi,phi_o);
std::cout<<GridLogMessage << "err "<< norm2(err)<< std::endl;
err = phi-chi; err = phi-chi;
std::cout<<GridLogMessage << "norm diff "<< norm2(err)<< std::endl; std::cout<<GridLogMessage << "norm diff "<< norm2(err)<< std::endl;
std::cout<<GridLogMessage<<"=============================================================="<<std::endl; std::cout<<GridLogMessage<<"=============================================================="<<std::endl;
std::cout<<GridLogMessage<<"= Test MeeDag MeeInvDag = 1 "<<std::endl; std::cout<<GridLogMessage<<"= Test MeeDag MeeInvDag = 1 (if csw!=0) "<<std::endl;
std::cout<<GridLogMessage<<"=============================================================="<<std::endl; std::cout<<GridLogMessage<<"=============================================================="<<std::endl;
pickCheckerboard(Even,chi_e,chi); pickCheckerboard(Even,chi_e,chi);
@@ -211,12 +197,11 @@ int main (int argc, char ** argv)
setCheckerboard(phi,phi_e); setCheckerboard(phi,phi_e);
setCheckerboard(phi,phi_o); setCheckerboard(phi,phi_o);
std::cout<<GridLogMessage << "err "<< std::endl;
err = phi-chi; err = phi-chi;
std::cout<<GridLogMessage << "norm diff "<< norm2(err)<< std::endl; std::cout<<GridLogMessage << "norm diff "<< norm2(err)<< std::endl;
std::cout<<GridLogMessage<<"=============================================================="<<std::endl; std::cout<<GridLogMessage<<"=============================================================="<<std::endl;
std::cout<<GridLogMessage<<"= Test MeeInv MeeDag = 1 "<<std::endl; std::cout<<GridLogMessage<<"= Test MeeInv MeeDag = 1 (if csw!=0) "<<std::endl;
std::cout<<GridLogMessage<<"=============================================================="<<std::endl; std::cout<<GridLogMessage<<"=============================================================="<<std::endl;
pickCheckerboard(Even,chi_e,chi); pickCheckerboard(Even,chi_e,chi);
@@ -231,9 +216,112 @@ int main (int argc, char ** argv)
setCheckerboard(phi,phi_e); setCheckerboard(phi,phi_e);
setCheckerboard(phi,phi_o); setCheckerboard(phi,phi_o);
std::cout<<GridLogMessage << "err "<< std::endl;
err = phi-chi; err = phi-chi;
std::cout<<GridLogMessage << "norm diff "<< norm2(err)<< std::endl; std::cout<<GridLogMessage << "norm diff "<< norm2(err)<< std::endl;
Grid_finalize(); std::cout<<GridLogMessage<<"================================================================"<<std::endl;
std::cout<<GridLogMessage<<"= Testing gauge covariance Clover term with EO preconditioning "<<std::endl;
std::cout<<GridLogMessage<<"================================================================"<<std::endl;
chi=zero; phi=zero; tmp=zero;
pickCheckerboard(Even,chi_e,chi);
pickCheckerboard(Odd ,chi_o,chi);
pickCheckerboard(Even,phi_e,phi);
pickCheckerboard(Odd ,phi_o,phi);
Dwc.Mooee(src_e,chi_e);
Dwc.Mooee(src_o,chi_o);
setCheckerboard(chi,chi_e);
setCheckerboard(chi,chi_o);
setCheckerboard(src,src_e);
setCheckerboard(src,src_o);
//Gauge Transformation
std::vector<int> seeds2({5,6,7,8});
GridParallelRNG pRNG2(&Grid); pRNG2.SeedFixedIntegers(seeds2);
LatticeColourMatrix Omega(&Grid);
LatticeColourMatrix ShiftedOmega(&Grid);
LatticeGaugeField U_prime(&Grid); U_prime=zero;
LatticeColourMatrix U_prime_mu(&Grid); U_prime_mu=zero;
SU<Nc>::LieRandomize(pRNG2, Omega, 1.0);
for (int mu=0;mu<Nd;mu++){
U[mu]=peekLorentz(Umu,mu);
ShiftedOmega=Cshift(Omega,mu,1);
U_prime_mu=Omega*U[mu]*adj(ShiftedOmega);
pokeLorentz(U_prime,U_prime_mu,mu);
}
WilsonCloverFermionR Dwc_prime(U_prime,Grid,RBGrid,mass,csw,params);
Dwc_prime.ImportGauge(U_prime);
tmp=Omega*src;
pickCheckerboard(Even,src_e,tmp);
pickCheckerboard(Odd ,src_o,tmp);
Dwc_prime.Mooee(src_e,phi_e);
Dwc_prime.Mooee(src_o,phi_o);
setCheckerboard(phi,phi_e);
setCheckerboard(phi,phi_o);
err = chi - adj(Omega)*phi;
std::cout<<GridLogMessage << "norm diff "<< norm2(err)<< std::endl;
std::cout<<GridLogMessage<<"================================================================="<<std::endl;
std::cout<<GridLogMessage<<"= Testing gauge covariance Clover term w/o EO preconditioning "<<std::endl;
std::cout<<GridLogMessage<<"================================================================"<<std::endl;
chi=zero; phi=zero;
WilsonFermionR Dw(Umu,Grid,RBGrid,mass,params);
Dw.ImportGauge(Umu);
Dw.M(src,result);
Dwc.M(src,chi);
Dwc_prime.M(Omega*src,phi);
WilsonFermionR Dw_prime(U_prime,Grid,RBGrid,mass,params);
Dw_prime.ImportGauge(U_prime);
Dw_prime.M(Omega*src,result2);
err = chi-adj(Omega)*phi;
err2 = result-adj(Omega)*result2;
std::cout<<GridLogMessage << "norm diff Wilson "<< norm2(err)<< std::endl;
std::cout<<GridLogMessage << "norm diff WilsonClover "<< norm2(err2)<< std::endl;
std::cout<<GridLogMessage<<"=========================================================="<<std::endl;
std::cout<<GridLogMessage<<"= Testing Mooee(csw=0) Clover to reproduce Mooee Wilson "<<std::endl;
std::cout<<GridLogMessage<<"=========================================================="<<std::endl;
chi=zero; phi=zero; err=zero;
WilsonCloverFermionR Dwc_csw0(Umu,Grid,RBGrid,mass,0.0,params); // <-- csw=0
Dwc_csw0.ImportGauge(Umu);
pickCheckerboard(Even,phi_e,phi);
pickCheckerboard(Odd ,phi_o,phi);
pickCheckerboard(Even,chi_e,chi);
pickCheckerboard(Odd ,chi_o,chi);
Dw.Mooee(src_e,chi_e);
Dw.Mooee(src_o,chi_o);
Dwc_csw0.Mooee(src_e,phi_e);
Dwc_csw0.Mooee(src_o,phi_o);
setCheckerboard(chi,chi_e);
setCheckerboard(chi,chi_o);
setCheckerboard(phi,phi_e);
setCheckerboard(phi,phi_o);
setCheckerboard(src,src_e);
setCheckerboard(src,src_o);
FermionField::scalar_type scal(4.0 + mass);
err = chi - (phi + scal*src) ; // subtraction of the mass term (not present in Mooee Clover!)
std::cout<<GridLogMessage << "norm diff "<< norm2(err)<< std::endl;
Grid_finalize();
} }