[cig-commits] r8492 - seismo/2D/SPECFEM2D/trunk

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:50:35 -0800 (Fri, 07 Dec 2007)
New Revision: 8492

Modified:
   seismo/2D/SPECFEM2D/trunk/plotpost.f90
Log:
changed i6 to i7 to fix problem in display if time step number greater than 99999


Modified: seismo/2D/SPECFEM2D/trunk/plotpost.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/plotpost.f90	2006-06-21 00:23:42 UTC (rev 8491)
+++ seismo/2D/SPECFEM2D/trunk/plotpost.f90	2007-12-07 23:50:35 UTC (rev 8492)
@@ -906,7 +906,7 @@
  510  format(f5.1,1x,f5.1,' M')
  600  format(f6.3,' neg CM 0 MR (Time =',f6.3,' s) show')
  601  format(f6.3,' neg CM 0 MR (Time =',1pe10.3,' s) show')
- 610  format(f6.3,' neg CM 0 MR (Time step = ',i6,') show')
+ 610  format(f6.3,' neg CM 0 MR (Time step = ',i7,') show')
  620  format(f6.3,' neg CM 0 MR (Cut =',f5.2,' \%) show')
  640  format(f6.3,' neg CM 0 MR (Max norm =',1pe10.3,') show')