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

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

@ -633,7 +633,7 @@ int ompi_comm_split ( ompi_communicator_t* comm, int color, int key,
/**********************************************************************/ /**********************************************************************/
/**********************************************************************/ /**********************************************************************/
int ompi_comm_dup ( ompi_communicator_t * comm, ompi_communicator_t **newcomm, int ompi_comm_dup ( ompi_communicator_t * comm, ompi_communicator_t **newcomm,
int sync_flag) int sync_flag)
{ {
ompi_communicator_t *comp=NULL; ompi_communicator_t *comp=NULL;
ompi_communicator_t *newcomp=NULL; ompi_communicator_t *newcomp=NULL;
@ -687,34 +687,18 @@ 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 */ NULL, /* bridge comm */
NULL, /* bridge comm */ NULL, /* local leader */
NULL, /* local leader */ NULL, /* remote_leader */
NULL, /* remote_leader */ mode, /* mode */
mode, /* mode */ -1, /* send_first */
-1, /* send_first */ sync_flag /* sync_flag (1 means no processes synchronization) */
0 /* sync_flag */ );
); 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;