Corrected printout
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 30 Apr 2010 15:10:32 +0000 (15:10 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 30 Apr 2010 15:10:32 +0000 (15:10 +0000)
EPOS/epos167/epos-tim-155.f

index a439712..1cfc466 100644 (file)
@@ -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