FORT_DLL_SPEC void FORT_CALL mpi_file_write_ordered_end_ ( MPI_Fint *v1, void*v2, MPI_Fint *v3, MPI_Fint *ierr ){ #ifdef MPI_MODE_RDONLY *ierr = MPI_File_write_ordered_end( MPI_File_f2c(*v1), v2, (MPI_Status *)(v3) ); #else *ierr = MPI_ERR_INTERN; #endif }
JNIEXPORT void JNICALL Java_mpi_File_writeOrderedEnd( JNIEnv *env, jobject jthis, jlong fh, jobject buf, jlongArray stat) { MPI_Status status; void *ptr = (*env)->GetDirectBufferAddress(env, buf); int rc = MPI_File_write_ordered_end((MPI_File)fh, ptr, &status); ompi_java_exceptionCheck(env, rc); ompi_java_status_set(env, stat, &status); }
void ompi_file_write_ordered_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr) { int c_ierr; MPI_File c_fh = MPI_File_f2c(*fh); OMPI_FORTRAN_STATUS_DECLARATION(c_status,c_status2) OMPI_FORTRAN_STATUS_SET_POINTER(c_status,c_status2,status) c_ierr = MPI_File_write_ordered_end(c_fh, buf, c_status); if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr) }
FORT_DLL_SPEC void FORT_CALL mpi_file_write_ordered_end_ ( MPI_Fint *v1, void*v2, MPI_Fint *v3, MPI_Fint *ierr ){ #ifdef MPI_MODE_RDONLY #ifndef HAVE_MPI_F_INIT_WORKS_WITH_C if (MPIR_F_NeedInit){ mpirinitf_(); MPIR_F_NeedInit = 0; } #endif if (v3 == MPI_F_STATUS_IGNORE) { v3 = (MPI_Fint*)MPI_STATUS_IGNORE; } if (v2 == MPIR_F_MPI_BOTTOM) v2 = MPI_BOTTOM; *ierr = MPI_File_write_ordered_end( MPI_File_f2c(*v1), v2, (MPI_Status *)v3 ); #else *ierr = MPI_ERR_INTERN; #endif }