1
1
This commit was SVN r26768.
Этот коммит содержится в:
Jeff Squyres 2012-07-09 20:29:33 +00:00
родитель 43314776ae
Коммит f3f970673c

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

@ -71,16 +71,6 @@ void ompi_ibarrier_f(MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
MPI_Request c_req;
volatile int rank;
{
static int first = 1;
if (first) {
rank = 0;
printf("PID %d waiting\n", getpid());
while (0 == rank) sleep(5);
}
first = 0;
}
c_comm = MPI_Comm_f2c(*comm);
ierr_c = MPI_Ibarrier(c_comm, &c_req);