← Back to branch summary

~ubuntu-branches/ubuntu/vivid/mpich/vivid-proposed

« back to all changes in this revision

Viewing changes to src/mpi/romio/adio/ad_bgl/ad_bgl_write.c

  • Committer: Package Import Robot
  • Author(s): Anton Gladky
  • Date: 2014-04-01 20:24:20 UTC
  • mfrom: (5.2.4 sid)
  • Revision ID: package-import@ubuntu.com-20140401202420-t5ey1ia2klt5dkq3
Tags: 3.1-4
http://bugs.debian.org/743047
* [c3e3398] Disable test_primitives, which is unreliable on some platforms.
            (Closes: #743047)
* [265a699] Add minimal autotest.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/mpi/romio/adio/ad_bgl/ad_bgl_write.c
25
25
                     MPI_Datatype datatype, int file_ptr_type,
26
26
                     ADIO_Offset offset, ADIO_Status *status, int *error_code)
27
27
{
28
 
    int err=-1, datatype_size;
 
28
    MPI_Count err=-1, datatype_size;
29
29
    ADIO_Offset len;
30
30
    static char myname[] = "ADIOI_BGL_WRITECONTIG";
31
31
#ifdef AGGREGATION_PROFILE
41
41
                }
42
42
#endif
43
43
                          
44
 
    MPI_Type_size(datatype, &datatype_size);
 
44
    MPI_Type_size_x(datatype, &datatype_size);
45
45
    len = (ADIO_Offset)datatype_size * (ADIO_Offset)count;
46
46
    ADIOI_Assert(len == (unsigned int) len); /* write takes an unsigned int parm */
47
47
 
220
220
    int n_etypes_in_filetype;
221
221
    ADIO_Offset num, size, n_filetypes, etype_in_filetype, st_n_filetypes;
222
222
    ADIO_Offset abs_off_in_filetype=0;
223
 
    int filetype_size, etype_size, buftype_size;
 
223
    MPI_Count filetype_size, etype_size, buftype_size;
224
224
    MPI_Aint filetype_extent, buftype_extent; 
225
225
    int buf_count, buftype_is_contig, filetype_is_contig;
226
226
    ADIO_Offset userbuf_off;
251
251
    ADIOI_Datatype_iscontig(datatype, &buftype_is_contig);
252
252
    ADIOI_Datatype_iscontig(fd->filetype, &filetype_is_contig);
253
253
 
254
 
    MPI_Type_size(fd->filetype, &filetype_size);
 
254
    MPI_Type_size_x(fd->filetype, &filetype_size);
255
255
    if ( ! filetype_size ) {
256
256
#ifdef HAVE_STATUS_SET_BYTES
257
257
        MPIR_Status_set_bytes(status, datatype, 0);
261
261
    }
262
262
 
263
263
    MPI_Type_extent(fd->filetype, &filetype_extent);
264
 
    MPI_Type_size(datatype, &buftype_size);
 
264
    MPI_Type_size_x(datatype, &buftype_size);
265
265
    MPI_Type_extent(datatype, &buftype_extent);
266
266
    etype_size = fd->etype_size;
267
267