Update madl_dynmap.mad

Author: ldeniau

src/madl_dynmap.mad

@@ -519,10 +519,10 @@ function M.strex_kickh (elm, m, lw) -- [KICKT]                               --
     m[i].py = py + wchg*(bx - ksl[1]*pz)
     m[i].t  = t  - wchg*(knl[1]*x - ksl[1]*y)*(_beta+pt)/pz
 
-    -- curvature
+    -- field curvature
     if el ~= 0 then
-      m[i].px = m[i].px - (knl[1]^2/el)*x   -- eh was el -- DIFFERENT TO PTC -> thin_h_foc ~= eh -> thin_h_foc = elm.lrad 
-      m[i].py = m[i].py - (ksl[1]^2/el)*y   -- eh was el
+      m[i].px = m[i].px - wchg*(knl[1]^2/el)*x 
+      m[i].py = m[i].py - wchg*(ksl[1]^2/el)*y
     end
   end