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

[Stephane Popinet]

The following commit has been merged in the upstream branch:
commit 825eea548d37ca923545eb1333ac8a1a8ab05238
Author: Stephane Popinet <popinet at users.sf.net>
Date:   Sat Jun 20 13:07:20 2009 +1000

    Added MPI_Finalize() as required by MPI standard
    
    darcs-hash:20090620030720-d4795-75af79c324acb42e99a75d12ae25ad9d8420a4a0.gz

diff --git a/src/init.c b/src/init.c
index a1a2c88..9d0e695 100644
--- a/src/init.c
+++ b/src/init.c
@@ -229,6 +229,8 @@ GtsObjectClass ** gfs_classes (void)
   return classes;
 }
 
+typedef void (* AtExitFunc) (void);
+
 /**
  * gfs_init:
  * @argc: a pointer on the number of command line arguments passed to
@@ -265,6 +267,7 @@ void gfs_init (int * argc, char *** argv)
       MPI_Init (argc, argv);
     MPI_Errhandler_set (MPI_COMM_WORLD, MPI_ERRORS_ARE_FATAL);
   }
+  atexit ((AtExitFunc) MPI_Finalize);
 #endif /* HAVE_MPI */
   initialized = TRUE;
 

-- 
Gerris Flow Solver