[SCM] Gerris Flow Solver branch, upstream, updated. b3aa46814a06c9cb2912790b23916ffb44f1f203

[Stephane Popinet]

The following commit has been merged in the upstream branch:
commit eed3ab08f0e5f86cb687120534b5cda28d8eef16
Author: Stephane Popinet <s.popinet at niwa.co.nz>
Date:   Fri Apr 1 14:24:48 2005 +1000

    Force flushing of OutputLocation
    
    darcs-hash:20050401042448-fbd8f-8e7e7d3eda6179fe4abcd3334b81fddafd90f9dd.gz

diff --git a/src/output.c b/src/output.c
index c7eaa58..004c3aa 100644
--- a/src/output.c
+++ b/src/output.c
@@ -1138,10 +1138,10 @@ static gboolean gfs_output_location_event (GfsEvent * event,
       (event, sim)) {
     GfsDomain * domain = GFS_DOMAIN (sim);
     GfsOutputLocation * location = GFS_OUTPUT_LOCATION (event);
+    FILE * fp = GFS_OUTPUT (event)->file->fp;
     guint i;
 
     if (GFS_OUTPUT (event)->first_call) {
-      FILE * fp = GFS_OUTPUT (event)->file->fp;
       GfsVariable * v = domain->variables;
       guint nv = 5;
 
@@ -1158,7 +1158,6 @@ static gboolean gfs_output_location_event (GfsEvent * event,
       FttCell * cell = gfs_domain_locate (domain, p, -1);
       
       if (cell != NULL) {
-	FILE * fp = GFS_OUTPUT (event)->file->fp;
 	GfsVariable * v = domain->variables;
 	
 	fprintf (fp, "%g %g %g %g", sim->time.t, p.x, p.y, p.z);
@@ -1170,6 +1169,7 @@ static gboolean gfs_output_location_event (GfsEvent * event,
 	fputc ('\n', fp);
       }
     }
+    fflush (fp);
     return TRUE;
   }
   return FALSE;

-- 
Gerris Flow Solver