Consistent printout
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 14 Jul 2010 15:04:39 +0000 (15:04 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 14 Jul 2010 15:04:39 +0000 (15:04 +0000)
EPOS/epos167/epos-tim-155.f

index 1cfc466..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