[cig-commits] r9345 - cs/avm/trunk

[tan2 at geodynamics.org]

Author: tan2
Date: 2008-02-14 14:12:37 -0800 (Thu, 14 Feb 2008)
New Revision: 9345

Modified:
   cs/avm/trunk/write_CitcomS_tracers.f90
Log:
Format the output to take less space

Modified: cs/avm/trunk/write_CitcomS_tracers.f90
===================================================================
--- cs/avm/trunk/write_CitcomS_tracers.f90	2008-02-14 21:52:10 UTC (rev 9344)
+++ cs/avm/trunk/write_CitcomS_tracers.f90	2008-02-14 22:12:37 UTC (rev 9345)
@@ -73,7 +73,7 @@
         ! add metadata for reassembly
         flavor1 = myrank
         flavor2 = iglob
-        write(IOUT,*) theta, phi, radius, flavor1, flavor2
+        write(IOUT,'(3F11.7, I5.1, I9.1)') theta, phi, radius, flavor1, flavor2
      enddo
 
   enddo