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 #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.... */