added missing factor I in gamma5 trace

[ginac.git] / check / exam_clifford.cpp

diff --git a/check/exam_clifford.cpp b/check/exam_clifford.cpp
index ec305c65aeeda710fc4e1a0c0eec6c7cef9ff0ec..2d538354400d759aa594ebe5fdf29dd8ac737419 100644 (file)
--- a/check/exam_clifford.cpp
+++ b/check/exam_clifford.cpp
@@ -156,7 +156,7 @@ static unsigned clifford_check3(void)
          + dim * dirac_gamma5() * dirac_gamma(nu) * dirac_gamma(rho) * dirac_gamma(sig) * dirac_gamma(kap);
        e = dirac_trace(e);
        e = (e / (dim - 4)).normal();
          + dim * dirac_gamma5() * dirac_gamma(nu) * dirac_gamma(rho) * dirac_gamma(sig) * dirac_gamma(kap);
        e = dirac_trace(e);
        e = (e / (dim - 4)).normal();

-       result += check_equal(e, 8 * eps0123(nu, rho, sig, kap));
+       result += check_equal(e, 8 * I * eps0123(nu, rho, sig, kap));

 
        // one-loop vacuum polarization in QED
        e = dirac_gamma(mu) *
 
        // one-loop vacuum polarization in QED
        e = dirac_gamma(mu) *