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
|
#endif
|
||||||
|
|
||||||
void ompi_status_set_elements_x_f(MPI_Fint *status, MPI_Fint *datatype,
|
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;
|
int c_ierr;
|
||||||
MPI_Datatype c_type = MPI_Type_f2c(*datatype);
|
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 {
|
} else {
|
||||||
MPI_Status_f2c( status, &c_status );
|
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
|
/* If datatype is really being set, then that needs to be
|
||||||
converted.... */
|
converted.... */
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user