int MPI_File_read_at_all(MPI_File fh, MPI_Offset offset, void *buf,
                         int count, MPI_Datatype datatype, 
                         MPI_Status *status)
{
  _MPI_COVERAGE();
  return PMPI_File_read_at_all (fh, offset, buf, count, datatype, status); 
}
Exemple #2
0
void ompi_file_read_at_all_f(MPI_Fint *fh, MPI_Offset *offset,
			    char *buf, MPI_Fint *count,
			    MPI_Fint *datatype, MPI_Fint *status,
			    MPI_Fint *ierr)
{
   int c_ierr;
   MPI_File c_fh = PMPI_File_f2c(*fh);
   MPI_Datatype c_type = PMPI_Type_f2c(*datatype);
    OMPI_FORTRAN_STATUS_DECLARATION(c_status,c_status2)

    OMPI_FORTRAN_STATUS_SET_POINTER(c_status,c_status2,status)

   c_ierr = PMPI_File_read_at_all(c_fh,
                                 (MPI_Offset) *offset,
                                 OMPI_F2C_BOTTOM(buf),
                                 OMPI_FINT_2_INT(*count),
                                 c_type,
                                 c_status);
   if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);

    OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr)
}