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? */ }
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; }
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); }
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? */ }