Update madl_etrck.mad

Author: ldeniau

src/madl_etrck.mad

@@ -249,11 +249,10 @@ local function track_multipole (elm, m)
   local angle, ksi, lrad, knl, ksl in elm
   local edir in m
 
-  m.el = lrad
+  m.el = lrad*tdir
 
   local kick = strex_kick
-  -- Check if knl[1]^2 + ksl[1]^2 > 0
-  if (knl[1] and abs(knl[1]) >= minstr) or (ksl[1] and abs(ksl[1]) >= minstr) then
+  if abs(knl[1]) + abs(ksl[1]) >= minang then
     kick = strex_kickh
   elseif abs(ksi) >= minstr then
     m.ksi = ksi