Fixed occasional division by zero in epos-tim
authorpostrow <postrow@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 30 Jul 2009 12:58:44 +0000 (12:58 +0000)
committerpostrow <postrow@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 30 Jul 2009 12:58:44 +0000 (12:58 +0000)
EPOS/epos167/epos-tim-155.f

index c33bd2a..29d6d7d 100644 (file)
@@ -423,7 +423,7 @@ c.....select flavor and z-value .....................................
           idflb=9
       endif
 
-      if(alfm/log(q2*z*(1.-z)/qcdlam).lt.rangen()) goto 390
+      if(alfm.lt.rangen()*log(q2*z*(1.-z)/qcdlam)) goto 390
 
       if(ij(1).ne.j1.or.ij(2).eq.0)then
         if(E.lt.sqrt(q2))goto 390