remove unneeded rank
This commit was SVN r26813.
Этот коммит содержится в:
родитель
7f2296eb39
Коммит
c6cf561a17
@ -69,7 +69,6 @@ void ompi_ibarrier_f(MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
|
|||||||
int ierr_c;
|
int ierr_c;
|
||||||
MPI_Comm c_comm;
|
MPI_Comm c_comm;
|
||||||
MPI_Request c_req;
|
MPI_Request c_req;
|
||||||
volatile int rank;
|
|
||||||
|
|
||||||
c_comm = MPI_Comm_f2c(*comm);
|
c_comm = MPI_Comm_f2c(*comm);
|
||||||
|
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user