correct protection (ets .ne. 0).
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 7 Mar 2003 14:53:33 +0000 (14:53 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 7 Mar 2003 14:53:33 +0000 (14:53 +0000)
EMCAL/jet_finder_ua1.F

index 4cdc1cdeda9ad8a096bf2b2d9aee2765a3d6c655..41b09c0a111940367a379f68685509ab49761d9d 100644 (file)
@@ -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