FORTRAN_API void FORT_CALL mpi_file_write_ordered_begin_(MPI_Fint *fh,void *buf,int *count, MPI_Datatype *datatype, int *ierr ){ MPI_File fh_c; fh_c = MPI_File_f2c(*fh); *ierr = MPI_File_write_ordered_begin(fh_c,buf,*count,*datatype); }
void mpi_file_write_ordered_begin_(MPI_Fint *fh,void *buf,int *count, MPI_Fint *datatype, int *ierr ){ MPI_File fh_c; MPI_Datatype datatype_c; fh_c = MPI_File_f2c(*fh); datatype_c = MPI_Type_f2c(*datatype); *ierr = MPI_File_write_ordered_begin(fh_c,buf,*count,datatype_c); }
JNIEXPORT void JNICALL Java_mpi_File_writeOrderedBegin( JNIEnv *env, jobject jthis, jlong fh, jobject buf, jint count, jlong type) { void *ptr = (*env)->GetDirectBufferAddress(env, buf); int rc = MPI_File_write_ordered_begin( (MPI_File)fh, ptr, count, (MPI_Datatype)type); ompi_java_exceptionCheck(env, rc); }
void mpi_file_write_ordered_begin_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr) { MPI_File c_fh = MPI_File_f2c(*fh); MPI_Datatype c_type = MPI_Type_f2c(*datatype); *ierr = OMPI_INT_2_FINT(MPI_File_write_ordered_begin(c_fh, OMPI_F2C_BOTTOM(buf), OMPI_FINT_2_INT(*count), c_type)); }