mirror of
https://github.com/paboyle/Grid.git
synced 2024-11-14 01:35:36 +00:00
205 lines
7.8 KiB
C++
205 lines
7.8 KiB
C++
/*************************************************************************************
|
|
|
|
Grid physics library, www.github.com/paboyle/Grid
|
|
|
|
Source file: ./lib/qcd/action/fermion/WilsonCloverFermion.h
|
|
|
|
Copyright (C) 2017
|
|
|
|
Author: paboyle <paboyle@ph.ed.ac.uk>
|
|
Author: Guido Cossu <guido.cossu@ed.ac.uk>
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License along
|
|
with this program; if not, write to the Free Software Foundation, Inc.,
|
|
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
See the full license in the file "LICENSE" in the top level distribution directory
|
|
*************************************************************************************/
|
|
/* END LEGAL */
|
|
#ifndef GRID_QCD_WILSON_CLOVER_FERMION_H
|
|
#define GRID_QCD_WILSON_CLOVER_FERMION_H
|
|
|
|
#include <Grid/Grid.h>
|
|
|
|
namespace Grid
|
|
{
|
|
namespace QCD
|
|
{
|
|
|
|
template <class Impl>
|
|
class WilsonCloverFermion : public WilsonFermion<Impl>
|
|
{
|
|
public:
|
|
// Types definitions
|
|
INHERIT_IMPL_TYPES(Impl);
|
|
template <typename vtype> using iImplClover = iScalar<iMatrix<iMatrix<vtype, Impl::Dimension>, Ns> >;
|
|
typedef iImplClover<Simd> SiteCloverType;
|
|
typedef Lattice<SiteCloverType> CloverFieldType;
|
|
public:
|
|
typedef WilsonFermion<Impl> WilsonBase;
|
|
|
|
virtual void Instantiatable(void){};
|
|
// Constructors
|
|
WilsonCloverFermion(GaugeField &_Umu, GridCartesian &Fgrid,
|
|
GridRedBlackCartesian &Hgrid,
|
|
RealD _mass,
|
|
RealD _csw,
|
|
const ImplParams &p = ImplParams()) : WilsonFermion<Impl>(_Umu,
|
|
Fgrid,
|
|
Hgrid,
|
|
_mass, p),
|
|
CloverTerm(&Fgrid),
|
|
CloverTermInv(&Fgrid),
|
|
CloverTermEven(&Hgrid),
|
|
CloverTermOdd(&Hgrid),
|
|
CloverTermInvEven(&Hgrid),
|
|
CloverTermInvOdd(&Hgrid),
|
|
CloverTermDagEven(&Hgrid), //test
|
|
CloverTermDagOdd(&Hgrid), //test
|
|
CloverTermInvDagEven(&Hgrid), //test
|
|
CloverTermInvDagOdd(&Hgrid) //test
|
|
{
|
|
csw = _csw;
|
|
assert(Nd == 4); // require 4 dimensions
|
|
}
|
|
|
|
virtual RealD M(const FermionField &in, FermionField &out);
|
|
virtual RealD Mdag(const FermionField &in, FermionField &out);
|
|
|
|
virtual void Mooee(const FermionField &in, FermionField &out);
|
|
virtual void MooeeDag(const FermionField &in, FermionField &out);
|
|
virtual void MooeeInv(const FermionField &in, FermionField &out);
|
|
virtual void MooeeInvDag(const FermionField &in, FermionField &out);
|
|
virtual void MooeeInternal(const FermionField &in, FermionField &out, int dag, int inv);
|
|
|
|
virtual void MDeriv(GaugeField &mat, const FermionField &U, const FermionField &V, int dag);
|
|
virtual void MooDeriv(GaugeField &mat, const FermionField &U, const FermionField &V, int dag);
|
|
virtual void MeeDeriv(GaugeField &mat, const FermionField &U, const FermionField &V, int dag);
|
|
|
|
void ImportGauge(const GaugeField &_Umu);
|
|
|
|
private:
|
|
// here fixing the 4 dimensions, make it more general?
|
|
|
|
RealD csw; // Clover coefficient
|
|
CloverFieldType CloverTerm=zero, CloverTermInv=zero; // Clover term
|
|
CloverFieldType CloverTermEven=zero, CloverTermOdd=zero; // Clover term EO
|
|
CloverFieldType CloverTermInvEven=zero, CloverTermInvOdd=zero; // Clover term Inv EO
|
|
CloverFieldType CloverTermDagEven=zero, CloverTermDagOdd=zero; // Clover term Dag EO
|
|
CloverFieldType CloverTermInvDagEven=zero, CloverTermInvDagOdd=zero; // Clover term Inv Dag EO
|
|
|
|
// eventually these two can be compressed into 6x6 blocks instead of the 12x12
|
|
// using the DeGrand-Rossi basis for the gamma matrices
|
|
|
|
CloverFieldType fillCloverYZ(const GaugeLinkField &F)
|
|
{
|
|
CloverFieldType T(F._grid);
|
|
T = 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]()());
|
|
}
|
|
|
|
return T;
|
|
}
|
|
|
|
CloverFieldType fillCloverXZ(const GaugeLinkField &F)
|
|
{
|
|
CloverFieldType T(F._grid);
|
|
T = zero;
|
|
PARALLEL_FOR_LOOP
|
|
for (int i = 0; i < CloverTerm._grid->oSites(); i++)
|
|
{
|
|
T._odata[i]()(0, 1) = -F._odata[i]()();
|
|
T._odata[i]()(1, 0) = F._odata[i]()();
|
|
T._odata[i]()(2, 3) = -F._odata[i]()();
|
|
T._odata[i]()(3, 2) = F._odata[i]()();
|
|
}
|
|
|
|
return T;
|
|
}
|
|
|
|
CloverFieldType fillCloverXY(const GaugeLinkField &F)
|
|
{
|
|
CloverFieldType T(F._grid);
|
|
T = zero;
|
|
PARALLEL_FOR_LOOP
|
|
for (int i = 0; i < CloverTerm._grid->oSites(); i++)
|
|
{
|
|
T._odata[i]()(0, 0) = timesMinusI(F._odata[i]()());
|
|
T._odata[i]()(1, 1) = timesI(F._odata[i]()());
|
|
T._odata[i]()(2, 2) = timesMinusI(F._odata[i]()());
|
|
T._odata[i]()(3, 3) = timesI(F._odata[i]()());
|
|
}
|
|
|
|
return T;
|
|
}
|
|
|
|
CloverFieldType fillCloverXT(const GaugeLinkField &F)
|
|
{
|
|
CloverFieldType T(F._grid);
|
|
T = zero;
|
|
PARALLEL_FOR_LOOP
|
|
for (int i = 0; i < CloverTerm._grid->oSites(); i++)
|
|
{
|
|
T._odata[i]()(0, 1) = timesI(F._odata[i]()()); //fixed
|
|
T._odata[i]()(1, 0) = timesI(F._odata[i]()()); //fixed
|
|
T._odata[i]()(2, 3) = timesMinusI(F._odata[i]()()); //fixed
|
|
T._odata[i]()(3, 2) = timesMinusI(F._odata[i]()()); //fixed
|
|
}
|
|
|
|
return T;
|
|
}
|
|
|
|
CloverFieldType fillCloverYT(const GaugeLinkField &F)
|
|
{
|
|
CloverFieldType T(F._grid);
|
|
T = zero;
|
|
PARALLEL_FOR_LOOP
|
|
for (int i = 0; i < CloverTerm._grid->oSites(); i++)
|
|
{
|
|
T._odata[i]()(0, 1) = -(F._odata[i]()()); //fixed
|
|
T._odata[i]()(1, 0) = (F._odata[i]()()); //fixed
|
|
T._odata[i]()(2, 3) = (F._odata[i]()()); //fixed
|
|
T._odata[i]()(3, 2) = -(F._odata[i]()()); //fixed
|
|
}
|
|
|
|
return T;
|
|
}
|
|
|
|
CloverFieldType fillCloverZT(const GaugeLinkField &F)
|
|
{
|
|
CloverFieldType T(F._grid);
|
|
T = zero;
|
|
PARALLEL_FOR_LOOP
|
|
for (int i = 0; i < CloverTerm._grid->oSites(); i++)
|
|
{
|
|
T._odata[i]()(0, 0) = timesI(F._odata[i]()()); //fixed
|
|
T._odata[i]()(1, 1) = timesMinusI(F._odata[i]()()); //fixed
|
|
T._odata[i]()(2, 2) = timesMinusI(F._odata[i]()()); //fixed
|
|
T._odata[i]()(3, 3) = timesI(F._odata[i]()()); //fixed
|
|
}
|
|
|
|
return T;
|
|
}
|
|
|
|
};
|
|
}
|
|
}
|
|
|
|
#endif // GRID_QCD_WILSON_CLOVER_FERMION_H
|