summaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2002-06-25 20:19:20 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2002-06-25 20:19:20 (GMT)
commitf99e630ccbc0fd7566888d8fe77654d2dee6282c (patch)
treebeb059c4bc8bb0191c74837bcf9d73ed9cdff8f3 /src
parent95df5a6a016a3e32b501e98d19f4061bc3f62ba8 (diff)
downloadhdf5-f99e630ccbc0fd7566888d8fe77654d2dee6282c.zip
hdf5-f99e630ccbc0fd7566888d8fe77654d2dee6282c.tar.gz
hdf5-f99e630ccbc0fd7566888d8fe77654d2dee6282c.tar.bz2
[svn-r5707] Purpose:
Bug Fix. Description: Contiguous types created for "all" and contiguous hyperslab selections was not being committed before using them. Solution: Commit them. :-) This fixes the problems on the LLNL Blue Pacific machine. Platforms tested: LLNL Blue Pacific w/parallel.
Diffstat (limited to 'src')
-rw-r--r--src/H5Smpio.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/H5Smpio.c b/src/H5Smpio.c
index 0fc4bb9..5aaedaf 100644
--- a/src/H5Smpio.c
+++ b/src/H5Smpio.c
@@ -131,6 +131,8 @@ H5S_mpio_all_type( const H5S_t *space, size_t elmt_size, hbool_t prefer_derived_
H5_CHECK_OVERFLOW(total_bytes, hsize_t, int);
if (MPI_Type_contiguous( (int)total_bytes, MPI_BYTE, new_type ))
HRETURN_ERROR(H5E_DATASPACE, H5E_MPI, FAIL,"couldn't create MPI contiguous type");
+ if(MPI_Type_commit(new_type))
+ HRETURN_ERROR(H5E_DATASPACE, H5E_MPI, FAIL,"couldn't commit MPI contiguous type");
*count = 1;
*extra_offset = 0;
*use_view = 1;
@@ -571,6 +573,8 @@ H5S_mpio_hyper_contig_type( const H5S_t *space, size_t elmt_size, hbool_t prefer
H5_CHECK_OVERFLOW(total_bytes, hsize_t, int);
if (MPI_Type_contiguous( (int)total_bytes, MPI_BYTE, new_type ))
HRETURN_ERROR(H5E_DATASPACE, H5E_MPI, FAIL,"couldn't create MPI contiguous type");
+ if(MPI_Type_commit(new_type))
+ HRETURN_ERROR(H5E_DATASPACE, H5E_MPI, FAIL,"couldn't commit MPI contiguous type");
*count = 1;
*extra_offset = byte_offset;
*use_view = 1;