diff options
author | Quincey Koziol <koziol@hdfgroup.org> | 2002-06-25 20:19:20 (GMT) |
---|---|---|
committer | Quincey Koziol <koziol@hdfgroup.org> | 2002-06-25 20:19:20 (GMT) |
commit | f99e630ccbc0fd7566888d8fe77654d2dee6282c (patch) | |
tree | beb059c4bc8bb0191c74837bcf9d73ed9cdff8f3 /src/H5Smpio.c | |
parent | 95df5a6a016a3e32b501e98d19f4061bc3f62ba8 (diff) | |
download | hdf5-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/H5Smpio.c')
-rw-r--r-- | src/H5Smpio.c | 4 |
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; |