-/* Copyright (c) 2010-2017. The SimGrid Team. All rights reserved. */
+/* Copyright (c) 2010-2018. The SimGrid Team. All rights reserved. */
/* This program is free software; you can redistribute it and/or modify it
* under the terms of the license (GNU LGPL) which comes with this package. */
#include "smpi_comm.hpp"
#include "smpi_datatype.hpp"
#include "smpi_op.hpp"
-#include "smpi_process.hpp"
#include "smpi_request.hpp"
#include "smpi_win.hpp"
+#include "src/smpi/include/smpi_actor.hpp"
static int running_processes = 0;
-static void smpi_init_fortran_types(){
+void smpi_init_fortran_types(){
if(simgrid::smpi::F2C::lookup() == nullptr){
MPI_COMM_WORLD->add_f();
MPI_BYTE->add_f();//MPI_BYTE
void mpi_finalize_(int* ierr) {
*ierr = MPI_Finalize();
running_processes--;
- if(running_processes==0){
- simgrid::smpi::F2C::delete_lookup();
- }
}
void mpi_abort_(int* comm, int* errorcode, int* ierr) {