/************************************************************************************* grid` physics library, www.github.com/paboyle/Grid Source file: ./tests/Test_cshift.cc Copyright (C) 2015 Author: Azusa Yamaguchi Author: Peter Boyle 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 */ #include using namespace Grid; Gamma::Algebra Gmu [] = { Gamma::Algebra::GammaX, Gamma::Algebra::GammaY, Gamma::Algebra::GammaZ, Gamma::Algebra::GammaT, Gamma::Algebra::Gamma5 }; int main (int argc, char ** argv) { Grid_init(&argc,&argv); int threads = GridThread::GetThreads(); std::cout< seeds({1,2,3,4}); GridSerialRNG sRNG; sRNG.SeedFixedIntegers(seeds); // naughty seeding GridParallelRNG pRNG(&GRID); pRNG.SeedFixedIntegers(seeds); LatticeGaugeFieldD Umu(&GRID); SU::ColdConfiguration(pRNG,Umu); // Unit gauge //////////////////////////////////////////////////// // Wilson test //////////////////////////////////////////////////// { LatticeFermionD src(&GRID); gaussian(pRNG,src); LatticeFermionD src_p(&GRID); LatticeFermionD tmp(&GRID); LatticeFermionD ref(&GRID); LatticeFermionD result(&GRID); RealD mass=0.1; WilsonFermionD Dw(Umu,GRID,RBGRID,mass); Dw.M(src,ref); std::cout << "Norm src "< 1/2 gmu (eip - emip) = i sinp gmu Kinetic = Kinetic + sin(kmu)*ci*(Gamma(Gmu[mu])*src_p); } W = mass + sk2; Kinetic = Kinetic + W * src_p; std::cout<<"Momentum space src "<< norm2(src_p)< HermOp(Dw); ConjugateGradient CG(1.0e-10,10000); CG(HermOp,src,result); //////////////////////////////////////////////////////////////////////// std::cout << " Taking difference" <::RandomGaugeTransform(pRNG,U_GT,g); // Unit gauge LatticeFermionD src(&GRID); LatticeFermionD tmp(&GRID); LatticeFermionD ref(&GRID); LatticeFermionD diff(&GRID); // could loop over colors src=Zero(); Coordinate point(4,0); // 0,0,0,0 SpinColourVectorD ferm; ferm=Zero(); ferm()(0)(0) = ComplexD(1.0); pokeSite(ferm,src,point); RealD mass=0.1; WilsonFermionD Dw(U_GT,GRID,RBGRID,mass); // Momentum space prop std::cout << " Solving by FFT and Feynman rules" < HermOp(Dw); ConjugateGradient CG(1.0e-10,10000); CG(HermOp,src,result); //////////////////////////////////////////////////////////////////////// std::cout << " Taking difference" <