Exemplo n.º 1
0
void ompi_file_set_atomicity_f(MPI_Fint *fh, ompi_fortran_logical_t *flag, MPI_Fint *ierr)
{
    int c_ierr;
    MPI_File c_fh = PMPI_File_f2c(*fh);

    c_ierr = PMPI_File_set_atomicity(c_fh,
                                    OMPI_LOGICAL_2_INT(*flag));
    if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);
}
Exemplo n.º 2
0
int MPI_File_set_atomicity(MPI_File fh, int flag)
{
  _MPI_COVERAGE();
  return PMPI_File_set_atomicity (fh, flag); 
}