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

[Stephane Popinet]

The following commit has been merged in the upstream branch:
commit b61b6ebf6e84802dd09896155b34239d7a9fc689
Author: Stephane Popinet <popinet at users.sf.net>
Date:   Sun Jun 21 07:46:04 2009 +1000

    GfsEventScript is only called for rank 0 PE in parallel
    
    darcs-hash:20090620214604-d4795-cd5a6bf404a1ce6a0c48a8296e2a364acf1fbbe7.gz

diff --git a/src/event.c b/src/event.c
index 1b7f767..8f7b1a7 100644
--- a/src/event.c
+++ b/src/event.c
@@ -1644,7 +1644,7 @@ static gboolean gfs_event_script_event (GfsEvent * event, GfsSimulation * sim)
   if ((* GFS_EVENT_CLASS (GTS_OBJECT_CLASS (gfs_event_script_class ())->parent_class)->event) 
       (event, sim)) {
     GfsEventScript * s = GFS_EVENT_SCRIPT (event);
-    if (s->script) {
+    if (s->script && GFS_DOMAIN (sim)->pid <= 0) {
       FILE * fp = gfs_popen (sim, s->script, "w");
       if (fp == NULL) {
 	g_warning ("GfsEventScript cannot start script");

-- 
Gerris Flow Solver