1
1
This commit was SVN r28998.
Этот коммит содержится в:
George Bosilca 2013-08-05 20:49:00 +00:00
родитель 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.... */