[cig-commits] r12888 - seismo/2D/SPECFEM2D/branches/BIOT

[cmorency at geodynamics.org]

Author: cmorency
Date: 2008-09-16 07:02:47 -0700 (Tue, 16 Sep 2008)
New Revision: 12888

Modified:
   seismo/2D/SPECFEM2D/branches/BIOT/create_color_image.f90
Log:
create_color_image.f90 modified for cluster.


Modified: seismo/2D/SPECFEM2D/branches/BIOT/create_color_image.f90
===================================================================
--- seismo/2D/SPECFEM2D/branches/BIOT/create_color_image.f90	2008-09-15 21:26:25 UTC (rev 12887)
+++ seismo/2D/SPECFEM2D/branches/BIOT/create_color_image.f90	2008-09-16 14:02:47 UTC (rev 12888)
@@ -252,7 +252,9 @@
   close(27)
 
 ! open image file and create system command to convert image to more convenient format
-  write(system_command,"('cd OUTPUT_FILES ; convert image',i7.7,'.pnm image',i7.7,'.gif ; rm -f image',i7.7,'.pnm')") it,it,it
+!  write(system_command,"('cd OUTPUT_FILES ; convert image',i7.7,'.pnm image',i7.7,'.gif ; rm -f image',i7.7,'.pnm')") it,it,it
+! for cluster
+  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)