mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-11-27 02:10:55 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r5759] Purpose:

Browse Source 
Bug fix.

Description:
    Correct the previous code for detecting 1-D contiguous hyperslabs to detect
    an extra case that the development branch has, but the release branch
    doesn't have.

Platforms tested:
    IRIX64 6.5 (modi4) w/parallel
This commit is contained in:
Quincey Koziol 2002-07-02 15:05:32 -05:00
parent cfcc59fdf7
commit 10be6297fc
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/H5Shyper.c
View File

@ -5580,9 +5580,9 @@ H5S_hyper_select_contiguous(const H5S_t *space)
*
* OR
*
* The selection must have only one block (i.e. count==1) and the block
* size must be 1 in all but the fastest changing dimension. (dubbed
* "small contiguous" block)
* The selection must have only one block (i.e. count==1) in all
* dimensions and the block size must be 1 in all but the fastest
* changing dimension. (dubbed "small contiguous" block)
*/
/* Initialize flags */
@ -5604,8 +5604,12 @@ H5S_hyper_select_contiguous(const H5S_t *space)
/* If we didn't find a large contiguous block, check for a small one */
if(large_contiguous==FALSE) {
small_contiguous=TRUE;
for(u=0; u<(space->extent.u.simple.rank-1); u++) {
if(space->select.sel_info.hslab.diminfo[u].count>1 || space->select.sel_info.hslab.diminfo[u].block!=1) {
for(u=0; u<space->extent.u.simple.rank; u++) {
if(space->select.sel_info.hslab.diminfo[u].count>1) {
small_contiguous=FALSE;
break;
} /* end if */
if(u<(space->extent.u.simple.rank-1) && space->select.sel_info.hslab.diminfo[u].block!=1) {
small_contiguous=FALSE;
break;
} /* end if */