C++ (Cpp) MPI_File_get_type_extent примеры использования

Пример #1

Файл: get_extentf.c Проект: ParaStation/psmpi2

FORTRAN_API void FORT_CALL mpi_file_get_type_extent_(MPI_Fint * fh, MPI_Datatype * datatype,
                                                     MPI_Fint * extent, MPI_Fint * ierr)
{
    MPI_File fh_c;
    MPI_Aint extent_c;

    fh_c = MPI_File_f2c(*fh);
    *ierr = MPI_File_get_type_extent(fh_c, *datatype, &extent_c);
    *(MPI_Aint *) extent = extent_c;    /* Have to assume it's really an MPI_Aint? */
}

Пример #2

Файл: mpi_File.c Проект: abouteiller/ompi-aurelien

JNIEXPORT jint JNICALL Java_mpi_File_getTypeExtent(
        JNIEnv *env, jobject jthis, jlong fh, jlong type)
{
    MPI_Aint extent;

    int rc = MPI_File_get_type_extent(
             (MPI_File)fh, (MPI_Datatype)type, &extent);

    ompi_java_exceptionCheck(env, rc);
    return (int)extent;
}

Пример #3

Файл: file_get_type_extent_f.c Проект: XuanWang1982/ompi

void ompi_file_get_type_extent_f(MPI_Fint *fh, MPI_Fint *datatype,
				MPI_Aint *extent, MPI_Fint *ierr)
{
    int c_ierr;
    MPI_File c_fh = MPI_File_f2c(*fh);
    MPI_Datatype c_type;

    c_type = MPI_Type_f2c(*datatype);

    c_ierr = MPI_File_get_type_extent(c_fh, c_type, extent);
    if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);
}

Пример #4

Файл: get_extentf.c Проект: ParaStation/psmpi2

void mpi_file_get_type_extent_(MPI_Fint * fh, MPI_Fint * datatype,
                               MPI_Fint * extent, MPI_Fint * ierr)
{
    MPI_File fh_c;
    MPI_Datatype datatype_c;
    MPI_Aint extent_c;

    fh_c = MPI_File_f2c(*fh);
    datatype_c = MPI_Type_f2c(*datatype);

    *ierr = MPI_File_get_type_extent(fh_c, datatype_c, &extent_c);
    *(MPI_Aint *) extent = extent_c;    /* Have to assume it's really an MPI_Aint? */
}