diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2002-06-25 20:18:52 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2002-06-25 20:18:52 (GMT) |
| commit | 4d8762979c540bddc5ce3c7faaa9e08bf59b5b95 (patch) | |
| tree | acc00cbeb991235aedd405866fd77aca260df936 | |
| parent | 11929f76d080623244b9cdf092d5f90162a06c8e (diff) | |
| download | hdf5-4d8762979c540bddc5ce3c7faaa9e08bf59b5b95.zip hdf5-4d8762979c540bddc5ce3c7faaa9e08bf59b5b95.tar.gz hdf5-4d8762979c540bddc5ce3c7faaa9e08bf59b5b95.tar.bz2 | |
[svn-r5706] 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.
| -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 99c55b6..0c20ece 100644 --- a/src/H5Smpio.c +++ b/src/H5Smpio.c @@ -142,6 +142,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; @@ -579,6 +581,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; |