[cig-commits] r3987 - mc/3D/CitcomS/trunk/bin

[leif at geodynamics.org]

Author: leif
Date: 2006-07-07 16:54:37 -0700 (Fri, 07 Jul 2006)
New Revision: 3987

Modified:
   mc/3D/CitcomS/trunk/bin/pycitcoms.cc
Log:
Temporary work-around for broken _mpimodule on Pangu.


Modified: mc/3D/CitcomS/trunk/bin/pycitcoms.cc
===================================================================
--- mc/3D/CitcomS/trunk/bin/pycitcoms.cc	2006-07-07 23:35:41 UTC (rev 3986)
+++ mc/3D/CitcomS/trunk/bin/pycitcoms.cc	2006-07-07 23:54:37 UTC (rev 3987)
@@ -28,6 +28,7 @@
 
 #include <Python.h>
 #include <stdio.h>
+#include <mpi.h>
 #include "CitcomSmodule.h"
 #include "Exchangermodule.h"
 
@@ -40,6 +41,12 @@
     { 0, 0 }
 };
 
+void dummy()
+{
+    int flag;
+    MPI_Initialized(&flag);
+}
+
 int main(int argc, char **argv)
 {
     /* add our extension module */