mirror of
https://github.com/paboyle/Grid.git
synced 2024-11-10 07:55:35 +00:00
Merge pull request #241 from nils-asmussen/fix/remQCDns_ignore_ws
Undo whitespace changes in fix/removeQCDremnants to allow comparing relevant changes
This commit is contained in:
commit
6446671a9c
@ -354,6 +354,6 @@ public:
|
||||
}
|
||||
};
|
||||
|
||||
NAMESPACE_END(QCD);
|
||||
NAMESPACE_END(Grid);
|
||||
|
||||
#endif
|
||||
|
@ -97,7 +97,6 @@ protected:
|
||||
////////////////////////////////////
|
||||
// Classes for the user
|
||||
////////////////////////////////////
|
||||
// Note: the space time grid should be out of the QCD namespace
|
||||
template <class vector_type>
|
||||
class GridFourDimModule : public GridModule
|
||||
{
|
||||
|
@ -27,8 +27,7 @@ directory
|
||||
*************************************************************************************/
|
||||
#pragma once
|
||||
|
||||
namespace Grid {
|
||||
namespace QCD {
|
||||
NAMESPACE_BEGIN(Grid);
|
||||
|
||||
template <class Gimpl> class CovariantSmearing : public Gimpl
|
||||
{
|
||||
@ -84,4 +83,5 @@ public:
|
||||
}
|
||||
}
|
||||
};
|
||||
}}
|
||||
|
||||
NAMESPACE_END(Grid);
|
||||
|
@ -201,7 +201,6 @@ void G5R5(Lattice<vobj> &z,const Lattice<vobj> &x)
|
||||
});
|
||||
}
|
||||
|
||||
// I explicitly need these outside the QCD namespace
|
||||
template<typename vobj>
|
||||
void G5C(Lattice<vobj> &z, const Lattice<vobj> &x)
|
||||
{
|
||||
|
@ -31,7 +31,6 @@ directory
|
||||
|
||||
int main(int argc, char **argv) {
|
||||
using namespace Grid;
|
||||
using namespace Grid::QCD;
|
||||
|
||||
Grid_init(&argc, &argv);
|
||||
int threads = GridThread::GetThreads();
|
||||
|
@ -34,8 +34,7 @@ directory
|
||||
#define MIXED_PRECISION
|
||||
#endif
|
||||
|
||||
namespace Grid{
|
||||
namespace QCD{
|
||||
NAMESPACE_BEGIN(Grid);
|
||||
|
||||
/*
|
||||
* Need a plan for gauge field update for mixed precision in HMC (2x speed up)
|
||||
@ -163,11 +162,11 @@ namespace Grid{
|
||||
MPCG(src,psi);
|
||||
}
|
||||
};
|
||||
}};
|
||||
|
||||
NAMESPACE_END(Grid);
|
||||
|
||||
int main(int argc, char **argv) {
|
||||
using namespace Grid;
|
||||
using namespace Grid::QCD;
|
||||
|
||||
Grid_init(&argc, &argv);
|
||||
int threads = GridThread::GetThreads();
|
||||
|
@ -34,8 +34,7 @@ directory
|
||||
#define MIXED_PRECISION
|
||||
#endif
|
||||
|
||||
namespace Grid{
|
||||
namespace QCD{
|
||||
NAMESPACE_BEGIN(Grid);
|
||||
|
||||
/*
|
||||
* Need a plan for gauge field update for mixed precision in HMC (2x speed up)
|
||||
@ -146,11 +145,12 @@ namespace Grid{
|
||||
MPCG(src,psi);
|
||||
}
|
||||
};
|
||||
}};
|
||||
|
||||
NAMESPACE_END(Grid);
|
||||
|
||||
|
||||
int main(int argc, char **argv) {
|
||||
using namespace Grid;
|
||||
using namespace Grid::QCD;
|
||||
|
||||
Grid_init(&argc, &argv);
|
||||
int threads = GridThread::GetThreads();
|
||||
@ -341,7 +341,7 @@ int main(int argc, char **argv) {
|
||||
ActionCG,
|
||||
ActionCG, ActionCG,
|
||||
ActionCG, ActionCG,
|
||||
// DerivativeCG, DerivativeCG,
|
||||
// DerivativeCG, DerivativeCG,
|
||||
OFRp, true);
|
||||
#endif
|
||||
Level1.push_back(&EOFA);
|
||||
|
@ -31,7 +31,6 @@ directory
|
||||
|
||||
int main(int argc, char **argv) {
|
||||
using namespace Grid;
|
||||
using namespace Grid::QCD;
|
||||
|
||||
Grid_init(&argc, &argv);
|
||||
int threads = GridThread::GetThreads();
|
||||
|
@ -29,7 +29,6 @@ See the full license in the file "LICENSE" in the top level distribution directo
|
||||
#include <Hadrons/Application.hpp>
|
||||
|
||||
using namespace Grid;
|
||||
using namespace QCD;
|
||||
using namespace Hadrons;
|
||||
|
||||
int main(int argc, char *argv[])
|
||||
|
@ -28,7 +28,6 @@ See the full license in the file "LICENSE" in the top level distribution directo
|
||||
#include <Hadrons/DiskVector.hpp>
|
||||
|
||||
using namespace Grid;
|
||||
using namespace Grid::QCD;
|
||||
using namespace Grid::Hadrons;
|
||||
|
||||
GRID_SERIALIZABLE_ENUM(Enum, undef, red, 1, blue, 2, green, 3);
|
||||
|
@ -31,7 +31,6 @@ directory
|
||||
|
||||
int main(int argc, char **argv) {
|
||||
using namespace Grid;
|
||||
using namespace Grid::QCD;
|
||||
|
||||
Grid_init(&argc, &argv);
|
||||
int threads = GridThread::GetThreads();
|
||||
|
@ -27,15 +27,15 @@ Author: Azusa Yamaguchi <ayamaguc@staffmail.ed.ac.uk>
|
||||
/* END LEGAL */
|
||||
#include <Grid/Grid.h>
|
||||
|
||||
double calc_grid_p (Grid::QCD::LatticeGaugeField & lat);
|
||||
double calc_chroma_p (Grid::QCD::LatticeGaugeField & lat);
|
||||
double calc_grid_r (Grid::QCD::LatticeGaugeField & lat);
|
||||
double calc_grid_IW (Grid::QCD::LatticeGaugeField & lat);
|
||||
double calc_grid_r_dir (Grid::QCD::LatticeGaugeField & lat);
|
||||
double calc_chroma_r (Grid::QCD::LatticeGaugeField & lat);
|
||||
double calc_chroma_IW (Grid::QCD::LatticeGaugeField & lat);
|
||||
void check_grid_r_staple(Grid::QCD::LatticeGaugeField & Umu);
|
||||
void check_grid_p_staple(Grid::QCD::LatticeGaugeField & Umu);
|
||||
double calc_grid_p (Grid::LatticeGaugeField & lat);
|
||||
double calc_chroma_p (Grid::LatticeGaugeField & lat);
|
||||
double calc_grid_r (Grid::LatticeGaugeField & lat);
|
||||
double calc_grid_IW (Grid::LatticeGaugeField & lat);
|
||||
double calc_grid_r_dir (Grid::LatticeGaugeField & lat);
|
||||
double calc_chroma_r (Grid::LatticeGaugeField & lat);
|
||||
double calc_chroma_IW (Grid::LatticeGaugeField & lat);
|
||||
void check_grid_r_staple(Grid::LatticeGaugeField & Umu);
|
||||
void check_grid_p_staple(Grid::LatticeGaugeField & Umu);
|
||||
|
||||
const double beta=2.6;
|
||||
const double c1=-0.331;
|
||||
@ -53,10 +53,10 @@ public:
|
||||
|
||||
typedef multi1d<LatticeColorMatrix> U;
|
||||
|
||||
static void ImportGauge(Grid::QCD::LatticeGaugeField & gr,
|
||||
static void ImportGauge(Grid::LatticeGaugeField & gr,
|
||||
QDP::multi1d<QDP::LatticeColorMatrix> & ch)
|
||||
{
|
||||
Grid::QCD::LorentzColourMatrix LCM;
|
||||
Grid::LorentzColourMatrix LCM;
|
||||
Grid::Complex cc;
|
||||
QDP::ColorMatrix cm;
|
||||
QDP::Complex c;
|
||||
@ -127,9 +127,9 @@ int main (int argc,char **argv )
|
||||
* Setup Grid
|
||||
*********************************************************/
|
||||
Grid::Grid_init(&argc,&argv);
|
||||
Grid::GridCartesian * UGrid = Grid::QCD::SpaceTimeGrid::makeFourDimGrid(Grid::GridDefaultLatt(),
|
||||
Grid::GridDefaultSimd(Grid::QCD::Nd,Grid::vComplex::Nsimd()),
|
||||
Grid::GridDefaultMpi());
|
||||
Grid::GridCartesian * UGrid = Grid::SpaceTimeGrid::makeFourDimGrid(Grid::GridDefaultLatt(),
|
||||
Grid::GridDefaultSimd(Grid::Nd,Grid::vComplex::Nsimd()),
|
||||
Grid::GridDefaultMpi());
|
||||
|
||||
std::vector<int> gd = UGrid->GlobalDimensions();
|
||||
QDP::multi1d<int> nrow(QDP::Nd);
|
||||
@ -138,7 +138,7 @@ int main (int argc,char **argv )
|
||||
QDP::Layout::setLattSize(nrow);
|
||||
QDP::Layout::create();
|
||||
|
||||
Grid::QCD::LatticeGaugeField lat(UGrid);
|
||||
Grid::LatticeGaugeField lat(UGrid);
|
||||
|
||||
double s_grid = calc_grid_p (lat);
|
||||
|
||||
@ -181,7 +181,7 @@ int main (int argc,char **argv )
|
||||
Chroma::finalize();
|
||||
}
|
||||
|
||||
double calc_chroma_IW(Grid::QCD::LatticeGaugeField & lat)
|
||||
double calc_chroma_IW(Grid::LatticeGaugeField & lat)
|
||||
{
|
||||
typedef QDP::multi1d<QDP::LatticeColorMatrix> U;
|
||||
|
||||
@ -203,7 +203,7 @@ double calc_chroma_IW(Grid::QCD::LatticeGaugeField & lat)
|
||||
|
||||
return s;
|
||||
}
|
||||
double calc_chroma_r(Grid::QCD::LatticeGaugeField & lat)
|
||||
double calc_chroma_r(Grid::LatticeGaugeField & lat)
|
||||
{
|
||||
typedef QDP::multi1d<QDP::LatticeColorMatrix> U;
|
||||
|
||||
@ -245,7 +245,7 @@ double calc_chroma_r(Grid::QCD::LatticeGaugeField & lat)
|
||||
// action = beta * Nd*Nd-1*vol*0.5 - beta * Nd*Nd-1*vol*0.5*plaq
|
||||
//
|
||||
// plaq == sumplaq * 2/(V*Nd*(Nd-1)*Nc)
|
||||
double calc_chroma_p(Grid::QCD::LatticeGaugeField & lat)
|
||||
double calc_chroma_p(Grid::LatticeGaugeField & lat)
|
||||
{
|
||||
typedef QDP::multi1d<QDP::LatticeColorMatrix> U;
|
||||
|
||||
@ -270,60 +270,60 @@ double calc_chroma_p(Grid::QCD::LatticeGaugeField & lat)
|
||||
|
||||
|
||||
|
||||
double calc_grid_p(Grid::QCD::LatticeGaugeField & Umu)
|
||||
double calc_grid_p(Grid::LatticeGaugeField & Umu)
|
||||
{
|
||||
std::vector<int> seeds4({1,2,3,4});
|
||||
|
||||
Grid::GridCartesian * UGrid = (Grid::GridCartesian *) Umu.Grid();
|
||||
Grid::GridParallelRNG RNG4(UGrid); RNG4.SeedFixedIntegers(seeds4);
|
||||
|
||||
Grid::QCD::SU3::HotConfiguration(RNG4,Umu);
|
||||
Grid::SU3::HotConfiguration(RNG4,Umu);
|
||||
|
||||
Grid::QCD::LatticeColourMatrix tmp(UGrid);
|
||||
Grid::LatticeColourMatrix tmp(UGrid);
|
||||
tmp = Grid::zero;
|
||||
|
||||
Grid::QCD::PokeIndex<LorentzIndex>(Umu,tmp,2);
|
||||
Grid::QCD::PokeIndex<LorentzIndex>(Umu,tmp,3);
|
||||
Grid::PokeIndex<LorentzIndex>(Umu,tmp,2);
|
||||
Grid::PokeIndex<LorentzIndex>(Umu,tmp,3);
|
||||
|
||||
Grid::QCD::WilsonGaugeActionR Wilson(beta); // Just take beta = 1.0
|
||||
Grid::WilsonGaugeActionR Wilson(beta); // Just take beta = 1.0
|
||||
|
||||
return Wilson.S(Umu);
|
||||
}
|
||||
double calc_grid_r(Grid::QCD::LatticeGaugeField & Umu)
|
||||
double calc_grid_r(Grid::LatticeGaugeField & Umu)
|
||||
{
|
||||
Grid::GridCartesian * UGrid = (Grid::GridCartesian *) Umu.Grid();
|
||||
|
||||
Grid::QCD::PlaqPlusRectangleActionR Wilson(0.0,c1); // Just take beta = 0.0
|
||||
Grid::PlaqPlusRectangleActionR Wilson(0.0,c1); // Just take beta = 0.0
|
||||
|
||||
return Wilson.S(Umu);
|
||||
}
|
||||
double calc_grid_IW(Grid::QCD::LatticeGaugeField & Umu)
|
||||
double calc_grid_IW(Grid::LatticeGaugeField & Umu)
|
||||
{
|
||||
Grid::GridCartesian * UGrid = (Grid::GridCartesian *) Umu.Grid();
|
||||
|
||||
Grid::QCD::IwasakiGaugeActionR Iwasaki(beta);
|
||||
Grid::IwasakiGaugeActionR Iwasaki(beta);
|
||||
|
||||
return Iwasaki.S(Umu);
|
||||
}
|
||||
double calc_grid_r_dir(Grid::QCD::LatticeGaugeField & Umu)
|
||||
double calc_grid_r_dir(Grid::LatticeGaugeField & Umu)
|
||||
{
|
||||
Grid::GridCartesian * UGrid = (Grid::GridCartesian *) Umu.Grid();
|
||||
|
||||
std::vector<Grid::QCD::LatticeColourMatrix> U(4,UGrid);
|
||||
std::vector<Grid::LatticeColourMatrix> U(4,UGrid);
|
||||
for(int mu=0;mu<Nd;mu++){
|
||||
U[mu] = Grid::PeekIndex<LorentzIndex>(Umu,mu);
|
||||
}
|
||||
|
||||
Grid::QCD::LatticeComplex rect(UGrid);
|
||||
Grid::QCD::TComplex trect;
|
||||
Grid::QCD::Complex crect;
|
||||
Grid::LatticeComplex rect(UGrid);
|
||||
Grid::TComplex trect;
|
||||
Grid::Complex crect;
|
||||
Grid::RealD rrect;
|
||||
Grid::RealD vol = UGrid->gSites();
|
||||
for(int mu=0;mu<Grid::QCD::Nd;mu++){
|
||||
for(int nu=0;nu<Grid::QCD::Nd;nu++){
|
||||
for(int mu=0;mu<Grid::Nd;mu++){
|
||||
for(int nu=0;nu<Grid::Nd;nu++){
|
||||
if ( mu!=nu ) {
|
||||
|
||||
Grid::QCD::ColourWilsonLoops::traceDirRectangle(rect,U,mu,nu);
|
||||
Grid::ColourWilsonLoops::traceDirRectangle(rect,U,mu,nu);
|
||||
trect = Grid::sum(rect);
|
||||
crect = Grid::TensorRemove(trect);
|
||||
rrect = real(crect);
|
||||
@ -335,9 +335,9 @@ double calc_grid_r_dir(Grid::QCD::LatticeGaugeField & Umu)
|
||||
// Staple test
|
||||
Peter.Start();
|
||||
{
|
||||
Grid::QCD::LatticeColourMatrix Stap(UGrid);
|
||||
Grid::QCD::LatticeComplex SumTrStap(UGrid);
|
||||
Grid::QCD::LatticeComplex TrStap(UGrid);
|
||||
Grid::LatticeColourMatrix Stap(UGrid);
|
||||
Grid::LatticeComplex SumTrStap(UGrid);
|
||||
Grid::LatticeComplex TrStap(UGrid);
|
||||
|
||||
/*
|
||||
* Make staple for loops centered at coor of link ; this one is ok. // |
|
||||
@ -346,10 +346,10 @@ double calc_grid_r_dir(Grid::QCD::LatticeGaugeField & Umu)
|
||||
// __ ___
|
||||
// | __ |
|
||||
Stap =
|
||||
Grid::Cshift(Grid::QCD::PeriodicBC::CovShiftForward (U[mu],mu,
|
||||
Grid::QCD::PeriodicBC::CovShiftForward (U[nu],nu,
|
||||
Grid::QCD::PeriodicBC::CovShiftBackward(U[mu],mu,
|
||||
Grid::QCD::PeriodicBC::CovShiftBackward(U[mu],mu,
|
||||
Grid::Cshift(Grid::PeriodicBC::CovShiftForward (U[mu],mu,
|
||||
Grid::PeriodicBC::CovShiftForward (U[nu],nu,
|
||||
Grid::PeriodicBC::CovShiftBackward(U[mu],mu,
|
||||
Grid::PeriodicBC::CovShiftBackward(U[mu],mu,
|
||||
Grid::Cshift(adj(U[nu]),nu,-1))))) , mu, 1);
|
||||
|
||||
TrStap = Grid::trace (U[mu]*Stap);
|
||||
@ -364,10 +364,10 @@ double calc_grid_r_dir(Grid::QCD::LatticeGaugeField & Umu)
|
||||
// __
|
||||
// |__ __ |
|
||||
|
||||
Stap = Grid::Cshift(Grid::QCD::PeriodicBC::CovShiftForward (U[mu],mu,
|
||||
Grid::QCD::PeriodicBC::CovShiftBackward(U[nu],nu,
|
||||
Grid::QCD::PeriodicBC::CovShiftBackward(U[mu],mu,
|
||||
Grid::QCD::PeriodicBC::CovShiftBackward(U[mu],mu, U[nu])))) , mu, 1);
|
||||
Stap = Grid::Cshift(Grid::PeriodicBC::CovShiftForward (U[mu],mu,
|
||||
Grid::PeriodicBC::CovShiftBackward(U[nu],nu,
|
||||
Grid::PeriodicBC::CovShiftBackward(U[mu],mu,
|
||||
Grid::PeriodicBC::CovShiftBackward(U[mu],mu, U[nu])))) , mu, 1);
|
||||
|
||||
TrStap = Grid::trace (U[mu]*Stap);
|
||||
|
||||
@ -379,10 +379,10 @@ double calc_grid_r_dir(Grid::QCD::LatticeGaugeField & Umu)
|
||||
// __
|
||||
// |__ __ |
|
||||
|
||||
Stap = Grid::Cshift(Grid::QCD::PeriodicBC::CovShiftBackward(U[nu],nu,
|
||||
Grid::QCD::PeriodicBC::CovShiftBackward(U[mu],mu,
|
||||
Grid::QCD::PeriodicBC::CovShiftBackward(U[mu],mu,
|
||||
Grid::QCD::PeriodicBC::CovShiftForward(U[nu],nu,U[mu])))) , mu, 1);
|
||||
Stap = Grid::Cshift(Grid::PeriodicBC::CovShiftBackward(U[nu],nu,
|
||||
Grid::PeriodicBC::CovShiftBackward(U[mu],mu,
|
||||
Grid::PeriodicBC::CovShiftBackward(U[mu],mu,
|
||||
Grid::PeriodicBC::CovShiftForward(U[nu],nu,U[mu])))) , mu, 1);
|
||||
|
||||
TrStap = Grid::trace (U[mu]*Stap);
|
||||
|
||||
@ -395,10 +395,10 @@ double calc_grid_r_dir(Grid::QCD::LatticeGaugeField & Umu)
|
||||
// __ ___
|
||||
// |__ |
|
||||
|
||||
Stap = Grid::Cshift(Grid::QCD::PeriodicBC::CovShiftForward (U[nu],nu,
|
||||
Grid::QCD::PeriodicBC::CovShiftBackward(U[mu],mu,
|
||||
Grid::QCD::PeriodicBC::CovShiftBackward(U[mu],mu,
|
||||
Grid::QCD::PeriodicBC::CovShiftBackward(U[nu],nu,U[mu])))) , mu, 1);
|
||||
Stap = Grid::Cshift(Grid::PeriodicBC::CovShiftForward (U[nu],nu,
|
||||
Grid::PeriodicBC::CovShiftBackward(U[mu],mu,
|
||||
Grid::PeriodicBC::CovShiftBackward(U[mu],mu,
|
||||
Grid::PeriodicBC::CovShiftBackward(U[nu],nu,U[mu])))) , mu, 1);
|
||||
|
||||
|
||||
TrStap = Grid::trace (U[mu]*Stap);
|
||||
@ -418,12 +418,12 @@ double calc_grid_r_dir(Grid::QCD::LatticeGaugeField & Umu)
|
||||
* Make staple for loops centered at coor of link ; this one is ok. // |
|
||||
*/
|
||||
// Stap =
|
||||
// Grid::Cshift(Grid::QCD::PeriodicBC::CovShiftForward(U[nu],nu,U[nu]),mu,1)* // ->||
|
||||
// Grid::adj(Grid::QCD::PeriodicBC::CovShiftForward(U[nu],nu,Grid::QCD::PeriodicBC::CovShiftForward(U[nu],nu,U[mu]))) ;
|
||||
Stap = Grid::Cshift(Grid::QCD::PeriodicBC::CovShiftForward(U[nu],nu,
|
||||
Grid::QCD::PeriodicBC::CovShiftForward(U[nu],nu,
|
||||
Grid::QCD::PeriodicBC::CovShiftBackward(U[mu],mu,
|
||||
Grid::QCD::PeriodicBC::CovShiftBackward(U[nu],nu, Grid::Cshift(adj(U[nu]),nu,-1))))) , mu, 1);
|
||||
// Grid::Cshift(Grid::PeriodicBC::CovShiftForward(U[nu],nu,U[nu]),mu,1)* // ->||
|
||||
// Grid::adj(Grid::PeriodicBC::CovShiftForward(U[nu],nu,Grid::PeriodicBC::CovShiftForward(U[nu],nu,U[mu]))) ;
|
||||
Stap = Grid::Cshift(Grid::PeriodicBC::CovShiftForward(U[nu],nu,
|
||||
Grid::PeriodicBC::CovShiftForward(U[nu],nu,
|
||||
Grid::PeriodicBC::CovShiftBackward(U[mu],mu,
|
||||
Grid::PeriodicBC::CovShiftBackward(U[nu],nu, Grid::Cshift(adj(U[nu]),nu,-1))))) , mu, 1);
|
||||
|
||||
TrStap = Grid::trace (U[mu]*Stap);
|
||||
SumTrStap += TrStap;
|
||||
@ -440,10 +440,10 @@ double calc_grid_r_dir(Grid::QCD::LatticeGaugeField & Umu)
|
||||
// | |
|
||||
// --
|
||||
|
||||
Stap = Grid::Cshift(Grid::QCD::PeriodicBC::CovShiftBackward(U[nu],nu,
|
||||
Grid::QCD::PeriodicBC::CovShiftBackward(U[nu],nu,
|
||||
Grid::QCD::PeriodicBC::CovShiftBackward(U[mu],mu,
|
||||
Grid::QCD::PeriodicBC::CovShiftForward (U[nu],nu,U[nu])))) , mu, 1);
|
||||
Stap = Grid::Cshift(Grid::PeriodicBC::CovShiftBackward(U[nu],nu,
|
||||
Grid::PeriodicBC::CovShiftBackward(U[nu],nu,
|
||||
Grid::PeriodicBC::CovShiftBackward(U[mu],mu,
|
||||
Grid::PeriodicBC::CovShiftForward (U[nu],nu,U[nu])))) , mu, 1);
|
||||
|
||||
TrStap = Grid::trace (U[mu]*Stap);
|
||||
trect = Grid::sum(TrStap);
|
||||
@ -459,20 +459,20 @@ double calc_grid_r_dir(Grid::QCD::LatticeGaugeField & Umu)
|
||||
Peter.Stop();
|
||||
Azusa.Start();
|
||||
{
|
||||
Grid::QCD::LatticeComplex RectPlaq_d(UGrid);
|
||||
Grid::QCD::LatticeColourMatrix ds_U(UGrid);
|
||||
Grid::QCD::LatticeColourMatrix left_2(UGrid);
|
||||
Grid::QCD::LatticeColourMatrix upper_l(UGrid);
|
||||
Grid::QCD::LatticeColourMatrix upper_staple(UGrid);
|
||||
Grid::QCD::LatticeColourMatrix down_l(UGrid);
|
||||
Grid::QCD::LatticeColourMatrix down_staple(UGrid);
|
||||
Grid::QCD::LatticeColourMatrix tmp(UGrid);
|
||||
Grid::LatticeComplex RectPlaq_d(UGrid);
|
||||
Grid::LatticeColourMatrix ds_U(UGrid);
|
||||
Grid::LatticeColourMatrix left_2(UGrid);
|
||||
Grid::LatticeColourMatrix upper_l(UGrid);
|
||||
Grid::LatticeColourMatrix upper_staple(UGrid);
|
||||
Grid::LatticeColourMatrix down_l(UGrid);
|
||||
Grid::LatticeColourMatrix down_staple(UGrid);
|
||||
Grid::LatticeColourMatrix tmp(UGrid);
|
||||
|
||||
// 2 (mu)x1(nu)
|
||||
left_2= Grid::QCD::PeriodicBC::CovShiftForward(U[mu],mu,U[mu]); // Umu(x) Umu(x+mu)
|
||||
left_2= Grid::PeriodicBC::CovShiftForward(U[mu],mu,U[mu]); // Umu(x) Umu(x+mu)
|
||||
tmp=Grid::Cshift(U[nu],mu,2); // Unu(x+2mu)
|
||||
|
||||
upper_l= Grid::QCD::PeriodicBC::CovShiftForward(tmp,nu,Grid::adj(left_2)); // Unu(x+2mu) Umu^dag(x+mu+nu) Umu^dag(x+nu)
|
||||
upper_l= Grid::PeriodicBC::CovShiftForward(tmp,nu,Grid::adj(left_2)); // Unu(x+2mu) Umu^dag(x+mu+nu) Umu^dag(x+nu)
|
||||
// __ __
|
||||
// = |
|
||||
|
||||
@ -546,9 +546,9 @@ double calc_grid_r_dir(Grid::QCD::LatticeGaugeField & Umu)
|
||||
// _
|
||||
// | |
|
||||
// | |
|
||||
Grid::QCD::LatticeColourMatrix up2= Grid::QCD::PeriodicBC::CovShiftForward(U[nu],nu,U[nu]);
|
||||
Grid::LatticeColourMatrix up2= Grid::PeriodicBC::CovShiftForward(U[nu],nu,U[nu]);
|
||||
|
||||
upper_l= Grid::QCD::PeriodicBC::CovShiftForward(Grid::Cshift(up2,mu,1),nu,Grid::Cshift(adj(U[mu]),nu,1));
|
||||
upper_l= Grid::PeriodicBC::CovShiftForward(Grid::Cshift(up2,mu,1),nu,Grid::Cshift(adj(U[mu]),nu,1));
|
||||
ds_U= upper_l*Grid::adj(up2);
|
||||
|
||||
RectPlaq_d = Grid::trace(U[mu]*ds_U);
|
||||
@ -569,7 +569,7 @@ double calc_grid_r_dir(Grid::QCD::LatticeGaugeField & Umu)
|
||||
downer_l= |
|
||||
(x)<----V
|
||||
*/
|
||||
down_l= Grid::adj(Grid::QCD::PeriodicBC::CovShiftForward(U[mu],mu,up2)); //downer_l
|
||||
down_l= Grid::adj(Grid::PeriodicBC::CovShiftForward(U[mu],mu,up2)); //downer_l
|
||||
/*
|
||||
^ |
|
||||
down_staple = | V
|
||||
@ -601,23 +601,23 @@ double calc_grid_r_dir(Grid::QCD::LatticeGaugeField & Umu)
|
||||
|
||||
}
|
||||
}}
|
||||
Grid::QCD::PlaqPlusRectangleActionR Wilson(0.0,c1); // Just take beta = 0.0
|
||||
Grid::PlaqPlusRectangleActionR Wilson(0.0,c1); // Just take beta = 0.0
|
||||
|
||||
return Wilson.S(Umu);
|
||||
};
|
||||
|
||||
void check_grid_r_staple(Grid::QCD::LatticeGaugeField & Umu)
|
||||
void check_grid_r_staple(Grid::LatticeGaugeField & Umu)
|
||||
{
|
||||
|
||||
std::vector<int> seeds4({1,2,3,4});
|
||||
|
||||
Grid::GridCartesian * UGrid = (Grid::GridCartesian *) Umu.Grid();
|
||||
|
||||
Grid::QCD::PlaqPlusRectangleActionR Wilson(0.0,c1); // Just take beta = 0.0
|
||||
Grid::PlaqPlusRectangleActionR Wilson(0.0,c1); // Just take beta = 0.0
|
||||
|
||||
Grid::QCD::LatticeColourMatrix staple(UGrid);
|
||||
Grid::QCD::LatticeColourMatrix link(UGrid);
|
||||
Grid::QCD::LatticeComplex Traced(UGrid);
|
||||
Grid::LatticeColourMatrix staple(UGrid);
|
||||
Grid::LatticeColourMatrix link(UGrid);
|
||||
Grid::LatticeComplex Traced(UGrid);
|
||||
Grid::Complex Rplaq(0.0);
|
||||
|
||||
for(int mu=0;mu<Nd;mu++){
|
||||
@ -630,12 +630,12 @@ void check_grid_r_staple(Grid::QCD::LatticeGaugeField & Umu)
|
||||
// Vol as for each site
|
||||
Grid::RealD RectScale(1.0/vol/12.0/6.0/3.0);
|
||||
|
||||
Grid::QCD::ColourWilsonLoops::RectStaple(staple,Umu,mu);
|
||||
Grid::ColourWilsonLoops::RectStaple(staple,Umu,mu);
|
||||
|
||||
link = Grid::QCD::PeekIndex<LorentzIndex>(Umu,mu);
|
||||
link = Grid::PeekIndex<LorentzIndex>(Umu,mu);
|
||||
|
||||
Traced = Grid::trace( link*staple) * RectScale;
|
||||
Grid::QCD::TComplex Tp = Grid::sum(Traced);
|
||||
Grid::TComplex Tp = Grid::sum(Traced);
|
||||
Grid::Complex p = Grid::TensorRemove(Tp);
|
||||
|
||||
std::cout<< "Rect from RectStaple "<<p<<std::endl;
|
||||
@ -645,18 +645,18 @@ void check_grid_r_staple(Grid::QCD::LatticeGaugeField & Umu)
|
||||
std::cout<< "Rect from RectStaple "<<Rplaq<<std::endl;
|
||||
}
|
||||
|
||||
void check_grid_p_staple(Grid::QCD::LatticeGaugeField & Umu)
|
||||
void check_grid_p_staple(Grid::LatticeGaugeField & Umu)
|
||||
{
|
||||
|
||||
std::vector<int> seeds4({1,2,3,4});
|
||||
|
||||
Grid::GridCartesian * UGrid = (Grid::GridCartesian *) Umu.Grid();
|
||||
|
||||
Grid::QCD::PlaqPlusRectangleActionR Wilson(1.0,0.0); // Just take c1 = 0.0
|
||||
Grid::PlaqPlusRectangleActionR Wilson(1.0,0.0); // Just take c1 = 0.0
|
||||
|
||||
Grid::QCD::LatticeColourMatrix staple(UGrid);
|
||||
Grid::QCD::LatticeColourMatrix link(UGrid);
|
||||
Grid::QCD::LatticeComplex Traced(UGrid);
|
||||
Grid::LatticeColourMatrix staple(UGrid);
|
||||
Grid::LatticeColourMatrix link(UGrid);
|
||||
Grid::LatticeComplex Traced(UGrid);
|
||||
Grid::Complex plaq(0.0);
|
||||
|
||||
for(int mu=0;mu<Nd;mu++){
|
||||
@ -669,12 +669,12 @@ void check_grid_p_staple(Grid::QCD::LatticeGaugeField & Umu)
|
||||
// Vol as for each site
|
||||
Grid::RealD Scale(1.0/vol/12.0/2.0/3.0);
|
||||
|
||||
Grid::QCD::ColourWilsonLoops::Staple(staple,Umu,mu);
|
||||
Grid::ColourWilsonLoops::Staple(staple,Umu,mu);
|
||||
|
||||
link = Grid::QCD::PeekIndex<LorentzIndex>(Umu,mu);
|
||||
link = Grid::PeekIndex<LorentzIndex>(Umu,mu);
|
||||
|
||||
Traced = Grid::trace( link*staple) * Scale;
|
||||
Grid::QCD::TComplex Tp = Grid::sum(Traced);
|
||||
Grid::TComplex Tp = Grid::sum(Traced);
|
||||
Grid::Complex p = Grid::TensorRemove(Tp);
|
||||
|
||||
std::cout<< "Plaq from PlaqStaple "<<p<<std::endl;
|
||||
|
@ -52,8 +52,8 @@ enum ChromaAction {
|
||||
HtContFracZolo
|
||||
};
|
||||
|
||||
void calc_grid (ChromaAction action,Grid::QCD::LatticeGaugeField & lat, Grid::QCD::LatticeFermion &src, Grid::QCD::LatticeFermion &res,int dag);
|
||||
void calc_chroma (ChromaAction action,Grid::QCD::LatticeGaugeField & lat, Grid::QCD::LatticeFermion &src, Grid::QCD::LatticeFermion &res,int dag);
|
||||
void calc_grid (ChromaAction action,Grid::LatticeGaugeField & lat, Grid::LatticeFermion &src, Grid::LatticeFermion &res,int dag);
|
||||
void calc_chroma (ChromaAction action,Grid::LatticeGaugeField & lat, Grid::LatticeFermion &src, Grid::LatticeFermion &res,int dag);
|
||||
|
||||
#include <chroma.h>
|
||||
#include <actions/ferm/invert/syssolver_linop_cg_array.h>
|
||||
@ -71,10 +71,10 @@ public:
|
||||
typedef LatticeFermion T4;
|
||||
typedef multi1d<LatticeFermion> T5;
|
||||
|
||||
static void ImportGauge(Grid::QCD::LatticeGaugeField & gr,
|
||||
static void ImportGauge(Grid::LatticeGaugeField & gr,
|
||||
QDP::multi1d<QDP::LatticeColorMatrix> & ch)
|
||||
{
|
||||
Grid::QCD::LorentzColourMatrix LCM;
|
||||
Grid::LorentzColourMatrix LCM;
|
||||
Grid::Complex cc;
|
||||
QDP::ColorMatrix cm;
|
||||
QDP::Complex c;
|
||||
@ -112,10 +112,10 @@ public:
|
||||
}}}}
|
||||
}
|
||||
|
||||
static void ImportFermion(Grid::QCD::LatticeFermion & gr,
|
||||
static void ImportFermion(Grid::LatticeFermion & gr,
|
||||
QDP::multi1d<QDP::LatticeFermion> & ch )
|
||||
{
|
||||
Grid::QCD::SpinColourVector F;
|
||||
Grid::SpinColourVector F;
|
||||
Grid::Complex c;
|
||||
|
||||
QDP::Fermion cF;
|
||||
@ -154,10 +154,10 @@ public:
|
||||
QDP::pokeSite(ch[s],cF,cx);
|
||||
}}}}}
|
||||
}
|
||||
static void ExportFermion(Grid::QCD::LatticeFermion & gr,
|
||||
static void ExportFermion(Grid::LatticeFermion & gr,
|
||||
QDP::multi1d<QDP::LatticeFermion> & ch )
|
||||
{
|
||||
Grid::QCD::SpinColourVector F;
|
||||
Grid::SpinColourVector F;
|
||||
Grid::Complex c;
|
||||
|
||||
QDP::Fermion cF;
|
||||
@ -384,9 +384,9 @@ int main (int argc,char **argv )
|
||||
* Setup Grid
|
||||
*********************************************************/
|
||||
Grid::Grid_init(&argc,&argv);
|
||||
Grid::GridCartesian * UGrid = Grid::QCD::SpaceTimeGrid::makeFourDimGrid(Grid::GridDefaultLatt(),
|
||||
Grid::GridDefaultSimd(Grid::QCD::Nd,Grid::vComplex::Nsimd()),
|
||||
Grid::GridDefaultMpi());
|
||||
Grid::GridCartesian * UGrid = Grid::SpaceTimeGrid::makeFourDimGrid(Grid::GridDefaultLatt(),
|
||||
Grid::GridDefaultSimd(Grid::Nd,Grid::vComplex::Nsimd()),
|
||||
Grid::GridDefaultMpi());
|
||||
|
||||
std::vector<int> gd = UGrid->GlobalDimensions();
|
||||
QDP::multi1d<int> nrow(QDP::Nd);
|
||||
@ -395,11 +395,11 @@ int main (int argc,char **argv )
|
||||
QDP::Layout::setLattSize(nrow);
|
||||
QDP::Layout::create();
|
||||
|
||||
Grid::GridCartesian * FGrid = Grid::QCD::SpaceTimeGrid::makeFiveDimGrid(Ls,UGrid);
|
||||
Grid::QCD::LatticeGaugeField lat(UGrid);
|
||||
Grid::QCD::LatticeFermion src(FGrid);
|
||||
Grid::QCD::LatticeFermion res_chroma(FGrid);
|
||||
Grid::QCD::LatticeFermion res_grid (FGrid);
|
||||
Grid::GridCartesian * FGrid = Grid::SpaceTimeGrid::makeFiveDimGrid(Ls,UGrid);
|
||||
Grid::LatticeGaugeField lat(UGrid);
|
||||
Grid::LatticeFermion src(FGrid);
|
||||
Grid::LatticeFermion res_chroma(FGrid);
|
||||
Grid::LatticeFermion res_grid (FGrid);
|
||||
|
||||
std::vector<ChromaAction> ActionList({
|
||||
HtCayleyTanh, // Plain old DWF.
|
||||
@ -446,7 +446,7 @@ int main (int argc,char **argv )
|
||||
Chroma::finalize();
|
||||
}
|
||||
|
||||
void calc_chroma(ChromaAction action,Grid::QCD::LatticeGaugeField & lat, Grid::QCD::LatticeFermion &src, Grid::QCD::LatticeFermion &res,int dag)
|
||||
void calc_chroma(ChromaAction action,Grid::LatticeGaugeField & lat, Grid::LatticeFermion &src, Grid::LatticeFermion &res,int dag)
|
||||
{
|
||||
QDP::multi1d<QDP::LatticeColorMatrix> u(4);
|
||||
|
||||
@ -483,7 +483,7 @@ void calc_chroma(ChromaAction action,Grid::QCD::LatticeGaugeField & lat, Grid::Q
|
||||
|
||||
|
||||
|
||||
void calc_grid(ChromaAction action,Grid::QCD::LatticeGaugeField & Umu, Grid::QCD::LatticeFermion &src, Grid::QCD::LatticeFermion &res,int dag)
|
||||
void calc_grid(ChromaAction action,Grid::LatticeGaugeField & Umu, Grid::LatticeFermion &src, Grid::LatticeFermion &res,int dag)
|
||||
{
|
||||
using namespace Grid;
|
||||
;
|
||||
@ -493,8 +493,8 @@ void calc_grid(ChromaAction action,Grid::QCD::LatticeGaugeField & Umu, Grid::QCD
|
||||
|
||||
Grid::GridCartesian * UGrid = (Grid::GridCartesian *) Umu.Grid();
|
||||
Grid::GridCartesian * FGrid = (Grid::GridCartesian *) src.Grid();
|
||||
Grid::GridRedBlackCartesian * UrbGrid = Grid::QCD::SpaceTimeGrid::makeFourDimRedBlackGrid(UGrid);
|
||||
Grid::GridRedBlackCartesian * FrbGrid = Grid::QCD::SpaceTimeGrid::makeFiveDimRedBlackGrid(Ls,UGrid);
|
||||
Grid::GridRedBlackCartesian * UrbGrid = Grid::SpaceTimeGrid::makeFourDimRedBlackGrid(UGrid);
|
||||
Grid::GridRedBlackCartesian * FrbGrid = Grid::SpaceTimeGrid::makeFiveDimRedBlackGrid(Ls,UGrid);
|
||||
|
||||
Grid::GridParallelRNG RNG4(UGrid); RNG4.SeedFixedIntegers(seeds4);
|
||||
Grid::GridParallelRNG RNG5(FGrid); RNG5.SeedFixedIntegers(seeds5);
|
||||
@ -502,12 +502,12 @@ void calc_grid(ChromaAction action,Grid::QCD::LatticeGaugeField & Umu, Grid::QCD
|
||||
Grid::gaussian(RNG5,src);
|
||||
Grid::gaussian(RNG5,res);
|
||||
|
||||
Grid::QCD::SU3::HotConfiguration(RNG4,Umu);
|
||||
Grid::SU3::HotConfiguration(RNG4,Umu);
|
||||
|
||||
/*
|
||||
Grid::QCD::LatticeColourMatrix U(UGrid);
|
||||
Grid::LatticeColourMatrix U(UGrid);
|
||||
U=Grid::zero;
|
||||
for(int nn=0;nn<Grid::QCD::Nd;nn++){
|
||||
for(int nn=0;nn<Grid::Nd;nn++){
|
||||
if ( nn>=4 ) {
|
||||
Grid::PokeIndex<LorentzIndex>(Umu,U,nn);
|
||||
}
|
||||
@ -519,7 +519,7 @@ void calc_grid(ChromaAction action,Grid::QCD::LatticeGaugeField & Umu, Grid::QCD
|
||||
|
||||
if ( action == HtCayleyTanh ) {
|
||||
|
||||
Grid::QCD::DomainWallFermionR Ddwf(Umu,*FGrid,*FrbGrid,*UGrid,*UrbGrid,_mass,_M5);
|
||||
Grid::DomainWallFermionR Ddwf(Umu,*FGrid,*FrbGrid,*UGrid,*UrbGrid,_mass,_M5);
|
||||
|
||||
std::cout << Grid::GridLogMessage <<" Calling domain wall multiply "<<std::endl;
|
||||
|
||||
@ -535,7 +535,7 @@ void calc_grid(ChromaAction action,Grid::QCD::LatticeGaugeField & Umu, Grid::QCD
|
||||
|
||||
Grid::Real _b = 0.5*(mobius_scale +1.0);
|
||||
Grid::Real _c = 0.5*(mobius_scale -1.0);
|
||||
Grid::QCD::MobiusZolotarevFermionR D(Umu,*FGrid,*FrbGrid,*UGrid,*UrbGrid,_mass,_M5,_b,_c,zolo_lo,zolo_hi);
|
||||
Grid::MobiusZolotarevFermionR D(Umu,*FGrid,*FrbGrid,*UGrid,*UrbGrid,_mass,_M5,_b,_c,zolo_lo,zolo_hi);
|
||||
|
||||
std::cout << Grid::GridLogMessage <<" Calling mobius zolo multiply "<<std::endl;
|
||||
|
||||
@ -549,7 +549,7 @@ void calc_grid(ChromaAction action,Grid::QCD::LatticeGaugeField & Umu, Grid::QCD
|
||||
|
||||
if ( action == HtCayleyZolo ) {
|
||||
|
||||
Grid::QCD::ShamirZolotarevFermionR D(Umu,*FGrid,*FrbGrid,*UGrid,*UrbGrid,_mass,_M5,zolo_lo,zolo_hi);
|
||||
Grid::ShamirZolotarevFermionR D(Umu,*FGrid,*FrbGrid,*UGrid,*UrbGrid,_mass,_M5,zolo_lo,zolo_hi);
|
||||
|
||||
std::cout << Grid::GridLogMessage <<" Calling shamir zolo multiply "<<std::endl;
|
||||
|
||||
@ -565,7 +565,7 @@ void calc_grid(ChromaAction action,Grid::QCD::LatticeGaugeField & Umu, Grid::QCD
|
||||
if ( action == HmCayleyTanh ) {
|
||||
Grid::Real _b = 0.5*(mobius_scale +1.0);
|
||||
Grid::Real _c = 0.5*(mobius_scale -1.0);
|
||||
Grid::QCD::MobiusFermionR D(Umu,*FGrid,*FrbGrid,*UGrid,*UrbGrid,_mass,_M5,_b,_c);
|
||||
Grid::MobiusFermionR D(Umu,*FGrid,*FrbGrid,*UGrid,*UrbGrid,_mass,_M5,_b,_c);
|
||||
|
||||
std::cout << Grid::GridLogMessage <<" Calling mobius tanh multiply "<<std::endl;
|
||||
|
||||
@ -581,7 +581,7 @@ void calc_grid(ChromaAction action,Grid::QCD::LatticeGaugeField & Umu, Grid::QCD
|
||||
|
||||
if ( action == HmCayleyTanh ) {
|
||||
|
||||
Grid::QCD::ScaledShamirFermionR D(Umu,*FGrid,*FrbGrid,*UGrid,*UrbGrid,_mass,_M5,mobius_scale);
|
||||
Grid::ScaledShamirFermionR D(Umu,*FGrid,*FrbGrid,*UGrid,*UrbGrid,_mass,_M5,mobius_scale);
|
||||
|
||||
std::cout << Grid::GridLogMessage <<" Calling scaled shamir multiply "<<std::endl;
|
||||
|
||||
@ -595,7 +595,7 @@ void calc_grid(ChromaAction action,Grid::QCD::LatticeGaugeField & Umu, Grid::QCD
|
||||
|
||||
if ( action == HwCayleyTanh ) {
|
||||
|
||||
Grid::QCD::OverlapWilsonCayleyTanhFermionR D(Umu,*FGrid,*FrbGrid,*UGrid,*UrbGrid,_mass,_M5,1.0);
|
||||
Grid::OverlapWilsonCayleyTanhFermionR D(Umu,*FGrid,*FrbGrid,*UGrid,*UrbGrid,_mass,_M5,1.0);
|
||||
|
||||
if ( dag )
|
||||
D.Mdag(src,res);
|
||||
@ -607,7 +607,7 @@ void calc_grid(ChromaAction action,Grid::QCD::LatticeGaugeField & Umu, Grid::QCD
|
||||
|
||||
if ( action == HwCayleyZolo ) {
|
||||
|
||||
Grid::QCD::OverlapWilsonCayleyZolotarevFermionR D(Umu,*FGrid,*FrbGrid,*UGrid,*UrbGrid,_mass,_M5,zolo_lo,zolo_hi);
|
||||
Grid::OverlapWilsonCayleyZolotarevFermionR D(Umu,*FGrid,*FrbGrid,*UGrid,*UrbGrid,_mass,_M5,zolo_lo,zolo_hi);
|
||||
|
||||
if ( dag )
|
||||
D.Mdag(src,res);
|
||||
|
@ -30,8 +30,8 @@ Author: paboyle <paboyle@ph.ed.ac.uk>
|
||||
|
||||
double mq=0.1;
|
||||
|
||||
typedef Grid::QCD::StaggeredImplR::FermionField FermionField;
|
||||
typedef Grid::QCD::LatticeGaugeField GaugeField;
|
||||
typedef Grid::StaggeredImplR::FermionField FermionField;
|
||||
typedef Grid::LatticeGaugeField GaugeField;
|
||||
|
||||
void make_gauge (GaugeField & lat, FermionField &src);
|
||||
void calc_grid (GaugeField & lat, GaugeField & uthin,GaugeField & ufat, FermionField &src, FermionField &res,int dag);
|
||||
@ -53,7 +53,7 @@ public:
|
||||
static void ImportGauge(GaugeField & gr,
|
||||
QDP::multi1d<QDP::LatticeColorMatrix> & ch)
|
||||
{
|
||||
Grid::QCD::LorentzColourMatrix LCM;
|
||||
Grid::LorentzColourMatrix LCM;
|
||||
Grid::Complex cc;
|
||||
QDP::ColorMatrix cm;
|
||||
QDP::Complex c;
|
||||
@ -88,7 +88,7 @@ public:
|
||||
static void ExportGauge(GaugeField & gr,
|
||||
QDP::multi1d<QDP::LatticeColorMatrix> & ch)
|
||||
{
|
||||
Grid::QCD::LorentzColourMatrix LCM;
|
||||
Grid::LorentzColourMatrix LCM;
|
||||
Grid::Complex cc;
|
||||
QDP::ColorMatrix cm;
|
||||
QDP::Complex c;
|
||||
@ -124,7 +124,7 @@ public:
|
||||
static void ImportFermion(FermionField & gr,
|
||||
QDP::LatticeStaggeredFermion & ch )
|
||||
{
|
||||
Grid::QCD::ColourVector F;
|
||||
Grid::ColourVector F;
|
||||
Grid::Complex c;
|
||||
|
||||
|
||||
@ -157,7 +157,7 @@ public:
|
||||
static void ExportFermion(FermionField & gr,
|
||||
QDP::LatticeStaggeredFermion & ch )
|
||||
{
|
||||
Grid::QCD::ColourVector F;
|
||||
Grid::ColourVector F;
|
||||
Grid::Complex c;
|
||||
|
||||
std::vector<int> x(5);
|
||||
@ -222,9 +222,9 @@ int main (int argc,char **argv )
|
||||
* Setup Grid
|
||||
*********************************************************/
|
||||
Grid::Grid_init(&argc,&argv);
|
||||
Grid::GridCartesian * UGrid = Grid::QCD::SpaceTimeGrid::makeFourDimGrid(Grid::GridDefaultLatt(),
|
||||
Grid::GridDefaultSimd(Grid::QCD::Nd,Grid::vComplex::Nsimd()),
|
||||
Grid::GridDefaultMpi());
|
||||
Grid::GridCartesian * UGrid = Grid::SpaceTimeGrid::makeFourDimGrid(Grid::GridDefaultLatt(),
|
||||
Grid::GridDefaultSimd(Grid::Nd,Grid::vComplex::Nsimd()),
|
||||
Grid::GridDefaultMpi());
|
||||
|
||||
std::vector<int> gd = UGrid->GlobalDimensions();
|
||||
QDP::multi1d<int> nrow(QDP::Nd);
|
||||
@ -333,7 +333,7 @@ void make_gauge(GaugeField & Umu,FermionField &src)
|
||||
|
||||
Grid::GridCartesian * UGrid = (Grid::GridCartesian *) Umu.Grid();
|
||||
Grid::GridParallelRNG RNG4(UGrid); RNG4.SeedFixedIntegers(seeds4);
|
||||
Grid::QCD::SU3::HotConfiguration(RNG4,Umu);
|
||||
Grid::SU3::HotConfiguration(RNG4,Umu);
|
||||
Grid::gaussian(RNG4,src);
|
||||
}
|
||||
|
||||
@ -343,9 +343,9 @@ void calc_grid(GaugeField & Uthin, GaugeField & Utriple, GaugeField & Ufat, Ferm
|
||||
;
|
||||
|
||||
Grid::GridCartesian * UGrid = (Grid::GridCartesian *) Uthin.Grid();
|
||||
Grid::GridRedBlackCartesian * UrbGrid = Grid::QCD::SpaceTimeGrid::makeFourDimRedBlackGrid(UGrid);
|
||||
Grid::GridRedBlackCartesian * UrbGrid = Grid::SpaceTimeGrid::makeFourDimRedBlackGrid(UGrid);
|
||||
|
||||
Grid::QCD::ImprovedStaggeredFermionR Dstag(Uthin,Utriple,Ufat,*UGrid,*UrbGrid,mq*2.0);
|
||||
Grid::ImprovedStaggeredFermionR Dstag(Uthin,Utriple,Ufat,*UGrid,*UrbGrid,mq*2.0);
|
||||
|
||||
std::cout << Grid::GridLogMessage <<" Calling Grid staggered multiply "<<std::endl;
|
||||
|
||||
|
@ -35,8 +35,8 @@
|
||||
double mq = 0.1;
|
||||
|
||||
// Define Wilson Types
|
||||
typedef Grid::QCD::WilsonImplR::FermionField FermionField;
|
||||
typedef Grid::QCD::LatticeGaugeField GaugeField;
|
||||
typedef Grid::WilsonImplR::FermionField FermionField;
|
||||
typedef Grid::LatticeGaugeField GaugeField;
|
||||
|
||||
enum ChromaAction
|
||||
{
|
||||
@ -56,7 +56,7 @@ public:
|
||||
static void ImportGauge(GaugeField &gr,
|
||||
QDP::multi1d<QDP::LatticeColorMatrix> &ch)
|
||||
{
|
||||
Grid::QCD::LorentzColourMatrix LCM;
|
||||
Grid::LorentzColourMatrix LCM;
|
||||
Grid::Complex cc;
|
||||
QDP::ColorMatrix cm;
|
||||
QDP::Complex c;
|
||||
@ -101,7 +101,7 @@ public:
|
||||
static void ExportGauge(GaugeField &gr,
|
||||
QDP::multi1d<QDP::LatticeColorMatrix> &ch)
|
||||
{
|
||||
Grid::QCD::LorentzColourMatrix LCM;
|
||||
Grid::LorentzColourMatrix LCM;
|
||||
Grid::Complex cc;
|
||||
QDP::ColorMatrix cm;
|
||||
QDP::Complex c;
|
||||
@ -145,10 +145,10 @@ public:
|
||||
}
|
||||
|
||||
// Specific for Wilson Fermions
|
||||
static void ImportFermion(Grid::QCD::LatticeFermion &gr,
|
||||
static void ImportFermion(Grid::LatticeFermion &gr,
|
||||
QDP::LatticeFermion &ch)
|
||||
{
|
||||
Grid::QCD::SpinColourVector F;
|
||||
Grid::SpinColourVector F;
|
||||
Grid::Complex c;
|
||||
|
||||
QDP::Fermion cF;
|
||||
@ -195,10 +195,10 @@ public:
|
||||
}
|
||||
|
||||
// Specific for 4d Wilson fermions
|
||||
static void ExportFermion(Grid::QCD::LatticeFermion &gr,
|
||||
static void ExportFermion(Grid::LatticeFermion &gr,
|
||||
QDP::LatticeFermion &ch)
|
||||
{
|
||||
Grid::QCD::SpinColourVector F;
|
||||
Grid::SpinColourVector F;
|
||||
Grid::Complex c;
|
||||
|
||||
QDP::Fermion cF;
|
||||
@ -342,19 +342,18 @@ void calc_chroma(ChromaAction action, GaugeField &lat, FermionField &src, Fermio
|
||||
void make_gauge(GaugeField &Umu, FermionField &src)
|
||||
{
|
||||
using namespace Grid;
|
||||
using namespace Grid::QCD;
|
||||
|
||||
std::vector<int> seeds4({1, 2, 3, 4});
|
||||
|
||||
Grid::GridCartesian *UGrid = (Grid::GridCartesian *)Umu._grid;
|
||||
Grid::GridParallelRNG RNG4(UGrid);
|
||||
RNG4.SeedFixedIntegers(seeds4);
|
||||
Grid::QCD::SU3::HotConfiguration(RNG4, Umu);
|
||||
Grid::SU3::HotConfiguration(RNG4, Umu);
|
||||
|
||||
// Fermion field
|
||||
Grid::gaussian(RNG4, src);
|
||||
/*
|
||||
Grid::QCD::SpinColourVector F;
|
||||
Grid::SpinColourVector F;
|
||||
Grid::Complex c;
|
||||
|
||||
|
||||
@ -391,13 +390,12 @@ void make_gauge(GaugeField &Umu, FermionField &src)
|
||||
*/
|
||||
}
|
||||
|
||||
void calc_grid(ChromaAction action, Grid::QCD::LatticeGaugeField &Umu, Grid::QCD::LatticeFermion &src, Grid::QCD::LatticeFermion &res, int dag)
|
||||
void calc_grid(ChromaAction action, Grid::LatticeGaugeField &Umu, Grid::LatticeFermion &src, Grid::LatticeFermion &res, int dag)
|
||||
{
|
||||
using namespace Grid;
|
||||
using namespace Grid::QCD;
|
||||
|
||||
Grid::GridCartesian *UGrid = (Grid::GridCartesian *)Umu._grid;
|
||||
Grid::GridRedBlackCartesian *UrbGrid = Grid::QCD::SpaceTimeGrid::makeFourDimRedBlackGrid(UGrid);
|
||||
Grid::GridRedBlackCartesian *UrbGrid = Grid::SpaceTimeGrid::makeFourDimRedBlackGrid(UGrid);
|
||||
|
||||
Grid::RealD _mass = mq;
|
||||
|
||||
@ -409,7 +407,7 @@ void calc_grid(ChromaAction action, Grid::QCD::LatticeGaugeField &Umu, Grid::QCD
|
||||
anis.xi_0 = 2.0;
|
||||
anis.nu = 1.0;
|
||||
WilsonImplParams iParam;
|
||||
Grid::QCD::WilsonFermionR Wf(Umu, *UGrid, *UrbGrid, _mass, iParam, anis);
|
||||
Grid::WilsonFermionR Wf(Umu, *UGrid, *UrbGrid, _mass, iParam, anis);
|
||||
|
||||
std::cout << Grid::GridLogMessage << " Calling Grid Wilson Fermion multiply " << std::endl;
|
||||
|
||||
@ -430,7 +428,7 @@ void calc_grid(ChromaAction action, Grid::QCD::LatticeGaugeField &Umu, Grid::QCD
|
||||
anis.xi_0 = 2.0;
|
||||
anis.nu = 1.0;
|
||||
WilsonImplParams CloverImplParam;
|
||||
Grid::QCD::WilsonCloverFermionR Wf(Umu, *UGrid, *UrbGrid, _mass, _csw_r, _csw_t, anis, CloverImplParam);
|
||||
Grid::WilsonCloverFermionR Wf(Umu, *UGrid, *UrbGrid, _mass, _csw_r, _csw_t, anis, CloverImplParam);
|
||||
Wf.ImportGauge(Umu);
|
||||
|
||||
std::cout << Grid::GridLogMessage << " Calling Grid Wilson Clover Fermion multiply " << std::endl;
|
||||
@ -458,9 +456,9 @@ int main(int argc, char **argv)
|
||||
* Setup Grid
|
||||
*********************************************************/
|
||||
Grid::Grid_init(&argc, &argv);
|
||||
Grid::GridCartesian *UGrid = Grid::QCD::SpaceTimeGrid::makeFourDimGrid(Grid::GridDefaultLatt(),
|
||||
Grid::GridDefaultSimd(Grid::QCD::Nd, Grid::vComplex::Nsimd()),
|
||||
Grid::GridDefaultMpi());
|
||||
Grid::GridCartesian *UGrid = Grid::SpaceTimeGrid::makeFourDimGrid(Grid::GridDefaultLatt(),
|
||||
Grid::GridDefaultSimd(Grid::Nd, Grid::vComplex::Nsimd()),
|
||||
Grid::GridDefaultMpi());
|
||||
|
||||
std::vector<int> gd = UGrid->GlobalDimensions();
|
||||
QDP::multi1d<int> nrow(QDP::Nd);
|
||||
|
@ -30,8 +30,6 @@ Author: Peter Boyle <paboyle@ph.ed.ac.uk>
|
||||
|
||||
using namespace std;
|
||||
using namespace Grid;
|
||||
using namespace Grid::QCD;
|
||||
|
||||
|
||||
int main (int argc, char ** argv)
|
||||
{
|
||||
|
@ -32,7 +32,6 @@
|
||||
|
||||
using namespace std;
|
||||
using namespace Grid;
|
||||
using namespace Grid::QCD;
|
||||
|
||||
int main(int argc, char **argv) {
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user