[cig-commits] r8617 - seismo/1D/SPECFEM1D/trunk

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 16:24:25 -0800 (Fri, 07 Dec 2007)
New Revision: 8617

Modified:
   seismo/1D/SPECFEM1D/trunk/diffusion.f90
   seismo/1D/SPECFEM1D/trunk/wave.f90
Log:
removed "format(" from 1D codes


Modified: seismo/1D/SPECFEM1D/trunk/diffusion.f90
===================================================================
--- seismo/1D/SPECFEM1D/trunk/diffusion.f90	2004-09-19 09:35:11 UTC (rev 8616)
+++ seismo/1D/SPECFEM1D/trunk/diffusion.f90	2007-12-08 00:24:25 UTC (rev 8617)
@@ -213,8 +213,7 @@
 
 ! write out snapshots
     if(mod(itime-1,1000) == 0) then
-      write(moviefile,10) itime
-10    format('snapshot',i5.5)
+      write(moviefile,"('snapshot',i5.5)") itime
       open(unit=10,file=moviefile,status='unknown')
       do iglob = 1,NGLOB
         write(10,*) sngl(x(iglob)),sngl(temperature(iglob))

Modified: seismo/1D/SPECFEM1D/trunk/wave.f90
===================================================================
--- seismo/1D/SPECFEM1D/trunk/wave.f90	2004-09-19 09:35:11 UTC (rev 8616)
+++ seismo/1D/SPECFEM1D/trunk/wave.f90	2007-12-08 00:24:25 UTC (rev 8617)
@@ -208,8 +208,7 @@
 
 ! write out snapshots
     if(mod(itime-1,1000) == 0) then
-      write(moviefile,10) itime
-10    format('snapshot',i5.5)
+      write(moviefile,"('snapshot',i5.5)") itime
       open(unit=10,file=moviefile,status='unknown')
       do iglob = 1,NGLOB
         write(10,*) sngl(x(iglob)),sngl(displ(iglob))