mirror of
https://github.com/paboyle/Grid.git
synced 2025-04-07 04:35:56 +01:00
some debugging stuff
This commit is contained in:
parent
622d5eaa3e
commit
29df60c0cb
@ -15,12 +15,25 @@ public:
|
||||
typedef typename FImpl::FermionField FermionField;
|
||||
typedef typename FImpl::PropagatorField PropagatorField;
|
||||
|
||||
typedef typename FImpl::SitePropagator pobj;
|
||||
typedef typename FImpl::SiteSpinor vobj;
|
||||
typedef typename vobj::scalar_object sobj;
|
||||
typedef typename vobj::scalar_type scalar_type;
|
||||
typedef typename vobj::vector_type vector_type;
|
||||
|
||||
|
||||
static void ContractBaryons_debug(const PropagatorField &q1,
|
||||
const PropagatorField &q2,
|
||||
const PropagatorField &q3,
|
||||
const Gamma GammaA,
|
||||
const Gamma GammaB,
|
||||
ComplexField &bc1,
|
||||
ComplexField &bc2,
|
||||
ComplexField &bc3,
|
||||
ComplexField &bc4,
|
||||
ComplexField &bc5,
|
||||
ComplexField &bc6,
|
||||
ComplexField &baryon_corr);
|
||||
static void ContractBaryons(const PropagatorField &q1,
|
||||
const PropagatorField &q2,
|
||||
const PropagatorField &q3,
|
||||
@ -28,11 +41,159 @@ public:
|
||||
const Gamma GammaB,
|
||||
ComplexField &baryon_corr);
|
||||
|
||||
static LatticeSpinColourMatrix quarkContract13(const PropagatorField &q1,
|
||||
const PropagatorField &q2);
|
||||
// static PropagatorField quarkContract13(const PropagatorField &q1,
|
||||
// const PropagatorField &q2);
|
||||
static void quarkContract13(const PropagatorField &q1,
|
||||
const PropagatorField &q2,
|
||||
PropagatorField &q_out);
|
||||
};
|
||||
|
||||
|
||||
template<class FImpl>
|
||||
void BaryonUtils<FImpl>::ContractBaryons_debug(const PropagatorField &q1,
|
||||
const PropagatorField &q2,
|
||||
const PropagatorField &q3,
|
||||
const Gamma GammaA,
|
||||
const Gamma GammaB,
|
||||
ComplexField &bc1,
|
||||
ComplexField &bc2,
|
||||
ComplexField &bc3,
|
||||
ComplexField &bc4,
|
||||
ComplexField &bc5,
|
||||
ComplexField &bc6,
|
||||
ComplexField &baryon_corr)
|
||||
{
|
||||
GridBase *grid = q1._grid;
|
||||
|
||||
// C = i gamma_2 gamma_4 => C gamma_5 = - i gamma_1 gamma_3
|
||||
//Gamma GammaA(Gamma::Algebra::Identity); //Still hardcoded 1
|
||||
//Gamma GammaB(Gamma::Algebra::SigmaXZ); //Still hardcoded Cg5
|
||||
//Gamma GammaB(Gamma::Algebra::GammaZGamma5); //Still hardcoded CgX = i gamma_3 gamma_5
|
||||
Gamma g4(Gamma::Algebra::GammaT); //needed for parity P_\pm = 0.5*(1 \pm \gamma_4)
|
||||
|
||||
std::vector<std::vector<int>> epsilon = {{0,1,2},{1,2,0},{2,0,1},{0,2,1},{2,1,0},{1,0,2}};
|
||||
std::vector<int> epsilon_sgn = {1,1,1,-1,-1,-1};
|
||||
char left[] = "sss";
|
||||
char right[] = "sss";
|
||||
std::vector<int> wick_contraction = {0,0,0,0,0,0};
|
||||
|
||||
for (int ie=0; ie < 6 ; ie++)
|
||||
if (left[0] == right[epsilon[ie][0]] && left[1] == right[epsilon[ie][1]] && left[2] == right[epsilon[ie][2]])
|
||||
wick_contraction[ie]=1;
|
||||
|
||||
|
||||
int parity = 1;
|
||||
|
||||
|
||||
parallel_for(int ss=0;ss<grid->oSites();ss++){
|
||||
|
||||
typedef typename ComplexField::vector_object vobj;
|
||||
|
||||
auto D1 = q1._odata[ss];
|
||||
auto D2 = q2._odata[ss];
|
||||
auto D3 = q3._odata[ss];
|
||||
|
||||
auto gD1a = GammaA * GammaA * D1;
|
||||
auto gD1b = GammaA * g4 * GammaA * D1;
|
||||
auto pD1 = 0.5* (gD1a + (double)parity * gD1b);
|
||||
auto gD3 = GammaB * D3;
|
||||
|
||||
vobj result=zero;
|
||||
vobj result1=zero;
|
||||
vobj result2=zero;
|
||||
vobj result3=zero;
|
||||
vobj result4=zero;
|
||||
vobj result5=zero;
|
||||
vobj result6=zero;
|
||||
|
||||
for (int ie_src=0; ie_src < 6 ; ie_src++){
|
||||
int a_src = epsilon[ie_src][0]; //a
|
||||
int b_src = epsilon[ie_src][1]; //b
|
||||
int c_src = epsilon[ie_src][2]; //c
|
||||
for (int ie_snk=0; ie_snk < 6 ; ie_snk++){
|
||||
int a_snk = epsilon[ie_snk][0]; //a'
|
||||
int b_snk = epsilon[ie_snk][1]; //b'
|
||||
int c_snk = epsilon[ie_snk][2]; //c'
|
||||
//This is the \delta_{123}^{123} part
|
||||
if (wick_contraction[0]){
|
||||
auto D2g = D2 * GammaB;
|
||||
for (int alpha_snk=0; alpha_snk<Ns; alpha_snk++){
|
||||
for (int beta_src=0; beta_src<Ns; beta_src++){
|
||||
for (int gamma_src=0; gamma_src<Ns; gamma_src++){
|
||||
result()()() += epsilon_sgn[ie_src] * epsilon_sgn[ie_snk] * pD1()(gamma_src,gamma_src)(c_snk,c_src)*D2g()(alpha_snk,beta_src)(a_snk,a_src)*gD3()(alpha_snk,beta_src)(b_snk,b_src);
|
||||
result1()()() += epsilon_sgn[ie_src] * epsilon_sgn[ie_snk] * pD1()(gamma_src,gamma_src)(c_snk,c_src)*D2g()(alpha_snk,beta_src)(a_snk,a_src)*gD3()(alpha_snk,beta_src)(b_snk,b_src);
|
||||
}}}
|
||||
}
|
||||
//This is the \delta_{123}^{231} part
|
||||
if (wick_contraction[1]){
|
||||
auto pD1g = pD1 * GammaB;
|
||||
for (int alpha_snk=0; alpha_snk<Ns; alpha_snk++){
|
||||
for (int beta_src=0; beta_src<Ns; beta_src++){
|
||||
for (int gamma_src=0; gamma_src<Ns; gamma_src++){
|
||||
result()()() += epsilon_sgn[ie_src] * epsilon_sgn[ie_snk] * pD1g()(gamma_src,beta_src)(c_snk,a_src)*D2()(alpha_snk,beta_src)(a_snk,b_src)*gD3()(alpha_snk,gamma_src)(b_snk,c_src);
|
||||
result2()()() += epsilon_sgn[ie_src] * epsilon_sgn[ie_snk] * pD1g()(gamma_src,beta_src)(c_snk,a_src)*D2()(alpha_snk,beta_src)(a_snk,b_src)*gD3()(alpha_snk,gamma_src)(b_snk,c_src);
|
||||
}}}
|
||||
}
|
||||
//This is the \delta_{123}^{312} part
|
||||
if (wick_contraction[2]){
|
||||
auto gD3g = gD3 * GammaB;
|
||||
for (int alpha_snk=0; alpha_snk<Ns; alpha_snk++){
|
||||
for (int beta_src=0; beta_src<Ns; beta_src++){
|
||||
for (int gamma_src=0; gamma_src<Ns; gamma_src++){
|
||||
result()()() += epsilon_sgn[ie_src] * epsilon_sgn[ie_snk] * pD1()(gamma_src,beta_src)(c_snk,b_src)*D2()(alpha_snk,gamma_src)(a_snk,c_src)*gD3g()(alpha_snk,beta_src)(b_snk,a_src);
|
||||
result3()()() += epsilon_sgn[ie_src] * epsilon_sgn[ie_snk] * pD1()(gamma_src,beta_src)(c_snk,b_src)*D2()(alpha_snk,gamma_src)(a_snk,c_src)*gD3g()(alpha_snk,beta_src)(b_snk,a_src);
|
||||
}}}
|
||||
}
|
||||
//This is the \delta_{123}^{132} part
|
||||
if (wick_contraction[3]){
|
||||
auto gD3g = gD3 * GammaB;
|
||||
for (int alpha_snk=0; alpha_snk<Ns; alpha_snk++){
|
||||
for (int beta_src=0; beta_src<Ns; beta_src++){
|
||||
for (int gamma_src=0; gamma_src<Ns; gamma_src++){
|
||||
result()()() -= epsilon_sgn[ie_src] * epsilon_sgn[ie_snk] * pD1()(gamma_src,gamma_src)(c_snk,c_src)*D2()(alpha_snk,beta_src)(a_snk,b_src)*gD3g()(alpha_snk,beta_src)(b_snk,a_src);
|
||||
result4()()() -= epsilon_sgn[ie_src] * epsilon_sgn[ie_snk] * pD1()(gamma_src,gamma_src)(c_snk,c_src)*D2()(alpha_snk,beta_src)(a_snk,b_src)*gD3g()(alpha_snk,beta_src)(b_snk,a_src);
|
||||
}}}
|
||||
}
|
||||
//This is the \delta_{123}^{321} part
|
||||
if (wick_contraction[4]){
|
||||
auto D2g = D2 * GammaB;
|
||||
for (int alpha_snk=0; alpha_snk<Ns; alpha_snk++){
|
||||
for (int beta_src=0; beta_src<Ns; beta_src++){
|
||||
for (int gamma_src=0; gamma_src<Ns; gamma_src++){
|
||||
result()()() -= epsilon_sgn[ie_src] * epsilon_sgn[ie_snk] * pD1()(gamma_src,beta_src)(c_snk,b_src)*D2g()(alpha_snk,beta_src)(a_snk,a_src)*gD3()(alpha_snk,gamma_src)(b_snk,c_src);
|
||||
result5()()() -= epsilon_sgn[ie_src] * epsilon_sgn[ie_snk] * pD1()(gamma_src,beta_src)(c_snk,b_src)*D2g()(alpha_snk,beta_src)(a_snk,a_src)*gD3()(alpha_snk,gamma_src)(b_snk,c_src);
|
||||
}}}
|
||||
}
|
||||
//This is the \delta_{123}^{213} part
|
||||
if (wick_contraction[5]){
|
||||
auto pD1g = pD1 * GammaB;
|
||||
for (int alpha_snk=0; alpha_snk<Ns; alpha_snk++){
|
||||
for (int beta_src=0; beta_src<Ns; beta_src++){
|
||||
for (int gamma_src=0; gamma_src<Ns; gamma_src++){
|
||||
result()()() -= epsilon_sgn[ie_src] * epsilon_sgn[ie_snk] * pD1g()(gamma_src,beta_src)(c_snk,a_src)*D2()(alpha_snk,gamma_src)(a_snk,c_src)*gD3()(alpha_snk,beta_src)(b_snk,b_src);
|
||||
result6()()() -= epsilon_sgn[ie_src] * epsilon_sgn[ie_snk] * pD1g()(gamma_src,beta_src)(c_snk,a_src)*D2()(alpha_snk,gamma_src)(a_snk,c_src)*gD3()(alpha_snk,beta_src)(b_snk,b_src);
|
||||
}}}
|
||||
}
|
||||
|
||||
/*if (ie_src==0 && ie_snk==0){
|
||||
baryon_corr._odata[ss] = result;
|
||||
} else {
|
||||
baryon_corr._odata[ss] += result;
|
||||
}*/
|
||||
|
||||
}
|
||||
}
|
||||
baryon_corr._odata[ss] = result;
|
||||
|
||||
bc1._odata[ss] = result1;
|
||||
bc2._odata[ss] = result2;
|
||||
bc3._odata[ss] = result3;
|
||||
bc4._odata[ss] = result4;
|
||||
bc5._odata[ss] = result5;
|
||||
bc6._odata[ss] = result6;
|
||||
} //end loop over lattice sites
|
||||
|
||||
}
|
||||
|
||||
template<class FImpl>
|
||||
void BaryonUtils<FImpl>::ContractBaryons(const PropagatorField &q1,
|
||||
@ -78,7 +239,7 @@ void BaryonUtils<FImpl>::ContractBaryons(const PropagatorField &q1,
|
||||
auto gD3 = GammaB * D3;
|
||||
|
||||
vobj result=zero;
|
||||
|
||||
|
||||
for (int ie_src=0; ie_src < 6 ; ie_src++){
|
||||
int a_src = epsilon[ie_src][0]; //a
|
||||
int b_src = epsilon[ie_src][1]; //b
|
||||
@ -153,24 +314,24 @@ void BaryonUtils<FImpl>::ContractBaryons(const PropagatorField &q1,
|
||||
baryon_corr._odata[ss] = result;
|
||||
|
||||
} //end loop over lattice sites
|
||||
|
||||
|
||||
}
|
||||
|
||||
//QDP / CHROMA - style diquark construction
|
||||
// (q_out)^{c'c}_{alpha,beta} = epsilon^{abc} epsilon^{a'b'c'} (q1)^{aa'}_{rho alpha}^* (q2)^{bb'}_{rho beta}
|
||||
template<class FImpl>
|
||||
LatticeSpinColourMatrix BaryonUtils<FImpl>::quarkContract13(const PropagatorField &q1,
|
||||
const PropagatorField &q2)
|
||||
//typename FImpl::PropagatorField BaryonUtils<FImpl>::quarkContract13(const PropagatorField &q1,
|
||||
// const PropagatorField &q2)
|
||||
void BaryonUtils<FImpl>::quarkContract13(const PropagatorField &q1,
|
||||
const PropagatorField &q2,
|
||||
PropagatorField &q_out)
|
||||
{
|
||||
GridBase *grid = q1._grid;
|
||||
|
||||
|
||||
std::vector<std::vector<int>> epsilon = {{0,1,2},{1,2,0},{2,0,1},{0,2,1},{2,1,0},{1,0,2}};
|
||||
std::vector<int> epsilon_sgn = {1,1,1,-1,-1,-1};
|
||||
std::vector<int> wick_contraction = {0,0,0,0,0,0};
|
||||
|
||||
LatticeSpinColourMatrix q_out=zero;
|
||||
//PropagatorField q_out;//=zero;
|
||||
|
||||
parallel_for(int ss=0;ss<grid->oSites();ss++){
|
||||
|
||||
@ -181,7 +342,7 @@ LatticeSpinColourMatrix BaryonUtils<FImpl>::quarkContract13(const PropagatorFiel
|
||||
//auto D_out = q_out._odata[ss];
|
||||
//D_out=zero;
|
||||
|
||||
SpinColourMatrix D_out=zero;
|
||||
pobj D_out=zero;
|
||||
|
||||
for (int ie_src=0; ie_src < 6 ; ie_src++){
|
||||
int a_src = epsilon[ie_src][0]; //a
|
||||
@ -194,7 +355,7 @@ LatticeSpinColourMatrix BaryonUtils<FImpl>::quarkContract13(const PropagatorFiel
|
||||
for (int alpha=0; alpha<Ns; alpha++){
|
||||
for (int beta=0; beta<Ns; beta++){
|
||||
for (int rho=0; rho<Ns; rho++){
|
||||
D_out()(alpha,beta)(c_snk,c_src) += epsilon_sgn[ie_src] * epsilon_sgn[ie_snk] * D1()(rho,alpha)(a_src,a_snk)*D2()(rho,beta)(b_src,b_snk);
|
||||
D_out()(alpha,beta)(c_snk,c_src) += epsilon_sgn[ie_src] * epsilon_sgn[ie_snk] * D1()(rho,alpha)(a_src,a_snk)*D2()(rho,beta)(b_src,b_snk); //D1 conjugate??
|
||||
}}}
|
||||
}
|
||||
}
|
||||
@ -203,7 +364,7 @@ LatticeSpinColourMatrix BaryonUtils<FImpl>::quarkContract13(const PropagatorFiel
|
||||
|
||||
} //end loop over lattice sites
|
||||
|
||||
return q_out;
|
||||
//return q_out;
|
||||
|
||||
}
|
||||
|
||||
|
@ -65,6 +65,7 @@
|
||||
#include <Hadrons/Modules/MContraction/A2ALoop.hpp>
|
||||
#include <Hadrons/Modules/MContraction/Gamma3pt.hpp>
|
||||
#include <Hadrons/Modules/MContraction/DiscLoop.hpp>
|
||||
#include <Hadrons/Modules/MContraction/SelfContract.hpp>
|
||||
#include <Hadrons/Modules/MContraction/A2AMesonField.hpp>
|
||||
#include <Hadrons/Modules/MAction/WilsonClover.hpp>
|
||||
#include <Hadrons/Modules/MAction/ScaledDWF.hpp>
|
||||
|
@ -116,7 +116,7 @@ template <typename FImpl1, typename FImpl2, typename FImpl3>
|
||||
void TBaryon2<FImpl1, FImpl2, FImpl3>::setup(void)
|
||||
{
|
||||
envTmpLat(LatticeComplex, "c");
|
||||
envTmpLat(LatticeComplex, "diquark");
|
||||
envTmpLat(PropagatorField1, "diquark");
|
||||
// Translate the full string naming the desired gamma structure into the one we need to use
|
||||
const std::string gamma{ par().gamma };
|
||||
int iGamma = 0;
|
||||
@ -172,7 +172,7 @@ void TBaryon2<FImpl1, FImpl2, FImpl3>::execute(void)
|
||||
auto &q2 = envGet(PropagatorField2, par().q2);
|
||||
auto &q3 = envGet(PropagatorField3, par().q3);
|
||||
envGetTmp(LatticeComplex, c);
|
||||
//envGetTmp(LatticeComplex, diquark);
|
||||
envGetTmp(PropagatorField1, diquark); //ACTUALLY MIX OF 2 AND 3!!!!
|
||||
Result result;
|
||||
int nt = env().getDim(Tp);
|
||||
result.corr.resize(nt);
|
||||
@ -182,12 +182,11 @@ void TBaryon2<FImpl1, FImpl2, FImpl3>::execute(void)
|
||||
const Gamma GammaA{ Gamma::Algebra::Identity };
|
||||
const Gamma GammaB{ al };
|
||||
|
||||
LatticeSpinColourMatrix diquark;
|
||||
|
||||
diquark = BaryonUtils<FIMPL>::quarkContract13(q2*GammaB,GammaB*q3);
|
||||
//diquark = BaryonUtils<FIMPL>::quarkContract13(q2*GammaB,GammaB*q3);
|
||||
BaryonUtils<FIMPL>::quarkContract13(q2*GammaB,GammaB*q3,diquark);
|
||||
|
||||
//result = trace(GammaA*GammaA * traceColour(q1*traceSpin(diquark))) + 2.0 * trace(GammaA*GammaA*traceColour(q1*diquark));
|
||||
result = trace(q1*diquark);
|
||||
//c = trace(q1*traceSpin(diquark)); //NO TRACESPIN???
|
||||
|
||||
sliceSum(c,buf,Tp);
|
||||
|
||||
|
@ -55,6 +55,7 @@ modules_cc =\
|
||||
Modules/MContraction/WeakEye3pt.cc \
|
||||
Modules/MContraction/Meson.cc \
|
||||
Modules/MContraction/A2AAslashField.cc \
|
||||
Modules/MContraction/SelfContract.cc \
|
||||
Modules/MContraction/Baryon2.cc \
|
||||
Modules/MContraction/Baryon.cc \
|
||||
Modules/MContraction/Nucleon.cc \
|
||||
@ -147,6 +148,7 @@ modules_hpp =\
|
||||
Modules/MContraction/A2ALoop.hpp \
|
||||
Modules/MContraction/Gamma3pt.hpp \
|
||||
Modules/MContraction/DiscLoop.hpp \
|
||||
Modules/MContraction/SelfContract.hpp \
|
||||
Modules/MContraction/A2AMesonField.hpp \
|
||||
Modules/MAction/WilsonClover.hpp \
|
||||
Modules/MAction/ScaledDWF.hpp \
|
||||
|
Loading…
x
Reference in New Issue
Block a user