1
1
This commit was SVN r2381.
Этот коммит содержится в:
Jeff Squyres 2004-08-29 19:27:55 +00:00
родитель d4c059a942
Коммит 41192eda33

Просмотреть файл

@ -44,13 +44,12 @@ int MPI_Init(int *argc, char ***argv)
/* check for environment overrides for required thread level. If /* check for environment overrides for required thread level. If
there is, check to see that it is a valid/supported thread level. there is, check to see that it is a valid/supported thread level.
If not, default to MPI_THREAD_SINGLE. */ If not, default to MPI_THREAD_MULTIPLE. */
if (NULL != (env = getenv("OMPI_MPI_THREAD_LEVEL"))) { if (NULL != (env = getenv("OMPI_MPI_THREAD_LEVEL"))) {
required = atoi(env); required = atoi(env);
if (required < MPI_THREAD_SINGLE || required > MPI_THREAD_MULTIPLE) { if (required < MPI_THREAD_SINGLE || required > MPI_THREAD_MULTIPLE) {
/* JMS show_help */ required = MPI_THREAD_MULTIPLE;
return OMPI_ERRHANDLER_INVOKE(null, err, FUNC_NAME);
} }
} }