29   assert(v1.
nex() == 1);
 
   30   assert(v2.
nex() == 1);
 
   35   for (
int site = 0; site < Nvol; ++site) {
 
   36     for (
int c1 = 0; c1 < Nc; ++c1) {
 
   37       for (
int c2 = 0; c2 < Nc; ++c2) {
 
   40         for (
int s = 0; s < Nd; ++s) {
 
   41           utr += v1.
cmp_r(c2, s, site) * v2.
cmp_r(c1, s, site)
 
   42                  + v1.
cmp_i(c2, s, site) * v2.
cmp_i(c1, s, site);
 
   43           uti += v1.
cmp_r(c2, s, site) * v2.
cmp_i(c1, s, site)
 
   44                  - v1.
cmp_i(c2, s, site) * v2.
cmp_r(c1, s, site);
 
   46         ut.set(c1, c2, utr, uti);
 
double cmp_i(const int cc, const int s, const int site, const int e=0) const 
 
Wilson-type fermion field. 
 
void tensorProd_Field_F(Field_G &u, const Field_F &v1, const Field_F &v2)
 
void set_mat(const int site, const int mn, const Mat_SU_N &U)
 
double cmp_r(const int cc, const int s, const int site, const int e=0) const