Exemplos de PMPI_File_read_shared em C++ (Cpp)

Exemplo n.º 1

Arquivo: file_read_shared_f.c Projeto: 00datman/ompi

void ompi_file_read_shared_f(MPI_Fint *fh, 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_shared(c_fh,
                                 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)
}

Exemplo n.º 2

Arquivo: MPI_File_read_shared.c Projeto: johntfoster/seacas

int MPI_File_read_shared(MPI_File fh, void *buf, int count, 
                  MPI_Datatype datatype, MPI_Status *status)
{
  _MPI_COVERAGE();
  return PMPI_File_read_shared (fh, buf, count, datatype, status);
}