Merge branch 'mpi_c_bindings' into sharedmem_3d_y_blitz_storage_order_mpi_by_two_threads

pdziekan · pdziekan · commit 3964132c7687 · 2021-04-15T18:31:46.000+02:00
diff --git a/libmpdata++/concurr/detail/distmem.hpp b/libmpdata++/concurr/detail/distmem.hpp
@@ -125,7 +125,8 @@ namespace libmpdataxx
           if(!mpi_initialized)
           {
             mpi_initialized_before = false;
-            MPI_Init_thread(nullptr, nullptr, MPI_THREAD_MULTIPLE, nullptr);
+            int th_lvl_provided;
+            MPI_Init_thread(nullptr, nullptr, MPI_THREAD_MULTIPLE, &th_lvl_provided);
           }
           if (boost::mpi::environment::thread_level() != boost::mpi::threading::multiple)
           {

Original file line number	Diff line number	Diff line change
`@@ -125,7 +125,8 @@ namespace libmpdataxx`
`125`	`125`	`if(!mpi_initialized)`
`126`	`126`	`{`
`127`	`127`	`mpi_initialized_before = false;`
`128`		`- MPI_Init_thread(nullptr, nullptr, MPI_THREAD_MULTIPLE, nullptr);`
	`128`	`+ int th_lvl_provided;`
	`129`	`+ MPI_Init_thread(nullptr, nullptr, MPI_THREAD_MULTIPLE, &th_lvl_provided);`
`129`	`130`	`}`
`130`	`131`	`if (boost::mpi::environment::thread_level() != boost::mpi::threading::multiple)`
`131`	`132`	`{`