void ompi_info_dup_f(MPI_Fint *info, MPI_Fint *newinfo, MPI_Fint *ierr) { int c_ierr; MPI_Info c_info, c_new_info; c_info = PMPI_Info_f2c(*info); c_ierr = PMPI_Info_dup(c_info, &c_new_info); if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); if (MPI_SUCCESS == c_ierr) { *newinfo = PMPI_Info_c2f(c_new_info); } }
int MPI_Info_dup(MPI_Info info, MPI_Info *newinfo) { _MPI_COVERAGE(); return PMPI_Info_dup (info, newinfo); }
int MPI_Info_dup(MPI_Info info, MPI_Info *newinfo){ return PMPI_Info_dup(info, newinfo); }