Big updates with progress towards wilson matrix

tests/Grid_wilson.cc

@@ -0,0 +1,69 @@
+#include <Grid.h>
+#include <parallelIO/GridNerscIO.h>
+
+using namespace std;
+using namespace Grid;
+using namespace Grid::QCD;
+
+template<class d>
+struct scal {
+  d internal;
+};
+
+
+int main (int argc, char ** argv)
+{
+  Grid_init(&argc,&argv);
+
+  std::vector<int> simd_layout({1,1,2,2});
+  std::vector<int> mpi_layout ({1,1,1,1});
+  std::vector<int> latt_size  ({8,8,8,8});
+    
+  GridCartesian     Grid(latt_size,simd_layout,mpi_layout);
+  std::vector<int> seeds({1,2,3,4});
+
+  GridParallelRNG          pRNG(&Grid);
+  //  pRNG.SeedFixedIntegers(seeds);
+  pRNG.SeedRandomDevice();
+
+  LatticeFermion src(&Grid); random(pRNG,src);
+  LatticeFermion result(&Grid); result=zero;
+  LatticeFermion    ref(&Grid);    ref=zero;
+  LatticeGaugeField Umu(&Grid); random(pRNG,Umu);
+  std::vector<LatticeColourMatrix> U(4,&Grid);
+
+  for(int mu=0;mu<Nd;mu++){
+    U[mu] = 1.0;
+    pokeIndex<3>(Umu,U[mu],mu);
+  }
+  
+  {
+    int mu=0;
+    //    ref =  src + Gamma(Gamma::GammaX)* src ; // 1-gamma_x
+    ref =  src;
+    ref = U[0]*Cshift(ref,0,1);
+  }
+
+  RealD mass=0.1;
+  WilsonMatrix Dw(Umu,mass);
+  std::cout << "Calling Dw"<<std::endl;
+  Dw.multiply(src,result);
+  std::cout << "Called Dw"<<std::endl;
+  std::cout << "norm result "<< norm2(result)<<std::endl;
+  std::cout << "norm ref    "<< norm2(ref)<<std::endl;
+
+  for(int ss=0;ss<10;ss++ ){
+    for(int i=0;i<Ns;i++){
+      for(int j=0;j<Nc;j++){
+	ComplexF * ref_p = (ComplexF *)&ref._odata[ss]()(i)(j);
+	ComplexF * res_p = (ComplexF *)&result._odata[ss]()(i)(j);
+	std::cout << ss<< " "<<i<<" "<<j<<" "<< (*ref_p)<<" " <<(*res_p)<<std::endl;
+      }
+    }
+  }
+
+  ref = ref -result;
+  std::cout << "norm diff   "<< norm2(ref)<<std::endl;
+
+  Grid_finalize();
+}