[cig-commits] r11332 - mc/3D/CitcomS/trunk/lib

[tan2 at geodynamics.org]

Author: tan2
Date: 2008-03-05 13:15:02 -0800 (Wed, 05 Mar 2008)
New Revision: 11332

Modified:
   mc/3D/CitcomS/trunk/lib/Instructions.c
Log:
Close trace_log files when finalizing


Modified: mc/3D/CitcomS/trunk/lib/Instructions.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Instructions.c	2008-03-05 21:07:02 UTC (rev 11331)
+++ mc/3D/CitcomS/trunk/lib/Instructions.c	2008-03-05 21:15:02 UTC (rev 11332)
@@ -898,6 +898,7 @@
 
     E->control.GRID_TYPE=1;
 
+    E->trace.fpt = NULL;
     E->control.tracer = 0;
     E->composition.on = 0;
 
@@ -1466,6 +1467,9 @@
   if (E->fp_out)
     fclose(E->fp_out);
 
+  if (E->trace.fpt)
+    fclose(E->trace.fpt);
+
   if(E->output.fpqt)
     fclose(E->output.fpqt);
   if(E->output.fpqb)