int PMPI_Init_thread(int *argc, char ***argv, int required, int *provided)
{
if (provided != NULL) {
- *provided = MPI_THREAD_MULTIPLE;
+ *provided = MPI_THREAD_SINGLE;
}
return MPI_Init(argc, argv);
}
if (provided == NULL) {
retval = MPI_ERR_ARG;
} else {
- *provided = MPI_THREAD_MULTIPLE;
+ *provided = MPI_THREAD_SINGLE;
retval = MPI_SUCCESS;
}
return retval;