[cig-commits] r20830 - seismo/2D/SPECFEM2D/trunk/src/specfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-10-12 09:23:53 -0700 (Fri, 12 Oct 2012)
New Revision: 20830

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/plotpost.F90
Log:
changed i4 to i7 in the output of mesh element numbers


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/plotpost.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/plotpost.F90	2012-10-12 16:16:33 UTC (rev 20829)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/plotpost.F90	2012-10-12 16:23:53 UTC (rev 20830)
@@ -3102,7 +3102,7 @@
 
  499 format(f8.3,1x,f8.3,' L')
  500 format(f8.3,1x,f8.3,' M')
- 502 format('fN (',i4,') Cshow')
+ 502 format('fN (',i7,') Cshow')
  679 format(f12.6,1x,f12.6,1x,f12.6,' RG fill stroke')
  680 format(f12.6,1x,f12.6,1x,f12.6,' RG GF')
  681 format(f6.2,1x,f6.2)