From f3f970673c30df40ea945681e85d56057912e5c0 Mon Sep 17 00:00:00 2001 From: Jeff Squyres Date: Mon, 9 Jul 2012 20:29:33 +0000 Subject: [PATCH] Remove debug This commit was SVN r26768. --- ompi/mpi/fortran/mpif-h/ibarrier_f.c | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/ompi/mpi/fortran/mpif-h/ibarrier_f.c b/ompi/mpi/fortran/mpif-h/ibarrier_f.c index 713aab7ac5..dbb6e37d33 100644 --- a/ompi/mpi/fortran/mpif-h/ibarrier_f.c +++ b/ompi/mpi/fortran/mpif-h/ibarrier_f.c @@ -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);