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

[tan2 at geodynamics.org]

Author: tan2
Date: 2007-08-29 13:55:12 -0700 (Wed, 29 Aug 2007)
New Revision: 7908

Modified:
   mc/3D/CitcomS/trunk/lib/Instructions.c
Log:
Forgot to update r7902

Modified: mc/3D/CitcomS/trunk/lib/Instructions.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Instructions.c	2007-08-29 20:48:05 UTC (rev 7907)
+++ mc/3D/CitcomS/trunk/lib/Instructions.c	2007-08-29 20:55:12 UTC (rev 7908)
@@ -1093,7 +1093,7 @@
       sprintf(output_file,"%s/qt.dat", E->control.data_dir);
     else
       sprintf(output_file,"%s.qt.dat", E->control.data_file);
-    E->output.fpqt = output_open(output_file);
+    E->output.fpqt = output_open(output_file, "w");
   }else{
     E->output.fpqt = NULL;
   }
@@ -1103,12 +1103,12 @@
       sprintf(output_file,"%s/qb.dat", E->control.data_dir);
     else
       sprintf(output_file,"%s.qb.dat", E->control.data_file);
-    E->output.fpqb = output_open(output_file);
+    E->output.fpqb = output_open(output_file, "w");
   }else{
     E->output.fpqb = NULL;
   }
-  
 
+
   return;
 }
 
@@ -1361,7 +1361,7 @@
 
   if (E->fp_out)
     fclose(E->fp_out);
-  
+
   if(E->output.fpqt)
     fclose(E->output.fpqt);
   if(E->output.fpqb)