[cig-commits] r8432 - seismo/2D/SPECFEM2D/trunk/SPECFEM90

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:45:49 -0800 (Fri, 07 Dec 2007)
New Revision: 8432

Modified:
   seismo/2D/SPECFEM2D/trunk/SPECFEM90/plotpost.f90
Log:
changed format from f4.2 to f12.6 to avoid problem with Intel ifort compiler


Modified: seismo/2D/SPECFEM2D/trunk/SPECFEM90/plotpost.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/SPECFEM90/plotpost.f90	2004-12-12 14:57:02 UTC (rev 8431)
+++ seismo/2D/SPECFEM2D/trunk/SPECFEM90/plotpost.f90	2007-12-07 23:45:49 UTC (rev 8432)
@@ -907,10 +907,10 @@
  499  format(f5.1,1x,f5.1,' L')
  500  format(f5.1,1x,f5.1,' M')
  502  format('fN (',i4,') Cshow')
- 680  format(f4.2,1x,f4.2,1x,f4.2,' RG GF')
+ 680  format(f12.6,1x,f12.6,1x,f12.6,' RG GF')
  681  format(f6.2,1x,f6.2)
  602  format(f6.2,1x,f6.2,' M ',f6.2,1x,f6.2,' L ST')
- 604  format('CP ',f4.2,' BK')
+ 604  format('CP ',f12.6,' BK')
  700  format(8(f5.1,1x),'F')
 
   end subroutine plotpost