C++ (Cpp) PMPI_File_iread示例

示例#1

文件： file_iread_f.c 项目： 00datman/ompi

void ompi_file_iread_f(MPI_Fint *fh, char *buf, MPI_Fint *count,
		      MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr)
{
   int c_ierr;
   MPI_File c_fh = PMPI_File_f2c(*fh);
   MPI_Datatype c_type = PMPI_Type_f2c(*datatype);
   MPI_Request c_request;

   c_ierr = PMPI_File_iread(c_fh, OMPI_F2C_BOTTOM(buf),
                           OMPI_FINT_2_INT(*count),
                           c_type, &c_request);
   if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);

   if (MPI_SUCCESS == c_ierr) {
      *request = PMPI_Request_c2f(c_request);
   }
}

示例#2

文件： MPI_File_iread.c 项目： 00liujj/trilinos

/* STUB */
int MPI_File_iread(MPI_File fh, void *buf, int count, 
                   MPI_Datatype datatype, MPIO_Request *request)
{
  _MPI_COVERAGE();
  return PMPI_File_iread(fh, buf, count, datatype, request); 
}