9                    "Field_G: implementation for SU(3).\n");
 
   13   double mult_Gnn_r(
const double *g1, 
const double *g2, 
const int Nc)
 
   15     return g1[0] * g2[0] - g1[1] * g2[1]
 
   16            + g1[2] * g2[6] - g1[3] * g2[7]
 
   17            + g1[4] * g2[12] - g1[5] * g2[13];
 
   21   double mult_Gnn_i(
const double *g1, 
const double *g2, 
const int Nc)
 
   23     return g1[0] * g2[1] + g1[1] * g2[0]
 
   24            + g1[2] * g2[7] + g1[3] * g2[6]
 
   25            + g1[4] * g2[13] + g1[5] * g2[12];
 
   29   double mult_Gdn_r(
const double *g1, 
const double *g2, 
const int Nc)
 
   31     return g1[0] * g2[0] + g1[1] * g2[1]
 
   32            + g1[6] * g2[6] + g1[7] * g2[7]
 
   33            + g1[12] * g2[12] + g1[13] * g2[13];
 
   37   double mult_Gdn_i(
const double *g1, 
const double *g2, 
const int Nc)
 
   39     return g1[0] * g2[1] - g1[1] * g2[0]
 
   40            + g1[6] * g2[7] - g1[7] * g2[6]
 
   41            + g1[12] * g2[13] - g1[13] * g2[12];
 
   45   double mult_Gnd_r(
const double *g1, 
const double *g2, 
const int Nc)
 
   47     return g1[0] * g2[0] + g1[1] * g2[1]
 
   48            + g1[2] * g2[2] + g1[3] * g2[3]
 
   49            + g1[4] * g2[4] + g1[5] * g2[5];
 
   53   double mult_Gnd_i(
const double *g1, 
const double *g2, 
const int Nc)
 
   55     return -g1[0] * g2[1] + g1[1] * g2[0]
 
   56            - g1[2] * g2[3] + g1[3] * g2[2]
 
   57            - g1[4] * g2[5] + g1[5] * g2[4];
 
   61   double mult_Gdd_r(
const double *g1, 
const double *g2, 
const int Nc)
 
   63     return g1[0] * g2[0] - g1[1] * g2[1]
 
   64            + g1[6] * g2[2] - g1[7] * g2[3]
 
   65            + g1[12] * g2[4] - g1[13] * g2[5];
 
   69   double mult_Gdd_i(
const double *g1, 
const double *g2, 
const int Nc)
 
   71     return -g1[0] * g2[1] - g1[1] * g2[0]
 
   72            - g1[6] * g2[3] - g1[7] * g2[2]
 
   73            - g1[12] * g2[5] - g1[13] * g2[4];
 
static Bridge::VerboseLevel Vlevel()
 
void paranoiac(const char *format,...)