First implementation of Dirac matrices as a Gamma class.

tests/Grid_gamma.cc

@@ -0,0 +1,95 @@
+#include <Grid.h>
+#include <parallelIO/GridNerscIO.h>
+
+using namespace std;
+using namespace Grid;
+using namespace Grid::QCD;
+
+
+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);
+
+  GridRNG           RNG(&Grid);
+
+  SpinMatrix ident=zero;
+  SpinMatrix ll=zero;
+  SpinMatrix rr=zero;
+  SpinMatrix result;
+
+  for(int a=0;a<Ns;a++){
+    ident()(a,a) = 1.0;
+  }
+
+  Gamma::GammaMatrix g [] = {
+    Gamma::Identity,
+    Gamma::GammaX,
+    Gamma::GammaY,
+    Gamma::GammaZ,
+    Gamma::GammaT,
+    Gamma::Gamma5,
+    Gamma::MinusIdentity,
+    Gamma::MinusGammaX,
+    Gamma::MinusGammaY,
+    Gamma::MinusGammaZ,
+    Gamma::MinusGammaT,
+    Gamma::MinusGamma5
+  };
+  const char *list[] = { 
+    "Identity ",
+    "GammaX   ",
+    "GammaY   ",
+    "GammaZ   ",
+    "GammaT   ",
+    "Gamma5   ",
+    "-Identity",
+    "-GammaX  ",
+    "-GammaY  ",
+    "-GammaZ  ",
+    "-GammaT  ",
+    "-Gamma5  ",
+    "         "
+  };
+  //  result == ll*Gamma(g[0])*rr;
+  //  result == ll*Gamma(g[0]);
+
+  for(int mu=0;mu<12;mu++){
+
+    result = Gamma(g[mu])* ident;
+
+    for(int i=0;i<Ns;i++){
+
+      if(i==0) std::cout << list[mu];
+      else     std::cout << list[12];
+
+      std::cout<<"(";
+      for(int j=0;j<Ns;j++){
+	if ( abs(result()(i,j)())==0 ) {
+	  std::cout<< " 0";
+	} else if ( abs(result()(i,j)() - ComplexF(0,1))==0){
+	  std::cout<< " i";
+	} else if ( abs(result()(i,j)() + ComplexF(0,1))==0){
+	  std::cout<< "-i";
+	} else if ( abs(result()(i,j)() - ComplexF(1,0))==0){
+	  std::cout<< " 1";
+	} else if ( abs(result()(i,j)() + ComplexF(1,0))==0){
+	  std::cout<< "-1";
+	}
+	std::cout<< ((j==Ns-1) ? ")" : "," );
+      }
+      std::cout << std::endl;
+    }
+
+    std::cout << std::endl;
+
+  }
+
+  
+  Grid_finalize();
+}

tests/Makefile.am

@@ -5,7 +5,7 @@ AM_LDFLAGS = -L$(top_srcdir)/lib
 #
 # Test code
 #
-bin_PROGRAMS = Grid_main test_Grid_stencil Grid_nersc_io Grid_cshift
+bin_PROGRAMS = Grid_main Grid_stencil Grid_nersc_io Grid_cshift Grid_gamma
 
 Grid_main_SOURCES = Grid_main.cc
 Grid_main_LDADD = -lGrid
@@ -16,5 +16,8 @@ Grid_nersc_io_LDADD = -lGrid
 Grid_cshift_SOURCES = Grid_cshift.cc
 Grid_cshift_LDADD = -lGrid
 
-test_Grid_stencil_SOURCES = test_Grid_stencil.cc
-test_Grid_stencil_LDADD = -lGrid
+Grid_gamma_SOURCES = Grid_gamma.cc
+Grid_gamma_LDADD = -lGrid
+
+Grid_stencil_SOURCES = Grid_stencil.cc
+Grid_stencil_LDADD = -lGrid