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

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:55:54 -0800 (Fri, 07 Dec 2007)
New Revision: 8553

Modified:
   seismo/2D/SPECFEM2D/trunk/create_color_image.f90
   seismo/2D/SPECFEM2D/trunk/plotpost.F90
Log:
changed i6.6 to i7.7 to avoid problems after 999999 time steps


Modified: seismo/2D/SPECFEM2D/trunk/create_color_image.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/create_color_image.f90	2007-07-04 09:06:28 UTC (rev 8552)
+++ seismo/2D/SPECFEM2D/trunk/create_color_image.f90	2007-12-07 23:55:54 UTC (rev 8553)
@@ -45,7 +45,7 @@
   integer, parameter :: ascii_code_of_zero = 48, ascii_code_of_carriage_return = 10
 
 ! open the image file
-  write(file_name,"('OUTPUT_FILES/image',i6.6,'.pnm')") it
+  write(file_name,"('OUTPUT_FILES/image',i7.7,'.pnm')") it
 
   if(BINARY_FILE) then
 
@@ -214,7 +214,7 @@
   close(27)
 
 ! open image file and create system command to convert image to more convenient format
-  write(system_command,"('cd OUTPUT_FILES ; convert image',i6.6,'.pnm image',i6.6,'.gif')") it,it
+  write(system_command,"('cd OUTPUT_FILES ; convert image',i7.7,'.pnm image',i7.7,'.gif')") it,it
  
 ! call the system to convert image to GIF
   call system(system_command)

Modified: seismo/2D/SPECFEM2D/trunk/plotpost.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/plotpost.F90	2007-07-04 09:06:28 UTC (rev 8552)
+++ seismo/2D/SPECFEM2D/trunk/plotpost.F90	2007-12-07 23:55:54 UTC (rev 8553)
@@ -1367,7 +1367,7 @@
 !---- open PostScript file
 !
   if ( myrank == 0 ) then
-  write(file_name,"('OUTPUT_FILES/vect',i6.6,'.ps')") it
+  write(file_name,"('OUTPUT_FILES/vect',i7.7,'.ps')") it
   open(unit=24,file=file_name,status='unknown')
 
 !