void ompi_win_set_name_f(MPI_Fint *win, char *win_name, MPI_Fint *ierr, int name_len) { int ret, c_ierr; char *c_name; MPI_Win c_win; c_win = PMPI_Win_f2c(*win); /* Convert the fortran string */ if (OMPI_SUCCESS != (ret = ompi_fortran_string_f2c(win_name, name_len, &c_name))) { c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, ret, "MPI_WIN_SET_NAME"); if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); return; } /* Call the C function */ c_ierr = PMPI_Win_set_name(c_win, c_name); if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); /* Free the C name */ free(c_name); }
int MPI_Win_set_name(MPI_Win win, char * name) { return PMPI_Win_set_name(win, name); }