Beispiel #1
0
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);
    }
}
Beispiel #2
0
int MPI_Type_lb(MPI_Datatype datatype, MPI_Aint * disp)
{
  return PMPI_Type_lb(datatype, disp);
}