void ompi_get_version_f(MPI_Fint *version, MPI_Fint *subversion, MPI_Fint *ierr) { int c_ierr; OMPI_SINGLE_NAME_DECL(version); OMPI_SINGLE_NAME_DECL(subversion); c_ierr = PMPI_Get_version(OMPI_SINGLE_NAME_CONVERT(version), OMPI_SINGLE_NAME_CONVERT(subversion)); if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); if (MPI_SUCCESS == c_ierr) { OMPI_SINGLE_INT_2_FINT(version); OMPI_SINGLE_INT_2_FINT(subversion); } }
int MPI_Get_version (int *version,int *subversion){ return PMPI_Get_version (version,subversion); }