void mpi_info_create_(MPI_Fint *info, int *ierr ) { MPI_Info info_c; *ierr = MPI_Info_create(&info_c); *info = MPI_Info_c2f(info_c); }
void mpi_info_dup_(MPI_Fint * info, MPI_Fint * newinfo, int *ierr) { MPI_Info info_c, newinfo_c; info_c = MPI_Info_f2c(*info); *ierr = MPI_Info_dup(info_c, &newinfo_c); *newinfo = MPI_Info_c2f(newinfo_c); }
void mpi_info_free_(MPI_Fint *info, int *ierr ) { MPI_Info info_c; info_c = MPI_Info_f2c(*info); *ierr = MPI_Info_free(&info_c); *info = MPI_Info_c2f(info_c); }
void f2cinfo_( MPI_Fint * info ) { MPI_Info cinfo; MPI_Info_create( &cinfo ); MPI_Info_set( cinfo, (char*)"host", (char*)"myname" ); MPI_Info_set( cinfo, (char*)"wdir", (char*)"/rdir/foo" ); *info = MPI_Info_c2f( cinfo ); }
void ompi_win_get_info_f(MPI_Fint *win, MPI_Fint *info, MPI_Fint *ierr) { int c_ierr; MPI_Win c_win; MPI_Info c_info; c_win = MPI_Win_f2c(*win); c_ierr = MPI_Win_get_info(c_win, &c_info); if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); *info = MPI_Info_c2f(c_info); }
void ompi_comm_get_info_f(MPI_Fint *comm, MPI_Fint *info_used, MPI_Fint *ierr) { int c_ierr; MPI_Comm c_comm = MPI_Comm_f2c(*comm); MPI_Info c_info; c_ierr = MPI_Comm_get_info(c_comm, &c_info); if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); if (MPI_SUCCESS == c_ierr) { *info_used = MPI_Info_c2f(c_info); } }
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 = MPI_Info_f2c(*info); c_ierr = MPI_Info_dup(c_info, &c_new_info); if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); if (MPI_SUCCESS == c_ierr) { *newinfo = MPI_Info_c2f(c_new_info); } }
/*---------------------------------------------------------------------------- * Name: h5pget_fapl_mpio_c * Purpose: Call H5Pget_fapl_mpio to retrieve communicator and info object * Inputs: prp_id - property list identifier * comm - buffer to return MPI communicator * info - buffer to return MPI info object * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Thursday, October 26, 2000 * Modifications: *---------------------------------------------------------------------------*/ int_f nh5pget_fapl_mpio_c(hid_t_f *prp_id, int_f* comm, int_f* info) { int ret_value = -1; hid_t c_prp_id; herr_t ret; MPI_Comm c_comm; MPI_Info c_info; /* * Call H5Pget_mpi function. */ c_prp_id = *prp_id; ret = H5Pget_fapl_mpio(c_prp_id, &c_comm, &c_info); if (ret < 0) return ret_value; *comm = (int_f) MPI_Comm_c2f(c_comm); *info = (int_f) MPI_Info_c2f(c_info); ret_value = 0; return ret_value; }