← 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_piofs/ad_piofs_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_piofs/ad_piofs_write.c
12
12
                     MPI_Datatype datatype, int file_ptr_type,
13
13
                     ADIO_Offset offset, ADIO_Status *status, int *error_code)
14
14
{
15
 
    int err=-1, datatype_size, len;
 
15
    MPI_Count err=-1, datatype_size, len;
16
16
#ifndef PRINT_ERR_MSG
17
17
    static char myname[] = "ADIOI_PIOFS_WRITECONTIG";
18
18
#endif
19
19
 
20
 
    MPI_Type_size(datatype, &datatype_size);
 
20
    MPI_Type_size_x(datatype, &datatype_size);
21
21
    len = datatype_size * count;
22
22
 
23
23
    if (file_ptr_type == ADIO_EXPLICIT_OFFSET) {
71
71
    ADIOI_Flatlist_node *flat_buf, *flat_file;
72
72
    struct iovec *iov;
73
73
    int i, j, k, err=-1, bwr_size, fwr_size=0, st_index=0;
74
 
    int bufsize, num, size, sum, n_etypes_in_filetype, size_in_filetype;
 
74
    int num, size, sum, n_etypes_in_filetype, size_in_filetype;
 
75
    MPI_Count bufsize;
75
76
    int n_filetypes, etype_in_filetype;
76
77
    ADIO_Offset abs_off_in_filetype=0;
77
 
    int filetype_size, etype_size, buftype_size;
 
78
    MPI_Count filetype_size, etype_size, buftype_size;
78
79
    MPI_Aint filetype_extent, buftype_extent, indx;
79
80
    int buf_count, buftype_is_contig, filetype_is_contig;
80
81
    ADIO_Offset off, disp;
91
92
    ADIOI_Datatype_iscontig(datatype, &buftype_is_contig);
92
93
    ADIOI_Datatype_iscontig(fd->filetype, &filetype_is_contig);
93
94
 
94
 
    MPI_Type_size(fd->filetype, &filetype_size);
 
95
    MPI_Type_size_x(fd->filetype, &filetype_size);
95
96
    if ( ! filetype_size ) {
96
97
#ifdef HAVE_STATUS_SET_BYTES
97
98
        MPIR_Status_set_bytes(status, datatype, 0);
101
102
    }
102
103
 
103
104
    MPI_Type_extent(fd->filetype, &filetype_extent);
104
 
    MPI_Type_size(datatype, &buftype_size);
 
105
    MPI_Type_size_x(datatype, &buftype_size);
105
106
    MPI_Type_extent(datatype, &buftype_extent);
106
107
    etype_size = fd->etype_size;
107
108