1
1
This commit was SVN r19464.
Этот коммит содержится в:
George Bosilca 2008-08-31 21:03:39 +00:00
родитель 517cacffe6
Коммит bf25b3339d

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

@ -687,7 +687,6 @@ int ompi_comm_dup ( ompi_communicator_t * comm, ompi_communicator_t **newcomm,
snprintf(newcomp->c_name, MPI_MAX_OBJECT_NAME, "MPI COMMUNICATOR %d DUP FROM %d", snprintf(newcomp->c_name, MPI_MAX_OBJECT_NAME, "MPI COMMUNICATOR %d DUP FROM %d",
newcomp->c_contextid, comm->c_contextid ); newcomp->c_contextid, comm->c_contextid );
if(0 == sync_flag) {
/* activate communicator and init coll-module */ /* activate communicator and init coll-module */
rc = ompi_comm_activate (newcomp, /* new communicator */ rc = ompi_comm_activate (newcomp, /* new communicator */
comp, /* old comm */ comp, /* old comm */
@ -696,26 +695,11 @@ int ompi_comm_dup ( ompi_communicator_t * comm, ompi_communicator_t **newcomm,
NULL, /* remote_leader */ NULL, /* remote_leader */
mode, /* mode */ mode, /* mode */
-1, /* send_first */ -1, /* send_first */
0 /* sync_flag */ sync_flag /* sync_flag (1 means no processes synchronization) */
); );
if ( OMPI_SUCCESS != rc ) { if ( OMPI_SUCCESS != rc ) {
return rc; return rc;
} }
} else {
/* activate communicator and init coll-module without synchronizing processes*/
rc = ompi_comm_activate (newcomp, /* new communicator */
comp, /* old comm */
NULL, /* bridge comm */
NULL, /* local leader */
NULL, /* remote_leader */
mode, /* mode */
-1, /* send_first */
1 /* sync_flag */
);
if ( OMPI_SUCCESS != rc ) {
return rc;
}
}
*newcomm = newcomp; *newcomm = newcomp;
return MPI_SUCCESS; return MPI_SUCCESS;