From 99a73f4287cf0eb595595851b0330e4c0e7c9dc1 Mon Sep 17 00:00:00 2001 From: Guido Cossu Date: Fri, 28 Apr 2017 15:51:05 +0100 Subject: [PATCH] Correcting the M and Mdag in the clover term --- lib/qcd/action/fermion/WilsonCloverFermion.cc | 277 +++++++++--------- 1 file changed, 146 insertions(+), 131 deletions(-) diff --git a/lib/qcd/action/fermion/WilsonCloverFermion.cc b/lib/qcd/action/fermion/WilsonCloverFermion.cc index ebea565b..3ab481ce 100644 --- a/lib/qcd/action/fermion/WilsonCloverFermion.cc +++ b/lib/qcd/action/fermion/WilsonCloverFermion.cc @@ -30,13 +30,15 @@ #include #include -namespace Grid { -namespace QCD { +namespace Grid +{ +namespace QCD +{ -//WilsonLoop::CloverPlaquette -///////////////////////////////////////////////////// -//// Clover plaquette combination in mu,nu plane with Double Stored U -//////////////////////////////////////////////////// +//WilsonLoop::CloverPlaquette +///////////////////////////////////////////////////// +//// Clover plaquette combination in mu,nu plane with Double Stored U +//////////////////////////////////////////////////// //static void CloverPlaquette(GaugeMat &Q, const std::vector &U, // const int mu, const int nu){ // Q = zero; @@ -54,149 +56,162 @@ namespace QCD { // U[nu], nu, Gimpl::CovShiftBackward(U[mu], mu, U[nu] ))); // } +// *NOT* EO +template +RealD WilsonCloverFermion::M(const FermionField &in, FermionField &out) +{ + // Wilson term + out.checkerboard = in.checkerboard; + this->Dhop(in, out, DaggerNo); + // Clover term + // apply the sigma and Fmunu + FermionField temp(out._grid); + Mooee(in, temp); + // overall factor + out += temp; + return axpy_norm(out, 4 + this->mass, in, out); +} -// *NOT* EO - template - RealD WilsonCloverFermion::M(const FermionField& in, FermionField& out) { - // Wilson term - out.checkerboard = in.checkerboard; - this->Dhop(in, out, DaggerNo); - // Clover term - // apply the sigma and Fmunu - Mooee(in, out); - // overall factor - return axpy_norm(out, 4 + this->mass, in, out); +template +RealD WilsonCloverFermion::Mdag(const FermionField &in, FermionField &out) +{ + // Wilson term + out.checkerboard = in.checkerboard; + this->Dhop(in, out, DaggerYes); + // Clover term + // apply the sigma and Fmunu + FermionField temp(out._grid); + MooeeDag(in, temp); + out+=temp; + return axpy_norm(out, 4 + this->mass, in, out); +} + +template +void WilsonCloverFermion::ImportGauge(const GaugeField &_Umu) +{ + this->ImportGauge(_Umu); + GridBase *grid = _Umu._grid; + assert(Nd == 4); // only works in 4 dim + typename Impl::GaugeLinkField Bx(grid), By(grid), Bz(grid), Ex(grid), Ey(grid), Ez(grid); + + // Compute the field strength terms + WilsonLoops::FieldStrength(Bx, _Umu, Ydir, Zdir); + WilsonLoops::FieldStrength(By, _Umu, Zdir, Xdir); + WilsonLoops::FieldStrength(Bz, _Umu, Xdir, Ydir); + WilsonLoops::FieldStrength(Ex, _Umu, Tdir, Xdir); + WilsonLoops::FieldStrength(Ey, _Umu, Tdir, Ydir); + WilsonLoops::FieldStrength(Ez, _Umu, Tdir, Zdir); + + // Compute the Clover Operator acting on Colour and Spin + CloverTerm = fillClover(Bx) * (Gamma(Gamma::Algebra::SigmaYZ)); + CloverTerm += fillClover(By) * (Gamma(Gamma::Algebra::MinusSigmaXZ)); + CloverTerm += fillClover(Bz) * (Gamma(Gamma::Algebra::SigmaXY)); + CloverTerm += fillClover(Ex) * (Gamma(Gamma::Algebra::MinusSigmaXT)); + CloverTerm += fillClover(Ey) * (Gamma(Gamma::Algebra::MinusSigmaYT)); + CloverTerm += fillClover(Ez) * (Gamma(Gamma::Algebra::MinusSigmaZT)); + CloverTerm *= csw; + + int lvol = _Umu._grid->lSites(); + int DimRep = Impl::Dimension; + + Eigen::MatrixXcd EigenCloverOp = Eigen::MatrixXcd::Zero(Ns * DimRep, Ns * DimRep); + Eigen::MatrixXcd EigenInvCloverOp = Eigen::MatrixXcd::Zero(Ns * DimRep, Ns * DimRep); + + std::vector lcoor; + typename SiteCloverType::scalar_object Qx = zero, Qxinv = zero; + + for (int site = 0; site < lvol; site++) + { + grid->LocalIndexToLocalCoor(site, lcoor); + EigenCloverOp = Eigen::MatrixXcd::Zero(Ns * DimRep, Ns * DimRep); + peekLocalSite(Qx, CloverTerm, lcoor); + Qxinv = zero; + for (int j = 0; j < Ns; j++) + for (int k = 0; k < Ns; k++) + for (int a = 0; a < DimRep; a++) + for (int b = 0; b < DimRep; b++) + EigenCloverOp(a + j * DimRep, b + k * DimRep) = Qx()(j, k)(a, b); + + EigenInvCloverOp = EigenCloverOp.inverse(); + for (int j = 0; j < Ns; j++) + for (int k = 0; k < Ns; k++) + for (int a = 0; a < DimRep; a++) + for (int b = 0; b < DimRep; b++) + Qxinv()(j, k)(a, b) = EigenInvCloverOp(a + j * DimRep, b + k * DimRep); + + pokeLocalSite(Qxinv, CloverTermInv, lcoor); } +} - template - RealD WilsonCloverFermion::Mdag(const FermionField& in, FermionField& out) { - // Wilson term - out.checkerboard = in.checkerboard; - this->Dhop(in, out, DaggerYes); - // Clover term - // apply the sigma and Fmunu - MooeeDag(in, out); - return axpy_norm(out, 4 + this->mass, in, out); - } +template +void WilsonCloverFermion::Mooee(const FermionField &in, FermionField &out) +{ + this->MooeeInternal(in, out, DaggerNo, InverseNo); +} - template - void WilsonCloverFermion::ImportGauge(const GaugeField& _Umu) { - this->ImportGauge(_Umu); - GridBase* grid = _Umu._grid; - assert(Nd==4); //only works in 4 dim - typename Impl::GaugeLinkField Bx(grid), By(grid), Bz(grid), Ex(grid), Ey(grid), Ez(grid); - // Compute the field strength terms - WilsonLoops::FieldStrength(Bx, _Umu, Ydir, Zdir); - WilsonLoops::FieldStrength(By, _Umu, Zdir, Xdir); - WilsonLoops::FieldStrength(Bz, _Umu, Xdir, Ydir); - WilsonLoops::FieldStrength(Ex, _Umu, Tdir, Xdir); - WilsonLoops::FieldStrength(Ey, _Umu, Tdir, Ydir); - WilsonLoops::FieldStrength(Ez, _Umu, Tdir, Zdir); +template +void WilsonCloverFermion::MooeeDag(const FermionField &in, FermionField &out) +{ + this->MooeeInternal(in, out, DaggerNo, InverseYes); +} - // Compute the Clover Operator acting on Colour and Spin - CloverTerm = fillClover(Bx)*(Gamma(Gamma::Algebra::SigmaYZ)); - CloverTerm += fillClover(By)*(Gamma(Gamma::Algebra::MinusSigmaXZ)); - CloverTerm += fillClover(Bz)*(Gamma(Gamma::Algebra::SigmaXY)); - CloverTerm += fillClover(Ex)*(Gamma(Gamma::Algebra::MinusSigmaXT)); - CloverTerm += fillClover(Ey)*(Gamma(Gamma::Algebra::MinusSigmaYT)); - CloverTerm += fillClover(Ez)*(Gamma(Gamma::Algebra::MinusSigmaZT)); - CloverTerm *= csw; +template +void WilsonCloverFermion::MooeeInv(const FermionField &in, FermionField &out) +{ + this->MooeeInternal(in, out, DaggerNo, InverseYes); +} +template +void WilsonCloverFermion::MooeeInvDag(const FermionField &in, FermionField &out) +{ + this->MooeeInternal(in, out, DaggerNo, InverseYes); +} - int lvol = _Umu._grid->lSites(); - int DimRep = Impl::Dimension; +template +void WilsonCloverFermion::MooeeInternal(const FermionField &in, FermionField &out, int dag, int inv) +{ + out.checkerboard = in.checkerboard; + CloverFieldType *Clover; - Eigen::MatrixXcd EigenCloverOp = Eigen::MatrixXcd::Zero(Ns*DimRep,Ns*DimRep); - Eigen::MatrixXcd EigenInvCloverOp = Eigen::MatrixXcd::Zero(Ns*DimRep,Ns*DimRep); - - std::vector lcoor; - typename SiteCloverType::scalar_object Qx = zero, Qxinv = zero; + Clover = (inv) ? &CloverTermInv : &CloverTerm; + if (dag){ out = adj(*Clover) * in;} else { out = *Clover * in;} +} // MooeeInternal - for (int site = 0; site < lvol; site++){ - grid->LocalIndexToLocalCoor(site,lcoor); - EigenCloverOp=Eigen::MatrixXcd::Zero(Ns*DimRep,Ns*DimRep); - peekLocalSite(Qx,CloverTerm,lcoor); - Qxinv = zero; - for(int j = 0; j < Ns; j++) - for (int k = 0; k < Ns; k++) - for(int a = 0; a < DimRep; a++) - for(int b = 0; b < DimRep; b++) - EigenCloverOp(a+j*DimRep,b+k*DimRep) = Qx()(j,k)(a,b); +// Derivative parts +template +void WilsonCloverFermion::MDeriv(GaugeField &mat, const FermionField &U, const FermionField &V, int dag) +{ + GaugeField tmp(mat._grid); - EigenInvCloverOp = EigenCloverOp.inverse(); - for(int j = 0; j < Ns; j++) - for (int k = 0; k < Ns; k++) - for(int a = 0; a < DimRep; a++) - for(int b = 0; b < DimRep; b++) - Qxinv()(j,k)(a,b) = EigenInvCloverOp(a+j*DimRep,b+k*DimRep); + conformable(U._grid, V._grid); + conformable(U._grid, mat._grid); - pokeLocalSite(Qxinv,CloverTermInv,lcoor); - } - } + mat.checkerboard = U.checkerboard; + tmp.checkerboard = U.checkerboard; - template - void WilsonCloverFermion::Mooee(const FermionField &in, FermionField &out){ - this -> MooeeInternal(in, out, DaggerNo, InverseNo); - } + this->DhopDeriv(mat, U, V, dag); + MooDeriv(tmp, U, V, dag); + mat += tmp; +} - template - void WilsonCloverFermion::MooeeDag(const FermionField &in, FermionField &out){ - this -> MooeeInternal(in, out, DaggerNo, InverseYes); - } +// Derivative parts +template +void WilsonCloverFermion::MooDeriv(GaugeField &mat, const FermionField &U, const FermionField &V, int dag) +{ + // Compute the 8 terms of the derivative + assert(0); // not implemented yet +} - template - void WilsonCloverFermion::MooeeInv(const FermionField &in, FermionField &out){ - this -> MooeeInternal(in, out, DaggerNo, InverseYes); - } - - template - void WilsonCloverFermion::MooeeInvDag(const FermionField &in, FermionField &out){ - this -> MooeeInternal(in, out, DaggerNo, InverseYes); - } - - - template - void WilsonCloverFermion::MooeeInternal(const FermionField &in, FermionField &out, int dag, int inv){ - out.checkerboard = in.checkerboard; - CloverFieldType *Clover; - - Clover = (inv) ? &CloverTermInv : &CloverTerm; - if(dag){ out = adj(*Clover)*in;} else {out = *Clover*in;} - } // MooeeInternal - - // Derivative parts - template - void WilsonCloverFermion::MDeriv(GaugeField&mat, const FermionField&U, const FermionField&V, int dag){ - GaugeField tmp(mat._grid); - - conformable(U._grid, V._grid); - conformable(U._grid, mat._grid); - - mat.checkerboard = U.checkerboard; - tmp.checkerboard = U.checkerboard; - - this->DhopDeriv(mat, U, V, dag); - MooDeriv(tmp, U, V, dag); - mat += tmp; - } - - // Derivative parts - template - void WilsonCloverFermion::MooDeriv(GaugeField&mat, const FermionField&U, const FermionField&V, int dag){ - // Compute the 8 terms of the derivative - assert(0); // not implemented yet - } - - // Derivative parts - template - void WilsonCloverFermion::MeeDeriv(GaugeField&mat, const FermionField&U, const FermionField&V, int dag){ - assert(0); // not implemented yet - } +// Derivative parts +template +void WilsonCloverFermion::MeeDeriv(GaugeField &mat, const FermionField &U, const FermionField &V, int dag) +{ + assert(0); // not implemented yet +} FermOpTemplateInstantiate(WilsonCloverFermion); // now only for the fundamental representation //AdjointFermOpTemplateInstantiate(WilsonCloverFermion); //TwoIndexFermOpTemplateInstantiate(WilsonCloverFermion); //GparityFermOpTemplateInstantiate(WilsonCloverFermion); - } }