Activate thread support ... at least at the MPI level.
This commit was SVN r7386.
Этот коммит содержится в:
родитель
32cdc551af
Коммит
789d49d613
@ -36,6 +36,17 @@ int MPI_Init_thread(int *argc, char ***argv, int required,
|
||||
int err;
|
||||
MPI_Comm null = NULL;
|
||||
|
||||
/*
|
||||
* A thread compliant MPI implementation will be able to return provided
|
||||
* = MPI_THREAD_MULTIPLE. Such an implementation may always return provided
|
||||
* = MPI_THREAD_MULTIPLE, irrespective of the value of required.
|
||||
*/
|
||||
#if OMPI_ENABLE_MPI_THREADS
|
||||
*provided = MPI_THREAD_MULTIPLE;
|
||||
#else
|
||||
*provided = MPI_THREAD_SINGLE;
|
||||
#endif
|
||||
|
||||
/* Ensure that we were not already initialized or finalized */
|
||||
|
||||
if (ompi_mpi_finalized) {
|
||||
@ -55,5 +66,6 @@ int MPI_Init_thread(int *argc, char ***argv, int required,
|
||||
} else {
|
||||
err = ompi_mpi_init(0, NULL, required, provided);
|
||||
}
|
||||
|
||||
OMPI_ERRHANDLER_RETURN(err, null, err, FUNC_NAME);
|
||||
}
|
||||
|
Загрузка…
Ссылка в новой задаче
Block a user