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;
{
int retval = MPI_SUCCESS;
- strncpy(name, SIMIX_host_get_name(SIMIX_host_self()),
- strlen(SIMIX_host_get_name(SIMIX_host_self())) < MPI_MAX_PROCESSOR_NAME - 1 ?
- strlen(SIMIX_host_get_name(SIMIX_host_self())) +1 :
+ strncpy(name, sg_host_get_name(SIMIX_host_self()),
+ strlen(sg_host_get_name(SIMIX_host_self())) < MPI_MAX_PROCESSOR_NAME - 1 ?
+ strlen(sg_host_get_name(SIMIX_host_self())) +1 :
MPI_MAX_PROCESSOR_NAME - 1 );
*resultlen =
strlen(name) >