Consistent printout
[u/mrichter/AliRoot.git] / EPOS / epos167 / epos-tim-155.f
index c33bd2a..4d360fc 100644 (file)
@@ -364,7 +364,7 @@ c......................................................................
       endif
       if (q2.lt.4.*q2fin+2.*amm2(idfl) )then
         if(ish.ge.9)then
-          write(ifch,'(a,i4,i4,2f15.8)') 'null:',0.
+          write(ifch,'(a,i4,i4,2f15.8)') 'null:',0
         endif
         q2=amm2(idfl)
         idfla=0
@@ -394,7 +394,7 @@ c.....select new q2
       if (q2.lt.4.*q2fin+2.*amm2(idfl))then
         q2=amm2(idfl)
         if(ish.ge.9)then
-          write(ifch,'(a,i4,i4,2f15.8)') 'null:',0.
+          write(ifch,'(a,i4,i4,2f15.8)') 'null:',0
         endif
         idfla=0
         idflb=0
@@ -423,10 +423,10 @@ 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
+        if(E.le.sqrt(q2))goto 390
         pzz=sqrt((E-sqrt(q2))*(E+sqrt(q2)))
         pt2=(E**2*(z*(1.-z)*q2-z*amm2(idflb)-(1.-z)*amm2(idfla))
      $       -.25*(amm2(idflb)-amm2(idfla)-q2)**2+q2*amm2(idfla))/pzz**2