fix arena initialization

library/mpi/mpe.yap

@@ -0,0 +1,11 @@
+
+:- module(mpe,[
+	      mpi_open/0,
+	      mpi_start/0,
+	      mpi_close/1,
+	      mpi_create_event/1,
+	      mpi_create_state/4]).
+
+:- load_foreign_files([mpe], [], init_mpe).
+
+

library/mpi/mpi.yap

@@ -0,0 +1,13 @@
+
+:- module(mpi,[
+	      mpi_open/3,
+	      mpi_close/0,
+	      mpi_send/3,
+	      mpi_receive/3,
+	      mpi_bcast/3,
+	      mpi_bcast/2,
+	      mpi_barrier/0]).
+
+:- load_foreign_files([mpi], [], init_mpi).
+
+