예제 #1
0
void FORTRAN_API mpi_file_read_at_all_begin_(MPI_Fint *fh,MPI_Offset *offset,void *buf,
                         int *count,MPI_Datatype *datatype, int *ierr )
{
    MPI_File fh_c;
    
    fh_c = MPI_File_f2c(*fh);
    *ierr = MPI_File_read_at_all_begin(fh_c,*offset,buf,*count,*datatype);
}
예제 #2
0
JNIEXPORT void JNICALL Java_mpi_File_readAtAllBegin(
        JNIEnv *env, jobject jthis, jlong fh, jlong offset,
        jobject buf, jint count, jlong type)
{
    void *ptr = (*env)->GetDirectBufferAddress(env, buf);

    int rc = MPI_File_read_at_all_begin((MPI_File)fh, (MPI_Offset)offset,
                                        ptr, count, (MPI_Datatype)type);
    ompi_java_exceptionCheck(env, rc);
}
예제 #3
0
void mpi_file_read_at_all_begin_(MPI_Fint *fh,MPI_Offset *offset,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_read_at_all_begin(fh_c,*offset,buf,*count,datatype_c);
}
예제 #4
0
void mpi_file_read_at_all_begin_f(MPI_Fint *fh, MPI_Offset *offset,
				  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_FINT_2_INT(MPI_File_read_at_all_begin(c_fh, 
                                                      (MPI_Offset) *offset,
                                                      OMPI_F2C_BOTTOM(buf),
                                                      OMPI_FINT_2_INT(*count),
                                                      c_type));
}