9                    "Field_G: implementation for SU(2).\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[4] - g1[3] * g2[5];
 
   20   double mult_Gnn_i(
const double *g1, 
const double *g2, 
const int Nc)
 
   22     return g1[0] * g2[1] + g1[1] * g2[0]
 
   23            + g1[2] * g2[5] + g1[3] * g2[4];
 
   27   double mult_Gdn_r(
const double *g1, 
const double *g2, 
const int Nc)
 
   29     return g1[0] * g2[0] + g1[1] * g2[1]
 
   30            + g1[4] * g2[4] + g1[5] * g2[5];
 
   34   double mult_Gdn_i(
const double *g1, 
const double *g2, 
const int Nc)
 
   36     return g1[0] * g2[1] - g1[1] * g2[0]
 
   37            + g1[4] * g2[5] - g1[5] * g2[4];
 
   41   double mult_Gnd_r(
const double *g1, 
const double *g2, 
const int Nc)
 
   43     return g1[0] * g2[0] + g1[1] * g2[1]
 
   44            + g1[2] * g2[2] + g1[3] * g2[3];
 
   48   double mult_Gnd_i(
const double *g1, 
const double *g2, 
const int Nc)
 
   50     return -g1[0] * g2[1] + g1[1] * g2[0]
 
   51            - g1[2] * g2[3] + g1[3] * g2[2];
 
   55   double mult_Gdd_r(
const double *g1, 
const double *g2, 
const int Nc)
 
   57     return g1[0] * g2[0] - g1[1] * g2[1]
 
   58            + g1[4] * g2[2] - g1[5] * g2[3];
 
   62   double mult_Gdd_i(
const double *g1, 
const double *g2, 
const int Nc)
 
   64     return -g1[0] * g2[1] - g1[1] * g2[0]
 
   65            - g1[4] * g2[3] - g1[5] * g2[2];
 
static Bridge::VerboseLevel Vlevel()
 
void paranoiac(const char *format,...)