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

[Stephane Popinet]

The following commit has been merged in the upstream branch:
commit aa12394ddc28fe8bc16fc7fbfd48df8bdde6ebe6
Author: Stephane Popinet <popinet at users.sf.net>
Date:   Wed Jan 16 12:53:41 2008 +1100

    GfsInit becomes a standard GfsEvent when either step or istep is specified
    
    darcs-hash:20080116015341-d4795-845d9327043d6855274bffe5557f93c599196fe4.gz

diff --git a/src/event.c b/src/event.c
index a7b3af4..d5a2772 100644
--- a/src/event.c
+++ b/src/event.c
@@ -546,6 +546,10 @@ static void gfs_init_read (GtsObject ** o, GtsFile * fp)
   }
   fp->scope_max--;
   gts_file_next_token (fp);
+
+  GfsEvent * event = GFS_EVENT (*o);
+  if (event->start < 0. && (event->istep < G_MAXINT || event->step < G_MAXDOUBLE))
+    event->start = 0.;
 }
 
 static void gfs_init_write (GtsObject * o, FILE * fp)

-- 
Gerris Flow Solver