mirror of
https://github.com/paboyle/Grid.git
synced 2024-11-10 07:55:35 +00:00
5e370db6c5
6000 matmuls CG unprec 2000 matmuls CG prec (4000 eo muls) 1050 matmuls PGCR on 16^3 x 32 x 8 m=.01 Substantial effort on timing and logging infrastructure
52 lines
1.7 KiB
C++
52 lines
1.7 KiB
C++
#include <Grid.h>
|
|
|
|
using namespace std;
|
|
using namespace Grid;
|
|
using namespace Grid::QCD;
|
|
|
|
int main (int argc, char ** argv)
|
|
{
|
|
Grid_init(&argc,&argv);
|
|
|
|
std::vector<int> latt_size = GridDefaultLatt();
|
|
std::vector<int> simd_layout = GridDefaultSimd(4,vComplex::Nsimd());
|
|
std::vector<int> mpi_layout = GridDefaultMpi();
|
|
|
|
GridCartesian Grid(latt_size,simd_layout,mpi_layout);
|
|
|
|
std::vector<int> seeds({1,2,3,4});
|
|
|
|
GridSerialRNG fsRNG; fsRNG.SeedFixedIntegers(seeds);
|
|
GridParallelRNG fpRNG(&Grid); fpRNG.SeedFixedIntegers(seeds);
|
|
|
|
vComplexF tmp; random(fsRNG,tmp);
|
|
std::cout<<GridLogMessage<<"Random vComplexF (fixed seed)\n"<< tmp<<std::endl;
|
|
std::cout<<GridLogMessage<<"conjugate(tmp)\n"<< conjugate(tmp)<<std::endl;
|
|
std::cout<<GridLogMessage<<"conjugate(tmp)*tmp\n"<< conjugate(tmp)*tmp<<std::endl;
|
|
std::cout<<GridLogMessage<<"innerProduct"<< innerProduct(tmp,tmp)<<std::endl;
|
|
std::cout<<GridLogMessage<<"Reduce(innerProduct)"<< Reduce(innerProduct(tmp,tmp))<<std::endl;
|
|
|
|
SpinMatrix rnd ;
|
|
random(fsRNG,rnd);
|
|
std::cout<<GridLogMessage<<"Random Spin Matrix (fixed seed)\n"<< rnd<<std::endl;
|
|
|
|
SpinVector rv;
|
|
random(fsRNG,rv);
|
|
std::cout<<GridLogMessage<<"Random Spin Vector (fixed seed)\n"<< rv<<std::endl;
|
|
|
|
gaussian(fsRNG,rv);
|
|
std::cout<<GridLogMessage<<"Gaussian Spin Vector (fixed seed)\n"<< rv<<std::endl;
|
|
|
|
LatticeColourVector lcv(&Grid);
|
|
|
|
LatticeFermion src(&Grid); random(fpRNG,src);
|
|
std::cout<<GridLogMessage << "src norm : " << norm2(src)<<std::endl;
|
|
std::cout<<GridLogMessage << "src " << src<<std::endl;
|
|
|
|
random(fpRNG,lcv);
|
|
std::cout<<GridLogMessage<<"Random Lattice Colour Vector (fixed seed)\n"<< lcv<<std::endl;
|
|
|
|
|
|
Grid_finalize();
|
|
}
|