Merge branch 'master' of https://git.cern.ch/reps/AliRoot

[u/mrichter/AliRoot.git] / EPOS / epos167 / epos-tim-155.f

diff --git a/EPOS/epos167/epos-tim-155.f b/EPOS/epos167/epos-tim-155.f
index a43971240c7de4f9b051bd382a518bcf821836f0..4d360fc496714e90f258c2300155559570fdeae2 100644 (file)
--- a/EPOS/epos167/epos-tim-155.f
+++ b/EPOS/epos167/epos-tim-155.f
@@ -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