From dd1b69e95f6de3f9ff46e47ecd25066434b73cb2 Mon Sep 17 00:00:00 2001
From: James Osborn <osborn@alcf.anl.gov>
Date: Mon, 16 Dec 2024 22:03:14 -0600
Subject: [PATCH] fix lepage derivative

---
 src/gauge/fat7lderiv.nim | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/gauge/fat7lderiv.nim b/src/gauge/fat7lderiv.nim
index 3722664..d8e2866 100644
--- a/src/gauge/fat7lderiv.nim
+++ b/src/gauge/fat7lderiv.nim
@@ -258,7 +258,8 @@ proc fat7lDeriv*(deriv: auto, gauge: auto, mid: auto, coef: Fat7lCoefs,
         deriv[sig] += coef1 * mid[sig]
         nflops += 36
 
-    if coefL!=0.0:
+    #if coefL!=0.0:
+    when false:
       # fix up Lepage term
       let fixL = -coefL
       for mu in 0..3:
@@ -440,7 +441,7 @@ when isMainModule:
   checkS("sevenStaple", 3)
   coef.sevenStaple = 0.0
   coef.lepage = 1.0
-  checkS("Lepage", 1)
+  checkS("Lepage", 25)
   coef.oneLink = 1.0
   coef.threeStaple = 1.0
   coef.fiveStaple = 1.0
@@ -448,7 +449,7 @@ when isMainModule:
   coef.lepage = 0.0
   checkS("not Lepage", 60)
   coef.lepage = 1.0
-  checkS("all", 60)
+  checkS("all", 90)
 
 
 #[