From 85771e97e98a4de5ec3dcc63cbeac3b2b72837b0 Mon Sep 17 00:00:00 2001 From: paboyle Date: Fri, 26 Jan 2018 23:04:46 +0000 Subject: [PATCH] Hide internal data --- lib/qcd/action/fermion/CayleyFermion5D.cc | 4 +- .../action/fermion/CayleyFermion5Dcache.cc | 46 ++++---- .../action/fermion/CayleyFermion5Ddense.cc | 2 +- lib/qcd/action/fermion/CayleyFermion5Dssp.cc | 4 +- lib/qcd/action/fermion/CayleyFermion5Dvec.cc | 10 +- .../fermion/ContinuedFractionFermion5D.cc | 2 +- .../fermion/DomainWallEOFAFermioncache.cc | 50 ++++----- .../fermion/DomainWallEOFAFermiondense.cc | 2 +- .../fermion/DomainWallEOFAFermionssp.cc | 4 +- .../fermion/DomainWallEOFAFermionvec.cc | 10 +- lib/qcd/action/fermion/FermionOperatorImpl.h | 2 +- .../fermion/ImprovedStaggeredFermion.cc | 40 +++---- .../fermion/ImprovedStaggeredFermion5D.cc | 26 ++--- .../action/fermion/MobiusEOFAFermioncache.cc | 104 +++++++++--------- .../action/fermion/MobiusEOFAFermiondense.cc | 2 +- .../action/fermion/MobiusEOFAFermionssp.cc | 8 +- .../action/fermion/MobiusEOFAFermionvec.cc | 18 +-- .../fermion/PartialFractionFermion5D.cc | 2 +- lib/qcd/action/fermion/SchurDiagTwoKappa.h | 6 +- lib/qcd/action/fermion/StaggeredKernels.cc | 54 ++++----- lib/qcd/action/fermion/StaggeredKernelsAsm.cc | 26 ++--- .../action/fermion/StaggeredKernelsHand.cc | 22 ++-- lib/qcd/action/fermion/WilsonFermion.cc | 70 ++++++------ lib/qcd/action/fermion/WilsonFermion5D.cc | 60 +++++----- lib/qcd/action/fermion/WilsonKernels.cc | 42 +++---- lib/qcd/action/fermion/WilsonKernelsAsmBody.h | 4 +- lib/qcd/action/fermion/WilsonKernelsHand.cc | 12 +- lib/qcd/action/fermion/WilsonTMFermion.cc | 4 +- 28 files changed, 318 insertions(+), 318 deletions(-) diff --git a/lib/qcd/action/fermion/CayleyFermion5D.cc b/lib/qcd/action/fermion/CayleyFermion5D.cc index 894ef938..0f682971 100644 --- a/lib/qcd/action/fermion/CayleyFermion5D.cc +++ b/lib/qcd/action/fermion/CayleyFermion5D.cc @@ -276,7 +276,7 @@ void CayleyFermion5D::Meooe (const FermionField &psi, FermionField & { Meooe5D(psi,this->tmp()); - if ( psi.checkerboard == Odd ) { + if ( psi.Checkerboard() == Odd ) { this->DhopEO(this->tmp(),chi,DaggerNo); } else { this->DhopOE(this->tmp(),chi,DaggerNo); @@ -287,7 +287,7 @@ template void CayleyFermion5D::MeooeDag (const FermionField &psi, FermionField &chi) { // Apply 4d dslash - if ( psi.checkerboard == Odd ) { + if ( psi.Checkerboard() == Odd ) { this->DhopEO(psi,this->tmp(),DaggerYes); } else { this->DhopOE(psi,this->tmp(),DaggerYes); diff --git a/lib/qcd/action/fermion/CayleyFermion5Dcache.cc b/lib/qcd/action/fermion/CayleyFermion5Dcache.cc index 004dcffe..9af9dc75 100644 --- a/lib/qcd/action/fermion/CayleyFermion5Dcache.cc +++ b/lib/qcd/action/fermion/CayleyFermion5Dcache.cc @@ -47,32 +47,32 @@ void CayleyFermion5D::M5D(const FermionField &psi, { int Ls =this->Ls; GridBase *grid=psi._grid; - assert(phi.checkerboard == psi.checkerboard); - chi.checkerboard=psi.checkerboard; + assert(phi.Checkerboard() == psi.Checkerboard()); + chi.Checkerboard()=psi.Checkerboard(); // Flops = 6.0*(Nc*Ns) *Ls*vol M5Dcalls++; M5Dtime-=usecond(); parallel_for(int ss=0;ssoSites();ss+=Ls){ // adds Ls for(int s=0;s::M5Ddag(const FermionField &psi, { int Ls =this->Ls; GridBase *grid=psi._grid; - assert(phi.checkerboard == psi.checkerboard); - chi.checkerboard=psi.checkerboard; + assert(phi.Checkerboard() == psi.Checkerboard()); + chi.Checkerboard()=psi.Checkerboard(); // Flops = 6.0*(Nc*Ns) *Ls*vol M5Dcalls++; M5Dtime-=usecond(); parallel_for(int ss=0;ssoSites();ss+=Ls){ // adds Ls - auto tmp = psi._odata[0]; + auto tmp = psi[0]; for(int s=0;s::MooeeInv (const FermionField &psi, FermionField & GridBase *grid=psi._grid; int Ls=this->Ls; - chi.checkerboard=psi.checkerboard; + chi.Checkerboard()=psi.Checkerboard(); MooeeInvCalls++; MooeeInvTime-=usecond(); parallel_for(int ss=0;ssoSites();ss+=Ls){ // adds Ls - auto tmp = psi._odata[0]; + auto tmp = psi[0]; // flops = 12*2*Ls + 12*2*Ls + 3*12*Ls + 12*2*Ls = 12*Ls * (9) = 108*Ls flops // Apply (L^{\prime})^{-1} @@ -175,8 +175,8 @@ void CayleyFermion5D::MooeeInvDag (const FermionField &psi, FermionField & GridBase *grid=psi._grid; int Ls=this->Ls; - assert(psi.checkerboard == psi.checkerboard); - chi.checkerboard=psi.checkerboard; + assert(psi.Checkerboard() == psi.Checkerboard()); + chi.Checkerboard()=psi.Checkerboard(); std::vector ueec(Ls); std::vector deec(Ls); @@ -195,7 +195,7 @@ void CayleyFermion5D::MooeeInvDag (const FermionField &psi, FermionField & parallel_for(int ss=0;ssoSites();ss+=Ls){ // adds Ls - auto tmp = psi._odata[0]; + auto tmp = psi[0]; // Apply (U^{\prime})^{-dagger} chi[ss]=psi[ss]; diff --git a/lib/qcd/action/fermion/CayleyFermion5Ddense.cc b/lib/qcd/action/fermion/CayleyFermion5Ddense.cc index a489cf09..ed29674f 100644 --- a/lib/qcd/action/fermion/CayleyFermion5Ddense.cc +++ b/lib/qcd/action/fermion/CayleyFermion5Ddense.cc @@ -57,7 +57,7 @@ void CayleyFermion5D::MooeeInternal(const FermionField &psi, FermionField int LLs = psi._grid->_rdimensions[0]; int vol = psi._grid->oSites()/LLs; - chi.checkerboard=psi.checkerboard; + chi.Checkerboard()=psi.Checkerboard(); assert(Ls==LLs); diff --git a/lib/qcd/action/fermion/CayleyFermion5Dssp.cc b/lib/qcd/action/fermion/CayleyFermion5Dssp.cc index 887def5a..80cc4688 100644 --- a/lib/qcd/action/fermion/CayleyFermion5Dssp.cc +++ b/lib/qcd/action/fermion/CayleyFermion5Dssp.cc @@ -89,7 +89,7 @@ void CayleyFermion5D::MooeeInv (const FermionField &psi, FermionField & { Coeff_t one(1.0); Coeff_t czero(0.0); - chi.checkerboard=psi.checkerboard; + chi.Checkerboard()=psi.Checkerboard(); int Ls=this->Ls; // Apply (L^{\prime})^{-1} axpby_ssp (chi,one,psi, czero,psi,0,0); // chi[0]=psi[0] @@ -118,7 +118,7 @@ void CayleyFermion5D::MooeeInvDag (const FermionField &psi, FermionField & { Coeff_t one(1.0); Coeff_t czero(0.0); - chi.checkerboard=psi.checkerboard; + chi.Checkerboard()=psi.Checkerboard(); int Ls=this->Ls; // Apply (U^{\prime})^{-dagger} axpby_ssp (chi,one,psi, czero,psi,0,0); // chi[0]=psi[0] diff --git a/lib/qcd/action/fermion/CayleyFermion5Dvec.cc b/lib/qcd/action/fermion/CayleyFermion5Dvec.cc index 21800523..662a5f46 100644 --- a/lib/qcd/action/fermion/CayleyFermion5Dvec.cc +++ b/lib/qcd/action/fermion/CayleyFermion5Dvec.cc @@ -68,9 +68,9 @@ void CayleyFermion5D::M5D(const FermionField &psi, Vector > d(LLs); assert(Ls/LLs==nsimd); - assert(phi.checkerboard == psi.checkerboard); + assert(phi.Checkerboard() == psi.Checkerboard()); - chi.checkerboard=psi.checkerboard; + chi.Checkerboard()=psi.Checkerboard(); // just directly address via type pun typedef typename Simd::scalar_type scalar_type; @@ -212,9 +212,9 @@ void CayleyFermion5D::M5Ddag(const FermionField &psi, Vector > d(LLs); assert(Ls/LLs==nsimd); - assert(phi.checkerboard == psi.checkerboard); + assert(phi.Checkerboard() == psi.Checkerboard()); - chi.checkerboard=psi.checkerboard; + chi.Checkerboard()=psi.Checkerboard(); // just directly address via type pun typedef typename Simd::scalar_type scalar_type; @@ -765,7 +765,7 @@ void CayleyFermion5D::MooeeInternal(const FermionField &psi, FermionField int LLs = psi._grid->_rdimensions[0]; int vol = psi._grid->oSites()/LLs; - chi.checkerboard=psi.checkerboard; + chi.Checkerboard()=psi.Checkerboard(); Vector > Matp; Vector > Matm; diff --git a/lib/qcd/action/fermion/ContinuedFractionFermion5D.cc b/lib/qcd/action/fermion/ContinuedFractionFermion5D.cc index 94384b5f..eb1781b2 100644 --- a/lib/qcd/action/fermion/ContinuedFractionFermion5D.cc +++ b/lib/qcd/action/fermion/ContinuedFractionFermion5D.cc @@ -146,7 +146,7 @@ void ContinuedFractionFermion5D::Meooe (const FermionField &psi, F int Ls = this->Ls; // Apply 4d dslash - if ( psi.checkerboard == Odd ) { + if ( psi.Checkerboard() == Odd ) { this->DhopEO(psi,chi,DaggerNo); // Dslash on diagonal. g5 Dslash is hermitian } else { this->DhopOE(psi,chi,DaggerNo); // Dslash on diagonal. g5 Dslash is hermitian diff --git a/lib/qcd/action/fermion/DomainWallEOFAFermioncache.cc b/lib/qcd/action/fermion/DomainWallEOFAFermioncache.cc index be727d5f..c7a69fd0 100644 --- a/lib/qcd/action/fermion/DomainWallEOFAFermioncache.cc +++ b/lib/qcd/action/fermion/DomainWallEOFAFermioncache.cc @@ -46,29 +46,29 @@ void DomainWallEOFAFermion::M5D(const FermionField& psi, const FermionFiel int Ls = this->Ls; GridBase* grid = psi._grid; - assert(phi.checkerboard == psi.checkerboard); - chi.checkerboard = psi.checkerboard; + assert(phi.Checkerboard() == psi.Checkerboard()); + chi.Checkerboard() = psi.Checkerboard(); // Flops = 6.0*(Nc*Ns) *Ls*vol this->M5Dcalls++; this->M5Dtime -= usecond(); parallel_for(int ss=0; ssoSites(); ss+=Ls){ // adds Ls for(int s=0; s::M5Ddag(const FermionField& psi, const FermionF { int Ls = this->Ls; GridBase* grid = psi._grid; - assert(phi.checkerboard == psi.checkerboard); - chi.checkerboard=psi.checkerboard; + assert(phi.Checkerboard() == psi.Checkerboard()); + chi.Checkerboard()=psi.Checkerboard(); // Flops = 6.0*(Nc*Ns) *Ls*vol this->M5Dcalls++; this->M5Dtime -= usecond(); parallel_for(int ss=0; ssoSites(); ss+=Ls){ // adds Ls - auto tmp = psi._odata[0]; + auto tmp = psi[0]; for(int s=0; s::MooeeInv(const FermionField& psi, FermionField GridBase* grid = psi._grid; int Ls = this->Ls; - chi.checkerboard = psi.checkerboard; + chi.Checkerboard() = psi.Checkerboard(); this->MooeeInvCalls++; this->MooeeInvTime -= usecond(); parallel_for(int ss=0; ssoSites(); ss+=Ls){ // adds Ls - auto tmp1 = psi._odata[0]; - auto tmp2 = psi._odata[0]; + auto tmp1 = psi[0]; + auto tmp2 = psi[0]; // flops = 12*2*Ls + 12*2*Ls + 3*12*Ls + 12*2*Ls = 12*Ls * (9) = 108*Ls flops // Apply (L^{\prime})^{-1} @@ -169,8 +169,8 @@ void DomainWallEOFAFermion::MooeeInvDag(const FermionField& psi, FermionFi GridBase* grid = psi._grid; int Ls = this->Ls; - assert(psi.checkerboard == psi.checkerboard); - chi.checkerboard = psi.checkerboard; + assert(psi.Checkerboard() == psi.Checkerboard()); + chi.Checkerboard() = psi.Checkerboard(); std::vector ueec(Ls); std::vector deec(Ls+1); @@ -192,8 +192,8 @@ void DomainWallEOFAFermion::MooeeInvDag(const FermionField& psi, FermionFi parallel_for(int ss=0; ssoSites(); ss+=Ls){ // adds Ls - auto tmp1 = psi._odata[0]; - auto tmp2 = psi._odata[0]; + auto tmp1 = psi[0]; + auto tmp2 = psi[0]; // Apply (U^{\prime})^{-dagger} chi[ss] = psi[ss]; diff --git a/lib/qcd/action/fermion/DomainWallEOFAFermiondense.cc b/lib/qcd/action/fermion/DomainWallEOFAFermiondense.cc index 5c269c86..0a3a30a3 100644 --- a/lib/qcd/action/fermion/DomainWallEOFAFermiondense.cc +++ b/lib/qcd/action/fermion/DomainWallEOFAFermiondense.cc @@ -58,7 +58,7 @@ void DomainWallEOFAFermion::MooeeInternal(const FermionField& psi, Fermion int LLs = psi._grid->_rdimensions[0]; int vol = psi._grid->oSites()/LLs; - chi.checkerboard = psi.checkerboard; + chi.Checkerboard() = psi.Checkerboard(); assert(Ls==LLs); diff --git a/lib/qcd/action/fermion/DomainWallEOFAFermionssp.cc b/lib/qcd/action/fermion/DomainWallEOFAFermionssp.cc index f49eb2aa..5e7b9d29 100644 --- a/lib/qcd/action/fermion/DomainWallEOFAFermionssp.cc +++ b/lib/qcd/action/fermion/DomainWallEOFAFermionssp.cc @@ -83,7 +83,7 @@ void DomainWallEOFAFermion::MooeeInv(const FermionField& psi, FermionField { Coeff_t one(1.0); Coeff_t czero(0.0); - chi.checkerboard = psi.checkerboard; + chi.Checkerboard() = psi.Checkerboard(); int Ls = this->Ls; FermionField tmp(psi._grid); @@ -117,7 +117,7 @@ void DomainWallEOFAFermion::MooeeInvDag(const FermionField& psi, FermionFi { Coeff_t one(1.0); Coeff_t czero(0.0); - chi.checkerboard = psi.checkerboard; + chi.Checkerboard() = psi.Checkerboard(); int Ls = this->Ls; FermionField tmp(psi._grid); diff --git a/lib/qcd/action/fermion/DomainWallEOFAFermionvec.cc b/lib/qcd/action/fermion/DomainWallEOFAFermionvec.cc index 832cd449..6f3ad049 100644 --- a/lib/qcd/action/fermion/DomainWallEOFAFermionvec.cc +++ b/lib/qcd/action/fermion/DomainWallEOFAFermionvec.cc @@ -65,9 +65,9 @@ void DomainWallEOFAFermion::M5D(const FermionField& psi, const FermionFiel Vector > d(LLs); assert(Ls/LLs == nsimd); - assert(phi.checkerboard == psi.checkerboard); + assert(phi.Checkerboard() == psi.Checkerboard()); - chi.checkerboard = psi.checkerboard; + chi.Checkerboard() = psi.Checkerboard(); // just directly address via type pun typedef typename Simd::scalar_type scalar_type; @@ -210,9 +210,9 @@ void DomainWallEOFAFermion::M5Ddag(const FermionField& psi, const FermionF Vector > d(LLs); assert(Ls/LLs == nsimd); - assert(phi.checkerboard == psi.checkerboard); + assert(phi.Checkerboard() == psi.Checkerboard()); - chi.checkerboard = psi.checkerboard; + chi.Checkerboard() = psi.Checkerboard(); // just directly address via type pun typedef typename Simd::scalar_type scalar_type; @@ -536,7 +536,7 @@ void DomainWallEOFAFermion::MooeeInternal(const FermionField& psi, Fermion int LLs = psi._grid->_rdimensions[0]; int vol = psi._grid->oSites()/LLs; - chi.checkerboard = psi.checkerboard; + chi.Checkerboard() = psi.Checkerboard(); Vector > Matp; Vector > Matm; diff --git a/lib/qcd/action/fermion/FermionOperatorImpl.h b/lib/qcd/action/fermion/FermionOperatorImpl.h index dac5cb4e..7b36e41e 100644 --- a/lib/qcd/action/fermion/FermionOperatorImpl.h +++ b/lib/qcd/action/fermion/FermionOperatorImpl.h @@ -432,7 +432,7 @@ public: // sum across the 5d dimension for (auto v : vres) scalar_object += v; } - tmp._odata[so].putlane(scalar_object, si); + tmp[so].putlane(scalar_object, si); } } PokeIndex(mat, tmp, mu); diff --git a/lib/qcd/action/fermion/ImprovedStaggeredFermion.cc b/lib/qcd/action/fermion/ImprovedStaggeredFermion.cc index 8e1dd3f7..1cc69559 100644 --- a/lib/qcd/action/fermion/ImprovedStaggeredFermion.cc +++ b/lib/qcd/action/fermion/ImprovedStaggeredFermion.cc @@ -171,21 +171,21 @@ void ImprovedStaggeredFermion::ImportGauge(const GaugeField &_Uthin,const template RealD ImprovedStaggeredFermion::M(const FermionField &in, FermionField &out) { - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); Dhop(in, out, DaggerNo); return axpy_norm(out, mass, in, out); } template RealD ImprovedStaggeredFermion::Mdag(const FermionField &in, FermionField &out) { - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); Dhop(in, out, DaggerYes); return axpy_norm(out, mass, in, out); } template void ImprovedStaggeredFermion::Meooe(const FermionField &in, FermionField &out) { - if (in.checkerboard == Odd) { + if (in.Checkerboard() == Odd) { DhopEO(in, out, DaggerNo); } else { DhopOE(in, out, DaggerNo); @@ -193,7 +193,7 @@ void ImprovedStaggeredFermion::Meooe(const FermionField &in, FermionField } template void ImprovedStaggeredFermion::MeooeDag(const FermionField &in, FermionField &out) { - if (in.checkerboard == Odd) { + if (in.Checkerboard() == Odd) { DhopEO(in, out, DaggerYes); } else { DhopOE(in, out, DaggerYes); @@ -202,27 +202,27 @@ void ImprovedStaggeredFermion::MeooeDag(const FermionField &in, FermionFie template void ImprovedStaggeredFermion::Mooee(const FermionField &in, FermionField &out) { - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); typename FermionField::scalar_type scal(mass); out = scal * in; } template void ImprovedStaggeredFermion::MooeeDag(const FermionField &in, FermionField &out) { - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); Mooee(in, out); } template void ImprovedStaggeredFermion::MooeeInv(const FermionField &in, FermionField &out) { - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); out = (1.0 / (mass)) * in; } template void ImprovedStaggeredFermion::MooeeInvDag(const FermionField &in, FermionField &out) { - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); MooeeInv(in, out); } @@ -285,7 +285,7 @@ void ImprovedStaggeredFermion::DhopDeriv(GaugeField &mat, const FermionFie conformable(U._grid, V._grid); conformable(U._grid, mat._grid); - mat.checkerboard = U.checkerboard; + mat.Checkerboard() = U.Checkerboard(); DerivInternal(Stencil, Umu, UUUmu, mat, U, V, dag); } @@ -297,9 +297,9 @@ void ImprovedStaggeredFermion::DhopDerivOE(GaugeField &mat, const FermionF conformable(U._grid, V._grid); conformable(U._grid, mat._grid); - assert(V.checkerboard == Even); - assert(U.checkerboard == Odd); - mat.checkerboard = Odd; + assert(V.Checkerboard() == Even); + assert(U.Checkerboard() == Odd); + mat.Checkerboard() = Odd; DerivInternal(StencilEven, UmuOdd, UUUmuOdd, mat, U, V, dag); } @@ -311,9 +311,9 @@ void ImprovedStaggeredFermion::DhopDerivEO(GaugeField &mat, const FermionF conformable(U._grid, V._grid); conformable(U._grid, mat._grid); - assert(V.checkerboard == Odd); - assert(U.checkerboard == Even); - mat.checkerboard = Even; + assert(V.Checkerboard() == Odd); + assert(U.Checkerboard() == Even); + mat.Checkerboard() = Even; DerivInternal(StencilOdd, UmuEven, UUUmuEven, mat, U, V, dag); } @@ -323,7 +323,7 @@ void ImprovedStaggeredFermion::Dhop(const FermionField &in, FermionField & conformable(in._grid, _grid); // verifies full grid conformable(in._grid, out._grid); - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); DhopInternal(Stencil, Lebesgue, Umu, UUUmu, in, out, dag); } @@ -333,8 +333,8 @@ void ImprovedStaggeredFermion::DhopOE(const FermionField &in, FermionField conformable(in._grid, _cbgrid); // verifies half grid conformable(in._grid, out._grid); // drops the cb check - assert(in.checkerboard == Even); - out.checkerboard = Odd; + assert(in.Checkerboard() == Even); + out.Checkerboard() = Odd; DhopInternal(StencilEven, LebesgueEvenOdd, UmuOdd, UUUmuOdd, in, out, dag); } @@ -344,8 +344,8 @@ void ImprovedStaggeredFermion::DhopEO(const FermionField &in, FermionField conformable(in._grid, _cbgrid); // verifies half grid conformable(in._grid, out._grid); // drops the cb check - assert(in.checkerboard == Odd); - out.checkerboard = Even; + assert(in.Checkerboard() == Odd); + out.Checkerboard() = Even; DhopInternal(StencilOdd, LebesgueEvenOdd, UmuEven, UUUmuEven, in, out, dag); } diff --git a/lib/qcd/action/fermion/ImprovedStaggeredFermion5D.cc b/lib/qcd/action/fermion/ImprovedStaggeredFermion5D.cc index b0d65be6..b8048723 100644 --- a/lib/qcd/action/fermion/ImprovedStaggeredFermion5D.cc +++ b/lib/qcd/action/fermion/ImprovedStaggeredFermion5D.cc @@ -262,8 +262,8 @@ void ImprovedStaggeredFermion5D::DhopOE(const FermionField &in, FermionFie conformable(in._grid,FermionRedBlackGrid()); // verifies half grid conformable(in._grid,out._grid); // drops the cb check - assert(in.checkerboard==Even); - out.checkerboard = Odd; + assert(in.Checkerboard()==Even); + out.Checkerboard() = Odd; DhopInternal(StencilEven,LebesgueEvenOdd,UmuOdd,UUUmuOdd,in,out,dag); } @@ -274,8 +274,8 @@ void ImprovedStaggeredFermion5D::DhopEO(const FermionField &in, FermionFie conformable(in._grid,FermionRedBlackGrid()); // verifies half grid conformable(in._grid,out._grid); // drops the cb check - assert(in.checkerboard==Odd); - out.checkerboard = Even; + assert(in.Checkerboard()==Odd); + out.Checkerboard() = Even; DhopInternal(StencilOdd,LebesgueEvenOdd,UmuEven,UUUmuEven,in,out,dag); } @@ -286,7 +286,7 @@ void ImprovedStaggeredFermion5D::Dhop(const FermionField &in, FermionField conformable(in._grid,FermionGrid()); // verifies full grid conformable(in._grid,out._grid); - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); DhopInternal(Stencil,Lebesgue,Umu,UUUmu,in,out,dag); } @@ -349,21 +349,21 @@ void ImprovedStaggeredFermion5D::Mdir(const FermionField &in, FermionField } template RealD ImprovedStaggeredFermion5D::M(const FermionField &in, FermionField &out) { - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); Dhop(in, out, DaggerNo); return axpy_norm(out, mass, in, out); } template RealD ImprovedStaggeredFermion5D::Mdag(const FermionField &in, FermionField &out) { - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); Dhop(in, out, DaggerYes); return axpy_norm(out, mass, in, out); } template void ImprovedStaggeredFermion5D::Meooe(const FermionField &in, FermionField &out) { - if (in.checkerboard == Odd) { + if (in.Checkerboard() == Odd) { DhopEO(in, out, DaggerNo); } else { DhopOE(in, out, DaggerNo); @@ -371,7 +371,7 @@ void ImprovedStaggeredFermion5D::Meooe(const FermionField &in, FermionFiel } template void ImprovedStaggeredFermion5D::MeooeDag(const FermionField &in, FermionField &out) { - if (in.checkerboard == Odd) { + if (in.Checkerboard() == Odd) { DhopEO(in, out, DaggerYes); } else { DhopOE(in, out, DaggerYes); @@ -380,27 +380,27 @@ void ImprovedStaggeredFermion5D::MeooeDag(const FermionField &in, FermionF template void ImprovedStaggeredFermion5D::Mooee(const FermionField &in, FermionField &out) { - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); typename FermionField::scalar_type scal(mass); out = scal * in; } template void ImprovedStaggeredFermion5D::MooeeDag(const FermionField &in, FermionField &out) { - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); Mooee(in, out); } template void ImprovedStaggeredFermion5D::MooeeInv(const FermionField &in, FermionField &out) { - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); out = (1.0 / (mass)) * in; } template void ImprovedStaggeredFermion5D::MooeeInvDag(const FermionField &in, FermionField &out) { - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); MooeeInv(in, out); } diff --git a/lib/qcd/action/fermion/MobiusEOFAFermioncache.cc b/lib/qcd/action/fermion/MobiusEOFAFermioncache.cc index a1a9eb86..e3fcc8a7 100644 --- a/lib/qcd/action/fermion/MobiusEOFAFermioncache.cc +++ b/lib/qcd/action/fermion/MobiusEOFAFermioncache.cc @@ -43,8 +43,8 @@ void MobiusEOFAFermion::M5D(const FermionField &psi, const FermionField &p int Ls = this->Ls; GridBase *grid = psi._grid; - assert(phi.checkerboard == psi.checkerboard); - chi.checkerboard = psi.checkerboard; + assert(phi.Checkerboard() == psi.Checkerboard()); + chi.Checkerboard() = psi.Checkerboard(); // Flops = 6.0*(Nc*Ns) *Ls*vol this->M5Dcalls++; @@ -52,21 +52,21 @@ void MobiusEOFAFermion::M5D(const FermionField &psi, const FermionField &p parallel_for(int ss=0; ssoSites(); ss+=Ls){ for(int s=0; s::M5D_shift(const FermionField &psi, const FermionFi int shift_s = (this->pm == 1) ? (Ls-1) : 0; // s-component modified by shift operator GridBase *grid = psi._grid; - assert(phi.checkerboard == psi.checkerboard); - chi.checkerboard = psi.checkerboard; + assert(phi.Checkerboard() == psi.Checkerboard()); + chi.Checkerboard() = psi.Checkerboard(); // Flops = 6.0*(Nc*Ns) *Ls*vol this->M5Dcalls++; @@ -93,25 +93,25 @@ void MobiusEOFAFermion::M5D_shift(const FermionField &psi, const FermionFi parallel_for(int ss=0; ssoSites(); ss+=Ls){ for(int s=0; spm == 1){ spProj5p(tmp, psi._odata[ss+shift_s]); } - else{ spProj5m(tmp, psi._odata[ss+shift_s]); } + if(this->pm == 1){ spProj5p(tmp, psi[ss+shift_s]); } + else{ spProj5m(tmp, psi[ss+shift_s]); } chi[ss+s] = chi[ss+s] + shift_coeffs[s]*tmp; } } @@ -126,30 +126,30 @@ void MobiusEOFAFermion::M5Ddag(const FermionField &psi, const FermionField int Ls = this->Ls; GridBase *grid = psi._grid; - assert(phi.checkerboard == psi.checkerboard); - chi.checkerboard = psi.checkerboard; + assert(phi.Checkerboard() == psi.Checkerboard()); + chi.Checkerboard() = psi.Checkerboard(); // Flops = 6.0*(Nc*Ns) *Ls*vol this->M5Dcalls++; this->M5Dtime -= usecond(); parallel_for(int ss=0; ssoSites(); ss+=Ls){ - auto tmp = psi._odata[0]; + auto tmp = psi[0]; for(int s=0; s::M5Ddag_shift(const FermionField &psi, const Fermio int shift_s = (this->pm == 1) ? (Ls-1) : 0; // s-component modified by shift operator GridBase *grid = psi._grid; - assert(phi.checkerboard == psi.checkerboard); - chi.checkerboard = psi.checkerboard; + assert(phi.Checkerboard() == psi.Checkerboard()); + chi.Checkerboard() = psi.Checkerboard(); // Flops = 6.0*(Nc*Ns) *Ls*vol this->M5Dcalls++; @@ -176,26 +176,26 @@ void MobiusEOFAFermion::M5Ddag_shift(const FermionField &psi, const Fermio parallel_for(int ss=0; ssoSites(); ss+=Ls){ chi[ss+Ls-1] = zero; - auto tmp = psi._odata[0]; + auto tmp = psi[0]; for(int s=0; spm == 1){ spProj5p(tmp, psi._odata[ss+s]); } - else{ spProj5m(tmp, psi._odata[ss+s]); } + if(this->pm == 1){ spProj5p(tmp, psi[ss+s]); } + else{ spProj5m(tmp, psi[ss+s]); } chi[ss+shift_s] = chi[ss+shift_s] + shift_coeffs[s]*tmp; } } @@ -211,14 +211,14 @@ void MobiusEOFAFermion::MooeeInv(const FermionField &psi, FermionField &ch GridBase *grid = psi._grid; int Ls = this->Ls; - chi.checkerboard = psi.checkerboard; + chi.Checkerboard() = psi.Checkerboard(); this->MooeeInvCalls++; this->MooeeInvTime -= usecond(); parallel_for(int ss=0; ssoSites(); ss+=Ls){ - auto tmp = psi._odata[0]; + auto tmp = psi[0]; // Apply (L^{\prime})^{-1} chi[ss] = psi[ss]; // chi[0]=psi[0] @@ -256,16 +256,16 @@ void MobiusEOFAFermion::MooeeInv_shift(const FermionField &psi, FermionFie GridBase *grid = psi._grid; int Ls = this->Ls; - chi.checkerboard = psi.checkerboard; + chi.Checkerboard() = psi.Checkerboard(); this->MooeeInvCalls++; this->MooeeInvTime -= usecond(); parallel_for(int ss=0; ssoSites(); ss+=Ls){ - auto tmp1 = psi._odata[0]; - auto tmp2 = psi._odata[0]; - auto tmp2_spProj = psi._odata[0]; + auto tmp1 = psi[0]; + auto tmp2 = psi[0]; + auto tmp2_spProj = psi[0]; // Apply (L^{\prime})^{-1} and accumulate MooeeInv_shift_lc[j]*psi[j] in tmp2 chi[ss] = psi[ss]; // chi[0]=psi[0] @@ -313,14 +313,14 @@ void MobiusEOFAFermion::MooeeInvDag(const FermionField &psi, FermionField GridBase *grid = psi._grid; int Ls = this->Ls; - chi.checkerboard = psi.checkerboard; + chi.Checkerboard() = psi.Checkerboard(); this->MooeeInvCalls++; this->MooeeInvTime -= usecond(); parallel_for(int ss=0; ssoSites(); ss+=Ls){ - auto tmp = psi._odata[0]; + auto tmp = psi[0]; // Apply (U^{\prime})^{-dag} chi[ss] = psi[ss]; @@ -358,16 +358,16 @@ void MobiusEOFAFermion::MooeeInvDag_shift(const FermionField &psi, Fermion GridBase *grid = psi._grid; int Ls = this->Ls; - chi.checkerboard = psi.checkerboard; + chi.Checkerboard() = psi.Checkerboard(); this->MooeeInvCalls++; this->MooeeInvTime -= usecond(); parallel_for(int ss=0; ssoSites(); ss+=Ls){ - auto tmp1 = psi._odata[0]; - auto tmp2 = psi._odata[0]; - auto tmp2_spProj = psi._odata[0]; + auto tmp1 = psi[0]; + auto tmp2 = psi[0]; + auto tmp2_spProj = psi[0]; // Apply (U^{\prime})^{-dag} and accumulate MooeeInvDag_shift_lc[j]*psi[j] in tmp2 chi[ss] = psi[ss]; diff --git a/lib/qcd/action/fermion/MobiusEOFAFermiondense.cc b/lib/qcd/action/fermion/MobiusEOFAFermiondense.cc index bbf06585..bdd5be1d 100644 --- a/lib/qcd/action/fermion/MobiusEOFAFermiondense.cc +++ b/lib/qcd/action/fermion/MobiusEOFAFermiondense.cc @@ -76,7 +76,7 @@ void MobiusEOFAFermion::MooeeInternal(const FermionField& psi, FermionFiel RealD k = this->k; RealD mq1 = this->mq1; - chi.checkerboard = psi.checkerboard; + chi.Checkerboard() = psi.Checkerboard(); assert(Ls==LLs); diff --git a/lib/qcd/action/fermion/MobiusEOFAFermionssp.cc b/lib/qcd/action/fermion/MobiusEOFAFermionssp.cc index 7a6f44e9..29dccf9a 100644 --- a/lib/qcd/action/fermion/MobiusEOFAFermionssp.cc +++ b/lib/qcd/action/fermion/MobiusEOFAFermionssp.cc @@ -131,7 +131,7 @@ void MobiusEOFAFermion::MooeeInv(const FermionField& psi, FermionField& ch Coeff_t one(1.0); Coeff_t czero(0.0); - chi.checkerboard = psi.checkerboard; + chi.Checkerboard() = psi.Checkerboard(); int Ls = this->Ls; // Apply (L^{\prime})^{-1} @@ -162,7 +162,7 @@ void MobiusEOFAFermion::MooeeInv_shift(const FermionField& psi, FermionFie { Coeff_t one(1.0); Coeff_t czero(0.0); - chi.checkerboard = psi.checkerboard; + chi.Checkerboard() = psi.Checkerboard(); int Ls = this->Ls; FermionField tmp(psi._grid); @@ -203,7 +203,7 @@ void MobiusEOFAFermion::MooeeInvDag(const FermionField& psi, FermionField& Coeff_t one(1.0); Coeff_t czero(0.0); - chi.checkerboard = psi.checkerboard; + chi.Checkerboard() = psi.Checkerboard(); int Ls = this->Ls; // Apply (U^{\prime})^{-dagger} @@ -234,7 +234,7 @@ void MobiusEOFAFermion::MooeeInvDag_shift(const FermionField& psi, Fermion { Coeff_t one(1.0); Coeff_t czero(0.0); - chi.checkerboard = psi.checkerboard; + chi.Checkerboard() = psi.Checkerboard(); int Ls = this->Ls; FermionField tmp(psi._grid); diff --git a/lib/qcd/action/fermion/MobiusEOFAFermionvec.cc b/lib/qcd/action/fermion/MobiusEOFAFermionvec.cc index 03808b02..38cd4853 100644 --- a/lib/qcd/action/fermion/MobiusEOFAFermionvec.cc +++ b/lib/qcd/action/fermion/MobiusEOFAFermionvec.cc @@ -76,9 +76,9 @@ void MobiusEOFAFermion::M5D(const FermionField& psi, const FermionField& p Vector> d(LLs); assert(Ls/LLs == nsimd); - assert(phi.checkerboard == psi.checkerboard); + assert(phi.Checkerboard() == psi.Checkerboard()); - chi.checkerboard = psi.checkerboard; + chi.Checkerboard() = psi.Checkerboard(); // just directly address via type pun typedef typename Simd::scalar_type scalar_type; @@ -237,9 +237,9 @@ void MobiusEOFAFermion::M5D_shift(const FermionField& psi, const FermionFi Vector> s(LLs); assert(Ls/LLs == nsimd); - assert(phi.checkerboard == psi.checkerboard); + assert(phi.Checkerboard() == psi.Checkerboard()); - chi.checkerboard = psi.checkerboard; + chi.Checkerboard() = psi.Checkerboard(); // just directly address via type pun typedef typename Simd::scalar_type scalar_type; @@ -402,9 +402,9 @@ void MobiusEOFAFermion::M5Ddag(const FermionField& psi, const FermionField Vector> d(LLs); assert(Ls/LLs == nsimd); - assert(phi.checkerboard == psi.checkerboard); + assert(phi.Checkerboard() == psi.Checkerboard()); - chi.checkerboard = psi.checkerboard; + chi.Checkerboard() = psi.Checkerboard(); // just directly address via type pun typedef typename Simd::scalar_type scalar_type; @@ -560,9 +560,9 @@ void MobiusEOFAFermion::M5Ddag_shift(const FermionField& psi, const Fermio Vector> s(LLs); assert(Ls/LLs == nsimd); - assert(phi.checkerboard == psi.checkerboard); + assert(phi.Checkerboard() == psi.Checkerboard()); - chi.checkerboard = psi.checkerboard; + chi.Checkerboard() = psi.Checkerboard(); // just directly address via type pun typedef typename Simd::scalar_type scalar_type; @@ -913,7 +913,7 @@ void MobiusEOFAFermion::MooeeInternal(const FermionField& psi, FermionFiel int LLs = psi._grid->_rdimensions[0]; int vol = psi._grid->oSites()/LLs; - chi.checkerboard = psi.checkerboard; + chi.Checkerboard() = psi.Checkerboard(); Vector> Matp; Vector> Matm; diff --git a/lib/qcd/action/fermion/PartialFractionFermion5D.cc b/lib/qcd/action/fermion/PartialFractionFermion5D.cc index 1ba8a788..2faf2adf 100644 --- a/lib/qcd/action/fermion/PartialFractionFermion5D.cc +++ b/lib/qcd/action/fermion/PartialFractionFermion5D.cc @@ -51,7 +51,7 @@ template void PartialFractionFermion5D::Meooe_internal(const FermionField &psi, FermionField &chi,int dag) { int Ls = this->Ls; - if ( psi.checkerboard == Odd ) { + if ( psi.Checkerboard() == Odd ) { this->DhopEO(psi,chi,DaggerNo); } else { this->DhopOE(psi,chi,DaggerNo); diff --git a/lib/qcd/action/fermion/SchurDiagTwoKappa.h b/lib/qcd/action/fermion/SchurDiagTwoKappa.h index a0026f57..f24089e7 100644 --- a/lib/qcd/action/fermion/SchurDiagTwoKappa.h +++ b/lib/qcd/action/fermion/SchurDiagTwoKappa.h @@ -51,12 +51,12 @@ public: template void sscale(const Lattice& in, Lattice& out, Coeff_t* s) { GridBase *grid=out._grid; - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); assert(grid->_simd_layout[0] == 1); // should be fine for ZMobius for now int Ls = grid->_rdimensions[0]; parallel_for(int ss=0;ssoSites();ss++){ - vobj tmp = s[ss % Ls]*in._odata[ss]; - vstream(out._odata[ss],tmp); + vobj tmp = s[ss % Ls]*in[ss]; + vstream(out[ss],tmp); } } diff --git a/lib/qcd/action/fermion/StaggeredKernels.cc b/lib/qcd/action/fermion/StaggeredKernels.cc index 29732ec7..832a3066 100644 --- a/lib/qcd/action/fermion/StaggeredKernels.cc +++ b/lib/qcd/action/fermion/StaggeredKernels.cc @@ -58,14 +58,14 @@ void StaggeredKernels::DhopSiteDepth(StencilImpl &st, LebesgueOrder &lo, D if (SE->_is_local) { if (SE->_permute) { chi_p = χ - permute(chi, in._odata[SE->_offset], ptype); + permute(chi, in[SE->_offset], ptype); } else { - chi_p = &in._odata[SE->_offset]; + chi_p = &in[SE->_offset]; } } else { chi_p = &buf[SE->_offset]; } - Impl::multLink(Uchi, U._odata[sU], *chi_p, Xp); + Impl::multLink(Uchi, U[sU], *chi_p, Xp); /////////////////////////// // Yp @@ -74,14 +74,14 @@ void StaggeredKernels::DhopSiteDepth(StencilImpl &st, LebesgueOrder &lo, D if (SE->_is_local) { if (SE->_permute) { chi_p = χ - permute(chi, in._odata[SE->_offset], ptype); + permute(chi, in[SE->_offset], ptype); } else { - chi_p = &in._odata[SE->_offset]; + chi_p = &in[SE->_offset]; } } else { chi_p = &buf[SE->_offset]; } - Impl::multLinkAdd(Uchi, U._odata[sU], *chi_p, Yp); + Impl::multLinkAdd(Uchi, U[sU], *chi_p, Yp); /////////////////////////// // Zp @@ -90,14 +90,14 @@ void StaggeredKernels::DhopSiteDepth(StencilImpl &st, LebesgueOrder &lo, D if (SE->_is_local) { if (SE->_permute) { chi_p = χ - permute(chi, in._odata[SE->_offset], ptype); + permute(chi, in[SE->_offset], ptype); } else { - chi_p = &in._odata[SE->_offset]; + chi_p = &in[SE->_offset]; } } else { chi_p = &buf[SE->_offset]; } - Impl::multLinkAdd(Uchi, U._odata[sU], *chi_p, Zp); + Impl::multLinkAdd(Uchi, U[sU], *chi_p, Zp); /////////////////////////// // Tp @@ -106,14 +106,14 @@ void StaggeredKernels::DhopSiteDepth(StencilImpl &st, LebesgueOrder &lo, D if (SE->_is_local) { if (SE->_permute) { chi_p = χ - permute(chi, in._odata[SE->_offset], ptype); + permute(chi, in[SE->_offset], ptype); } else { - chi_p = &in._odata[SE->_offset]; + chi_p = &in[SE->_offset]; } } else { chi_p = &buf[SE->_offset]; } - Impl::multLinkAdd(Uchi, U._odata[sU], *chi_p, Tp); + Impl::multLinkAdd(Uchi, U[sU], *chi_p, Tp); /////////////////////////// // Xm @@ -122,14 +122,14 @@ void StaggeredKernels::DhopSiteDepth(StencilImpl &st, LebesgueOrder &lo, D if (SE->_is_local) { if (SE->_permute) { chi_p = χ - permute(chi, in._odata[SE->_offset], ptype); + permute(chi, in[SE->_offset], ptype); } else { - chi_p = &in._odata[SE->_offset]; + chi_p = &in[SE->_offset]; } } else { chi_p = &buf[SE->_offset]; } - Impl::multLinkAdd(Uchi, U._odata[sU], *chi_p, Xm); + Impl::multLinkAdd(Uchi, U[sU], *chi_p, Xm); /////////////////////////// // Ym @@ -138,14 +138,14 @@ void StaggeredKernels::DhopSiteDepth(StencilImpl &st, LebesgueOrder &lo, D if (SE->_is_local) { if (SE->_permute) { chi_p = χ - permute(chi, in._odata[SE->_offset], ptype); + permute(chi, in[SE->_offset], ptype); } else { - chi_p = &in._odata[SE->_offset]; + chi_p = &in[SE->_offset]; } } else { chi_p = &buf[SE->_offset]; } - Impl::multLinkAdd(Uchi, U._odata[sU], *chi_p, Ym); + Impl::multLinkAdd(Uchi, U[sU], *chi_p, Ym); /////////////////////////// // Zm @@ -154,14 +154,14 @@ void StaggeredKernels::DhopSiteDepth(StencilImpl &st, LebesgueOrder &lo, D if (SE->_is_local) { if (SE->_permute) { chi_p = χ - permute(chi, in._odata[SE->_offset], ptype); + permute(chi, in[SE->_offset], ptype); } else { - chi_p = &in._odata[SE->_offset]; + chi_p = &in[SE->_offset]; } } else { chi_p = &buf[SE->_offset]; } - Impl::multLinkAdd(Uchi, U._odata[sU], *chi_p, Zm); + Impl::multLinkAdd(Uchi, U[sU], *chi_p, Zm); /////////////////////////// // Tm @@ -170,14 +170,14 @@ void StaggeredKernels::DhopSiteDepth(StencilImpl &st, LebesgueOrder &lo, D if (SE->_is_local) { if (SE->_permute) { chi_p = χ - permute(chi, in._odata[SE->_offset], ptype); + permute(chi, in[SE->_offset], ptype); } else { - chi_p = &in._odata[SE->_offset]; + chi_p = &in[SE->_offset]; } } else { chi_p = &buf[SE->_offset]; } - Impl::multLinkAdd(Uchi, U._odata[sU], *chi_p, Tm); + Impl::multLinkAdd(Uchi, U[sU], *chi_p, Tm); vstream(out, Uchi); }; @@ -198,7 +198,7 @@ void StaggeredKernels::DhopSiteDag(StencilImpl &st, LebesgueOrder &lo, Dou DhopSiteAsm(st,lo,U,UUU,buf,LLs,sU,in,out); for(int s=0;s::DhopSiteDag(StencilImpl &st, LebesgueOrder &lo, Dou int sF=s+LLs*sU; DhopSiteDepth(st,lo,U,buf,sF,sU,in,naive,oneLink); DhopSiteDepth(st,lo,UUU,buf,sF,sU,in,naik,threeLink); - out._odata[sF] =-naive-naik; + out[sF] =-naive-naik; } break; default: @@ -247,7 +247,7 @@ void StaggeredKernels::DhopSite(StencilImpl &st, LebesgueOrder &lo, Double // assert(sF>=0); assert(sU>=0); DhopSiteDepth(st,lo,U,buf,sF,sU,in,naive,oneLink); DhopSiteDepth(st,lo,UUU,buf,sF,sU,in,naik,threeLink); - out._odata[sF] =naive+naik; + out[sF] =naive+naik; } break; default: diff --git a/lib/qcd/action/fermion/StaggeredKernelsAsm.cc b/lib/qcd/action/fermion/StaggeredKernelsAsm.cc index 7a9ebc39..d7fa50c5 100644 --- a/lib/qcd/action/fermion/StaggeredKernelsAsm.cc +++ b/lib/qcd/action/fermion/StaggeredKernelsAsm.cc @@ -589,7 +589,7 @@ void StaggeredKernels::DhopSiteAsm(StencilImpl &st, LebesgueOrder &lo, }; -//#define CONDITIONAL_MOVE(l,o,out) if ( l ) { out = (uint64_t) &in._odata[o] ; } else { out =(uint64_t) &buf[o]; } +//#define CONDITIONAL_MOVE(l,o,out) if ( l ) { out = (uint64_t) &in[o] ; } else { out =(uint64_t) &buf[o]; } #define CONDITIONAL_MOVE(l,o,out) { const SiteSpinor *ptr = l? in_p : buf; out = (uint64_t) &ptr[o]; } @@ -636,10 +636,10 @@ void StaggeredKernels::DhopSiteAsm(StencilImpl &st, LebesgueOrder &lo, CONDITIONAL_MOVE(l3,o3,addr3); \ PF_CHI(addr3); \ \ - gauge0 =(uint64_t)&UU._odata[sU]( X ); \ - gauge1 =(uint64_t)&UU._odata[sU]( Y ); \ - gauge2 =(uint64_t)&UU._odata[sU]( Z ); \ - gauge3 =(uint64_t)&UU._odata[sU]( T ); + gauge0 =(uint64_t)&UU[sU]( X ); \ + gauge1 =(uint64_t)&UU[sU]( Y ); \ + gauge2 =(uint64_t)&UU[sU]( Z ); \ + gauge3 =(uint64_t)&UU[sU]( T ); // This is the single precision 5th direction vectorised kernel #include @@ -652,7 +652,7 @@ template <> void StaggeredKernels::DhopSiteAsm(StencilImpl #ifdef AVX512 uint64_t gauge0,gauge1,gauge2,gauge3; uint64_t addr0,addr1,addr2,addr3; - const SiteSpinor *in_p; in_p = &in._odata[0]; + const SiteSpinor *in_p; in_p = &in[0]; int o0,o1,o2,o3; // offsets int l0,l1,l2,l3; // local @@ -683,7 +683,7 @@ template <> void StaggeredKernels::DhopSiteAsm(StencilImpl LOAD_CHI(addr0,addr1,addr2,addr3); MULT_ADD_LS(gauge0,gauge1,gauge2,gauge3); - addr0 = (uint64_t) &out._odata[sF]; + addr0 = (uint64_t) &out[sF]; REDUCE(addr0); } #else @@ -702,7 +702,7 @@ template <> void StaggeredKernels::DhopSiteAsm(StencilImpl #ifdef AVX512 uint64_t gauge0,gauge1,gauge2,gauge3; uint64_t addr0,addr1,addr2,addr3; - const SiteSpinor *in_p; in_p = &in._odata[0]; + const SiteSpinor *in_p; in_p = &in[0]; int o0,o1,o2,o3; // offsets int l0,l1,l2,l3; // local @@ -732,7 +732,7 @@ template <> void StaggeredKernels::DhopSiteAsm(StencilImpl LOAD_CHI(addr0,addr1,addr2,addr3); MULT_ADD_LS(gauge0,gauge1,gauge2,gauge3); - addr0 = (uint64_t) &out._odata[sF]; + addr0 = (uint64_t) &out[sF]; REDUCE(addr0); } #else @@ -783,7 +783,7 @@ template <> void StaggeredKernels::DhopSiteAsm(StencilImpl &st, #ifdef AVX512 uint64_t gauge0,gauge1,gauge2,gauge3; uint64_t addr0,addr1,addr2,addr3; - const SiteSpinor *in_p; in_p = &in._odata[0]; + const SiteSpinor *in_p; in_p = &in[0]; int o0,o1,o2,o3; // offsets int l0,l1,l2,l3; // local @@ -830,7 +830,7 @@ template <> void StaggeredKernels::DhopSiteAsm(StencilImpl &st, PERMUTE23; MULT_ADD_XYZT(gauge2,gauge3); - addr0 = (uint64_t) &out._odata[sF]; + addr0 = (uint64_t) &out[sF]; REDUCEa(addr0); } #else @@ -848,7 +848,7 @@ template <> void StaggeredKernels::DhopSiteAsm(StencilImpl &st, #ifdef AVX512 uint64_t gauge0,gauge1,gauge2,gauge3; uint64_t addr0,addr1,addr2,addr3; - const SiteSpinor *in_p; in_p = &in._odata[0]; + const SiteSpinor *in_p; in_p = &in[0]; int o0,o1,o2,o3; // offsets int l0,l1,l2,l3; // local @@ -895,7 +895,7 @@ template <> void StaggeredKernels::DhopSiteAsm(StencilImpl &st, PERMUTE23; MULT_ADD_XYZT(gauge2,gauge3); - addr0 = (uint64_t) &out._odata[sF]; + addr0 = (uint64_t) &out[sF]; REDUCEa(addr0); } #else diff --git a/lib/qcd/action/fermion/StaggeredKernelsHand.cc b/lib/qcd/action/fermion/StaggeredKernelsHand.cc index bbbde7b4..c2c99534 100644 --- a/lib/qcd/action/fermion/StaggeredKernelsHand.cc +++ b/lib/qcd/action/fermion/StaggeredKernelsHand.cc @@ -39,7 +39,7 @@ Author: paboyle // To splat or not to splat depends on the implementation #define MULT(A,UChi) \ - auto & ref(U._odata[sU](A)); \ + auto & ref(U[sU](A)); \ Impl::loadLinkElement(U_00,ref()(0,0)); \ Impl::loadLinkElement(U_10,ref()(1,0)); \ Impl::loadLinkElement(U_20,ref()(2,0)); \ @@ -60,7 +60,7 @@ Author: paboyle UChi ## _2 += U_22*Chi_2; #define MULT_ADD(A,UChi) \ - auto & ref(U._odata[sU](A)); \ + auto & ref(U[sU](A)); \ Impl::loadLinkElement(U_00,ref()(0,0)); \ Impl::loadLinkElement(U_10,ref()(1,0)); \ Impl::loadLinkElement(U_20,ref()(2,0)); \ @@ -105,7 +105,7 @@ void StaggeredKernels::DhopSiteHand(StencilImpl &st, LebesgueOrder &lo, Do int sF=s+LLs*sU; DhopSiteDepthHand(st,lo,U,buf,sF,sU,in,naive,oneLink); DhopSiteDepthHand(st,lo,UUU,buf,sF,sU,in,naik,threeLink); - out._odata[sF] =scale*(naive+naik); + out[sF] =scale*(naive+naik); } } @@ -151,7 +151,7 @@ void StaggeredKernels::DhopSiteDepthHand(StencilImpl &st, LebesgueOrder &l perm = SE->_permute; if ( local ) { - LOAD_CHI(in._odata); + LOAD_CHI((&in[0])); if ( perm) { PERMUTE_DIR(3); // T==0, Z==1, Y==2, Z==3 expect 1,2,2,2 simd layout etc... } @@ -169,7 +169,7 @@ void StaggeredKernels::DhopSiteDepthHand(StencilImpl &st, LebesgueOrder &l perm = SE->_permute; if ( local ) { - LOAD_CHI(in._odata); + LOAD_CHI((&in[0])); if ( perm) { PERMUTE_DIR(2); // T==0, Z==1, Y==2, Z==3 expect 1,2,2,2 simd layout etc... } @@ -188,7 +188,7 @@ void StaggeredKernels::DhopSiteDepthHand(StencilImpl &st, LebesgueOrder &l perm = SE->_permute; if ( local ) { - LOAD_CHI(in._odata); + LOAD_CHI((&in[0])); if ( perm) { PERMUTE_DIR(1); // T==0, Z==1, Y==2, Z==3 expect 1,2,2,2 simd layout etc... } @@ -206,7 +206,7 @@ void StaggeredKernels::DhopSiteDepthHand(StencilImpl &st, LebesgueOrder &l perm = SE->_permute; if ( local ) { - LOAD_CHI(in._odata); + LOAD_CHI((&in[0])); if ( perm) { PERMUTE_DIR(0); // T==0, Z==1, Y==2, Z==3 expect 1,2,2,2 simd layout etc... } @@ -224,7 +224,7 @@ void StaggeredKernels::DhopSiteDepthHand(StencilImpl &st, LebesgueOrder &l perm = SE->_permute; if ( local ) { - LOAD_CHI(in._odata); + LOAD_CHI((&in[0])); if ( perm) { PERMUTE_DIR(3); // T==0, Z==1, Y==2, Z==3 expect 1,2,2,2 simd layout etc... } @@ -243,7 +243,7 @@ void StaggeredKernels::DhopSiteDepthHand(StencilImpl &st, LebesgueOrder &l perm = SE->_permute; if ( local ) { - LOAD_CHI(in._odata); + LOAD_CHI((&in[0])); if ( perm) { PERMUTE_DIR(2); // T==0, Z==1, Y==2, Z==3 expect 1,2,2,2 simd layout etc... } @@ -261,7 +261,7 @@ void StaggeredKernels::DhopSiteDepthHand(StencilImpl &st, LebesgueOrder &l perm = SE->_permute; if ( local ) { - LOAD_CHI(in._odata); + LOAD_CHI((&in[0])); if ( perm) { PERMUTE_DIR(1); // T==0, Z==1, Y==2, Z==3 expect 1,2,2,2 simd layout etc... } @@ -279,7 +279,7 @@ void StaggeredKernels::DhopSiteDepthHand(StencilImpl &st, LebesgueOrder &l perm = SE->_permute; if ( local ) { - LOAD_CHI(in._odata); + LOAD_CHI((&in[0])); if ( perm) { PERMUTE_DIR(0); // T==0, Z==1, Y==2, Z==3 expect 1,2,2,2 simd layout etc... } diff --git a/lib/qcd/action/fermion/WilsonFermion.cc b/lib/qcd/action/fermion/WilsonFermion.cc index d6fdcd92..3a3770ea 100644 --- a/lib/qcd/action/fermion/WilsonFermion.cc +++ b/lib/qcd/action/fermion/WilsonFermion.cc @@ -79,21 +79,21 @@ void WilsonFermion::ImportGauge(const GaugeField &_Umu) { template RealD WilsonFermion::M(const FermionField &in, FermionField &out) { - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); Dhop(in, out, DaggerNo); return axpy_norm(out, 4 + mass, in, out); } template RealD WilsonFermion::Mdag(const FermionField &in, FermionField &out) { - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); Dhop(in, out, DaggerYes); return axpy_norm(out, 4 + mass, in, out); } template void WilsonFermion::Meooe(const FermionField &in, FermionField &out) { - if (in.checkerboard == Odd) { + if (in.Checkerboard() == Odd) { DhopEO(in, out, DaggerNo); } else { DhopOE(in, out, DaggerNo); @@ -102,7 +102,7 @@ void WilsonFermion::Meooe(const FermionField &in, FermionField &out) { template void WilsonFermion::MeooeDag(const FermionField &in, FermionField &out) { - if (in.checkerboard == Odd) { + if (in.Checkerboard() == Odd) { DhopEO(in, out, DaggerYes); } else { DhopOE(in, out, DaggerYes); @@ -111,26 +111,26 @@ void WilsonFermion::MeooeDag(const FermionField &in, FermionField &out) { template void WilsonFermion::Mooee(const FermionField &in, FermionField &out) { - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); typename FermionField::scalar_type scal(4.0 + mass); out = scal * in; } template void WilsonFermion::MooeeDag(const FermionField &in, FermionField &out) { - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); Mooee(in, out); } template void WilsonFermion::MooeeInv(const FermionField &in, FermionField &out) { - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); out = (1.0/(4.0+mass))*in; } template void WilsonFermion::MooeeInvDag(const FermionField &in, FermionField &out) { - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); MooeeInv(in,out); } template @@ -233,7 +233,7 @@ void WilsonFermion::DhopDeriv(GaugeField &mat, const FermionField &U, cons conformable(U._grid, V._grid); conformable(U._grid, mat._grid); - mat.checkerboard = U.checkerboard; + mat.Checkerboard() = U.Checkerboard(); DerivInternal(Stencil, Umu, mat, U, V, dag); } @@ -245,9 +245,9 @@ void WilsonFermion::DhopDerivOE(GaugeField &mat, const FermionField &U, co //conformable(U._grid, mat._grid); not general, leaving as a comment (Guido) // Motivation: look at the SchurDiff operator - assert(V.checkerboard == Even); - assert(U.checkerboard == Odd); - mat.checkerboard = Odd; + assert(V.Checkerboard() == Even); + assert(U.Checkerboard() == Odd); + mat.Checkerboard() = Odd; DerivInternal(StencilEven, UmuOdd, mat, U, V, dag); } @@ -258,9 +258,9 @@ void WilsonFermion::DhopDerivEO(GaugeField &mat, const FermionField &U, co conformable(U._grid, V._grid); //conformable(U._grid, mat._grid); - assert(V.checkerboard == Odd); - assert(U.checkerboard == Even); - mat.checkerboard = Even; + assert(V.Checkerboard() == Odd); + assert(U.Checkerboard() == Even); + mat.Checkerboard() = Even; DerivInternal(StencilOdd, UmuEven, mat, U, V, dag); } @@ -270,7 +270,7 @@ void WilsonFermion::Dhop(const FermionField &in, FermionField &out, int da conformable(in._grid, _grid); // verifies full grid conformable(in._grid, out._grid); - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); DhopInternal(Stencil, Lebesgue, Umu, in, out, dag); } @@ -280,8 +280,8 @@ void WilsonFermion::DhopOE(const FermionField &in, FermionField &out, int conformable(in._grid, _cbgrid); // verifies half grid conformable(in._grid, out._grid); // drops the cb check - assert(in.checkerboard == Even); - out.checkerboard = Odd; + assert(in.Checkerboard() == Even); + out.Checkerboard() = Odd; DhopInternal(StencilEven, LebesgueEvenOdd, UmuOdd, in, out, dag); } @@ -291,8 +291,8 @@ void WilsonFermion::DhopEO(const FermionField &in, FermionField &out,int d conformable(in._grid, _cbgrid); // verifies half grid conformable(in._grid, out._grid); // drops the cb check - assert(in.checkerboard == Odd); - out.checkerboard = Even; + assert(in.Checkerboard() == Odd); + out.Checkerboard() = Even; DhopInternal(StencilOdd, LebesgueEvenOdd, UmuEven, in, out, dag); } @@ -368,13 +368,13 @@ void WilsonFermion::ContractConservedCurrent(PropagatorField &q_in_1, tmp2 = Cshift(q_in_2, mu, 1); parallel_for (unsigned int sU = 0; sU < Umu._grid->oSites(); ++sU) { - Kernels::ContractConservedCurrentSiteFwd(tmp1._odata[sU], - q_in_2._odata[sU], - q_out._odata[sU], + Kernels::ContractConservedCurrentSiteFwd(tmp1[sU], + q_in_2[sU], + q_out[sU], Umu, sU, mu); - Kernels::ContractConservedCurrentSiteBwd(q_in_1._odata[sU], - tmp2._odata[sU], - q_out._odata[sU], + Kernels::ContractConservedCurrentSiteBwd(q_in_1[sU], + tmp2[sU], + q_out[sU], Umu, sU, mu); } } @@ -419,31 +419,31 @@ void WilsonFermion::SeqConservedCurrent(PropagatorField &q_in, { // Compute the sequential conserved current insertion only if our simd // object contains a timeslice we need. - vInteger t_mask = ((coords._odata[sU] >= tmin) && - (coords._odata[sU] <= tmax)); + vInteger t_mask = ((coords[sU] >= tmin) && + (coords[sU] <= tmax)); Integer timeSlices = Reduce(t_mask); if (timeSlices > 0) { - Kernels::SeqConservedCurrentSiteFwd(tmpFwd._odata[sU], - q_out._odata[sU], + Kernels::SeqConservedCurrentSiteFwd(tmpFwd[sU], + q_out[sU], Umu, sU, mu, t_mask); } // Repeat for backward direction. - t_mask = ((coords._odata[sU] >= (tmin + tshift)) && - (coords._odata[sU] <= (tmax + tshift))); + t_mask = ((coords[sU] >= (tmin + tshift)) && + (coords[sU] <= (tmax + tshift))); //if tmax = LLt-1 (last timeslice) include timeslice 0 if the time is shifted (mu=3) unsigned int t0 = 0; - if((tmax==LLt-1) && (tshift==1)) t_mask = (t_mask || (coords._odata[sU] == t0 )); + if((tmax==LLt-1) && (tshift==1)) t_mask = (t_mask || (coords[sU] == t0 )); timeSlices = Reduce(t_mask); if (timeSlices > 0) { - Kernels::SeqConservedCurrentSiteBwd(tmpBwd._odata[sU], - q_out._odata[sU], + Kernels::SeqConservedCurrentSiteBwd(tmpBwd[sU], + q_out[sU], Umu, sU, mu, t_mask); } } diff --git a/lib/qcd/action/fermion/WilsonFermion5D.cc b/lib/qcd/action/fermion/WilsonFermion5D.cc index 1d4bc038..7af63594 100644 --- a/lib/qcd/action/fermion/WilsonFermion5D.cc +++ b/lib/qcd/action/fermion/WilsonFermion5D.cc @@ -328,7 +328,7 @@ void WilsonFermion5D::DhopDeriv(GaugeField &mat, //conformable(GaugeGrid(),mat._grid);// this is not general! leaving as a comment - mat.checkerboard = A.checkerboard; + mat.Checkerboard() = A.Checkerboard(); DerivInternal(Stencil,Umu,mat,A,B,dag); } @@ -342,9 +342,9 @@ void WilsonFermion5D::DhopDerivEO(GaugeField &mat, conformable(A._grid,FermionRedBlackGrid()); conformable(A._grid,B._grid); - assert(B.checkerboard==Odd); - assert(A.checkerboard==Even); - mat.checkerboard = Even; + assert(B.Checkerboard()==Odd); + assert(A.Checkerboard()==Even); + mat.Checkerboard() = Even; DerivInternal(StencilOdd,UmuEven,mat,A,B,dag); } @@ -359,9 +359,9 @@ void WilsonFermion5D::DhopDerivOE(GaugeField &mat, conformable(A._grid,FermionRedBlackGrid()); conformable(A._grid,B._grid); - assert(B.checkerboard==Even); - assert(A.checkerboard==Odd); - mat.checkerboard = Odd; + assert(B.Checkerboard()==Even); + assert(A.Checkerboard()==Odd); + mat.Checkerboard() = Odd; DerivInternal(StencilEven,UmuOdd,mat,A,B,dag); } @@ -525,8 +525,8 @@ void WilsonFermion5D::DhopOE(const FermionField &in, FermionField &out,int conformable(in._grid,FermionRedBlackGrid()); // verifies half grid conformable(in._grid,out._grid); // drops the cb check - assert(in.checkerboard==Even); - out.checkerboard = Odd; + assert(in.Checkerboard()==Even); + out.Checkerboard() = Odd; DhopInternal(StencilEven,LebesgueEvenOdd,UmuOdd,in,out,dag); } @@ -537,8 +537,8 @@ void WilsonFermion5D::DhopEO(const FermionField &in, FermionField &out,int conformable(in._grid,FermionRedBlackGrid()); // verifies half grid conformable(in._grid,out._grid); // drops the cb check - assert(in.checkerboard==Odd); - out.checkerboard = Even; + assert(in.Checkerboard()==Odd); + out.Checkerboard() = Even; DhopInternal(StencilOdd,LebesgueEvenOdd,UmuEven,in,out,dag); } @@ -549,14 +549,14 @@ void WilsonFermion5D::Dhop(const FermionField &in, FermionField &out,int d conformable(in._grid,FermionGrid()); // verifies full grid conformable(in._grid,out._grid); - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); DhopInternal(Stencil,Lebesgue,Umu,in,out,dag); } template void WilsonFermion5D::DW(const FermionField &in, FermionField &out,int dag) { - out.checkerboard=in.checkerboard; + out.Checkerboard()=in.Checkerboard(); Dhop(in,out,dag); // -0.5 is included axpy(out,4.0-M5,in,out); } @@ -754,21 +754,21 @@ void WilsonFermion5D::ContractConservedCurrent(PropagatorField &q_in_1, // sites correctly. if (Impl::LsVectorised) { - REVERSE_LS(q_in_2._odata[sF2], qSite2, Ls / LLs); - REVERSE_LS(tmp2._odata[sF2], qmuSite2, Ls / LLs); + REVERSE_LS(q_in_2[sF2], qSite2, Ls / LLs); + REVERSE_LS(tmp2[sF2], qmuSite2, Ls / LLs); } else { - qSite2 = q_in_2._odata[sF2]; - qmuSite2 = tmp2._odata[sF2]; + qSite2 = q_in_2[sF2]; + qmuSite2 = tmp2[sF2]; } - Kernels::ContractConservedCurrentSiteFwd(tmp1._odata[sF1], + Kernels::ContractConservedCurrentSiteFwd(tmp1[sF1], qSite2, - q_out._odata[sU], + q_out[sU], Umu, sU, mu, axial_sign); - Kernels::ContractConservedCurrentSiteBwd(q_in_1._odata[sF1], + Kernels::ContractConservedCurrentSiteBwd(q_in_1[sF1], qmuSite2, - q_out._odata[sU], + q_out[sU], Umu, sU, mu, axial_sign); sF1++; sF2--; @@ -821,8 +821,8 @@ void WilsonFermion5D::SeqConservedCurrent(PropagatorField &q_in, { // Compute the sequential conserved current insertion only if our simd // object contains a timeslice we need. - vInteger t_mask = ((coords._odata[sU] >= tmin) && - (coords._odata[sU] <= tmax)); + vInteger t_mask = ((coords[sU] >= tmin) && + (coords[sU] <= tmax)); Integer timeSlices = Reduce(t_mask); if (timeSlices > 0) @@ -831,20 +831,20 @@ void WilsonFermion5D::SeqConservedCurrent(PropagatorField &q_in, for (unsigned int s = 0; s < LLs; ++s) { bool axial_sign = ((curr_type == Current::Axial) && (s < (LLs / 2))); - Kernels::SeqConservedCurrentSiteFwd(tmpFwd._odata[sF], - q_out._odata[sF], Umu, sU, + Kernels::SeqConservedCurrentSiteFwd(tmpFwd[sF], + q_out[sF], Umu, sU, mu, t_mask, axial_sign); ++sF; } } // Repeat for backward direction. - t_mask = ((coords._odata[sU] >= (tmin + tshift)) && - (coords._odata[sU] <= (tmax + tshift))); + t_mask = ((coords[sU] >= (tmin + tshift)) && + (coords[sU] <= (tmax + tshift))); //if tmax = LLt-1 (last timeslice) include timeslice 0 if the time is shifted (mu=3) unsigned int t0 = 0; - if((tmax==LLt-1) && (tshift==1)) t_mask = (t_mask || (coords._odata[sU] == t0 )); + if((tmax==LLt-1) && (tshift==1)) t_mask = (t_mask || (coords[sU] == t0 )); timeSlices = Reduce(t_mask); @@ -854,8 +854,8 @@ void WilsonFermion5D::SeqConservedCurrent(PropagatorField &q_in, for (unsigned int s = 0; s < LLs; ++s) { bool axial_sign = ((curr_type == Current::Axial) && (s < (LLs / 2))); - Kernels::SeqConservedCurrentSiteBwd(tmpBwd._odata[sF], - q_out._odata[sF], Umu, sU, + Kernels::SeqConservedCurrentSiteBwd(tmpBwd[sF], + q_out[sF], Umu, sU, mu, t_mask, axial_sign); ++sF; } diff --git a/lib/qcd/action/fermion/WilsonKernels.cc b/lib/qcd/action/fermion/WilsonKernels.cc index ce3e3f5b..05d249f0 100644 --- a/lib/qcd/action/fermion/WilsonKernels.cc +++ b/lib/qcd/action/fermion/WilsonKernels.cc @@ -47,15 +47,15 @@ WilsonKernels::WilsonKernels(const ImplParams &p) : Base(p){}; if (SE->_is_local) { \ chi_p = χ \ if (SE->_permute) { \ - spProj(tmp, in._odata[SE->_offset]); \ + spProj(tmp, in[SE->_offset]); \ permute(chi, tmp, ptype); \ } else { \ - spProj(chi, in._odata[SE->_offset]); \ + spProj(chi, in[SE->_offset]); \ } \ } else { \ chi_p = &buf[SE->_offset]; \ } \ - Impl::multLink(Uchi, U._odata[sU], *chi_p, Dir, SE, st); \ + Impl::multLink(Uchi, U[sU], *chi_p, Dir, SE, st); \ Recon(result, Uchi); #define GENERIC_STENCIL_LEG_INT(Dir,spProj,Recon) \ @@ -63,16 +63,16 @@ WilsonKernels::WilsonKernels(const ImplParams &p) : Base(p){}; if (SE->_is_local) { \ chi_p = χ \ if (SE->_permute) { \ - spProj(tmp, in._odata[SE->_offset]); \ + spProj(tmp, in[SE->_offset]); \ permute(chi, tmp, ptype); \ } else { \ - spProj(chi, in._odata[SE->_offset]); \ + spProj(chi, in[SE->_offset]); \ } \ } else if ( st.same_node[Dir] ) { \ chi_p = &buf[SE->_offset]; \ } \ if (SE->_is_local || st.same_node[Dir] ) { \ - Impl::multLink(Uchi, U._odata[sU], *chi_p, Dir, SE, st); \ + Impl::multLink(Uchi, U[sU], *chi_p, Dir, SE, st); \ Recon(result, Uchi); \ } @@ -80,7 +80,7 @@ WilsonKernels::WilsonKernels(const ImplParams &p) : Base(p){}; SE = st.GetEntry(ptype, Dir, sF); \ if ((!SE->_is_local) && (!st.same_node[Dir]) ) { \ chi_p = &buf[SE->_offset]; \ - Impl::multLink(Uchi, U._odata[sU], *chi_p, Dir, SE, st); \ + Impl::multLink(Uchi, U[sU], *chi_p, Dir, SE, st); \ Recon(result, Uchi); \ nmu++; \ } @@ -88,14 +88,14 @@ WilsonKernels::WilsonKernels(const ImplParams &p) : Base(p){}; #define GENERIC_DHOPDIR_LEG(Dir,spProj,Recon) \ if (gamma == Dir) { \ if (SE->_is_local && SE->_permute) { \ - spProj(tmp, in._odata[SE->_offset]); \ + spProj(tmp, in[SE->_offset]); \ permute(chi, tmp, ptype); \ } else if (SE->_is_local) { \ - spProj(chi, in._odata[SE->_offset]); \ + spProj(chi, in[SE->_offset]); \ } else { \ chi = buf[SE->_offset]; \ } \ - Impl::multLink(Uchi, U._odata[sU], chi, dir, SE, st); \ + Impl::multLink(Uchi, U[sU], chi, dir, SE, st); \ Recon(result, Uchi); \ } @@ -123,7 +123,7 @@ void WilsonKernels::GenericDhopSiteDag(StencilImpl &st, LebesgueOrder &lo, GENERIC_STENCIL_LEG(Ym,spProjYm,accumReconYm); GENERIC_STENCIL_LEG(Zm,spProjZm,accumReconZm); GENERIC_STENCIL_LEG(Tm,spProjTm,accumReconTm); - vstream(out._odata[sF], result); + vstream(out[sF], result); }; template @@ -147,7 +147,7 @@ void WilsonKernels::GenericDhopSite(StencilImpl &st, LebesgueOrder &lo, Do GENERIC_STENCIL_LEG(Yp,spProjYm,accumReconYm); GENERIC_STENCIL_LEG(Zp,spProjZm,accumReconZm); GENERIC_STENCIL_LEG(Tp,spProjTm,accumReconTm); - vstream(out._odata[sF], result); + vstream(out[sF], result); }; //////////////////////////////////////////////////////////////////// // Interior kernels @@ -174,7 +174,7 @@ void WilsonKernels::GenericDhopSiteDagInt(StencilImpl &st, LebesgueOrder & GENERIC_STENCIL_LEG_INT(Ym,spProjYm,accumReconYm); GENERIC_STENCIL_LEG_INT(Zm,spProjZm,accumReconZm); GENERIC_STENCIL_LEG_INT(Tm,spProjTm,accumReconTm); - vstream(out._odata[sF], result); + vstream(out[sF], result); }; template @@ -198,7 +198,7 @@ void WilsonKernels::GenericDhopSiteInt(StencilImpl &st, LebesgueOrder &lo, GENERIC_STENCIL_LEG_INT(Yp,spProjYm,accumReconYm); GENERIC_STENCIL_LEG_INT(Zp,spProjZm,accumReconZm); GENERIC_STENCIL_LEG_INT(Tp,spProjTm,accumReconTm); - vstream(out._odata[sF], result); + vstream(out[sF], result); }; //////////////////////////////////////////////////////////////////// // Exterior kernels @@ -226,7 +226,7 @@ void WilsonKernels::GenericDhopSiteDagExt(StencilImpl &st, LebesgueOrder & GENERIC_STENCIL_LEG_EXT(Zm,spProjZm,accumReconZm); GENERIC_STENCIL_LEG_EXT(Tm,spProjTm,accumReconTm); if ( nmu ) { - out._odata[sF] = out._odata[sF] + result; + out[sF] = out[sF] + result; } }; @@ -253,7 +253,7 @@ void WilsonKernels::GenericDhopSiteExt(StencilImpl &st, LebesgueOrder &lo, GENERIC_STENCIL_LEG_EXT(Zp,spProjZm,accumReconZm); GENERIC_STENCIL_LEG_EXT(Tp,spProjTm,accumReconTm); if ( nmu ) { - out._odata[sF] = out._odata[sF] + result; + out[sF] = out[sF] + result; } }; @@ -277,7 +277,7 @@ void WilsonKernels::DhopDirK( StencilImpl &st, DoubledGaugeField &U,SiteHa GENERIC_DHOPDIR_LEG(Ym,spProjYm,spReconYm); GENERIC_DHOPDIR_LEG(Zm,spProjZm,spReconZm); GENERIC_DHOPDIR_LEG(Tm,spProjTm,spReconTm); - vstream(out._odata[sF], result); + vstream(out[sF], result); } /******************************************************************************* @@ -307,7 +307,7 @@ void WilsonKernels::ContractConservedCurrentSiteFwd( { SitePropagator result, tmp; Gamma g5(Gamma::Algebra::Gamma5); - Impl::multLinkProp(tmp, U._odata[sU], q_in_1, mu); + Impl::multLinkProp(tmp, U[sU], q_in_1, mu); result = g5 * adj(q_in_2) * g5 * WilsonCurrentFwd(tmp, mu); if (switch_sign) { @@ -337,7 +337,7 @@ void WilsonKernels::ContractConservedCurrentSiteBwd( { SitePropagator result, tmp; Gamma g5(Gamma::Algebra::Gamma5); - Impl::multLinkProp(tmp, U._odata[sU], q_in_1, mu + Nd); + Impl::multLinkProp(tmp, U[sU], q_in_1, mu + Nd); result = g5 * adj(q_in_2) * g5 * WilsonCurrentBwd(tmp, mu); if (switch_sign) { @@ -398,7 +398,7 @@ void WilsonKernels::SeqConservedCurrentSiteFwd(const SitePropagator &q_in, bool switch_sign) { SitePropagator result; - Impl::multLinkProp(result, U._odata[sU], q_in, mu); + Impl::multLinkProp(result, U[sU], q_in, mu); result = WilsonCurrentFwd(result, mu); // Zero any unwanted timeslice entries. @@ -430,7 +430,7 @@ void WilsonKernels::SeqConservedCurrentSiteBwd(const SitePropagator &q_in, bool switch_sign) { SitePropagator result; - Impl::multLinkProp(result, U._odata[sU], q_in, mu + Nd); + Impl::multLinkProp(result, U[sU], q_in, mu + Nd); result = WilsonCurrentBwd(result, mu); // Zero any unwanted timeslice entries. diff --git a/lib/qcd/action/fermion/WilsonKernelsAsmBody.h b/lib/qcd/action/fermion/WilsonKernelsAsmBody.h index db8651ab..8520dc84 100644 --- a/lib/qcd/action/fermion/WilsonKernelsAsmBody.h +++ b/lib/qcd/action/fermion/WilsonKernelsAsmBody.h @@ -130,7 +130,7 @@ int local,perm, ptype; uint64_t base; uint64_t basep; - const uint64_t plocal =(uint64_t) & in._odata[0]; + const uint64_t plocal =(uint64_t) & in[0]; COMPLEX_SIGNS(isigns); MASK_REGS; @@ -166,7 +166,7 @@ if (nmu==0) break; // if (nmu!=0) std::cout << "EXT "< Chimu_32=ref(F)(3)(2) #define LOAD_CHIMU(DIR,F,PERM) \ - { const SiteSpinor & ref (in._odata[offset]); LOAD_CHIMU_BODY(F); } + { const SiteSpinor & ref (in[offset]); LOAD_CHIMU_BODY(F); } #define LOAD_CHI_BODY(F) \ Chi_00 = ref(F)(0)(0);\ @@ -103,7 +103,7 @@ Author: paboyle } #define LOAD_CHIMU_GPARITY_INPLACE_TWIST(DIR,F,PERM) \ - { const SiteSpinor &ref(in._odata[offset]); \ + { const SiteSpinor &ref(in[offset]); \ LOAD_CHI_SETUP(DIR,F); \ if(!inplace_twist){ \ LOAD_CHIMU_BODY(g); \ @@ -201,10 +201,10 @@ Author: paboyle #define MULT_2SPIN(A,F) \ - {auto & ref(U._odata[sU](A)); MULT_2SPIN_BODY; } + {auto & ref(U[sU](A)); MULT_2SPIN_BODY; } #define MULT_2SPIN_GPARITY(A,F) \ - {auto & ref(U._odata[sU](F)(A)); MULT_2SPIN_BODY; } + {auto & ref(U[sU](F)(A)); MULT_2SPIN_BODY; } #define PERMUTE_DIR(dir) \ @@ -478,7 +478,7 @@ Author: paboyle #define HAND_RESULT(ss,F) \ { \ - SiteSpinor & ref (out._odata[ss]); \ + SiteSpinor & ref (out[ss]); \ vstream(ref(F)(0)(0),result_00); \ vstream(ref(F)(0)(1),result_01); \ vstream(ref(F)(0)(2),result_02); \ @@ -495,7 +495,7 @@ Author: paboyle #define HAND_RESULT_EXT(ss,F) \ if (nmu){ \ - SiteSpinor & ref (out._odata[ss]); \ + SiteSpinor & ref (out[ss]); \ ref(F)(0)(0)+=result_00; \ ref(F)(0)(1)+=result_01; \ ref(F)(0)(2)+=result_02; \ diff --git a/lib/qcd/action/fermion/WilsonTMFermion.cc b/lib/qcd/action/fermion/WilsonTMFermion.cc index 049a959d..481f445f 100644 --- a/lib/qcd/action/fermion/WilsonTMFermion.cc +++ b/lib/qcd/action/fermion/WilsonTMFermion.cc @@ -61,14 +61,14 @@ template void WilsonTMFermion::Mooee(const FermionField &in, FermionField &out) { RealD a = 4.0+this->mass; RealD b = this->mu; - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); axpibg5x(out,in,a,b); } template void WilsonTMFermion::MooeeDag(const FermionField &in, FermionField &out) { RealD a = 4.0+this->mass; RealD b = -this->mu; - out.checkerboard = in.checkerboard; + out.Checkerboard() = in.Checkerboard(); axpibg5x(out,in,a,b); } template