From 1733af6ab10f0dbf08748651bdd82e4910ea44fa Mon Sep 17 00:00:00 2001
From: hristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Date: Fri, 30 Apr 2010 15:10:32 +0000
Subject: [PATCH] Corrected printout

---
 EPOS/epos167/epos-tim-155.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/EPOS/epos167/epos-tim-155.f b/EPOS/epos167/epos-tim-155.f
index a43971240c7..1cfc4661198 100644
--- a/EPOS/epos167/epos-tim-155.f
+++ b/EPOS/epos167/epos-tim-155.f
@@ -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
-- 
2.43.0