git://git.uio.no / u / mrichter / AliRoot.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 4380867)
Additional protection
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 25 Jun 2002 08:17:33 +0000 (08:17 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 25 Jun 2002 08:17:33 +0000 (08:17 +0000)
GEANT321/peanut/bimsel.F patch | blob | blame | history

diff --git a/GEANT321/peanut/bimsel.F b/GEANT321/peanut/bimsel.F
index 2e91084773af92c817e813809c4cfa4c84306f9b..805d26a2843ec1ac4cf3aab28f18e4daab33acc6 100644 (file)
--- a/GEANT321/peanut/bimsel.F
+++ b/GEANT321/peanut/bimsel.F
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.4  2002/06/22 10:50:18  hristov
+* Better protection
+*
 * Revision 1.3  2002/06/20 15:58:37  hristov
 * Protection in case of invalid ACOS argument. The reason for such argument has to be investigated.
 *
@@ -302,6 +305,7 @@
                X1 = X1 / ( R0PROT * RPRONU * RADCO2 )
                DSKRED = ( 0.5D+00 * X1 * X1 + X1 + 1.D+00 ) * EXP (-X1)
      &                * ANGRED
+               IF (DSKRED.EQ.0.0) DSKRED=1.D+00
             ELSE
                X1 = RADPRO + BIMPTR - RADTOT
                DUMMY = 2.D+00 * X1 / ( RADPRO + X1 )