void ompi_type_lb_f(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *ierr) { int c_ierr; MPI_Datatype c_type = PMPI_Type_f2c(*type); MPI_Aint c_lb; c_ierr = PMPI_Type_lb(c_type, &c_lb); if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); if (MPI_SUCCESS == c_ierr) { *lb = OMPI_INT_2_FINT(c_lb); } }
int MPI_Type_lb(MPI_Datatype datatype, MPI_Aint * disp) { return PMPI_Type_lb(datatype, disp); }