correct protection (ets .ne. 0).

[u/mrichter/AliRoot.git] / EMCAL / jet_finder_ua1.F

diff --git a/EMCAL/jet_finder_ua1.F b/EMCAL/jet_finder_ua1.F
index 4cdc1cdeda9ad8a096bf2b2d9aee2765a3d6c655..41b09c0a111940367a379f68685509ab49761d9d 100644 (file)
--- a/EMCAL/jet_finder_ua1.F
+++ b/EMCAL/jet_finder_ua1.F
@@ -230,7 +230,7 @@ c*-reject cluster below minimum Ej_min
 c* protection (am)
             etas=eta+etas/ets
             arg = 0.
-            if (arg .ne. 0.) then
+            if (ets .ne. 0.) then
                if (abs(etas/ets) .lt. 23.719) then
                   arg = ets * cosh(etas/ets)
                else