It must be an MPI_Count.
This commit was SVN r28998.
Этот коммит содержится в:
родитель
2cc947513b
Коммит
47b1128993
@ -68,7 +68,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_STATUS_SET_ELEMENTS_X,
|
||||
#endif
|
||||
|
||||
void ompi_status_set_elements_x_f(MPI_Fint *status, MPI_Fint *datatype,
|
||||
MPI_Fint *count, MPI_Fint *ierr)
|
||||
MPI_Count *count, MPI_Fint *ierr)
|
||||
{
|
||||
int c_ierr;
|
||||
MPI_Datatype c_type = MPI_Type_f2c(*datatype);
|
||||
@ -81,7 +81,7 @@ void ompi_status_set_elements_x_f(MPI_Fint *status, MPI_Fint *datatype,
|
||||
} else {
|
||||
MPI_Status_f2c( status, &c_status );
|
||||
|
||||
c_ierr = MPI_Status_set_elements_x(&c_status, c_type, (MPI_Count)*count);
|
||||
c_ierr = MPI_Status_set_elements_x(&c_status, c_type, *count);
|
||||
|
||||
/* If datatype is really being set, then that needs to be
|
||||
converted.... */
|
||||
|
Загрузка…
Ссылка в новой задаче
Block a user