From 542362385c661084613614f84f422f80c5923523 Mon Sep 17 00:00:00 2001
From: Quincey Koziol <koziol@hdfgroup.org>
Date: Sat, 17 Mar 2001 07:35:46 -0500
Subject: [svn-r3653] Purpose:     Bug Fix Description:     Partial hyperslabs
 which exactly fit the size of the lowest dimension of     a chunked dataset
 weren't being output correctly. Solution:     Forgot to divide the offset
 (seq_len) by the size of the lower dimension     hyperslabs - fixed now.
 Platforms tested:     FreeBSD 4.2 (hawkwind)

---
 src/H5Dseq.c | 4 ++--
 src/H5Fseq.c | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/H5Dseq.c b/src/H5Dseq.c
index 56026e2..602183e 100644
--- a/src/H5Dseq.c
+++ b/src/H5Dseq.c
@@ -253,7 +253,7 @@ printf("%s: Need to get hyperslab, seq_len=%ld, coords[%d]=%ld\n",FUNC,(long)seq
                     /* Build the partial hyperslab information */
                     for(j=0; j<ndims; j++) {
                         if(i==j)
-                            hslab_size[j]=MIN(seq_len,dset_dims[i]-coords[i]);
+                            hslab_size[j]=MIN(seq_len/down_size[i],dset_dims[i]-coords[i]);
                         else
                             if(j>i)
                                 hslab_size[j]=dset_dims[j];
@@ -687,7 +687,7 @@ printf("%s: Need to get hyperslab, seq_len=%ld, coords[%d]=%ld\n",FUNC,(long)seq
                     /* Build the partial hyperslab information */
                     for(j=0; j<ndims; j++) {
                         if(i==j)
-                            hslab_size[j]=MIN(seq_len,dset_dims[i]-coords[i]);
+                            hslab_size[j]=MIN(seq_len/down_size[i],dset_dims[i]-coords[i]);
                         else
                             if(j>i)
                                 hslab_size[j]=dset_dims[j];
diff --git a/src/H5Fseq.c b/src/H5Fseq.c
index 56026e2..602183e 100644
--- a/src/H5Fseq.c
+++ b/src/H5Fseq.c
@@ -253,7 +253,7 @@ printf("%s: Need to get hyperslab, seq_len=%ld, coords[%d]=%ld\n",FUNC,(long)seq
                     /* Build the partial hyperslab information */
                     for(j=0; j<ndims; j++) {
                         if(i==j)
-                            hslab_size[j]=MIN(seq_len,dset_dims[i]-coords[i]);
+                            hslab_size[j]=MIN(seq_len/down_size[i],dset_dims[i]-coords[i]);
                         else
                             if(j>i)
                                 hslab_size[j]=dset_dims[j];
@@ -687,7 +687,7 @@ printf("%s: Need to get hyperslab, seq_len=%ld, coords[%d]=%ld\n",FUNC,(long)seq
                     /* Build the partial hyperslab information */
                     for(j=0; j<ndims; j++) {
                         if(i==j)
-                            hslab_size[j]=MIN(seq_len,dset_dims[i]-coords[i]);
+                            hslab_size[j]=MIN(seq_len/down_size[i],dset_dims[i]-coords[i]);
                         else
                             if(j>i)
                                 hslab_size[j]=dset_dims[j];
-- 
cgit v0.12