X-Git-Url: http://git.uio.no/git/?a=blobdiff_plain;f=EPOS%2Fepos167%2Fepos-tim-155.f;h=4d360fc496714e90f258c2300155559570fdeae2;hb=1b332c9c3b41d9e814ac754f744c50ee074e5de4;hp=a43971240c7de4f9b051bd382a518bcf821836f0;hpb=f1d31e44a1f9e73c22850d67451a53de0bc20a6d;p=u%2Fmrichter%2FAliRoot.git

diff --git a/EPOS/epos167/epos-tim-155.f b/EPOS/epos167/epos-tim-155.f
index a43971240c7..4d360fc4967 100644
--- 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