summaryrefslogtreecommitdiffstats
path: root/test/tselect.c
diff options
context:
space:
mode:
Diffstat (limited to 'test/tselect.c')
-rw-r--r--test/tselect.c12065
1 files changed, 6136 insertions, 5929 deletions
diff --git a/test/tselect.c b/test/tselect.c
index cdf0ba5..f40b2b9 100644
--- a/test/tselect.c
+++ b/test/tselect.c
@@ -12,50 +12,50 @@
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
/***********************************************************
-*
-* Test program: tselect
-*
-* Test the Dataspace selection functionality
-*
-*************************************************************/
+ *
+ * Test program: tselect
+ *
+ * Test the Dataspace selection functionality
+ *
+ *************************************************************/
-#define H5S_FRIEND /*suppress error about including H5Spkg */
+#define H5S_FRIEND /*suppress error about including H5Spkg */
/* Define this macro to indicate that the testing APIs should be available */
#define H5S_TESTING
#include "testhdf5.h"
-#include "H5Spkg.h" /* Dataspaces */
+#include "H5Spkg.h" /* Dataspaces */
-#define FILENAME "tselect.h5"
+#define FILENAME "tselect.h5"
/* 3-D dataset with fixed dimensions */
-#define SPACE1_NAME "Space1"
-#define SPACE1_RANK 3
-#define SPACE1_DIM1 3
-#define SPACE1_DIM2 15
-#define SPACE1_DIM3 13
+#define SPACE1_NAME "Space1"
+#define SPACE1_RANK 3
+#define SPACE1_DIM1 3
+#define SPACE1_DIM2 15
+#define SPACE1_DIM3 13
/* 2-D dataset with fixed dimensions */
#define SPACE2_NAME "Space2"
-#define SPACE2_RANK 2
-#define SPACE2_DIM1 30
-#define SPACE2_DIM2 26
-#define SPACE2A_RANK 1
-#define SPACE2A_DIM1 (SPACE2_DIM1*SPACE2_DIM2)
+#define SPACE2_RANK 2
+#define SPACE2_DIM1 30
+#define SPACE2_DIM2 26
+#define SPACE2A_RANK 1
+#define SPACE2A_DIM1 (SPACE2_DIM1 * SPACE2_DIM2)
/* 2-D dataset with fixed dimensions */
-#define SPACE3_NAME "Space3"
-#define SPACE3_RANK 2
-#define SPACE3_DIM1 15
-#define SPACE3_DIM2 26
+#define SPACE3_NAME "Space3"
+#define SPACE3_RANK 2
+#define SPACE3_DIM1 15
+#define SPACE3_DIM2 26
/* 3-D dataset with fixed dimensions */
-#define SPACE4_NAME "Space4"
-#define SPACE4_RANK 3
-#define SPACE4_DIM1 11
-#define SPACE4_DIM2 13
-#define SPACE4_DIM3 17
+#define SPACE4_NAME "Space4"
+#define SPACE4_RANK 3
+#define SPACE4_DIM1 11
+#define SPACE4_DIM2 13
+#define SPACE4_DIM3 17
/* Number of random hyperslabs to test */
#define NHYPERSLABS 10
@@ -64,63 +64,63 @@
#define NRAND_HYPER 100
/* 5-D dataset with fixed dimensions */
-#define SPACE5_NAME "Space5"
-#define SPACE5_RANK 5
-#define SPACE5_DIM1 10
-#define SPACE5_DIM2 10
-#define SPACE5_DIM3 10
-#define SPACE5_DIM4 10
-#define SPACE5_DIM5 10
+#define SPACE5_NAME "Space5"
+#define SPACE5_RANK 5
+#define SPACE5_DIM1 10
+#define SPACE5_DIM2 10
+#define SPACE5_DIM3 10
+#define SPACE5_DIM4 10
+#define SPACE5_DIM5 10
/* 1-D dataset with same size as 5-D dataset */
-#define SPACE6_RANK 1
-#define SPACE6_DIM1 (SPACE5_DIM1*SPACE5_DIM2*SPACE5_DIM3*SPACE5_DIM4*SPACE5_DIM5)
+#define SPACE6_RANK 1
+#define SPACE6_DIM1 (SPACE5_DIM1 * SPACE5_DIM2 * SPACE5_DIM3 * SPACE5_DIM4 * SPACE5_DIM5)
/* 2-D dataset with easy dimension sizes */
-#define SPACE7_NAME "Space7"
-#define SPACE7_RANK 2
-#define SPACE7_DIM1 10
-#define SPACE7_DIM2 10
-#define SPACE7_FILL 254
+#define SPACE7_NAME "Space7"
+#define SPACE7_RANK 2
+#define SPACE7_DIM1 10
+#define SPACE7_DIM2 10
+#define SPACE7_FILL 254
#define SPACE7_CHUNK_DIM1 5
#define SPACE7_CHUNK_DIM2 5
-#define SPACE7_NPOINTS 8
+#define SPACE7_NPOINTS 8
/* 4-D dataset with fixed dimensions */
-#define SPACE8_NAME "Space8"
-#define SPACE8_RANK 4
-#define SPACE8_DIM1 11
-#define SPACE8_DIM2 13
-#define SPACE8_DIM3 17
-#define SPACE8_DIM4 19
+#define SPACE8_NAME "Space8"
+#define SPACE8_RANK 4
+#define SPACE8_DIM1 11
+#define SPACE8_DIM2 13
+#define SPACE8_DIM3 17
+#define SPACE8_DIM4 19
/* Another 2-D dataset with easy dimension sizes */
-#define SPACE9_RANK 2
-#define SPACE9_DIM1 12
-#define SPACE9_DIM2 12
+#define SPACE9_RANK 2
+#define SPACE9_DIM1 12
+#define SPACE9_DIM2 12
/* Element selection information */
#define POINT1_NPOINTS 10
/* Chunked dataset information */
#define DATASETNAME "ChunkArray"
-#define NX_SUB 87 /* hyperslab dimensions */
-#define NY_SUB 61
-#define NZ_SUB 181
-#define NX 87 /* output buffer dimensions */
-#define NY 61
-#define NZ 181
-#define RANK_F 3 /* File dataspace rank */
-#define RANK_M 3 /* Memory dataspace rank */
-#define X 87 /* dataset dimensions */
-#define Y 61
-#define Z 181
-#define CHUNK_X 87 /* chunk dimensions */
-#define CHUNK_Y 61
-#define CHUNK_Z 181
+#define NX_SUB 87 /* hyperslab dimensions */
+#define NY_SUB 61
+#define NZ_SUB 181
+#define NX 87 /* output buffer dimensions */
+#define NY 61
+#define NZ 181
+#define RANK_F 3 /* File dataspace rank */
+#define RANK_M 3 /* Memory dataspace rank */
+#define X 87 /* dataset dimensions */
+#define Y 61
+#define Z 181
+#define CHUNK_X 87 /* chunk dimensions */
+#define CHUNK_Y 61
+#define CHUNK_Z 181
/* Basic chunk size */
-#define SPACE10_DIM1 180
+#define SPACE10_DIM1 180
#define SPACE10_CHUNK_SIZE 12
/* Information for bounds checking test */
@@ -130,40 +130,40 @@
#define SPACE11_NPOINTS 4
/* Information for offsets w/chunks test #2 */
-#define SPACE12_RANK 1
-#define SPACE12_DIM0 25
-#define SPACE12_CHUNK_DIM0 5
+#define SPACE12_RANK 1
+#define SPACE12_DIM0 25
+#define SPACE12_CHUNK_DIM0 5
/* Information for Space rebuild test */
-#define SPACERE1_RANK 1
-#define SPACERE1_DIM0 20
-#define SPACERE2_RANK 2
-#define SPACERE2_DIM0 8
-#define SPACERE2_DIM1 12
-#define SPACERE3_RANK 3
-#define SPACERE3_DIM0 8
-#define SPACERE3_DIM1 12
-#define SPACERE3_DIM2 8
-#define SPACERE4_RANK 4
-#define SPACERE4_DIM0 8
-#define SPACERE4_DIM1 12
-#define SPACERE4_DIM2 8
-#define SPACERE4_DIM3 12
-#define SPACERE5_RANK 5
-#define SPACERE5_DIM0 8
-#define SPACERE5_DIM1 12
-#define SPACERE5_DIM2 8
-#define SPACERE5_DIM3 12
-#define SPACERE5_DIM4 8
+#define SPACERE1_RANK 1
+#define SPACERE1_DIM0 20
+#define SPACERE2_RANK 2
+#define SPACERE2_DIM0 8
+#define SPACERE2_DIM1 12
+#define SPACERE3_RANK 3
+#define SPACERE3_DIM0 8
+#define SPACERE3_DIM1 12
+#define SPACERE3_DIM2 8
+#define SPACERE4_RANK 4
+#define SPACERE4_DIM0 8
+#define SPACERE4_DIM1 12
+#define SPACERE4_DIM2 8
+#define SPACERE4_DIM3 12
+#define SPACERE5_RANK 5
+#define SPACERE5_DIM0 8
+#define SPACERE5_DIM1 12
+#define SPACERE5_DIM2 8
+#define SPACERE5_DIM3 12
+#define SPACERE5_DIM4 8
/* Information for Space update diminfo test */
-#define SPACEUD1_DIM0 20
-#define SPACEUD3_DIM0 9
-#define SPACEUD3_DIM1 12
-#define SPACEUD3_DIM2 13
+#define SPACEUD1_DIM0 20
+#define SPACEUD3_DIM0 9
+#define SPACEUD3_DIM1 12
+#define SPACEUD3_DIM2 13
/* #defines for shape same / different rank tests */
-#define SS_DR_MAX_RANK 5
+#define SS_DR_MAX_RANK 5
/* Information for regular hyperslab query test */
#define SPACE13_RANK 3
@@ -173,25 +173,30 @@
#define SPACE13_NPOINTS 4
/* Information for testing selection iterators */
-#define SEL_ITER_MAX_SEQ 256
-
+#define SEL_ITER_MAX_SEQ 256
/* Defines for test_hyper_io_1d() */
-#define DNAME "DSET_1D"
-#define RANK 1
-#define NUMCHUNKS 3
-#define CHUNKSZ 20
-#define NUM_ELEMENTS NUMCHUNKS * CHUNKSZ
+#define DNAME "DSET_1D"
+#define RANK 1
+#define NUMCHUNKS 3
+#define CHUNKSZ 20
+#define NUM_ELEMENTS NUMCHUNKS *CHUNKSZ
/* Location comparison function */
static int compare_size_t(const void *s1, const void *s2);
-static herr_t test_select_hyper_iter1(void *elem,hid_t type_id, unsigned ndim, const hsize_t *point, void *operator_data);
-static herr_t test_select_point_iter1(void *elem,hid_t type_id, unsigned ndim, const hsize_t *point, void *operator_data);
-static herr_t test_select_all_iter1(void *elem,hid_t type_id, unsigned ndim, const hsize_t *point, void *operator_data);
-static herr_t test_select_none_iter1(void *elem,hid_t type_id, unsigned ndim, const hsize_t *point, void *operator_data);
-static herr_t test_select_hyper_iter2(void *_elem, hid_t type_id, unsigned ndim, const hsize_t *point, void *_operator_data);
-static herr_t test_select_hyper_iter3(void *elem,hid_t type_id, unsigned ndim, const hsize_t *point, void *operator_data);
+static herr_t test_select_hyper_iter1(void *elem, hid_t type_id, unsigned ndim, const hsize_t *point,
+ void *operator_data);
+static herr_t test_select_point_iter1(void *elem, hid_t type_id, unsigned ndim, const hsize_t *point,
+ void *operator_data);
+static herr_t test_select_all_iter1(void *elem, hid_t type_id, unsigned ndim, const hsize_t *point,
+ void *operator_data);
+static herr_t test_select_none_iter1(void *elem, hid_t type_id, unsigned ndim, const hsize_t *point,
+ void *operator_data);
+static herr_t test_select_hyper_iter2(void *_elem, hid_t type_id, unsigned ndim, const hsize_t *point,
+ void *_operator_data);
+static herr_t test_select_hyper_iter3(void *elem, hid_t type_id, unsigned ndim, const hsize_t *point,
+ void *operator_data);
/****************************************************************
**
@@ -199,18 +204,19 @@ static herr_t test_select_hyper_iter3(void *elem,hid_t type_id, unsigned ndim, c
**
****************************************************************/
static herr_t
-test_select_hyper_iter1(void *_elem, hid_t H5_ATTR_UNUSED type_id, unsigned H5_ATTR_UNUSED ndim, const hsize_t H5_ATTR_UNUSED *point, void *_operator_data)
+test_select_hyper_iter1(void *_elem, hid_t H5_ATTR_UNUSED type_id, unsigned H5_ATTR_UNUSED ndim,
+ const hsize_t H5_ATTR_UNUSED *point, void *_operator_data)
{
- uint8_t *tbuf=(uint8_t *)_elem, /* temporary buffer pointer */
- **tbuf2=(uint8_t **)_operator_data; /* temporary buffer handle */
+ uint8_t *tbuf = (uint8_t *)_elem, /* temporary buffer pointer */
+ **tbuf2 = (uint8_t **)_operator_data; /* temporary buffer handle */
- if(*tbuf!=**tbuf2)
- return(-1);
+ if (*tbuf != **tbuf2)
+ return (-1);
else {
(*tbuf2)++;
- return(0);
+ return (0);
}
-} /* end test_select_hyper_iter1() */
+} /* end test_select_hyper_iter1() */
/****************************************************************
**
@@ -221,22 +227,22 @@ test_select_hyper_iter1(void *_elem, hid_t H5_ATTR_UNUSED type_id, unsigned H5_A
static void
test_select_hyper(hid_t xfer_plist)
{
- hid_t fid1; /* HDF5 File IDs */
+ hid_t fid1; /* HDF5 File IDs */
hid_t dataset; /* Dataset ID */
- hid_t sid1,sid2; /* Dataspace ID */
- hsize_t dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
- hsize_t dims2[] = {SPACE2_DIM1, SPACE2_DIM2};
- hsize_t dims3[] = {SPACE3_DIM1, SPACE3_DIM2};
- hsize_t start[SPACE1_RANK]; /* Starting location of hyperslab */
- hsize_t stride[SPACE1_RANK]; /* Stride of hyperslab */
- hsize_t count[SPACE1_RANK]; /* Element count of hyperslab */
- hsize_t block[SPACE1_RANK]; /* Block size of hyperslab */
- uint8_t *wbuf, /* buffer to write to disk */
- *rbuf, /* buffer read from disk */
- *tbuf; /* temporary buffer pointer */
- int i,j; /* Counters */
- herr_t ret; /* Generic return value */
- H5S_class_t ext_type; /* Extent type */
+ hid_t sid1, sid2; /* Dataspace ID */
+ hsize_t dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
+ hsize_t dims2[] = {SPACE2_DIM1, SPACE2_DIM2};
+ hsize_t dims3[] = {SPACE3_DIM1, SPACE3_DIM2};
+ hsize_t start[SPACE1_RANK]; /* Starting location of hyperslab */
+ hsize_t stride[SPACE1_RANK]; /* Stride of hyperslab */
+ hsize_t count[SPACE1_RANK]; /* Element count of hyperslab */
+ hsize_t block[SPACE1_RANK]; /* Block size of hyperslab */
+ uint8_t *wbuf, /* buffer to write to disk */
+ *rbuf, /* buffer read from disk */
+ *tbuf; /* temporary buffer pointer */
+ int i, j; /* Counters */
+ herr_t ret; /* Generic return value */
+ H5S_class_t ext_type; /* Extent type */
/* Output message about test being performed */
MESSAGE(5, ("Testing Hyperslab Selection Functions\n"));
@@ -248,9 +254,9 @@ test_select_hyper(hid_t xfer_plist)
CHECK_PTR(rbuf, "HDcalloc");
/* Initialize write buffer */
- for(i=0, tbuf=wbuf; i<SPACE2_DIM1; i++)
- for(j=0; j<SPACE2_DIM2; j++)
- *tbuf++=(uint8_t)((i*SPACE2_DIM2)+j);
+ for (i = 0, tbuf = wbuf; i < SPACE2_DIM1; i++)
+ for (j = 0; j < SPACE2_DIM2; j++)
+ *tbuf++ = (uint8_t)((i * SPACE2_DIM2) + j);
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
@@ -269,56 +275,80 @@ test_select_hyper(hid_t xfer_plist)
VERIFY(ext_type, H5S_SIMPLE, "H5Sget_simple_extent_type");
/* Test selecting stride==0 to verify failure */
- start[0]=1; start[1]=0; start[2]=0;
- stride[0]=0; stride[1]=0; stride[2]=0;
- count[0]=2; count[1]=15; count[2]=13;
- block[0]=1; block[1]=1; block[2]=1;
- H5E_BEGIN_TRY {
- ret = H5Sselect_hyperslab(sid1,H5S_SELECT_SET,start,stride,count,block);
- } H5E_END_TRY;
+ start[0] = 1;
+ start[1] = 0;
+ start[2] = 0;
+ stride[0] = 0;
+ stride[1] = 0;
+ stride[2] = 0;
+ count[0] = 2;
+ count[1] = 15;
+ count[2] = 13;
+ block[0] = 1;
+ block[1] = 1;
+ block[2] = 1;
+ H5E_BEGIN_TRY { ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block); }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
/* Test selecting stride<block to verify failure */
- start[0]=1; start[1]=0; start[2]=0;
- stride[0]=1; stride[1]=1; stride[2]=1;
- count[0]=2; count[1]=15; count[2]=13;
- block[0]=2; block[1]=2; block[2]=2;
- H5E_BEGIN_TRY {
- ret = H5Sselect_hyperslab(sid1,H5S_SELECT_SET,start,stride,count,block);
- } H5E_END_TRY;
+ start[0] = 1;
+ start[1] = 0;
+ start[2] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ stride[2] = 1;
+ count[0] = 2;
+ count[1] = 15;
+ count[2] = 13;
+ block[0] = 2;
+ block[1] = 2;
+ block[2] = 2;
+ H5E_BEGIN_TRY { ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block); }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
/* Select 2x15x13 hyperslab for disk dataset */
- start[0]=1; start[1]=0; start[2]=0;
- stride[0]=1; stride[1]=1; stride[2]=1;
- count[0]=2; count[1]=15; count[2]=13;
- block[0]=1; block[1]=1; block[2]=1;
- ret = H5Sselect_hyperslab(sid1,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 1;
+ start[1] = 0;
+ start[2] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ stride[2] = 1;
+ count[0] = 2;
+ count[1] = 15;
+ count[2] = 13;
+ block[0] = 1;
+ block[1] = 1;
+ block[2] = 1;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Select 15x26 hyperslab for memory dataset */
- start[0]=15; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=15; count[1]=26;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 15;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 15;
+ count[1] = 26;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Create a dataset */
- dataset=H5Dcreate2(fid1,SPACE2_NAME,H5T_NATIVE_UCHAR,sid1,H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
+ dataset = H5Dcreate2(fid1, SPACE2_NAME, H5T_NATIVE_UCHAR, sid1, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
/* Write selection to disk */
- ret=H5Dwrite(dataset,H5T_NATIVE_UCHAR,sid2,sid1,xfer_plist,wbuf);
+ ret = H5Dwrite(dataset, H5T_NATIVE_UCHAR, sid2, sid1, xfer_plist, wbuf);
CHECK(ret, FAIL, "H5Dwrite");
/* Exercise checks for NULL buffer and valid selection */
- H5E_BEGIN_TRY {
- ret=H5Dwrite(dataset,H5T_NATIVE_UCHAR,sid2,sid1,xfer_plist,NULL);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { ret = H5Dwrite(dataset, H5T_NATIVE_UCHAR, sid2, sid1, xfer_plist, NULL); }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Dwrite");
- H5E_BEGIN_TRY {
- ret=H5Dwrite(dataset,H5T_NATIVE_UCHAR,H5S_ALL,H5S_ALL,xfer_plist,NULL);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { ret = H5Dwrite(dataset, H5T_NATIVE_UCHAR, H5S_ALL, H5S_ALL, xfer_plist, NULL); }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Dwrite");
/* Close memory dataspace */
@@ -330,38 +360,44 @@ test_select_hyper(hid_t xfer_plist)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 15x26 hyperslab for reading memory dataset */
- start[0]=0; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=15; count[1]=26;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 15;
+ count[1] = 26;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Select 0x26 hyperslab to OR into current selection (should be a NOOP) */
- start[0]=0; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=0; count[1]=26;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_OR,start,stride,count,block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 0;
+ count[1] = 26;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Read selection from disk */
- ret=H5Dread(dataset,H5T_NATIVE_UCHAR,sid2,sid1,xfer_plist,rbuf);
+ ret = H5Dread(dataset, H5T_NATIVE_UCHAR, sid2, sid1, xfer_plist, rbuf);
CHECK(ret, FAIL, "H5Dread");
/* Exercise checks for NULL buffer and valid selection */
- H5E_BEGIN_TRY {
- ret=H5Dread(dataset,H5T_NATIVE_UCHAR,sid2,sid1,xfer_plist,NULL);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { ret = H5Dread(dataset, H5T_NATIVE_UCHAR, sid2, sid1, xfer_plist, NULL); }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Dread");
- H5E_BEGIN_TRY {
- ret=H5Dread(dataset,H5T_NATIVE_UCHAR,H5S_ALL,H5S_ALL,xfer_plist,NULL);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { ret = H5Dread(dataset, H5T_NATIVE_UCHAR, H5S_ALL, H5S_ALL, xfer_plist, NULL); }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Dread");
/* Check that the values match with a dataset iterator */
- tbuf=wbuf+(15*SPACE2_DIM2);
- ret = H5Diterate(rbuf,H5T_NATIVE_UCHAR,sid2,test_select_hyper_iter1,&tbuf);
+ tbuf = wbuf + (15 * SPACE2_DIM2);
+ ret = H5Diterate(rbuf, H5T_NATIVE_UCHAR, sid2, test_select_hyper_iter1, &tbuf);
CHECK(ret, FAIL, "H5Diterate");
/* Close memory dataspace */
@@ -383,12 +419,12 @@ test_select_hyper(hid_t xfer_plist)
/* Free memory buffers */
HDfree(wbuf);
HDfree(rbuf);
-} /* test_select_hyper() */
+} /* test_select_hyper() */
struct pnt_iter {
- hsize_t coord[POINT1_NPOINTS*2][SPACE2_RANK]; /* Coordinates for point selection */
- uint8_t *buf; /* Buffer the points are in */
- int offset; /* Which point we are looking at */
+ hsize_t coord[POINT1_NPOINTS * 2][SPACE2_RANK]; /* Coordinates for point selection */
+ uint8_t *buf; /* Buffer the points are in */
+ int offset; /* Which point we are looking at */
};
/****************************************************************
@@ -398,20 +434,22 @@ struct pnt_iter {
**
****************************************************************/
static herr_t
-test_select_point_iter1(void *_elem, hid_t H5_ATTR_UNUSED type_id, unsigned H5_ATTR_UNUSED ndim, const hsize_t H5_ATTR_UNUSED *point, void *_operator_data)
+test_select_point_iter1(void *_elem, hid_t H5_ATTR_UNUSED type_id, unsigned H5_ATTR_UNUSED ndim,
+ const hsize_t H5_ATTR_UNUSED *point, void *_operator_data)
{
- uint8_t *elem=(uint8_t *)_elem; /* Pointer to the element to examine */
- uint8_t *tmp; /* temporary ptr to element in operator data */
- struct pnt_iter *pnt_info=(struct pnt_iter *)_operator_data;
-
- tmp=pnt_info->buf+(pnt_info->coord[pnt_info->offset][0]*SPACE2_DIM2)+pnt_info->coord[pnt_info->offset][1];
- if(*elem!=*tmp)
- return(-1);
+ uint8_t * elem = (uint8_t *)_elem; /* Pointer to the element to examine */
+ uint8_t * tmp; /* temporary ptr to element in operator data */
+ struct pnt_iter *pnt_info = (struct pnt_iter *)_operator_data;
+
+ tmp = pnt_info->buf + (pnt_info->coord[pnt_info->offset][0] * SPACE2_DIM2) +
+ pnt_info->coord[pnt_info->offset][1];
+ if (*elem != *tmp)
+ return (-1);
else {
pnt_info->offset++;
- return(0);
+ return (0);
}
-} /* end test_select_point_iter1() */
+} /* end test_select_point_iter1() */
/****************************************************************
**
@@ -423,24 +461,24 @@ test_select_point_iter1(void *_elem, hid_t H5_ATTR_UNUSED type_id, unsigned H5_A
static void
test_select_point(hid_t xfer_plist)
{
- hid_t fid1; /* HDF5 File IDs */
- hid_t dataset; /* Dataset ID */
- hid_t sid1,sid2; /* Dataspace ID */
- hsize_t dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
- hsize_t dims2[] = {SPACE2_DIM1, SPACE2_DIM2};
- hsize_t dims3[] = {SPACE3_DIM1, SPACE3_DIM2};
- hsize_t coord1[POINT1_NPOINTS][SPACE1_RANK]; /* Coordinates for point selection */
- hsize_t temp_coord1[POINT1_NPOINTS][SPACE1_RANK]; /* Coordinates for point selection */
- hsize_t coord2[POINT1_NPOINTS][SPACE2_RANK]; /* Coordinates for point selection */
- hsize_t temp_coord2[POINT1_NPOINTS][SPACE2_RANK]; /* Coordinates for point selection */
- hsize_t coord3[POINT1_NPOINTS][SPACE3_RANK]; /* Coordinates for point selection */
- hsize_t temp_coord3[POINT1_NPOINTS][SPACE3_RANK]; /* Coordinates for point selection */
- uint8_t *wbuf, /* buffer to write to disk */
- *rbuf, /* buffer read from disk */
- *tbuf; /* temporary buffer pointer */
- int i,j; /* Counters */
- struct pnt_iter pi; /* Custom Pointer iterator struct */
- herr_t ret; /* Generic return value */
+ hid_t fid1; /* HDF5 File IDs */
+ hid_t dataset; /* Dataset ID */
+ hid_t sid1, sid2; /* Dataspace ID */
+ hsize_t dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
+ hsize_t dims2[] = {SPACE2_DIM1, SPACE2_DIM2};
+ hsize_t dims3[] = {SPACE3_DIM1, SPACE3_DIM2};
+ hsize_t coord1[POINT1_NPOINTS][SPACE1_RANK]; /* Coordinates for point selection */
+ hsize_t temp_coord1[POINT1_NPOINTS][SPACE1_RANK]; /* Coordinates for point selection */
+ hsize_t coord2[POINT1_NPOINTS][SPACE2_RANK]; /* Coordinates for point selection */
+ hsize_t temp_coord2[POINT1_NPOINTS][SPACE2_RANK]; /* Coordinates for point selection */
+ hsize_t coord3[POINT1_NPOINTS][SPACE3_RANK]; /* Coordinates for point selection */
+ hsize_t temp_coord3[POINT1_NPOINTS][SPACE3_RANK]; /* Coordinates for point selection */
+ uint8_t *wbuf, /* buffer to write to disk */
+ *rbuf, /* buffer read from disk */
+ *tbuf; /* temporary buffer pointer */
+ int i, j; /* Counters */
+ struct pnt_iter pi; /* Custom Pointer iterator struct */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Element Selection Functions\n"));
@@ -452,9 +490,9 @@ test_select_point(hid_t xfer_plist)
CHECK_PTR(rbuf, "HDcalloc");
/* Initialize write buffer */
- for(i=0, tbuf=wbuf; i<SPACE2_DIM1; i++)
- for(j=0; j<SPACE2_DIM2; j++)
- *tbuf++=(uint8_t)((i*SPACE2_DIM2)+j);
+ for (i = 0, tbuf = wbuf; i < SPACE2_DIM1; i++)
+ for (j = 0; j < SPACE2_DIM2; j++)
+ *tbuf++ = (uint8_t)((i * SPACE2_DIM2) + j);
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
@@ -469,103 +507,164 @@ test_select_point(hid_t xfer_plist)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select sequence of ten points for disk dataset */
- coord1[0][0]=0; coord1[0][1]=10; coord1[0][2]= 5;
- coord1[1][0]=1; coord1[1][1]= 2; coord1[1][2]= 7;
- coord1[2][0]=2; coord1[2][1]= 4; coord1[2][2]= 9;
- coord1[3][0]=0; coord1[3][1]= 6; coord1[3][2]=11;
- coord1[4][0]=1; coord1[4][1]= 8; coord1[4][2]=13;
- coord1[5][0]=2; coord1[5][1]=12; coord1[5][2]= 0;
- coord1[6][0]=0; coord1[6][1]=14; coord1[6][2]= 2;
- coord1[7][0]=1; coord1[7][1]= 0; coord1[7][2]= 4;
- coord1[8][0]=2; coord1[8][1]= 1; coord1[8][2]= 6;
- coord1[9][0]=0; coord1[9][1]= 3; coord1[9][2]= 8;
- ret = H5Sselect_elements(sid1, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord1);
+ coord1[0][0] = 0;
+ coord1[0][1] = 10;
+ coord1[0][2] = 5;
+ coord1[1][0] = 1;
+ coord1[1][1] = 2;
+ coord1[1][2] = 7;
+ coord1[2][0] = 2;
+ coord1[2][1] = 4;
+ coord1[2][2] = 9;
+ coord1[3][0] = 0;
+ coord1[3][1] = 6;
+ coord1[3][2] = 11;
+ coord1[4][0] = 1;
+ coord1[4][1] = 8;
+ coord1[4][2] = 13;
+ coord1[5][0] = 2;
+ coord1[5][1] = 12;
+ coord1[5][2] = 0;
+ coord1[6][0] = 0;
+ coord1[6][1] = 14;
+ coord1[6][2] = 2;
+ coord1[7][0] = 1;
+ coord1[7][1] = 0;
+ coord1[7][2] = 4;
+ coord1[8][0] = 2;
+ coord1[8][1] = 1;
+ coord1[8][2] = 6;
+ coord1[9][0] = 0;
+ coord1[9][1] = 3;
+ coord1[9][2] = 8;
+ ret = H5Sselect_elements(sid1, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord1);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Verify correct elements selected */
- H5Sget_select_elem_pointlist(sid1,(hsize_t)0,(hsize_t)POINT1_NPOINTS,(hsize_t *)temp_coord1);
- for(i=0; i<POINT1_NPOINTS; i++) {
- VERIFY(temp_coord1[i][0],coord1[i][0],"H5Sget_select_elem_pointlist");
- VERIFY(temp_coord1[i][1],coord1[i][1],"H5Sget_select_elem_pointlist");
- VERIFY(temp_coord1[i][2],coord1[i][2],"H5Sget_select_elem_pointlist");
+ H5Sget_select_elem_pointlist(sid1, (hsize_t)0, (hsize_t)POINT1_NPOINTS, (hsize_t *)temp_coord1);
+ for (i = 0; i < POINT1_NPOINTS; i++) {
+ VERIFY(temp_coord1[i][0], coord1[i][0], "H5Sget_select_elem_pointlist");
+ VERIFY(temp_coord1[i][1], coord1[i][1], "H5Sget_select_elem_pointlist");
+ VERIFY(temp_coord1[i][2], coord1[i][2], "H5Sget_select_elem_pointlist");
} /* end for */
ret = (int)H5Sget_select_npoints(sid1);
VERIFY(ret, 10, "H5Sget_select_npoints");
/* Append another sequence of ten points to disk dataset */
- coord1[0][0]=0; coord1[0][1]= 2; coord1[0][2]= 0;
- coord1[1][0]=1; coord1[1][1]=10; coord1[1][2]= 8;
- coord1[2][0]=2; coord1[2][1]= 8; coord1[2][2]=10;
- coord1[3][0]=0; coord1[3][1]= 7; coord1[3][2]=12;
- coord1[4][0]=1; coord1[4][1]= 3; coord1[4][2]=11;
- coord1[5][0]=2; coord1[5][1]= 1; coord1[5][2]= 1;
- coord1[6][0]=0; coord1[6][1]=13; coord1[6][2]= 7;
- coord1[7][0]=1; coord1[7][1]=14; coord1[7][2]= 6;
- coord1[8][0]=2; coord1[8][1]= 2; coord1[8][2]= 5;
- coord1[9][0]=0; coord1[9][1]= 6; coord1[9][2]=13;
+ coord1[0][0] = 0;
+ coord1[0][1] = 2;
+ coord1[0][2] = 0;
+ coord1[1][0] = 1;
+ coord1[1][1] = 10;
+ coord1[1][2] = 8;
+ coord1[2][0] = 2;
+ coord1[2][1] = 8;
+ coord1[2][2] = 10;
+ coord1[3][0] = 0;
+ coord1[3][1] = 7;
+ coord1[3][2] = 12;
+ coord1[4][0] = 1;
+ coord1[4][1] = 3;
+ coord1[4][2] = 11;
+ coord1[5][0] = 2;
+ coord1[5][1] = 1;
+ coord1[5][2] = 1;
+ coord1[6][0] = 0;
+ coord1[6][1] = 13;
+ coord1[6][2] = 7;
+ coord1[7][0] = 1;
+ coord1[7][1] = 14;
+ coord1[7][2] = 6;
+ coord1[8][0] = 2;
+ coord1[8][1] = 2;
+ coord1[8][2] = 5;
+ coord1[9][0] = 0;
+ coord1[9][1] = 6;
+ coord1[9][2] = 13;
ret = H5Sselect_elements(sid1, H5S_SELECT_APPEND, (size_t)POINT1_NPOINTS, (const hsize_t *)coord1);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Verify correct elements selected */
- H5Sget_select_elem_pointlist(sid1,(hsize_t)POINT1_NPOINTS,(hsize_t)POINT1_NPOINTS,(hsize_t *)temp_coord1);
- for(i=0; i<POINT1_NPOINTS; i++) {
- VERIFY(temp_coord1[i][0],coord1[i][0],"H5Sget_select_elem_pointlist");
- VERIFY(temp_coord1[i][1],coord1[i][1],"H5Sget_select_elem_pointlist");
- VERIFY(temp_coord1[i][2],coord1[i][2],"H5Sget_select_elem_pointlist");
+ H5Sget_select_elem_pointlist(sid1, (hsize_t)POINT1_NPOINTS, (hsize_t)POINT1_NPOINTS,
+ (hsize_t *)temp_coord1);
+ for (i = 0; i < POINT1_NPOINTS; i++) {
+ VERIFY(temp_coord1[i][0], coord1[i][0], "H5Sget_select_elem_pointlist");
+ VERIFY(temp_coord1[i][1], coord1[i][1], "H5Sget_select_elem_pointlist");
+ VERIFY(temp_coord1[i][2], coord1[i][2], "H5Sget_select_elem_pointlist");
} /* end for */
ret = (int)H5Sget_select_npoints(sid1);
VERIFY(ret, 20, "H5Sget_select_npoints");
/* Select sequence of ten points for memory dataset */
- coord2[0][0]=12; coord2[0][1]= 3;
- coord2[1][0]=15; coord2[1][1]=13;
- coord2[2][0]= 7; coord2[2][1]=25;
- coord2[3][0]= 0; coord2[3][1]= 6;
- coord2[4][0]=13; coord2[4][1]= 0;
- coord2[5][0]=24; coord2[5][1]=11;
- coord2[6][0]=12; coord2[6][1]=21;
- coord2[7][0]=29; coord2[7][1]= 4;
- coord2[8][0]= 8; coord2[8][1]= 8;
- coord2[9][0]=19; coord2[9][1]=17;
- ret = H5Sselect_elements(sid2, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord2);
+ coord2[0][0] = 12;
+ coord2[0][1] = 3;
+ coord2[1][0] = 15;
+ coord2[1][1] = 13;
+ coord2[2][0] = 7;
+ coord2[2][1] = 25;
+ coord2[3][0] = 0;
+ coord2[3][1] = 6;
+ coord2[4][0] = 13;
+ coord2[4][1] = 0;
+ coord2[5][0] = 24;
+ coord2[5][1] = 11;
+ coord2[6][0] = 12;
+ coord2[6][1] = 21;
+ coord2[7][0] = 29;
+ coord2[7][1] = 4;
+ coord2[8][0] = 8;
+ coord2[8][1] = 8;
+ coord2[9][0] = 19;
+ coord2[9][1] = 17;
+ ret = H5Sselect_elements(sid2, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord2);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Verify correct elements selected */
- H5Sget_select_elem_pointlist(sid2,(hsize_t)0,(hsize_t)POINT1_NPOINTS,(hsize_t *)temp_coord2);
- for(i=0; i<POINT1_NPOINTS; i++) {
- VERIFY(temp_coord2[i][0],coord2[i][0],"H5Sget_select_elem_pointlist");
- VERIFY(temp_coord2[i][1],coord2[i][1],"H5Sget_select_elem_pointlist");
+ H5Sget_select_elem_pointlist(sid2, (hsize_t)0, (hsize_t)POINT1_NPOINTS, (hsize_t *)temp_coord2);
+ for (i = 0; i < POINT1_NPOINTS; i++) {
+ VERIFY(temp_coord2[i][0], coord2[i][0], "H5Sget_select_elem_pointlist");
+ VERIFY(temp_coord2[i][1], coord2[i][1], "H5Sget_select_elem_pointlist");
} /* end for */
/* Save points for later iteration */
/* (these are in the second half of the buffer, because we are prepending */
/* the next list of points to the beginning of the point selection list) */
- HDmemcpy(((char *)pi.coord)+sizeof(coord2),coord2,sizeof(coord2));
+ HDmemcpy(((char *)pi.coord) + sizeof(coord2), coord2, sizeof(coord2));
ret = (int)H5Sget_select_npoints(sid2);
VERIFY(ret, 10, "H5Sget_select_npoints");
/* Append another sequence of ten points to memory dataset */
- coord2[0][0]=24; coord2[0][1]= 0;
- coord2[1][0]= 2; coord2[1][1]=25;
- coord2[2][0]=13; coord2[2][1]=17;
- coord2[3][0]= 8; coord2[3][1]= 3;
- coord2[4][0]=29; coord2[4][1]= 4;
- coord2[5][0]=11; coord2[5][1]=14;
- coord2[6][0]= 5; coord2[6][1]=22;
- coord2[7][0]=12; coord2[7][1]= 2;
- coord2[8][0]=21; coord2[8][1]=12;
- coord2[9][0]= 9; coord2[9][1]=18;
+ coord2[0][0] = 24;
+ coord2[0][1] = 0;
+ coord2[1][0] = 2;
+ coord2[1][1] = 25;
+ coord2[2][0] = 13;
+ coord2[2][1] = 17;
+ coord2[3][0] = 8;
+ coord2[3][1] = 3;
+ coord2[4][0] = 29;
+ coord2[4][1] = 4;
+ coord2[5][0] = 11;
+ coord2[5][1] = 14;
+ coord2[6][0] = 5;
+ coord2[6][1] = 22;
+ coord2[7][0] = 12;
+ coord2[7][1] = 2;
+ coord2[8][0] = 21;
+ coord2[8][1] = 12;
+ coord2[9][0] = 9;
+ coord2[9][1] = 18;
ret = H5Sselect_elements(sid2, H5S_SELECT_PREPEND, (size_t)POINT1_NPOINTS, (const hsize_t *)coord2);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Verify correct elements selected */
- H5Sget_select_elem_pointlist(sid2,(hsize_t)0,(hsize_t)POINT1_NPOINTS,(hsize_t *)temp_coord2);
- for(i=0; i<POINT1_NPOINTS; i++) {
- VERIFY(temp_coord2[i][0],coord2[i][0],"H5Sget_select_elem_pointlist");
- VERIFY(temp_coord2[i][1],coord2[i][1],"H5Sget_select_elem_pointlist");
+ H5Sget_select_elem_pointlist(sid2, (hsize_t)0, (hsize_t)POINT1_NPOINTS, (hsize_t *)temp_coord2);
+ for (i = 0; i < POINT1_NPOINTS; i++) {
+ VERIFY(temp_coord2[i][0], coord2[i][0], "H5Sget_select_elem_pointlist");
+ VERIFY(temp_coord2[i][1], coord2[i][1], "H5Sget_select_elem_pointlist");
} /* end for */
ret = (int)H5Sget_select_npoints(sid2);
@@ -591,60 +690,81 @@ test_select_point(hid_t xfer_plist)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select sequence of points for read dataset */
- coord3[0][0]= 0; coord3[0][1]= 2;
- coord3[1][0]= 4; coord3[1][1]= 8;
- coord3[2][0]=13; coord3[2][1]=13;
- coord3[3][0]=14; coord3[3][1]=20;
- coord3[4][0]= 7; coord3[4][1]= 9;
- coord3[5][0]= 2; coord3[5][1]= 0;
- coord3[6][0]= 9; coord3[6][1]=19;
- coord3[7][0]= 1; coord3[7][1]=22;
- coord3[8][0]=12; coord3[8][1]=21;
- coord3[9][0]=11; coord3[9][1]= 6;
- ret = H5Sselect_elements(sid2, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord3);
+ coord3[0][0] = 0;
+ coord3[0][1] = 2;
+ coord3[1][0] = 4;
+ coord3[1][1] = 8;
+ coord3[2][0] = 13;
+ coord3[2][1] = 13;
+ coord3[3][0] = 14;
+ coord3[3][1] = 20;
+ coord3[4][0] = 7;
+ coord3[4][1] = 9;
+ coord3[5][0] = 2;
+ coord3[5][1] = 0;
+ coord3[6][0] = 9;
+ coord3[6][1] = 19;
+ coord3[7][0] = 1;
+ coord3[7][1] = 22;
+ coord3[8][0] = 12;
+ coord3[8][1] = 21;
+ coord3[9][0] = 11;
+ coord3[9][1] = 6;
+ ret = H5Sselect_elements(sid2, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord3);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Verify correct elements selected */
- H5Sget_select_elem_pointlist(sid2,(hsize_t)0,(hsize_t)POINT1_NPOINTS,(hsize_t *)temp_coord3);
- for(i=0; i<POINT1_NPOINTS; i++) {
- VERIFY(temp_coord3[i][0],coord3[i][0],"H5Sget_select_elem_pointlist");
- VERIFY(temp_coord3[i][1],coord3[i][1],"H5Sget_select_elem_pointlist");
+ H5Sget_select_elem_pointlist(sid2, (hsize_t)0, (hsize_t)POINT1_NPOINTS, (hsize_t *)temp_coord3);
+ for (i = 0; i < POINT1_NPOINTS; i++) {
+ VERIFY(temp_coord3[i][0], coord3[i][0], "H5Sget_select_elem_pointlist");
+ VERIFY(temp_coord3[i][1], coord3[i][1], "H5Sget_select_elem_pointlist");
} /* end for */
ret = (int)H5Sget_select_npoints(sid2);
VERIFY(ret, 10, "H5Sget_select_npoints");
/* Append another sequence of ten points to disk dataset */
- coord3[0][0]=14; coord3[0][1]=25;
- coord3[1][0]= 0; coord3[1][1]= 0;
- coord3[2][0]=11; coord3[2][1]=11;
- coord3[3][0]= 5; coord3[3][1]=14;
- coord3[4][0]= 3; coord3[4][1]= 5;
- coord3[5][0]= 2; coord3[5][1]= 2;
- coord3[6][0]= 7; coord3[6][1]=13;
- coord3[7][0]= 9; coord3[7][1]=16;
- coord3[8][0]=12; coord3[8][1]=22;
- coord3[9][0]=13; coord3[9][1]= 9;
+ coord3[0][0] = 14;
+ coord3[0][1] = 25;
+ coord3[1][0] = 0;
+ coord3[1][1] = 0;
+ coord3[2][0] = 11;
+ coord3[2][1] = 11;
+ coord3[3][0] = 5;
+ coord3[3][1] = 14;
+ coord3[4][0] = 3;
+ coord3[4][1] = 5;
+ coord3[5][0] = 2;
+ coord3[5][1] = 2;
+ coord3[6][0] = 7;
+ coord3[6][1] = 13;
+ coord3[7][0] = 9;
+ coord3[7][1] = 16;
+ coord3[8][0] = 12;
+ coord3[8][1] = 22;
+ coord3[9][0] = 13;
+ coord3[9][1] = 9;
ret = H5Sselect_elements(sid2, H5S_SELECT_APPEND, (size_t)POINT1_NPOINTS, (const hsize_t *)coord3);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Verify correct elements selected */
- H5Sget_select_elem_pointlist(sid2,(hsize_t)POINT1_NPOINTS,(hsize_t)POINT1_NPOINTS,(hsize_t *)temp_coord3);
- for(i=0; i<POINT1_NPOINTS; i++) {
- VERIFY(temp_coord3[i][0],coord3[i][0],"H5Sget_select_elem_pointlist");
- VERIFY(temp_coord3[i][1],coord3[i][1],"H5Sget_select_elem_pointlist");
+ H5Sget_select_elem_pointlist(sid2, (hsize_t)POINT1_NPOINTS, (hsize_t)POINT1_NPOINTS,
+ (hsize_t *)temp_coord3);
+ for (i = 0; i < POINT1_NPOINTS; i++) {
+ VERIFY(temp_coord3[i][0], coord3[i][0], "H5Sget_select_elem_pointlist");
+ VERIFY(temp_coord3[i][1], coord3[i][1], "H5Sget_select_elem_pointlist");
} /* end for */
ret = (int)H5Sget_select_npoints(sid2);
VERIFY(ret, 20, "H5Sget_select_npoints");
/* Read selection from disk */
- ret=H5Dread(dataset,H5T_NATIVE_UCHAR,sid2,sid1,xfer_plist,rbuf);
+ ret = H5Dread(dataset, H5T_NATIVE_UCHAR, sid2, sid1, xfer_plist, rbuf);
CHECK(ret, FAIL, "H5Dread");
/* Check that the values match with a dataset iterator */
- pi.buf=wbuf;
- pi.offset=0;
- ret = H5Diterate(rbuf,H5T_NATIVE_UCHAR,sid2,test_select_point_iter1,&pi);
+ pi.buf = wbuf;
+ pi.offset = 0;
+ ret = H5Diterate(rbuf, H5T_NATIVE_UCHAR, sid2, test_select_point_iter1, &pi);
CHECK(ret, FAIL, "H5Diterate");
/* Close memory dataspace */
@@ -666,7 +786,7 @@ test_select_point(hid_t xfer_plist)
/* Free memory buffers */
HDfree(wbuf);
HDfree(rbuf);
-} /* test_select_point() */
+} /* test_select_point() */
/****************************************************************
**
@@ -675,18 +795,19 @@ test_select_point(hid_t xfer_plist)
**
****************************************************************/
static herr_t
-test_select_all_iter1(void *_elem, hid_t H5_ATTR_UNUSED type_id, unsigned H5_ATTR_UNUSED ndim, const hsize_t H5_ATTR_UNUSED *point, void *_operator_data)
+test_select_all_iter1(void *_elem, hid_t H5_ATTR_UNUSED type_id, unsigned H5_ATTR_UNUSED ndim,
+ const hsize_t H5_ATTR_UNUSED *point, void *_operator_data)
{
- uint8_t *tbuf=(uint8_t *)_elem, /* temporary buffer pointer */
- **tbuf2=(uint8_t **)_operator_data; /* temporary buffer handle */
+ uint8_t *tbuf = (uint8_t *)_elem, /* temporary buffer pointer */
+ **tbuf2 = (uint8_t **)_operator_data; /* temporary buffer handle */
- if(*tbuf!=**tbuf2)
- return(-1);
+ if (*tbuf != **tbuf2)
+ return (-1);
else {
(*tbuf2)++;
- return(0);
+ return (0);
}
-} /* end test_select_all_iter1() */
+} /* end test_select_all_iter1() */
/****************************************************************
**
@@ -695,10 +816,11 @@ test_select_all_iter1(void *_elem, hid_t H5_ATTR_UNUSED type_id, unsigned H5_ATT
**
****************************************************************/
static herr_t
-test_select_none_iter1(void H5_ATTR_UNUSED *_elem, hid_t H5_ATTR_UNUSED type_id, unsigned H5_ATTR_UNUSED ndim, const hsize_t H5_ATTR_UNUSED *point, void H5_ATTR_UNUSED *_operator_data)
+test_select_none_iter1(void H5_ATTR_UNUSED *_elem, hid_t H5_ATTR_UNUSED type_id, unsigned H5_ATTR_UNUSED ndim,
+ const hsize_t H5_ATTR_UNUSED *point, void H5_ATTR_UNUSED *_operator_data)
{
- return(-1);
-} /* end test_select_none_iter1() */
+ return (-1);
+} /* end test_select_none_iter1() */
/****************************************************************
**
@@ -709,16 +831,16 @@ test_select_none_iter1(void H5_ATTR_UNUSED *_elem, hid_t H5_ATTR_UNUSED type_id,
static void
test_select_all(hid_t xfer_plist)
{
- hid_t fid1; /* HDF5 File IDs */
- hid_t dataset; /* Dataset ID */
- hid_t sid1; /* Dataspace ID */
- hsize_t dims1[] = {SPACE4_DIM1, SPACE4_DIM2, SPACE4_DIM3};
- uint8_t *wbuf, /* buffer to write to disk */
- *rbuf, /* buffer read from disk */
- *tbuf; /* temporary buffer pointer */
- int i,j,k; /* Counters */
- herr_t ret; /* Generic return value */
- H5S_class_t ext_type; /* Extent type */
+ hid_t fid1; /* HDF5 File IDs */
+ hid_t dataset; /* Dataset ID */
+ hid_t sid1; /* Dataspace ID */
+ hsize_t dims1[] = {SPACE4_DIM1, SPACE4_DIM2, SPACE4_DIM3};
+ uint8_t *wbuf, /* buffer to write to disk */
+ *rbuf, /* buffer read from disk */
+ *tbuf; /* temporary buffer pointer */
+ int i, j, k; /* Counters */
+ herr_t ret; /* Generic return value */
+ H5S_class_t ext_type; /* Extent type */
/* Output message about test being performed */
MESSAGE(5, ("Testing 'All' Selection Functions\n"));
@@ -730,9 +852,9 @@ test_select_all(hid_t xfer_plist)
CHECK_PTR(rbuf, "HDcalloc");
/* Initialize write buffer */
- for(i=0, tbuf=wbuf; i<SPACE4_DIM1; i++)
- for(j=0; j<SPACE4_DIM2; j++)
- for(k=0; k<SPACE4_DIM3; k++)
+ for (i = 0, tbuf = wbuf; i < SPACE4_DIM1; i++)
+ for (j = 0; j < SPACE4_DIM2; j++)
+ for (k = 0; k < SPACE4_DIM3; k++)
*tbuf++ = (uint8_t)((((i * SPACE4_DIM2) + j) * SPACE4_DIM3) + k);
/* Create file */
@@ -761,7 +883,7 @@ test_select_all(hid_t xfer_plist)
/* Check that the values match with a dataset iterator */
tbuf = wbuf;
- ret = H5Diterate(rbuf, H5T_NATIVE_UCHAR, sid1, test_select_all_iter1, &tbuf);
+ ret = H5Diterate(rbuf, H5T_NATIVE_UCHAR, sid1, test_select_all_iter1, &tbuf);
CHECK(ret, FAIL, "H5Diterate");
/* Close disk dataspace */
@@ -779,7 +901,7 @@ test_select_all(hid_t xfer_plist)
/* Free memory buffers */
HDfree(wbuf);
HDfree(rbuf);
-} /* test_select_all() */
+} /* test_select_all() */
/****************************************************************
**
@@ -790,22 +912,22 @@ test_select_all(hid_t xfer_plist)
static void
test_select_all_hyper(hid_t xfer_plist)
{
- hid_t fid1; /* HDF5 File IDs */
- hid_t dataset; /* Dataset ID */
- hid_t sid1,sid2; /* Dataspace ID */
- hsize_t dims1[] = {SPACE3_DIM1, SPACE3_DIM2};
- hsize_t dims2[] = {SPACE2_DIM1, SPACE2_DIM2};
- hsize_t dims3[] = {SPACE3_DIM1, SPACE3_DIM2};
- hsize_t start[SPACE1_RANK]; /* Starting location of hyperslab */
- hsize_t stride[SPACE1_RANK]; /* Stride of hyperslab */
- hsize_t count[SPACE1_RANK]; /* Element count of hyperslab */
- hsize_t block[SPACE1_RANK]; /* Block size of hyperslab */
- uint8_t *wbuf, /* buffer to write to disk */
- *rbuf, /* buffer read from disk */
- *tbuf; /* temporary buffer pointer */
- int i,j; /* Counters */
- herr_t ret; /* Generic return value */
- H5S_class_t ext_type; /* Extent type */
+ hid_t fid1; /* HDF5 File IDs */
+ hid_t dataset; /* Dataset ID */
+ hid_t sid1, sid2; /* Dataspace ID */
+ hsize_t dims1[] = {SPACE3_DIM1, SPACE3_DIM2};
+ hsize_t dims2[] = {SPACE2_DIM1, SPACE2_DIM2};
+ hsize_t dims3[] = {SPACE3_DIM1, SPACE3_DIM2};
+ hsize_t start[SPACE1_RANK]; /* Starting location of hyperslab */
+ hsize_t stride[SPACE1_RANK]; /* Stride of hyperslab */
+ hsize_t count[SPACE1_RANK]; /* Element count of hyperslab */
+ hsize_t block[SPACE1_RANK]; /* Block size of hyperslab */
+ uint8_t *wbuf, /* buffer to write to disk */
+ *rbuf, /* buffer read from disk */
+ *tbuf; /* temporary buffer pointer */
+ int i, j; /* Counters */
+ herr_t ret; /* Generic return value */
+ H5S_class_t ext_type; /* Extent type */
/* Output message about test being performed */
MESSAGE(5, ("Testing 'All' Selection Functions\n"));
@@ -817,9 +939,9 @@ test_select_all_hyper(hid_t xfer_plist)
CHECK_PTR(rbuf, "HDcalloc");
/* Initialize write buffer */
- for(i=0, tbuf=wbuf; i<SPACE2_DIM1; i++)
- for(j=0; j<SPACE2_DIM2; j++)
- *tbuf++=(uint8_t)((i*SPACE2_DIM2)+j);
+ for (i = 0, tbuf = wbuf; i < SPACE2_DIM1; i++)
+ for (j = 0; j < SPACE2_DIM2; j++)
+ *tbuf++ = (uint8_t)((i * SPACE2_DIM2) + j);
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
@@ -842,11 +964,15 @@ test_select_all_hyper(hid_t xfer_plist)
CHECK(ret, FAIL, "H5Sselect_all");
/* Select 15x26 hyperslab for memory dataset */
- start[0] = 15; start[1] = 0;
- stride[0] = 1; stride[1] = 1;
- count[0] = 15; count[1] = 26;
- block[0] = 1; block[1] = 1;
- ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
+ start[0] = 15;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 15;
+ count[1] = 26;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Create a dataset */
@@ -866,11 +992,15 @@ test_select_all_hyper(hid_t xfer_plist)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 15x26 hyperslab for reading memory dataset */
- start[0]=0; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=15; count[1]=26;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 15;
+ count[1] = 26;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Select no extent for disk dataset */
@@ -878,7 +1008,7 @@ test_select_all_hyper(hid_t xfer_plist)
CHECK(ret, FAIL, "H5Sselect_none");
/* Read selection from disk (should fail with no selection defined) */
- ret=H5Dread(dataset,H5T_NATIVE_UCHAR,sid2,sid1,xfer_plist,rbuf);
+ ret = H5Dread(dataset, H5T_NATIVE_UCHAR, sid2, sid1, xfer_plist, rbuf);
VERIFY(ret, FAIL, "H5Dread");
/* Select entire 15x26 extent for disk dataset */
@@ -886,18 +1016,18 @@ test_select_all_hyper(hid_t xfer_plist)
CHECK(ret, FAIL, "H5Sselect_all");
/* Read selection from disk (should work now) */
- ret=H5Dread(dataset,H5T_NATIVE_UCHAR,sid2,sid1,xfer_plist,rbuf);
+ ret = H5Dread(dataset, H5T_NATIVE_UCHAR, sid2, sid1, xfer_plist, rbuf);
CHECK(ret, FAIL, "H5Dread");
/* Check that the values match with a dataset iterator */
- tbuf=wbuf+(15*SPACE2_DIM2);
- ret = H5Diterate(rbuf,H5T_NATIVE_UCHAR,sid2,test_select_all_iter1,&tbuf);
+ tbuf = wbuf + (15 * SPACE2_DIM2);
+ ret = H5Diterate(rbuf, H5T_NATIVE_UCHAR, sid2, test_select_all_iter1, &tbuf);
CHECK(ret, FAIL, "H5Diterate");
/* A quick check to make certain that iterating through a "none" selection works */
ret = H5Sselect_none(sid2);
CHECK(ret, FAIL, "H5Sselect_none");
- ret = H5Diterate(rbuf,H5T_NATIVE_UCHAR,sid2,test_select_none_iter1,&tbuf);
+ ret = H5Diterate(rbuf, H5T_NATIVE_UCHAR, sid2, test_select_none_iter1, &tbuf);
CHECK(ret, FAIL, "H5Diterate");
/* Close memory dataspace */
@@ -919,7 +1049,7 @@ test_select_all_hyper(hid_t xfer_plist)
/* Free memory buffers */
HDfree(wbuf);
HDfree(rbuf);
-} /* test_select_all_hyper() */
+} /* test_select_all_hyper() */
/****************************************************************
**
@@ -931,23 +1061,23 @@ test_select_all_hyper(hid_t xfer_plist)
static void
test_select_combo(void)
{
- hid_t fid1; /* HDF5 File IDs */
- hid_t dataset; /* Dataset ID */
- hid_t sid1,sid2; /* Dataspace ID */
- hsize_t dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
- hsize_t dims2[] = {SPACE2_DIM1, SPACE2_DIM2};
- hsize_t dims3[] = {SPACE3_DIM1, SPACE3_DIM2};
- hsize_t coord1[POINT1_NPOINTS][SPACE1_RANK]; /* Coordinates for point selection */
- hsize_t start[SPACE1_RANK]; /* Starting location of hyperslab */
- hsize_t stride[SPACE1_RANK]; /* Stride of hyperslab */
- hsize_t count[SPACE1_RANK]; /* Element count of hyperslab */
- hsize_t block[SPACE1_RANK]; /* Block size of hyperslab */
- uint8_t *wbuf, /* buffer to write to disk */
- *rbuf, /* buffer read from disk */
- *tbuf, /* temporary buffer pointer */
- *tbuf2; /* temporary buffer pointer */
- int i,j; /* Counters */
- herr_t ret; /* Generic return value */
+ hid_t fid1; /* HDF5 File IDs */
+ hid_t dataset; /* Dataset ID */
+ hid_t sid1, sid2; /* Dataspace ID */
+ hsize_t dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
+ hsize_t dims2[] = {SPACE2_DIM1, SPACE2_DIM2};
+ hsize_t dims3[] = {SPACE3_DIM1, SPACE3_DIM2};
+ hsize_t coord1[POINT1_NPOINTS][SPACE1_RANK]; /* Coordinates for point selection */
+ hsize_t start[SPACE1_RANK]; /* Starting location of hyperslab */
+ hsize_t stride[SPACE1_RANK]; /* Stride of hyperslab */
+ hsize_t count[SPACE1_RANK]; /* Element count of hyperslab */
+ hsize_t block[SPACE1_RANK]; /* Block size of hyperslab */
+ uint8_t *wbuf, /* buffer to write to disk */
+ *rbuf, /* buffer read from disk */
+ *tbuf, /* temporary buffer pointer */
+ *tbuf2; /* temporary buffer pointer */
+ int i, j; /* Counters */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Combination of Hyperslab & Element Selection Functions\n"));
@@ -959,9 +1089,9 @@ test_select_combo(void)
CHECK_PTR(rbuf, "HDcalloc");
/* Initialize write buffer */
- for(i=0, tbuf=wbuf; i<SPACE2_DIM1; i++)
- for(j=0; j<SPACE2_DIM2; j++)
- *tbuf++=(uint8_t)((i*SPACE2_DIM2)+j);
+ for (i = 0, tbuf = wbuf; i < SPACE2_DIM1; i++)
+ for (j = 0; j < SPACE2_DIM2; j++)
+ *tbuf++ = (uint8_t)((i * SPACE2_DIM2) + j);
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
@@ -976,25 +1106,49 @@ test_select_combo(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select sequence of ten points for disk dataset */
- coord1[0][0]=0; coord1[0][1]=10; coord1[0][2]= 5;
- coord1[1][0]=1; coord1[1][1]= 2; coord1[1][2]= 7;
- coord1[2][0]=2; coord1[2][1]= 4; coord1[2][2]= 9;
- coord1[3][0]=0; coord1[3][1]= 6; coord1[3][2]=11;
- coord1[4][0]=1; coord1[4][1]= 8; coord1[4][2]=13;
- coord1[5][0]=2; coord1[5][1]=12; coord1[5][2]= 0;
- coord1[6][0]=0; coord1[6][1]=14; coord1[6][2]= 2;
- coord1[7][0]=1; coord1[7][1]= 0; coord1[7][2]= 4;
- coord1[8][0]=2; coord1[8][1]= 1; coord1[8][2]= 6;
- coord1[9][0]=0; coord1[9][1]= 3; coord1[9][2]= 8;
- ret = H5Sselect_elements(sid1, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord1);
+ coord1[0][0] = 0;
+ coord1[0][1] = 10;
+ coord1[0][2] = 5;
+ coord1[1][0] = 1;
+ coord1[1][1] = 2;
+ coord1[1][2] = 7;
+ coord1[2][0] = 2;
+ coord1[2][1] = 4;
+ coord1[2][2] = 9;
+ coord1[3][0] = 0;
+ coord1[3][1] = 6;
+ coord1[3][2] = 11;
+ coord1[4][0] = 1;
+ coord1[4][1] = 8;
+ coord1[4][2] = 13;
+ coord1[5][0] = 2;
+ coord1[5][1] = 12;
+ coord1[5][2] = 0;
+ coord1[6][0] = 0;
+ coord1[6][1] = 14;
+ coord1[6][2] = 2;
+ coord1[7][0] = 1;
+ coord1[7][1] = 0;
+ coord1[7][2] = 4;
+ coord1[8][0] = 2;
+ coord1[8][1] = 1;
+ coord1[8][2] = 6;
+ coord1[9][0] = 0;
+ coord1[9][1] = 3;
+ coord1[9][2] = 8;
+ ret = H5Sselect_elements(sid1, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord1);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Select 1x10 hyperslab for writing memory dataset */
- start[0]=0; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=1; count[1]=10;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 1;
+ count[1] = 10;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Create a dataset */
@@ -1014,23 +1168,27 @@ test_select_combo(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 10x1 hyperslab for reading memory dataset */
- start[0]=0; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=10; count[1]=1;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 10;
+ count[1] = 1;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Read selection from disk */
- ret=H5Dread(dataset,H5T_NATIVE_UCHAR,sid2,sid1,H5P_DEFAULT,rbuf);
+ ret = H5Dread(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, rbuf);
CHECK(ret, FAIL, "H5Dread");
/* Compare data read with data written out */
- for(i=0; i<POINT1_NPOINTS; i++) {
- tbuf=wbuf+i;
- tbuf2=rbuf+(i*SPACE3_DIM2);
- if(*tbuf!=*tbuf2)
- TestErrPrintf("element values don't match!, i=%d\n",i);
+ for (i = 0; i < POINT1_NPOINTS; i++) {
+ tbuf = wbuf + i;
+ tbuf2 = rbuf + (i * SPACE3_DIM2);
+ if (*tbuf != *tbuf2)
+ TestErrPrintf("element values don't match!, i=%d\n", i);
} /* end for */
/* Close memory dataspace */
@@ -1052,18 +1210,17 @@ test_select_combo(void)
/* Free memory buffers */
HDfree(wbuf);
HDfree(rbuf);
-} /* test_select_combo() */
+} /* test_select_combo() */
static int
compare_size_t(const void *s1, const void *s2)
{
- if(*(const size_t *)s1<*(const size_t *)s2)
- return(-1);
+ if (*(const size_t *)s1 < *(const size_t *)s2)
+ return (-1);
+ else if (*(const size_t *)s1 > *(const size_t *)s2)
+ return (1);
else
- if(*(const size_t *)s1>*(const size_t *)s2)
- return(1);
- else
- return(0);
+ return (0);
}
/****************************************************************
@@ -1075,46 +1232,47 @@ compare_size_t(const void *s1, const void *s2)
static void
test_select_hyper_stride(hid_t xfer_plist)
{
- hid_t fid1; /* HDF5 File IDs */
- hid_t dataset; /* Dataset ID */
- hid_t sid1,sid2; /* Dataspace ID */
- hsize_t dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
- hsize_t dims2[] = {SPACE2_DIM1, SPACE2_DIM2};
- hsize_t dims3[] = {SPACE3_DIM1, SPACE3_DIM2};
- hsize_t start[SPACE1_RANK]; /* Starting location of hyperslab */
- hsize_t stride[SPACE1_RANK]; /* Stride of hyperslab */
- hsize_t count[SPACE1_RANK]; /* Element count of hyperslab */
- hsize_t block[SPACE1_RANK]; /* Block size of hyperslab */
- uint16_t *wbuf, /* buffer to write to disk */
- *rbuf, /* buffer read from disk */
- *tbuf, /* temporary buffer pointer */
- *tbuf2; /* temporary buffer pointer */
- size_t loc1[72]={ /* Gruesomely ugly way to make certain hyperslab locations are checked correctly */
- 27, 28, 29, 53, 54, 55, 79, 80, 81, /* Block #1 */
- 32, 33, 34, 58, 59, 60, 84, 85, 86, /* Block #2 */
- 157,158,159,183,184,185,209,210,211, /* Block #3 */
- 162,163,164,188,189,190,214,215,216, /* Block #4 */
- 287,288,289,313,314,315,339,340,341, /* Block #5 */
- 292,293,294,318,319,320,344,345,346, /* Block #6 */
- 417,418,419,443,444,445,469,470,471, /* Block #7 */
- 422,423,424,448,449,450,474,475,476, /* Block #8 */
- };
- size_t loc2[72]={
- 0, 1, 2, 26, 27, 28, /* Block #1 */
- 4, 5, 6, 30, 31, 32, /* Block #2 */
- 8, 9, 10, 34, 35, 36, /* Block #3 */
- 12, 13, 14, 38, 39, 40, /* Block #4 */
- 104,105,106,130,131,132, /* Block #5 */
- 108,109,110,134,135,136, /* Block #6 */
- 112,113,114,138,139,140, /* Block #7 */
- 116,117,118,142,143,144, /* Block #8 */
- 208,209,210,234,235,236, /* Block #9 */
- 212,213,214,238,239,240, /* Block #10 */
- 216,217,218,242,243,244, /* Block #11 */
- 220,221,222,246,247,248, /* Block #12 */
- };
- int i,j; /* Counters */
- herr_t ret; /* Generic return value */
+ hid_t fid1; /* HDF5 File IDs */
+ hid_t dataset; /* Dataset ID */
+ hid_t sid1, sid2; /* Dataspace ID */
+ hsize_t dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
+ hsize_t dims2[] = {SPACE2_DIM1, SPACE2_DIM2};
+ hsize_t dims3[] = {SPACE3_DIM1, SPACE3_DIM2};
+ hsize_t start[SPACE1_RANK]; /* Starting location of hyperslab */
+ hsize_t stride[SPACE1_RANK]; /* Stride of hyperslab */
+ hsize_t count[SPACE1_RANK]; /* Element count of hyperslab */
+ hsize_t block[SPACE1_RANK]; /* Block size of hyperslab */
+ uint16_t *wbuf, /* buffer to write to disk */
+ *rbuf, /* buffer read from disk */
+ *tbuf, /* temporary buffer pointer */
+ *tbuf2; /* temporary buffer pointer */
+ size_t loc1[72] = {
+ /* Gruesomely ugly way to make certain hyperslab locations are checked correctly */
+ 27, 28, 29, 53, 54, 55, 79, 80, 81, /* Block #1 */
+ 32, 33, 34, 58, 59, 60, 84, 85, 86, /* Block #2 */
+ 157, 158, 159, 183, 184, 185, 209, 210, 211, /* Block #3 */
+ 162, 163, 164, 188, 189, 190, 214, 215, 216, /* Block #4 */
+ 287, 288, 289, 313, 314, 315, 339, 340, 341, /* Block #5 */
+ 292, 293, 294, 318, 319, 320, 344, 345, 346, /* Block #6 */
+ 417, 418, 419, 443, 444, 445, 469, 470, 471, /* Block #7 */
+ 422, 423, 424, 448, 449, 450, 474, 475, 476, /* Block #8 */
+ };
+ size_t loc2[72] = {
+ 0, 1, 2, 26, 27, 28, /* Block #1 */
+ 4, 5, 6, 30, 31, 32, /* Block #2 */
+ 8, 9, 10, 34, 35, 36, /* Block #3 */
+ 12, 13, 14, 38, 39, 40, /* Block #4 */
+ 104, 105, 106, 130, 131, 132, /* Block #5 */
+ 108, 109, 110, 134, 135, 136, /* Block #6 */
+ 112, 113, 114, 138, 139, 140, /* Block #7 */
+ 116, 117, 118, 142, 143, 144, /* Block #8 */
+ 208, 209, 210, 234, 235, 236, /* Block #9 */
+ 212, 213, 214, 238, 239, 240, /* Block #10 */
+ 216, 217, 218, 242, 243, 244, /* Block #11 */
+ 220, 221, 222, 246, 247, 248, /* Block #12 */
+ };
+ int i, j; /* Counters */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Hyperslabs with Strides Functionality\n"));
@@ -1126,9 +1284,9 @@ test_select_hyper_stride(hid_t xfer_plist)
CHECK_PTR(rbuf, "HDcalloc");
/* Initialize write buffer */
- for(i=0, tbuf=wbuf; i<SPACE2_DIM1; i++)
- for(j=0; j<SPACE2_DIM2; j++)
- *tbuf++=(uint16_t)((i*SPACE2_DIM2)+j);
+ for (i = 0, tbuf = wbuf; i < SPACE2_DIM1; i++)
+ for (j = 0; j < SPACE2_DIM2; j++)
+ *tbuf++ = (uint16_t)((i * SPACE2_DIM2) + j);
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
@@ -1143,19 +1301,31 @@ test_select_hyper_stride(hid_t xfer_plist)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 2x3x3 count with a stride of 2x4x3 & 1x2x2 block hyperslab for disk dataset */
- start[0] = 0; start[1] = 0; start[2] = 0;
- stride[0] = 2; stride[1] = 4; stride[2] = 3;
- count[0] = 2; count[1] = 3; count[2] = 3;
- block[0] = 1; block[1] = 2; block[2] = 2;
- ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block);
+ start[0] = 0;
+ start[1] = 0;
+ start[2] = 0;
+ stride[0] = 2;
+ stride[1] = 4;
+ stride[2] = 3;
+ count[0] = 2;
+ count[1] = 3;
+ count[2] = 3;
+ block[0] = 1;
+ block[1] = 2;
+ block[2] = 2;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Select 4x2 count with a stride of 5x5 & 3x3 block hyperslab for memory dataset */
- start[0] = 1; start[1] = 1;
- stride[0] = 5; stride[1] = 5;
- count[0] = 4; count[1] = 2;
- block[0] = 3; block[1] = 3;
- ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
+ start[0] = 1;
+ start[1] = 1;
+ stride[0] = 5;
+ stride[1] = 5;
+ count[0] = 4;
+ count[1] = 2;
+ block[0] = 3;
+ block[1] = 3;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Create a dataset */
@@ -1175,30 +1345,36 @@ test_select_hyper_stride(hid_t xfer_plist)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 3x4 count with a stride of 4x4 & 2x3 block hyperslab for memory dataset */
- start[0]=0; start[1]=0;
- stride[0]=4; stride[1]=4;
- count[0]=3; count[1]=4;
- block[0]=2; block[1]=3;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 4;
+ stride[1] = 4;
+ count[0] = 3;
+ count[1] = 4;
+ block[0] = 2;
+ block[1] = 3;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Read selection from disk */
- ret=H5Dread(dataset,H5T_NATIVE_USHORT,sid2,sid1,xfer_plist,rbuf);
+ ret = H5Dread(dataset, H5T_NATIVE_USHORT, sid2, sid1, xfer_plist, rbuf);
CHECK(ret, FAIL, "H5Dread");
/* Sort the locations into the proper order */
HDqsort(loc1, (size_t)72, sizeof(size_t), compare_size_t);
HDqsort(loc2, (size_t)72, sizeof(size_t), compare_size_t);
/* Compare data read with data written out */
- for(i=0; i<72; i++) {
- tbuf=wbuf+loc1[i];
- tbuf2=rbuf+loc2[i];
- if(*tbuf!=*tbuf2) {
- HDprintf("%d: hyperslab values don't match!, loc1[%d]=%d, loc2[%d]=%d\n",__LINE__,i,(int)loc1[i],i,(int)loc2[i]);
- HDprintf("wbuf=%p, tbuf=%p, rbuf=%p, tbuf2=%p\n",(void *)wbuf,(void *)tbuf,(void *)rbuf,(void *)tbuf2);
- TestErrPrintf("*tbuf=%u, *tbuf2=%u\n",(unsigned)*tbuf,(unsigned)*tbuf2);
+ for (i = 0; i < 72; i++) {
+ tbuf = wbuf + loc1[i];
+ tbuf2 = rbuf + loc2[i];
+ if (*tbuf != *tbuf2) {
+ HDprintf("%d: hyperslab values don't match!, loc1[%d]=%d, loc2[%d]=%d\n", __LINE__, i,
+ (int)loc1[i], i, (int)loc2[i]);
+ HDprintf("wbuf=%p, tbuf=%p, rbuf=%p, tbuf2=%p\n", (void *)wbuf, (void *)tbuf, (void *)rbuf,
+ (void *)tbuf2);
+ TestErrPrintf("*tbuf=%u, *tbuf2=%u\n", (unsigned)*tbuf, (unsigned)*tbuf2);
} /* end if */
- } /* end for */
+ } /* end for */
/* Close memory dataspace */
ret = H5Sclose(sid2);
@@ -1219,7 +1395,7 @@ test_select_hyper_stride(hid_t xfer_plist)
/* Free memory buffers */
HDfree(wbuf);
HDfree(rbuf);
-} /* test_select_hyper_stride() */
+} /* test_select_hyper_stride() */
/****************************************************************
**
@@ -1230,19 +1406,19 @@ test_select_hyper_stride(hid_t xfer_plist)
static void
test_select_hyper_contig(hid_t dset_type, hid_t xfer_plist)
{
- hid_t fid1; /* HDF5 File IDs */
- hid_t dataset; /* Dataset ID */
- hid_t sid1,sid2; /* Dataspace ID */
- hsize_t dims2[] = {SPACE2_DIM2, SPACE2_DIM1};
- hsize_t start[SPACE1_RANK]; /* Starting location of hyperslab */
- hsize_t stride[SPACE1_RANK]; /* Stride of hyperslab */
- hsize_t count[SPACE1_RANK]; /* Element count of hyperslab */
- hsize_t block[SPACE1_RANK]; /* Block size of hyperslab */
- uint16_t *wbuf, /* buffer to write to disk */
- *rbuf, /* buffer read from disk */
- *tbuf; /* temporary buffer pointer */
- int i,j; /* Counters */
- herr_t ret; /* Generic return value */
+ hid_t fid1; /* HDF5 File IDs */
+ hid_t dataset; /* Dataset ID */
+ hid_t sid1, sid2; /* Dataspace ID */
+ hsize_t dims2[] = {SPACE2_DIM2, SPACE2_DIM1};
+ hsize_t start[SPACE1_RANK]; /* Starting location of hyperslab */
+ hsize_t stride[SPACE1_RANK]; /* Stride of hyperslab */
+ hsize_t count[SPACE1_RANK]; /* Element count of hyperslab */
+ hsize_t block[SPACE1_RANK]; /* Block size of hyperslab */
+ uint16_t *wbuf, /* buffer to write to disk */
+ *rbuf, /* buffer read from disk */
+ *tbuf; /* temporary buffer pointer */
+ int i, j; /* Counters */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Contiguous Hyperslabs Functionality\n"));
@@ -1254,9 +1430,9 @@ test_select_hyper_contig(hid_t dset_type, hid_t xfer_plist)
CHECK_PTR(rbuf, "HDcalloc");
/* Initialize write buffer */
- for(i=0, tbuf=wbuf; i<SPACE2_DIM1; i++)
- for(j=0; j<SPACE2_DIM2; j++)
- *tbuf++=(uint16_t)((i*SPACE2_DIM2)+j);
+ for (i = 0, tbuf = wbuf; i < SPACE2_DIM1; i++)
+ for (j = 0; j < SPACE2_DIM2; j++)
+ *tbuf++ = (uint16_t)((i * SPACE2_DIM2) + j);
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
@@ -1271,19 +1447,27 @@ test_select_hyper_contig(hid_t dset_type, hid_t xfer_plist)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 12x10 count with a stride of 1x3 & 3x3 block hyperslab for disk dataset */
- start[0] = 0; start[1] = 0;
- stride[0] = 1; stride[1] = 3;
- count[0] = 12; count[1] = 10;
- block[0] = 1; block[1] = 3;
- ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 3;
+ count[0] = 12;
+ count[1] = 10;
+ block[0] = 1;
+ block[1] = 3;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Select 4x5 count with a stride of 3x6 & 3x6 block hyperslab for memory dataset */
- start[0] = 0; start[1] = 0;
- stride[0] = 3; stride[1] = 6;
- count[0] = 4; count[1] = 5;
- block[0] = 3; block[1] = 6;
- ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 3;
+ stride[1] = 6;
+ count[0] = 4;
+ count[1] = 5;
+ block[0] = 3;
+ block[1] = 6;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Create a dataset */
@@ -1303,19 +1487,27 @@ test_select_hyper_contig(hid_t dset_type, hid_t xfer_plist)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 6x5 count with a stride of 2x6 & 2x6 block hyperslab for disk dataset */
- start[0] = 0; start[1] = 0;
- stride[0] = 2; stride[1] = 6;
- count[0] = 6; count[1] = 5;
- block[0] = 2; block[1] = 6;
- ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 2;
+ stride[1] = 6;
+ count[0] = 6;
+ count[1] = 5;
+ block[0] = 2;
+ block[1] = 6;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Select 3x15 count with a stride of 4x2 & 4x2 block hyperslab for memory dataset */
- start[0] = 0; start[1] = 0;
- stride[0] = 4; stride[1] = 2;
- count[0] = 3; count[1] = 15;
- block[0] = 4; block[1] = 2;
- ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 4;
+ stride[1] = 2;
+ count[0] = 3;
+ count[1] = 15;
+ block[0] = 4;
+ block[1] = 2;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Read selection from disk */
@@ -1323,8 +1515,8 @@ test_select_hyper_contig(hid_t dset_type, hid_t xfer_plist)
CHECK(ret, FAIL, "H5Dread");
/* Compare data read with data written out */
- if(HDmemcmp(rbuf, wbuf, sizeof(uint16_t) * 30 * 12))
- TestErrPrintf("hyperslab values don't match! Line=%d\n",__LINE__);
+ if (HDmemcmp(rbuf, wbuf, sizeof(uint16_t) * 30 * 12))
+ TestErrPrintf("hyperslab values don't match! Line=%d\n", __LINE__);
/* Close memory dataspace */
ret = H5Sclose(sid2);
@@ -1345,7 +1537,7 @@ test_select_hyper_contig(hid_t dset_type, hid_t xfer_plist)
/* Free memory buffers */
HDfree(wbuf);
HDfree(rbuf);
-} /* test_select_hyper_contig() */
+} /* test_select_hyper_contig() */
/****************************************************************
**
@@ -1356,17 +1548,17 @@ test_select_hyper_contig(hid_t dset_type, hid_t xfer_plist)
static void
test_select_hyper_contig2(hid_t dset_type, hid_t xfer_plist)
{
- hid_t fid1; /* HDF5 File IDs */
- hid_t dataset; /* Dataset ID */
- hid_t sid1,sid2; /* Dataspace ID */
- hsize_t dims2[] = {SPACE8_DIM4, SPACE8_DIM3, SPACE8_DIM2, SPACE8_DIM1};
- hsize_t start[SPACE8_RANK]; /* Starting location of hyperslab */
- hsize_t count[SPACE8_RANK]; /* Element count of hyperslab */
- uint16_t *wbuf, /* buffer to write to disk */
- *rbuf, /* buffer read from disk */
- *tbuf; /* temporary buffer pointer */
- int i,j,k,l; /* Counters */
- herr_t ret; /* Generic return value */
+ hid_t fid1; /* HDF5 File IDs */
+ hid_t dataset; /* Dataset ID */
+ hid_t sid1, sid2; /* Dataspace ID */
+ hsize_t dims2[] = {SPACE8_DIM4, SPACE8_DIM3, SPACE8_DIM2, SPACE8_DIM1};
+ hsize_t start[SPACE8_RANK]; /* Starting location of hyperslab */
+ hsize_t count[SPACE8_RANK]; /* Element count of hyperslab */
+ uint16_t *wbuf, /* buffer to write to disk */
+ *rbuf, /* buffer read from disk */
+ *tbuf; /* temporary buffer pointer */
+ int i, j, k, l; /* Counters */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing More Contiguous Hyperslabs Functionality\n"));
@@ -1374,15 +1566,16 @@ test_select_hyper_contig2(hid_t dset_type, hid_t xfer_plist)
/* Allocate write & read buffers */
wbuf = (uint16_t *)HDmalloc(sizeof(uint16_t) * SPACE8_DIM1 * SPACE8_DIM2 * SPACE8_DIM3 * SPACE8_DIM4);
CHECK_PTR(wbuf, "HDmalloc");
- rbuf = (uint16_t *)HDcalloc(sizeof(uint16_t), (size_t)(SPACE8_DIM1 * SPACE8_DIM2 * SPACE8_DIM3 * SPACE8_DIM4));
+ rbuf = (uint16_t *)HDcalloc(sizeof(uint16_t),
+ (size_t)(SPACE8_DIM1 * SPACE8_DIM2 * SPACE8_DIM3 * SPACE8_DIM4));
CHECK_PTR(rbuf, "HDcalloc");
/* Initialize write buffer */
- for(i=0, tbuf=wbuf; i<SPACE8_DIM1; i++)
- for(j=0; j<SPACE8_DIM2; j++)
- for(k=0; k<SPACE8_DIM3; k++)
- for(l=0; l<SPACE8_DIM4; l++)
- *tbuf++=(uint16_t)((i*SPACE8_DIM2)+j);
+ for (i = 0, tbuf = wbuf; i < SPACE8_DIM1; i++)
+ for (j = 0; j < SPACE8_DIM2; j++)
+ for (k = 0; k < SPACE8_DIM3; k++)
+ for (l = 0; l < SPACE8_DIM4; l++)
+ *tbuf++ = (uint16_t)((i * SPACE8_DIM2) + j);
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
@@ -1397,15 +1590,27 @@ test_select_hyper_contig2(hid_t dset_type, hid_t xfer_plist)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select contiguous hyperslab for disk dataset */
- start[0]=0; start[1]=0; start[2]=0; start[3]=0;
- count[0]=2; count[1]=SPACE8_DIM3; count[2]=SPACE8_DIM2; count[3]=SPACE8_DIM1;
- ret = H5Sselect_hyperslab(sid1,H5S_SELECT_SET,start,NULL,count,NULL);
+ start[0] = 0;
+ start[1] = 0;
+ start[2] = 0;
+ start[3] = 0;
+ count[0] = 2;
+ count[1] = SPACE8_DIM3;
+ count[2] = SPACE8_DIM2;
+ count[3] = SPACE8_DIM1;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, NULL, count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Select contiguous hyperslab in memory */
- start[0]=0; start[1]=0; start[2]=0; start[3]=0;
- count[0]=2; count[1]=SPACE8_DIM3; count[2]=SPACE8_DIM2; count[3]=SPACE8_DIM1;
- ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, NULL, count, NULL);
+ start[0] = 0;
+ start[1] = 0;
+ start[2] = 0;
+ start[3] = 0;
+ count[0] = 2;
+ count[1] = SPACE8_DIM3;
+ count[2] = SPACE8_DIM2;
+ count[3] = SPACE8_DIM1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, NULL, count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Create a dataset */
@@ -1425,23 +1630,35 @@ test_select_hyper_contig2(hid_t dset_type, hid_t xfer_plist)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select contiguous hyperslab in memory */
- start[0]=0; start[1]=0; start[2]=0; start[3]=0;
- count[0]=2; count[1]=SPACE8_DIM3; count[2]=SPACE8_DIM2; count[3]=SPACE8_DIM1;
- ret = H5Sselect_hyperslab(sid1,H5S_SELECT_SET,start,NULL,count,NULL);
+ start[0] = 0;
+ start[1] = 0;
+ start[2] = 0;
+ start[3] = 0;
+ count[0] = 2;
+ count[1] = SPACE8_DIM3;
+ count[2] = SPACE8_DIM2;
+ count[3] = SPACE8_DIM1;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, NULL, count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Select contiguous hyperslab in memory */
- start[0]=0; start[1]=0; start[2]=0; start[3]=0;
- count[0]=2; count[1]=SPACE8_DIM3; count[2]=SPACE8_DIM2; count[3]=SPACE8_DIM1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,NULL,count,NULL);
+ start[0] = 0;
+ start[1] = 0;
+ start[2] = 0;
+ start[3] = 0;
+ count[0] = 2;
+ count[1] = SPACE8_DIM3;
+ count[2] = SPACE8_DIM2;
+ count[3] = SPACE8_DIM1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, NULL, count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Read selection from disk */
- ret=H5Dread(dataset,H5T_NATIVE_USHORT,sid2,sid1,xfer_plist,rbuf);
+ ret = H5Dread(dataset, H5T_NATIVE_USHORT, sid2, sid1, xfer_plist, rbuf);
CHECK(ret, FAIL, "H5Dread");
/* Compare data read with data written out */
- if(HDmemcmp(rbuf,wbuf,sizeof(uint16_t)*2*SPACE8_DIM3*SPACE8_DIM2*SPACE8_DIM1))
+ if (HDmemcmp(rbuf, wbuf, sizeof(uint16_t) * 2 * SPACE8_DIM3 * SPACE8_DIM2 * SPACE8_DIM1))
TestErrPrintf("Error: hyperslab values don't match!\n");
/* Close memory dataspace */
@@ -1463,7 +1680,7 @@ test_select_hyper_contig2(hid_t dset_type, hid_t xfer_plist)
/* Free memory buffers */
HDfree(wbuf);
HDfree(rbuf);
-} /* test_select_hyper_contig2() */
+} /* test_select_hyper_contig2() */
/****************************************************************
**
@@ -1477,17 +1694,17 @@ test_select_hyper_contig2(hid_t dset_type, hid_t xfer_plist)
static void
test_select_hyper_contig3(hid_t dset_type, hid_t xfer_plist)
{
- hid_t fid1; /* HDF5 File IDs */
- hid_t dataset; /* Dataset ID */
- hid_t sid1,sid2; /* Dataspace ID */
- hsize_t dims2[] = {SPACE8_DIM4, SPACE8_DIM3, SPACE8_DIM2, SPACE8_DIM1};
- hsize_t start[SPACE8_RANK]; /* Starting location of hyperslab */
- hsize_t count[SPACE8_RANK]; /* Element count of hyperslab */
- uint16_t *wbuf, /* Buffer to write to disk */
- *rbuf, /* Buffer read from disk */
- *tbuf, *tbuf2; /* Temporary buffer pointers */
- unsigned i,j,k,l; /* Counters */
- herr_t ret; /* Generic return value */
+ hid_t fid1; /* HDF5 File IDs */
+ hid_t dataset; /* Dataset ID */
+ hid_t sid1, sid2; /* Dataspace ID */
+ hsize_t dims2[] = {SPACE8_DIM4, SPACE8_DIM3, SPACE8_DIM2, SPACE8_DIM1};
+ hsize_t start[SPACE8_RANK]; /* Starting location of hyperslab */
+ hsize_t count[SPACE8_RANK]; /* Element count of hyperslab */
+ uint16_t *wbuf, /* Buffer to write to disk */
+ *rbuf, /* Buffer read from disk */
+ *tbuf, *tbuf2; /* Temporary buffer pointers */
+ unsigned i, j, k, l; /* Counters */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Yet More Contiguous Hyperslabs Functionality\n"));
@@ -1495,15 +1712,16 @@ test_select_hyper_contig3(hid_t dset_type, hid_t xfer_plist)
/* Allocate write & read buffers */
wbuf = (uint16_t *)HDmalloc(sizeof(uint16_t) * SPACE8_DIM1 * SPACE8_DIM2 * SPACE8_DIM3 * SPACE8_DIM4);
CHECK_PTR(wbuf, "HDmalloc");
- rbuf = (uint16_t *)HDcalloc(sizeof(uint16_t), (size_t)(SPACE8_DIM1 * SPACE8_DIM2 * SPACE8_DIM3 * SPACE8_DIM4));
+ rbuf = (uint16_t *)HDcalloc(sizeof(uint16_t),
+ (size_t)(SPACE8_DIM1 * SPACE8_DIM2 * SPACE8_DIM3 * SPACE8_DIM4));
CHECK_PTR(rbuf, "HDcalloc");
/* Initialize write buffer */
- for(i=0, tbuf=wbuf; i<SPACE8_DIM4; i++)
- for(j=0; j<SPACE8_DIM3; j++)
- for(k=0; k<SPACE8_DIM2; k++)
- for(l=0; l<SPACE8_DIM1; l++)
- *tbuf++=(uint16_t)((k*SPACE8_DIM2)+l);
+ for (i = 0, tbuf = wbuf; i < SPACE8_DIM4; i++)
+ for (j = 0; j < SPACE8_DIM3; j++)
+ for (k = 0; k < SPACE8_DIM2; k++)
+ for (l = 0; l < SPACE8_DIM1; l++)
+ *tbuf++ = (uint16_t)((k * SPACE8_DIM2) + l);
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
@@ -1518,15 +1736,27 @@ test_select_hyper_contig3(hid_t dset_type, hid_t xfer_plist)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select semi-contiguous hyperslab for disk dataset */
- start[0] = 0; start[1] = 0; start[2] = SPACE8_DIM2/2; start[3] = 0;
- count[0] = 2; count[1] = SPACE8_DIM3; count[2] = SPACE8_DIM2 / 2; count[3] = SPACE8_DIM1;
- ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, NULL, count, NULL);
+ start[0] = 0;
+ start[1] = 0;
+ start[2] = SPACE8_DIM2 / 2;
+ start[3] = 0;
+ count[0] = 2;
+ count[1] = SPACE8_DIM3;
+ count[2] = SPACE8_DIM2 / 2;
+ count[3] = SPACE8_DIM1;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, NULL, count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Select semi-contiguous hyperslab in memory */
- start[0] = 0; start[1] = 0; start[2] = SPACE8_DIM2 / 2; start[3] = 0;
- count[0] = 2; count[1] = SPACE8_DIM3; count[2] = SPACE8_DIM2 / 2; count[3] = SPACE8_DIM1;
- ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, NULL, count, NULL);
+ start[0] = 0;
+ start[1] = 0;
+ start[2] = SPACE8_DIM2 / 2;
+ start[3] = 0;
+ count[0] = 2;
+ count[1] = SPACE8_DIM3;
+ count[2] = SPACE8_DIM2 / 2;
+ count[3] = SPACE8_DIM1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, NULL, count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Create a dataset */
@@ -1546,41 +1776,55 @@ test_select_hyper_contig3(hid_t dset_type, hid_t xfer_plist)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select semi-contiguous hyperslab in memory */
- start[0]=0; start[1]=0; start[2]=SPACE8_DIM2/2; start[3]=0;
- count[0]=2; count[1]=SPACE8_DIM3; count[2]=SPACE8_DIM2/2; count[3]=SPACE8_DIM1;
- ret = H5Sselect_hyperslab(sid1,H5S_SELECT_SET,start,NULL,count,NULL);
+ start[0] = 0;
+ start[1] = 0;
+ start[2] = SPACE8_DIM2 / 2;
+ start[3] = 0;
+ count[0] = 2;
+ count[1] = SPACE8_DIM3;
+ count[2] = SPACE8_DIM2 / 2;
+ count[3] = SPACE8_DIM1;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, NULL, count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Select semi-contiguous hyperslab in memory */
- start[0]=0; start[1]=0; start[2]=SPACE8_DIM2/2; start[3]=0;
- count[0]=2; count[1]=SPACE8_DIM3; count[2]=SPACE8_DIM2/2; count[3]=SPACE8_DIM1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,NULL,count,NULL);
+ start[0] = 0;
+ start[1] = 0;
+ start[2] = SPACE8_DIM2 / 2;
+ start[3] = 0;
+ count[0] = 2;
+ count[1] = SPACE8_DIM3;
+ count[2] = SPACE8_DIM2 / 2;
+ count[3] = SPACE8_DIM1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, NULL, count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Read selection from disk */
- ret=H5Dread(dataset,H5T_NATIVE_USHORT,sid2,sid1,xfer_plist,rbuf);
+ ret = H5Dread(dataset, H5T_NATIVE_USHORT, sid2, sid1, xfer_plist, rbuf);
CHECK(ret, FAIL, "H5Dread");
/* Compare data read with data written out */
- for(i=0, tbuf=wbuf,tbuf2=rbuf; i<SPACE8_DIM4; i++)
- for(j=0; j<SPACE8_DIM3; j++)
- for(k=0; k<SPACE8_DIM2; k++)
- for(l=0; l<SPACE8_DIM1; l++,tbuf++,tbuf2++)
- if( (i>=start[0] && i<(start[0]+count[0])) &&
- (j>=start[1] && j<(start[1]+count[1])) &&
- (k>=start[2] && k<(start[2]+count[2])) &&
- (l>=start[3] && l<(start[3]+count[3])) ) {
- if(*tbuf!=*tbuf2) {
+ for (i = 0, tbuf = wbuf, tbuf2 = rbuf; i < SPACE8_DIM4; i++)
+ for (j = 0; j < SPACE8_DIM3; j++)
+ for (k = 0; k < SPACE8_DIM2; k++)
+ for (l = 0; l < SPACE8_DIM1; l++, tbuf++, tbuf2++)
+ if ((i >= start[0] && i < (start[0] + count[0])) &&
+ (j >= start[1] && j < (start[1] + count[1])) &&
+ (k >= start[2] && k < (start[2] + count[2])) &&
+ (l >= start[3] && l < (start[3] + count[3]))) {
+ if (*tbuf != *tbuf2) {
HDprintf("Error: hyperslab values don't match!\n");
- TestErrPrintf("Line: %d, i=%u, j=%u, k=%u, l=%u, *tbuf=%u,*tbuf2=%u\n",__LINE__,i,j,k,l,(unsigned)*tbuf,(unsigned)*tbuf2);
+ TestErrPrintf("Line: %d, i=%u, j=%u, k=%u, l=%u, *tbuf=%u,*tbuf2=%u\n", __LINE__,
+ i, j, k, l, (unsigned)*tbuf, (unsigned)*tbuf2);
} /* end if */
- } /* end if */
+ } /* end if */
else {
- if(*tbuf2!=0) {
+ if (*tbuf2 != 0) {
HDprintf("Error: invalid data in read buffer!\n");
- TestErrPrintf("Line: %d, i=%u, j=%u, k=%u, l=%u, *tbuf=%u,*tbuf2=%u\n",__LINE__,i,j,k,l,(unsigned)*tbuf,(unsigned)*tbuf2);
+ TestErrPrintf("Line: %d, i=%u, j=%u, k=%u, l=%u, *tbuf=%u,*tbuf2=%u\n", __LINE__,
+ i, j, k, l, (unsigned)*tbuf, (unsigned)*tbuf2);
} /* end if */
- } /* end else */
+ } /* end else */
/* Close memory dataspace */
ret = H5Sclose(sid2);
@@ -1601,8 +1845,7 @@ test_select_hyper_contig3(hid_t dset_type, hid_t xfer_plist)
/* Free memory buffers */
HDfree(wbuf);
HDfree(rbuf);
-} /* test_select_hyper_contig3() */
-
+} /* test_select_hyper_contig3() */
/****************************************************************
**
@@ -1611,23 +1854,23 @@ test_select_hyper_contig3(hid_t dset_type, hid_t xfer_plist)
**
****************************************************************/
static void
-verify_select_hyper_contig_dr__run_test(const uint16_t *cube_buf,
- size_t H5_ATTR_NDEBUG_UNUSED cube_size, unsigned edge_size, unsigned cube_rank)
+verify_select_hyper_contig_dr__run_test(const uint16_t *cube_buf, size_t H5_ATTR_NDEBUG_UNUSED cube_size,
+ unsigned edge_size, unsigned cube_rank)
{
- const uint16_t *cube_ptr; /* Pointer into the cube buffer */
- uint16_t expected_value; /* Expected value in dataset */
- unsigned i, j, k, l, m; /* Local index variables */
- size_t s; /* Local index variable */
- hbool_t mis_match; /* Flag to indicate mis-match in expected value */
+ const uint16_t *cube_ptr; /* Pointer into the cube buffer */
+ uint16_t expected_value; /* Expected value in dataset */
+ unsigned i, j, k, l, m; /* Local index variables */
+ size_t s; /* Local index variable */
+ hbool_t mis_match; /* Flag to indicate mis-match in expected value */
HDassert(cube_buf);
HDassert(cube_size > 0);
expected_value = 0;
- mis_match = FALSE;
- cube_ptr = cube_buf;
- s = 0;
- i = 0;
+ mis_match = FALSE;
+ cube_ptr = cube_buf;
+ s = 0;
+ i = 0;
do {
j = 0;
do {
@@ -1641,7 +1884,7 @@ verify_select_hyper_contig_dr__run_test(const uint16_t *cube_buf,
HDassert(s < cube_size);
/* Check for correct value */
- if(*cube_ptr != expected_value)
+ if (*cube_ptr != expected_value)
mis_match = TRUE;
/* Advance to next element */
@@ -1649,19 +1892,18 @@ verify_select_hyper_contig_dr__run_test(const uint16_t *cube_buf,
expected_value++;
s++;
m++;
- } while((cube_rank > 0) && (m < edge_size));
+ } while ((cube_rank > 0) && (m < edge_size));
l++;
- } while((cube_rank > 1) && (l < edge_size));
+ } while ((cube_rank > 1) && (l < edge_size));
k++;
- } while((cube_rank > 2) && (k < edge_size));
+ } while ((cube_rank > 2) && (k < edge_size));
j++;
- } while((cube_rank > 3) && (j < edge_size));
+ } while ((cube_rank > 3) && (j < edge_size));
i++;
- } while((cube_rank > 4) && (i < edge_size));
- if(mis_match)
+ } while ((cube_rank > 4) && (i < edge_size));
+ if (mis_match)
TestErrPrintf("Initial cube data don't match! Line = %d\n", __LINE__);
-} /* verify_select_hyper_contig_dr__run_test() */
-
+} /* verify_select_hyper_contig_dr__run_test() */
/****************************************************************
**
@@ -1673,44 +1915,45 @@ verify_select_hyper_contig_dr__run_test(const uint16_t *cube_buf,
**
****************************************************************/
static void
-test_select_hyper_contig_dr__run_test(int test_num, const uint16_t *cube_buf,
- const uint16_t *zero_buf, unsigned edge_size, unsigned chunk_edge_size,
- unsigned small_rank, unsigned large_rank, hid_t dset_type, hid_t xfer_plist)
+test_select_hyper_contig_dr__run_test(int test_num, const uint16_t *cube_buf, const uint16_t *zero_buf,
+ unsigned edge_size, unsigned chunk_edge_size, unsigned small_rank,
+ unsigned large_rank, hid_t dset_type, hid_t xfer_plist)
{
- hbool_t mis_match; /* Flag indicating a value read in wasn't what was expected */
- hid_t fapl; /* File access property list */
- hid_t fid1; /* File ID */
- hid_t small_cube_sid; /* Dataspace ID for small cube in memory & file */
- hid_t mem_large_cube_sid; /* Dataspace ID for large cube in memory */
- hid_t file_large_cube_sid; /* Dataspace ID for large cube in file */
- hid_t small_cube_dcpl_id = H5P_DEFAULT; /* DCPL for small cube dataset */
- hid_t large_cube_dcpl_id = H5P_DEFAULT; /* DCPL for large cube dataset */
- hid_t small_cube_dataset; /* Dataset ID */
- hid_t large_cube_dataset; /* Dataset ID */
- size_t start_index; /* Offset within buffer to begin inspecting */
- size_t stop_index; /* Offset within buffer to end inspecting */
- uint16_t expected_value; /* Expected value in dataset */
- uint16_t * small_cube_buf_1; /* Buffer for small cube data */
- uint16_t * large_cube_buf_1; /* Buffer for large cube data */
- uint16_t * ptr_1; /* Temporary pointer into cube data */
- hsize_t dims[SS_DR_MAX_RANK]; /* Dataspace dimensions */
- hsize_t start[SS_DR_MAX_RANK]; /* Shared hyperslab start offset */
- hsize_t stride[SS_DR_MAX_RANK]; /* Shared hyperslab stride */
- hsize_t count[SS_DR_MAX_RANK]; /* Shared hyperslab count */
- hsize_t block[SS_DR_MAX_RANK]; /* Shared hyperslab block size */
- hsize_t * start_ptr; /* Actual hyperslab start offset */
- hsize_t * stride_ptr; /* Actual hyperslab stride */
- hsize_t * count_ptr; /* Actual hyperslab count */
- hsize_t * block_ptr; /* Actual hyperslab block size */
- size_t small_cube_size; /* Number of elements in small cube */
- size_t large_cube_size; /* Number of elements in large cube */
- unsigned u, v, w, x; /* Local index variables */
- size_t s; /* Local index variable */
- htri_t check; /* Shape comparison return value */
- herr_t ret; /* Generic return value */
+ hbool_t mis_match; /* Flag indicating a value read in wasn't what was expected */
+ hid_t fapl; /* File access property list */
+ hid_t fid1; /* File ID */
+ hid_t small_cube_sid; /* Dataspace ID for small cube in memory & file */
+ hid_t mem_large_cube_sid; /* Dataspace ID for large cube in memory */
+ hid_t file_large_cube_sid; /* Dataspace ID for large cube in file */
+ hid_t small_cube_dcpl_id = H5P_DEFAULT; /* DCPL for small cube dataset */
+ hid_t large_cube_dcpl_id = H5P_DEFAULT; /* DCPL for large cube dataset */
+ hid_t small_cube_dataset; /* Dataset ID */
+ hid_t large_cube_dataset; /* Dataset ID */
+ size_t start_index; /* Offset within buffer to begin inspecting */
+ size_t stop_index; /* Offset within buffer to end inspecting */
+ uint16_t expected_value; /* Expected value in dataset */
+ uint16_t *small_cube_buf_1; /* Buffer for small cube data */
+ uint16_t *large_cube_buf_1; /* Buffer for large cube data */
+ uint16_t *ptr_1; /* Temporary pointer into cube data */
+ hsize_t dims[SS_DR_MAX_RANK]; /* Dataspace dimensions */
+ hsize_t start[SS_DR_MAX_RANK]; /* Shared hyperslab start offset */
+ hsize_t stride[SS_DR_MAX_RANK]; /* Shared hyperslab stride */
+ hsize_t count[SS_DR_MAX_RANK]; /* Shared hyperslab count */
+ hsize_t block[SS_DR_MAX_RANK]; /* Shared hyperslab block size */
+ hsize_t * start_ptr; /* Actual hyperslab start offset */
+ hsize_t * stride_ptr; /* Actual hyperslab stride */
+ hsize_t * count_ptr; /* Actual hyperslab count */
+ hsize_t * block_ptr; /* Actual hyperslab block size */
+ size_t small_cube_size; /* Number of elements in small cube */
+ size_t large_cube_size; /* Number of elements in large cube */
+ unsigned u, v, w, x; /* Local index variables */
+ size_t s; /* Local index variable */
+ htri_t check; /* Shape comparison return value */
+ herr_t ret; /* Generic return value */
MESSAGE(7, ("\tn-cube slice through m-cube I/O test %d.\n", test_num));
- MESSAGE(7, ("\tranks = %u/%u, edge_size = %u, chunk_edge_size = %u.\n", small_rank, large_rank, edge_size, chunk_edge_size));
+ MESSAGE(7, ("\tranks = %u/%u, edge_size = %u, chunk_edge_size = %u.\n", small_rank, large_rank, edge_size,
+ chunk_edge_size));
HDassert(edge_size >= 6);
HDassert(edge_size >= chunk_edge_size);
@@ -1721,8 +1964,8 @@ test_select_hyper_contig_dr__run_test(int test_num, const uint16_t *cube_buf,
/* Compute cube sizes */
small_cube_size = large_cube_size = (size_t)1;
- for(u = 0; u < large_rank; u++) {
- if(u < small_rank)
+ for (u = 0; u < large_rank; u++) {
+ if (u < small_rank)
small_cube_size *= (size_t)edge_size;
large_cube_size *= (size_t)edge_size;
@@ -1775,11 +2018,11 @@ test_select_hyper_contig_dr__run_test(int test_num, const uint16_t *cube_buf,
* large data set creation property lists to specify chunked
* datasets.
*/
- if(chunk_edge_size > 0) {
- hsize_t chunk_dims[SS_DR_MAX_RANK]; /* Chunk dimensions */
+ if (chunk_edge_size > 0) {
+ hsize_t chunk_dims[SS_DR_MAX_RANK]; /* Chunk dimensions */
- chunk_dims[0] = chunk_dims[1] =
- chunk_dims[2] = chunk_dims[3] = chunk_dims[4] = (hsize_t)chunk_edge_size;
+ chunk_dims[0] = chunk_dims[1] = chunk_dims[2] = chunk_dims[3] = chunk_dims[4] =
+ (hsize_t)chunk_edge_size;
small_cube_dcpl_id = H5Pcreate(H5P_DATASET_CREATE);
CHECK(small_cube_dcpl_id, FAIL, "H5Pcreate");
@@ -1790,7 +2033,6 @@ test_select_hyper_contig_dr__run_test(int test_num, const uint16_t *cube_buf,
ret = H5Pset_chunk(small_cube_dcpl_id, (int)small_rank, chunk_dims);
CHECK(ret, FAIL, "H5Pset_chunk");
-
large_cube_dcpl_id = H5Pcreate(H5P_DATASET_CREATE);
CHECK(large_cube_dcpl_id, FAIL, "H5Pcreate");
@@ -1802,54 +2044,50 @@ test_select_hyper_contig_dr__run_test(int test_num, const uint16_t *cube_buf,
} /* end if */
/* create the small cube dataset */
- small_cube_dataset = H5Dcreate2(fid1, "small_cube_dataset", dset_type,
- small_cube_sid, H5P_DEFAULT, small_cube_dcpl_id, H5P_DEFAULT);
+ small_cube_dataset = H5Dcreate2(fid1, "small_cube_dataset", dset_type, small_cube_sid, H5P_DEFAULT,
+ small_cube_dcpl_id, H5P_DEFAULT);
CHECK(small_cube_dataset, FAIL, "H5Dcreate2");
/* Close non-default small dataset DCPL */
- if(small_cube_dcpl_id != H5P_DEFAULT) {
+ if (small_cube_dcpl_id != H5P_DEFAULT) {
ret = H5Pclose(small_cube_dcpl_id);
CHECK(ret, FAIL, "H5Pclose");
} /* end if */
/* create the large cube dataset */
- large_cube_dataset = H5Dcreate2(fid1, "large_cube_dataset", dset_type,
- file_large_cube_sid, H5P_DEFAULT, large_cube_dcpl_id, H5P_DEFAULT);
+ large_cube_dataset = H5Dcreate2(fid1, "large_cube_dataset", dset_type, file_large_cube_sid, H5P_DEFAULT,
+ large_cube_dcpl_id, H5P_DEFAULT);
CHECK(large_cube_dataset, FAIL, "H5Dcreate2");
/* Close non-default large dataset DCPL */
- if(large_cube_dcpl_id != H5P_DEFAULT) {
+ if (large_cube_dcpl_id != H5P_DEFAULT) {
ret = H5Pclose(large_cube_dcpl_id);
CHECK(ret, FAIL, "H5Pclose");
} /* end if */
-
/* write initial data to the on disk datasets */
- ret = H5Dwrite(small_cube_dataset, H5T_NATIVE_UINT16, small_cube_sid,
- small_cube_sid, xfer_plist, cube_buf);
+ ret =
+ H5Dwrite(small_cube_dataset, H5T_NATIVE_UINT16, small_cube_sid, small_cube_sid, xfer_plist, cube_buf);
CHECK(ret, FAIL, "H5Dwrite");
- ret = H5Dwrite(large_cube_dataset, H5T_NATIVE_UINT16, mem_large_cube_sid,
- file_large_cube_sid, xfer_plist, cube_buf);
+ ret = H5Dwrite(large_cube_dataset, H5T_NATIVE_UINT16, mem_large_cube_sid, file_large_cube_sid, xfer_plist,
+ cube_buf);
CHECK(ret, FAIL, "H5Dwrite");
/* read initial data from disk and verify that it is as expected. */
- ret = H5Dread(small_cube_dataset, H5T_NATIVE_UINT16, small_cube_sid,
- small_cube_sid, xfer_plist, small_cube_buf_1);
+ ret = H5Dread(small_cube_dataset, H5T_NATIVE_UINT16, small_cube_sid, small_cube_sid, xfer_plist,
+ small_cube_buf_1);
CHECK(ret, FAIL, "H5Dread");
/* Check that the data is valid */
- verify_select_hyper_contig_dr__run_test(small_cube_buf_1, small_cube_size,
- edge_size, small_rank);
+ verify_select_hyper_contig_dr__run_test(small_cube_buf_1, small_cube_size, edge_size, small_rank);
- ret = H5Dread(large_cube_dataset, H5T_NATIVE_UINT16, mem_large_cube_sid,
- file_large_cube_sid, xfer_plist, large_cube_buf_1);
+ ret = H5Dread(large_cube_dataset, H5T_NATIVE_UINT16, mem_large_cube_sid, file_large_cube_sid, xfer_plist,
+ large_cube_buf_1);
CHECK(ret, FAIL, "H5Dread");
/* Check that the data is valid */
- verify_select_hyper_contig_dr__run_test(large_cube_buf_1, large_cube_size,
- edge_size, large_rank);
-
+ verify_select_hyper_contig_dr__run_test(large_cube_buf_1, large_cube_size, edge_size, large_rank);
/* first, verify that we can read from disk correctly using selections
* of different rank that H5Sselect_shape_same() views as being of the
@@ -1860,15 +2098,14 @@ test_select_hyper_contig_dr__run_test(int test_num, const uint16_t *cube_buf,
* returns true on the memory and file selections.
*/
-
/* set up start, stride, count, and block -- note that we will
* change start[] so as to read slices of the large cube.
*/
- for(u = 0; u < SS_DR_MAX_RANK; u++) {
- start[u] = 0;
+ for (u = 0; u < SS_DR_MAX_RANK; u++) {
+ start[u] = 0;
stride[u] = 1;
- count[u] = 1;
- if((SS_DR_MAX_RANK - u) > small_rank)
+ count[u] = 1;
+ if ((SS_DR_MAX_RANK - u) > small_rank)
block[u] = 1;
else
block[u] = (hsize_t)edge_size;
@@ -1892,12 +2129,8 @@ test_select_hyper_contig_dr__run_test(int test_num, const uint16_t *cube_buf,
start[3] = (hsize_t)x;
start[4] = (hsize_t)0;
- ret = H5Sselect_hyperslab(file_large_cube_sid,
- H5S_SELECT_SET,
- start_ptr,
- stride_ptr,
- count_ptr,
- block_ptr);
+ ret = H5Sselect_hyperslab(file_large_cube_sid, H5S_SELECT_SET, start_ptr, stride_ptr,
+ count_ptr, block_ptr);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* verify that H5Sselect_shape_same() reports the two
@@ -1907,39 +2140,33 @@ test_select_hyper_contig_dr__run_test(int test_num, const uint16_t *cube_buf,
VERIFY(check, TRUE, "H5Sselect_shape_same");
/* Read selection from disk */
- ret = H5Dread(large_cube_dataset,
- H5T_NATIVE_UINT16,
- small_cube_sid,
- file_large_cube_sid,
- xfer_plist,
- small_cube_buf_1);
+ ret = H5Dread(large_cube_dataset, H5T_NATIVE_UINT16, small_cube_sid, file_large_cube_sid,
+ xfer_plist, small_cube_buf_1);
CHECK(ret, FAIL, "H5Dread");
/* verify that expected data is retrieved */
- mis_match = FALSE;
- ptr_1 = small_cube_buf_1;
+ mis_match = FALSE;
+ ptr_1 = small_cube_buf_1;
expected_value = (uint16_t)((u * edge_size * edge_size * edge_size * edge_size) +
- (v * edge_size * edge_size * edge_size) +
- (w * edge_size * edge_size) +
- (x * edge_size));
- for(s = 0; s < small_cube_size; s++ ) {
- if(*ptr_1 != expected_value )
+ (v * edge_size * edge_size * edge_size) +
+ (w * edge_size * edge_size) + (x * edge_size));
+ for (s = 0; s < small_cube_size; s++) {
+ if (*ptr_1 != expected_value)
mis_match = TRUE;
ptr_1++;
expected_value++;
} /* end for */
- if(mis_match)
- TestErrPrintf("small cube read from largecube has bad data! Line=%d\n",__LINE__);
+ if (mis_match)
+ TestErrPrintf("small cube read from largecube has bad data! Line=%d\n", __LINE__);
x++;
- } while((large_rank >= 2) && (small_rank <= 1) && (x < edge_size));
+ } while ((large_rank >= 2) && (small_rank <= 1) && (x < edge_size));
w++;
- } while((large_rank >= 3) && (small_rank <= 2) && (w < edge_size));
+ } while ((large_rank >= 3) && (small_rank <= 2) && (w < edge_size));
v++;
- } while((large_rank >= 4) && (small_rank <= 3) && (v < edge_size));
+ } while ((large_rank >= 4) && (small_rank <= 3) && (v < edge_size));
u++;
- } while((large_rank >= 5) && (small_rank <= 4) && (u < edge_size));
-
+ } while ((large_rank >= 5) && (small_rank <= 4) && (u < edge_size));
/* similarly, read the on disk small cube into slices through the in memory
* large cube, and verify that the correct data (and only the correct data)
@@ -1967,78 +2194,65 @@ test_select_hyper_contig_dr__run_test(int test_num, const uint16_t *cube_buf,
start[3] = (hsize_t)x;
start[4] = (hsize_t)0;
- ret = H5Sselect_hyperslab(mem_large_cube_sid,
- H5S_SELECT_SET,
- start_ptr,
- stride_ptr,
- count_ptr,
- block_ptr);
+ ret = H5Sselect_hyperslab(mem_large_cube_sid, H5S_SELECT_SET, start_ptr, stride_ptr,
+ count_ptr, block_ptr);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
-
/* verify that H5Sselect_shape_same() reports the two
* selections as having the same shape.
*/
check = H5Sselect_shape_same(small_cube_sid, mem_large_cube_sid);
VERIFY(check, TRUE, "H5Sselect_shape_same");
-
/* Read selection from disk */
- ret = H5Dread(small_cube_dataset,
- H5T_NATIVE_UINT16,
- mem_large_cube_sid,
- small_cube_sid,
- xfer_plist,
- large_cube_buf_1);
+ ret = H5Dread(small_cube_dataset, H5T_NATIVE_UINT16, mem_large_cube_sid, small_cube_sid,
+ xfer_plist, large_cube_buf_1);
CHECK(ret, FAIL, "H5Dread");
-
/* verify that the expected data and only the
* expected data was read.
*/
start_index = (u * edge_size * edge_size * edge_size * edge_size) +
- (v * edge_size * edge_size * edge_size) +
- (w * edge_size * edge_size) +
+ (v * edge_size * edge_size * edge_size) + (w * edge_size * edge_size) +
(x * edge_size);
stop_index = start_index + small_cube_size - 1;
HDassert(start_index < stop_index);
HDassert(stop_index <= large_cube_size);
- mis_match = FALSE;
- ptr_1 = large_cube_buf_1;
+ mis_match = FALSE;
+ ptr_1 = large_cube_buf_1;
expected_value = 0;
- for(s = 0; s < start_index; s++) {
- if(*ptr_1 != 0)
+ for (s = 0; s < start_index; s++) {
+ if (*ptr_1 != 0)
mis_match = TRUE;
ptr_1++;
} /* end for */
- for(; s <= stop_index; s++) {
- if(*ptr_1 != expected_value)
+ for (; s <= stop_index; s++) {
+ if (*ptr_1 != expected_value)
mis_match = TRUE;
expected_value++;
ptr_1++;
} /* end for */
- for(; s < large_cube_size; s++) {
- if(*ptr_1 != 0)
+ for (; s < large_cube_size; s++) {
+ if (*ptr_1 != 0)
mis_match = TRUE;
ptr_1++;
} /* end for */
- if(mis_match)
+ if (mis_match)
TestErrPrintf("large cube read from small cube has bad data! Line=%u\n", __LINE__);
/* Zero out the buffer for the next pass */
HDmemset(large_cube_buf_1 + start_index, 0, small_cube_size * sizeof(uint16_t));
x++;
- } while((large_rank >= 2) && (small_rank <= 1) && (x < edge_size));
+ } while ((large_rank >= 2) && (small_rank <= 1) && (x < edge_size));
w++;
- } while((large_rank >= 3) && (small_rank <= 2) && (w < edge_size));
+ } while ((large_rank >= 3) && (small_rank <= 2) && (w < edge_size));
v++;
- } while((large_rank >= 4) && (small_rank <= 3) && (v < edge_size));
+ } while ((large_rank >= 4) && (small_rank <= 3) && (v < edge_size));
u++;
- } while((large_rank >= 5) && (small_rank <= 4) && (u < edge_size));
-
+ } while ((large_rank >= 5) && (small_rank <= 4) && (u < edge_size));
/* now we go in the opposite direction, verifying that we can write
* from memory to file using selections of different rank that
@@ -2065,12 +2279,8 @@ test_select_hyper_contig_dr__run_test(int test_num, const uint16_t *cube_buf,
*/
/* zero out the on disk small cube */
- ret = H5Dwrite(small_cube_dataset,
- H5T_NATIVE_UINT16,
- small_cube_sid,
- small_cube_sid,
- xfer_plist,
- zero_buf);
+ ret = H5Dwrite(small_cube_dataset, H5T_NATIVE_UINT16, small_cube_sid, small_cube_sid,
+ xfer_plist, zero_buf);
CHECK(ret, FAIL, "H5Dwrite");
/* select the portion of the in memory large cube from which we
@@ -2082,15 +2292,10 @@ test_select_hyper_contig_dr__run_test(int test_num, const uint16_t *cube_buf,
start[3] = (hsize_t)x;
start[4] = (hsize_t)0;
- ret = H5Sselect_hyperslab(mem_large_cube_sid,
- H5S_SELECT_SET,
- start_ptr,
- stride_ptr,
- count_ptr,
- block_ptr);
+ ret = H5Sselect_hyperslab(mem_large_cube_sid, H5S_SELECT_SET, start_ptr, stride_ptr,
+ count_ptr, block_ptr);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
-
/* verify that H5Sselect_shape_same() reports the in
* memory slice through the cube selection and the
* on disk full small cube selections as having the same shape.
@@ -2098,52 +2303,39 @@ test_select_hyper_contig_dr__run_test(int test_num, const uint16_t *cube_buf,
check = H5Sselect_shape_same(small_cube_sid, mem_large_cube_sid);
VERIFY(check, TRUE, "H5Sselect_shape_same");
-
- /* write the slice from the in memory large cube to the on disk small cube */
- ret = H5Dwrite(small_cube_dataset,
- H5T_NATIVE_UINT16,
- mem_large_cube_sid,
- small_cube_sid,
- xfer_plist,
- cube_buf);
+ /* write the slice from the in memory large cube to the on disk small cube */
+ ret = H5Dwrite(small_cube_dataset, H5T_NATIVE_UINT16, mem_large_cube_sid, small_cube_sid,
+ xfer_plist, cube_buf);
CHECK(ret, FAIL, "H5Dwrite");
-
/* read the on disk small cube into memory */
- ret = H5Dread(small_cube_dataset,
- H5T_NATIVE_UINT16,
- small_cube_sid,
- small_cube_sid,
- xfer_plist,
- small_cube_buf_1);
+ ret = H5Dread(small_cube_dataset, H5T_NATIVE_UINT16, small_cube_sid, small_cube_sid,
+ xfer_plist, small_cube_buf_1);
CHECK(ret, FAIL, "H5Dread");
-
/* verify that expected data is retrieved */
- mis_match = FALSE;
- ptr_1 = small_cube_buf_1;
+ mis_match = FALSE;
+ ptr_1 = small_cube_buf_1;
expected_value = (uint16_t)((u * edge_size * edge_size * edge_size * edge_size) +
- (v * edge_size * edge_size * edge_size) +
- (w * edge_size * edge_size) +
- (x * edge_size));
- for(s = 0; s < small_cube_size; s++) {
- if(*ptr_1 != expected_value)
+ (v * edge_size * edge_size * edge_size) +
+ (w * edge_size * edge_size) + (x * edge_size));
+ for (s = 0; s < small_cube_size; s++) {
+ if (*ptr_1 != expected_value)
mis_match = TRUE;
expected_value++;
ptr_1++;
} /* end for */
- if(mis_match )
- TestErrPrintf("small cube data don't match! Line=%d\n",__LINE__);
+ if (mis_match)
+ TestErrPrintf("small cube data don't match! Line=%d\n", __LINE__);
x++;
- } while((large_rank >= 2) && (small_rank <= 1) && (x < edge_size));
+ } while ((large_rank >= 2) && (small_rank <= 1) && (x < edge_size));
w++;
- } while((large_rank >= 3) && (small_rank <= 2) && (w < edge_size));
+ } while ((large_rank >= 3) && (small_rank <= 2) && (w < edge_size));
v++;
- } while((large_rank >= 4) && (small_rank <= 3) && (v < edge_size));
+ } while ((large_rank >= 4) && (small_rank <= 3) && (v < edge_size));
u++;
- } while((large_rank >= 5) && (small_rank <= 4) && (u < edge_size));
-
+ } while ((large_rank >= 5) && (small_rank <= 4) && (u < edge_size));
/* Now write the contents of the in memory small cube to slices of
* the on disk cube. After each write, read the on disk cube
@@ -2173,15 +2365,10 @@ test_select_hyper_contig_dr__run_test(int test_num, const uint16_t *cube_buf,
*/
/* zero out the on disk cube */
- ret = H5Dwrite(large_cube_dataset,
- H5T_NATIVE_USHORT,
- mem_large_cube_sid,
- file_large_cube_sid,
- xfer_plist,
- zero_buf);
+ ret = H5Dwrite(large_cube_dataset, H5T_NATIVE_USHORT, mem_large_cube_sid,
+ file_large_cube_sid, xfer_plist, zero_buf);
CHECK(ret, FAIL, "H5Dwrite");
-
/* select the portion of the in memory large cube to which we
* are going to write data.
*/
@@ -2191,15 +2378,10 @@ test_select_hyper_contig_dr__run_test(int test_num, const uint16_t *cube_buf,
start[3] = (hsize_t)x;
start[4] = (hsize_t)0;
- ret = H5Sselect_hyperslab(file_large_cube_sid,
- H5S_SELECT_SET,
- start_ptr,
- stride_ptr,
- count_ptr,
- block_ptr);
+ ret = H5Sselect_hyperslab(file_large_cube_sid, H5S_SELECT_SET, start_ptr, stride_ptr,
+ count_ptr, block_ptr);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
-
/* verify that H5Sselect_shape_same() reports the in
* memory full selection of the small cube and the
* on disk slice through the large cube selection
@@ -2208,72 +2390,60 @@ test_select_hyper_contig_dr__run_test(int test_num, const uint16_t *cube_buf,
check = H5Sselect_shape_same(small_cube_sid, file_large_cube_sid);
VERIFY(check, TRUE, "H5Sselect_shape_same");
-
- /* write the cube from memory to the target slice of the disk cube */
- ret = H5Dwrite(large_cube_dataset,
- H5T_NATIVE_UINT16,
- small_cube_sid,
- file_large_cube_sid,
- xfer_plist,
- cube_buf);
+ /* write the cube from memory to the target slice of the disk cube */
+ ret = H5Dwrite(large_cube_dataset, H5T_NATIVE_UINT16, small_cube_sid, file_large_cube_sid,
+ xfer_plist, cube_buf);
CHECK(ret, FAIL, "H5Dwrite");
-
/* read the on disk cube into memory */
ret = H5Sselect_all(file_large_cube_sid);
CHECK(ret, FAIL, "H5Sselect_all");
- ret = H5Dread(large_cube_dataset,
- H5T_NATIVE_UINT16,
- mem_large_cube_sid,
- file_large_cube_sid,
- xfer_plist,
- large_cube_buf_1);
+ ret = H5Dread(large_cube_dataset, H5T_NATIVE_UINT16, mem_large_cube_sid,
+ file_large_cube_sid, xfer_plist, large_cube_buf_1);
CHECK(ret, FAIL, "H5Dread");
-
/* verify that the expected data and only the
* expected data was read.
*/
start_index = (u * edge_size * edge_size * edge_size * edge_size) +
- (v * edge_size * edge_size * edge_size) +
- (w * edge_size * edge_size) +
+ (v * edge_size * edge_size * edge_size) + (w * edge_size * edge_size) +
(x * edge_size);
stop_index = start_index + small_cube_size - 1;
HDassert(start_index < stop_index);
HDassert(stop_index <= large_cube_size);
- mis_match = FALSE;
- ptr_1 = large_cube_buf_1;
+ mis_match = FALSE;
+ ptr_1 = large_cube_buf_1;
expected_value = 0;
- for(s = 0; s < start_index; s++) {
- if(*ptr_1 != 0)
+ for (s = 0; s < start_index; s++) {
+ if (*ptr_1 != 0)
mis_match = TRUE;
ptr_1++;
} /* end for */
- for(; s <= stop_index; s++) {
- if(*ptr_1 != expected_value)
+ for (; s <= stop_index; s++) {
+ if (*ptr_1 != expected_value)
mis_match = TRUE;
expected_value++;
ptr_1++;
} /* end for */
- for(; s < large_cube_size; s++) {
- if(*ptr_1 != 0)
+ for (; s < large_cube_size; s++) {
+ if (*ptr_1 != 0)
mis_match = TRUE;
ptr_1++;
} /* end for */
- if(mis_match)
+ if (mis_match)
TestErrPrintf("large cube written from small cube has bad data! Line=%d\n", __LINE__);
x++;
- } while((large_rank >= 2) && (small_rank <= 1) && (x < edge_size));
+ } while ((large_rank >= 2) && (small_rank <= 1) && (x < edge_size));
w++;
- } while((large_rank >= 3) && (small_rank <= 2) && (w < edge_size));
+ } while ((large_rank >= 3) && (small_rank <= 2) && (w < edge_size));
v++;
- } while((large_rank >= 4) && (small_rank <= 3) && (v < edge_size));
+ } while ((large_rank >= 4) && (small_rank <= 3) && (v < edge_size));
u++;
- } while((large_rank >= 5) && (small_rank <= 4) && (u < edge_size));
+ } while ((large_rank >= 5) && (small_rank <= 4) && (u < edge_size));
/* Close memory dataspaces */
ret = H5Sclose(small_cube_sid);
@@ -2282,12 +2452,10 @@ test_select_hyper_contig_dr__run_test(int test_num, const uint16_t *cube_buf,
ret = H5Sclose(mem_large_cube_sid);
CHECK(ret, FAIL, "H5Sclose");
-
/* Close disk dataspace */
ret = H5Sclose(file_large_cube_sid);
CHECK(ret, FAIL, "H5Sclose");
-
/* Close Datasets */
ret = H5Dclose(small_cube_dataset);
CHECK(ret, FAIL, "H5Dclose");
@@ -2303,8 +2471,7 @@ test_select_hyper_contig_dr__run_test(int test_num, const uint16_t *cube_buf,
HDfree(small_cube_buf_1);
HDfree(large_cube_buf_1);
-} /* test_select_hyper_contig_dr__run_test() */
-
+} /* test_select_hyper_contig_dr__run_test() */
/****************************************************************
**
@@ -2318,25 +2485,25 @@ test_select_hyper_contig_dr__run_test(int test_num, const uint16_t *cube_buf,
static void
test_select_hyper_contig_dr(hid_t dset_type, hid_t xfer_plist)
{
- int test_num = 0;
- unsigned chunk_edge_size; /* Size of chunk's dataspace dimensions */
- unsigned edge_size = 6; /* Size of dataset's dataspace dimensions */
- unsigned small_rank; /* Current rank of small dataset */
- unsigned large_rank; /* Current rank of large dataset */
- uint16_t *cube_buf; /* Buffer for writing cube data */
- uint16_t *zero_buf; /* Buffer for writing zeroed cube data */
- uint16_t *cube_ptr; /* Temporary pointer into cube data */
- unsigned max_rank = 5; /* Max. rank to use */
- size_t max_cube_size; /* Max. number of elements in largest cube */
- size_t s; /* Local index variable */
- unsigned u; /* Local index variable */
+ int test_num = 0;
+ unsigned chunk_edge_size; /* Size of chunk's dataspace dimensions */
+ unsigned edge_size = 6; /* Size of dataset's dataspace dimensions */
+ unsigned small_rank; /* Current rank of small dataset */
+ unsigned large_rank; /* Current rank of large dataset */
+ uint16_t *cube_buf; /* Buffer for writing cube data */
+ uint16_t *zero_buf; /* Buffer for writing zeroed cube data */
+ uint16_t *cube_ptr; /* Temporary pointer into cube data */
+ unsigned max_rank = 5; /* Max. rank to use */
+ size_t max_cube_size; /* Max. number of elements in largest cube */
+ size_t s; /* Local index variable */
+ unsigned u; /* Local index variable */
/* Output message about test being performed */
MESSAGE(5, ("Testing Contiguous Hyperslabs With Different Rank I/O Functionality\n"));
/* Compute max. cube size */
max_cube_size = (size_t)1;
- for(u = 0; u < max_rank; u++)
+ for (u = 0; u < max_rank; u++)
max_cube_size *= (size_t)edge_size;
/* Allocate cube buffer for writing values */
@@ -2345,34 +2512,31 @@ test_select_hyper_contig_dr(hid_t dset_type, hid_t xfer_plist)
/* Initialize the cube buffer */
cube_ptr = cube_buf;
- for(s = 0; s < max_cube_size; s++)
+ for (s = 0; s < max_cube_size; s++)
*cube_ptr++ = (uint16_t)s;
/* Allocate cube buffer for zeroing values on disk */
zero_buf = (uint16_t *)HDcalloc(sizeof(uint16_t), max_cube_size);
CHECK_PTR(zero_buf, "HDcalloc");
- for(large_rank = 1; large_rank <= max_rank; large_rank++) {
- for(small_rank = 1; small_rank < large_rank; small_rank++) {
+ for (large_rank = 1; large_rank <= max_rank; large_rank++) {
+ for (small_rank = 1; small_rank < large_rank; small_rank++) {
chunk_edge_size = 0;
- test_select_hyper_contig_dr__run_test(test_num, cube_buf, zero_buf,
- edge_size, chunk_edge_size, small_rank, large_rank,
- dset_type, xfer_plist);
+ test_select_hyper_contig_dr__run_test(test_num, cube_buf, zero_buf, edge_size, chunk_edge_size,
+ small_rank, large_rank, dset_type, xfer_plist);
test_num++;
chunk_edge_size = 3;
- test_select_hyper_contig_dr__run_test(test_num, cube_buf, zero_buf,
- edge_size, chunk_edge_size, small_rank, large_rank,
- dset_type, xfer_plist);
+ test_select_hyper_contig_dr__run_test(test_num, cube_buf, zero_buf, edge_size, chunk_edge_size,
+ small_rank, large_rank, dset_type, xfer_plist);
test_num++;
} /* for loop on small rank */
- } /* for loop on large rank */
+ } /* for loop on large rank */
HDfree(cube_buf);
HDfree(zero_buf);
-} /* test_select_hyper_contig_dr() */
-
+} /* test_select_hyper_contig_dr() */
/****************************************************************
**
@@ -2395,22 +2559,22 @@ test_select_hyper_contig_dr(hid_t dset_type, hid_t xfer_plist)
**
****************************************************************/
static void
-test_select_hyper_checker_board_dr__select_checker_board(hid_t tgt_n_cube_sid,
- unsigned tgt_n_cube_rank, unsigned edge_size, unsigned checker_edge_size,
- unsigned sel_rank, hsize_t sel_start[])
+test_select_hyper_checker_board_dr__select_checker_board(hid_t tgt_n_cube_sid, unsigned tgt_n_cube_rank,
+ unsigned edge_size, unsigned checker_edge_size,
+ unsigned sel_rank, hsize_t sel_start[])
{
- hbool_t first_selection = TRUE;
- unsigned n_cube_offset;
- unsigned sel_offset;
- hsize_t base_count;
- hsize_t offset_count;
- hsize_t start[SS_DR_MAX_RANK]; /* Offset of hyperslab selection */
- hsize_t stride[SS_DR_MAX_RANK]; /* Stride of hyperslab selection */
- hsize_t count[SS_DR_MAX_RANK]; /* Count of hyperslab selection */
- hsize_t block[SS_DR_MAX_RANK]; /* Block size of hyperslab selection */
- unsigned i, j, k, l, m; /* Local index variable */
- unsigned u; /* Local index variables */
- herr_t ret; /* Generic return value */
+ hbool_t first_selection = TRUE;
+ unsigned n_cube_offset;
+ unsigned sel_offset;
+ hsize_t base_count;
+ hsize_t offset_count;
+ hsize_t start[SS_DR_MAX_RANK]; /* Offset of hyperslab selection */
+ hsize_t stride[SS_DR_MAX_RANK]; /* Stride of hyperslab selection */
+ hsize_t count[SS_DR_MAX_RANK]; /* Count of hyperslab selection */
+ hsize_t block[SS_DR_MAX_RANK]; /* Block size of hyperslab selection */
+ unsigned i, j, k, l, m; /* Local index variable */
+ unsigned u; /* Local index variables */
+ herr_t ret; /* Generic return value */
HDassert(edge_size >= 6);
HDassert(0 < checker_edge_size);
@@ -2419,7 +2583,7 @@ test_select_hyper_checker_board_dr__select_checker_board(hid_t tgt_n_cube_sid,
HDassert(sel_rank <= tgt_n_cube_rank);
HDassert(tgt_n_cube_rank <= SS_DR_MAX_RANK);
- sel_offset = SS_DR_MAX_RANK - sel_rank;
+ sel_offset = SS_DR_MAX_RANK - sel_rank;
n_cube_offset = SS_DR_MAX_RANK - tgt_n_cube_rank;
HDassert(n_cube_offset <= sel_offset);
@@ -2429,11 +2593,11 @@ test_select_hyper_checker_board_dr__select_checker_board(hid_t tgt_n_cube_sid,
* offset).
*/
base_count = edge_size / (checker_edge_size * 2);
- if((edge_size % (checker_edge_size * 2)) > 0)
+ if ((edge_size % (checker_edge_size * 2)) > 0)
base_count++;
offset_count = (edge_size - checker_edge_size) / (checker_edge_size * 2);
- if(((edge_size - checker_edge_size) % (checker_edge_size * 2)) > 0)
+ if (((edge_size - checker_edge_size) % (checker_edge_size * 2)) > 0)
offset_count++;
/* Now set up the stride and block arrays, and portions of the start
@@ -2441,36 +2605,36 @@ test_select_hyper_checker_board_dr__select_checker_board(hid_t tgt_n_cube_sid,
* the checker board.
*/
u = 0;
- while(u < n_cube_offset) {
+ while (u < n_cube_offset) {
/* these values should never be used */
- start[u] = 0;
+ start[u] = 0;
stride[u] = 0;
- count[u] = 0;
- block[u] = 0;
+ count[u] = 0;
+ block[u] = 0;
u++;
} /* end while */
- while(u < sel_offset) {
- start[u] = sel_start[u];
+ while (u < sel_offset) {
+ start[u] = sel_start[u];
stride[u] = 2 * edge_size;
- count[u] = 1;
- block[u] = 1;
+ count[u] = 1;
+ block[u] = 1;
u++;
} /* end while */
- while(u < SS_DR_MAX_RANK) {
+ while (u < SS_DR_MAX_RANK) {
stride[u] = 2 * checker_edge_size;
- block[u] = checker_edge_size;
+ block[u] = checker_edge_size;
u++;
} /* end while */
i = 0;
do {
- if(0 >= sel_offset) {
- if(i == 0) {
+ if (0 >= sel_offset) {
+ if (i == 0) {
start[0] = 0;
count[0] = base_count;
} /* end if */
@@ -2478,12 +2642,12 @@ test_select_hyper_checker_board_dr__select_checker_board(hid_t tgt_n_cube_sid,
start[0] = checker_edge_size;
count[0] = offset_count;
} /* end else */
- } /* end if */
+ } /* end if */
j = 0;
do {
- if(1 >= sel_offset) {
- if(j == 0 ) {
+ if (1 >= sel_offset) {
+ if (j == 0) {
start[1] = 0;
count[1] = base_count;
} /* end if */
@@ -2491,12 +2655,12 @@ test_select_hyper_checker_board_dr__select_checker_board(hid_t tgt_n_cube_sid,
start[1] = checker_edge_size;
count[1] = offset_count;
} /* end else */
- } /* end if */
+ } /* end if */
k = 0;
do {
- if(2 >= sel_offset) {
- if(k == 0) {
+ if (2 >= sel_offset) {
+ if (k == 0) {
start[2] = 0;
count[2] = base_count;
} /* end if */
@@ -2504,12 +2668,12 @@ test_select_hyper_checker_board_dr__select_checker_board(hid_t tgt_n_cube_sid,
start[2] = checker_edge_size;
count[2] = offset_count;
} /* end else */
- } /* end if */
+ } /* end if */
l = 0;
do {
- if(3 >= sel_offset) {
- if(l == 0) {
+ if (3 >= sel_offset) {
+ if (l == 0) {
start[3] = 0;
count[3] = base_count;
} /* end if */
@@ -2517,12 +2681,12 @@ test_select_hyper_checker_board_dr__select_checker_board(hid_t tgt_n_cube_sid,
start[3] = checker_edge_size;
count[3] = offset_count;
} /* end else */
- } /* end if */
+ } /* end if */
m = 0;
do {
- if(4 >= sel_offset) {
- if(m == 0) {
+ if (4 >= sel_offset) {
+ if (m == 0) {
start[4] = 0;
count[4] = base_count;
} /* end if */
@@ -2530,41 +2694,35 @@ test_select_hyper_checker_board_dr__select_checker_board(hid_t tgt_n_cube_sid,
start[4] = checker_edge_size;
count[4] = offset_count;
} /* end else */
- } /* end if */
+ } /* end if */
- if(((i + j + k + l + m) % 2) == 0) {
- if(first_selection) {
+ if (((i + j + k + l + m) % 2) == 0) {
+ if (first_selection) {
first_selection = FALSE;
- ret = H5Sselect_hyperslab(tgt_n_cube_sid,
- H5S_SELECT_SET,
- &(start[n_cube_offset]),
- &(stride[n_cube_offset]),
- &(count[n_cube_offset]),
- &(block[n_cube_offset]));
+ ret = H5Sselect_hyperslab(tgt_n_cube_sid, H5S_SELECT_SET,
+ &(start[n_cube_offset]), &(stride[n_cube_offset]),
+ &(count[n_cube_offset]), &(block[n_cube_offset]));
CHECK(ret, FAIL, "H5Sselect_hyperslab");
} /* end if */
else {
- ret = H5Sselect_hyperslab(tgt_n_cube_sid,
- H5S_SELECT_OR,
- &(start[n_cube_offset]),
- &(stride[n_cube_offset]),
- &(count[n_cube_offset]),
- &(block[n_cube_offset]));
+ ret = H5Sselect_hyperslab(tgt_n_cube_sid, H5S_SELECT_OR,
+ &(start[n_cube_offset]), &(stride[n_cube_offset]),
+ &(count[n_cube_offset]), &(block[n_cube_offset]));
CHECK(ret, FAIL, "H5Sselect_hyperslab");
} /* end else */
- } /* end if */
+ } /* end if */
m++;
- } while((m <= 1) && (4 >= sel_offset));
+ } while ((m <= 1) && (4 >= sel_offset));
l++;
- } while((l <= 1) && (3 >= sel_offset));
+ } while ((l <= 1) && (3 >= sel_offset));
k++;
- } while((k <= 1) && (2 >= sel_offset));
+ } while ((k <= 1) && (2 >= sel_offset));
j++;
- } while((j <= 1) && (1 >= sel_offset));
+ } while ((j <= 1) && (1 >= sel_offset));
i++;
- } while((i <= 1) && (0 >= sel_offset));
+ } while ((i <= 1) && (0 >= sel_offset));
/* Wierdness alert:
*
@@ -2573,7 +2731,7 @@ test_select_hyper_checker_board_dr__select_checker_board(hid_t tgt_n_cube_sid,
* code to manually clip the selection back to the dataspace
* proper.
*/
- for(u = 0; u < SS_DR_MAX_RANK; u++) {
+ for (u = 0; u < SS_DR_MAX_RANK; u++) {
start[u] = 0;
stride[u] = edge_size;
count[u] = 1;
@@ -2584,7 +2742,6 @@ test_select_hyper_checker_board_dr__select_checker_board(hid_t tgt_n_cube_sid,
CHECK(ret, FAIL, "H5Sselect_hyperslab");
} /* test_select_hyper_checker_board_dr__select_checker_board() */
-
/****************************************************************
**
** test_select_hyper_checker_board_dr__verify_data():
@@ -2628,18 +2785,18 @@ test_select_hyper_checker_board_dr__select_checker_board(hid_t tgt_n_cube_sid,
**
****************************************************************/
H5_ATTR_PURE static hbool_t
-test_select_hyper_checker_board_dr__verify_data(uint16_t * buf_ptr,
- unsigned rank, unsigned edge_size, unsigned checker_edge_size,
- uint16_t first_expected_val, hbool_t buf_starts_in_checker)
+test_select_hyper_checker_board_dr__verify_data(uint16_t *buf_ptr, unsigned rank, unsigned edge_size,
+ unsigned checker_edge_size, uint16_t first_expected_val,
+ hbool_t buf_starts_in_checker)
{
- hbool_t good_data = TRUE;
- hbool_t in_checker;
- hbool_t start_in_checker[5];
- uint16_t expected_value;
- uint16_t * val_ptr;
- unsigned i, j, k, l, m; /* to track position in n-cube */
- unsigned v, w, x, y, z; /* to track position in checker */
- const unsigned test_max_rank = 5; /* code changes needed if this is increased */
+ hbool_t good_data = TRUE;
+ hbool_t in_checker;
+ hbool_t start_in_checker[5];
+ uint16_t expected_value;
+ uint16_t * val_ptr;
+ unsigned i, j, k, l, m; /* to track position in n-cube */
+ unsigned v, w, x, y, z; /* to track position in checker */
+ const unsigned test_max_rank = 5; /* code changes needed if this is increased */
HDassert(buf_ptr != NULL);
HDassert(0 < rank);
@@ -2649,60 +2806,60 @@ test_select_hyper_checker_board_dr__verify_data(uint16_t * buf_ptr,
HDassert(checker_edge_size <= edge_size);
HDassert(test_max_rank <= SS_DR_MAX_RANK);
- val_ptr = buf_ptr;
+ val_ptr = buf_ptr;
expected_value = first_expected_val;
- i = 0;
- v = 0;
+ i = 0;
+ v = 0;
start_in_checker[0] = buf_starts_in_checker;
do {
- if(v >= checker_edge_size) {
+ if (v >= checker_edge_size) {
start_in_checker[0] = !start_in_checker[0];
- v = 0;
+ v = 0;
} /* end if */
- j = 0;
- w = 0;
+ j = 0;
+ w = 0;
start_in_checker[1] = start_in_checker[0];
do {
- if(w >= checker_edge_size) {
+ if (w >= checker_edge_size) {
start_in_checker[1] = !start_in_checker[1];
- w = 0;
+ w = 0;
} /* end if */
- k = 0;
- x = 0;
+ k = 0;
+ x = 0;
start_in_checker[2] = start_in_checker[1];
do {
- if(x >= checker_edge_size) {
+ if (x >= checker_edge_size) {
start_in_checker[2] = !start_in_checker[2];
- x = 0;
+ x = 0;
} /* end if */
- l = 0;
- y = 0;
+ l = 0;
+ y = 0;
start_in_checker[3] = start_in_checker[2];
do {
- if(y >= checker_edge_size) {
- start_in_checker[3] = ! start_in_checker[3];
- y = 0;
+ if (y >= checker_edge_size) {
+ start_in_checker[3] = !start_in_checker[3];
+ y = 0;
} /* end if */
- m = 0;
- z = 0;
+ m = 0;
+ z = 0;
in_checker = start_in_checker[3];
do {
- if(z >= checker_edge_size) {
- in_checker = ! in_checker;
- z = 0;
+ if (z >= checker_edge_size) {
+ in_checker = !in_checker;
+ z = 0;
} /* end if */
- if(in_checker) {
- if(*val_ptr != expected_value)
+ if (in_checker) {
+ if (*val_ptr != expected_value)
good_data = FALSE;
} /* end if */
else {
- if(*val_ptr != 0)
+ if (*val_ptr != 0)
good_data = FALSE;
} /* end else */
@@ -2711,24 +2868,23 @@ test_select_hyper_checker_board_dr__verify_data(uint16_t * buf_ptr,
m++;
z++;
- } while((rank >= (test_max_rank - 4)) && (m < edge_size));
+ } while ((rank >= (test_max_rank - 4)) && (m < edge_size));
l++;
y++;
- } while((rank >= (test_max_rank - 3)) && (l < edge_size));
+ } while ((rank >= (test_max_rank - 3)) && (l < edge_size));
k++;
x++;
- } while((rank >= (test_max_rank - 2)) && (k < edge_size));
+ } while ((rank >= (test_max_rank - 2)) && (k < edge_size));
j++;
w++;
- } while((rank >= (test_max_rank - 1)) && (j < edge_size));
+ } while ((rank >= (test_max_rank - 1)) && (j < edge_size));
i++;
v++;
- } while((rank >= test_max_rank) && (i < edge_size));
+ } while ((rank >= test_max_rank) && (i < edge_size));
- return(good_data);
+ return (good_data);
} /* test_select_hyper_checker_board_dr__verify_data() */
-
/****************************************************************
**
** test_select_hyper_checker_board_dr__run_test(): Test H5S
@@ -2739,44 +2895,45 @@ test_select_hyper_checker_board_dr__verify_data(uint16_t * buf_ptr,
**
****************************************************************/
static void
-test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_buf,
- const uint16_t *zero_buf, unsigned edge_size, unsigned checker_edge_size,
- unsigned chunk_edge_size, unsigned small_rank, unsigned large_rank,
- hid_t dset_type, hid_t xfer_plist)
+test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_buf, const uint16_t *zero_buf,
+ unsigned edge_size, unsigned checker_edge_size,
+ unsigned chunk_edge_size, unsigned small_rank,
+ unsigned large_rank, hid_t dset_type, hid_t xfer_plist)
{
hbool_t data_ok;
- hid_t fapl; /* File access property list */
- hid_t fid; /* HDF5 File IDs */
- hid_t full_small_cube_sid; /* Dataspace for small cube w/all selection */
- hid_t mem_small_cube_sid;
- hid_t file_small_cube_sid;
- hid_t full_large_cube_sid; /* Dataspace for large cube w/all selection */
- hid_t mem_large_cube_sid;
- hid_t file_large_cube_sid;
- hid_t small_cube_dcpl_id = H5P_DEFAULT; /* DCPL for small cube dataset */
- hid_t large_cube_dcpl_id = H5P_DEFAULT; /* DCPL for large cube dataset */
- hid_t small_cube_dataset; /* Dataset ID */
- hid_t large_cube_dataset; /* Dataset ID */
- unsigned small_rank_offset; /* Rank offset of slice */
- const unsigned test_max_rank = 5; /* must update code if this changes */
- size_t start_index; /* Offset within buffer to begin inspecting */
- size_t stop_index; /* Offset within buffer to end inspecting */
- uint16_t expected_value;
- uint16_t * small_cube_buf_1;
- uint16_t * large_cube_buf_1;
- uint16_t * ptr_1;
- size_t small_cube_size; /* Number of elements in small cube */
- size_t large_cube_size; /* Number of elements in large cube */
+ hid_t fapl; /* File access property list */
+ hid_t fid; /* HDF5 File IDs */
+ hid_t full_small_cube_sid; /* Dataspace for small cube w/all selection */
+ hid_t mem_small_cube_sid;
+ hid_t file_small_cube_sid;
+ hid_t full_large_cube_sid; /* Dataspace for large cube w/all selection */
+ hid_t mem_large_cube_sid;
+ hid_t file_large_cube_sid;
+ hid_t small_cube_dcpl_id = H5P_DEFAULT; /* DCPL for small cube dataset */
+ hid_t large_cube_dcpl_id = H5P_DEFAULT; /* DCPL for large cube dataset */
+ hid_t small_cube_dataset; /* Dataset ID */
+ hid_t large_cube_dataset; /* Dataset ID */
+ unsigned small_rank_offset; /* Rank offset of slice */
+ const unsigned test_max_rank = 5; /* must update code if this changes */
+ size_t start_index; /* Offset within buffer to begin inspecting */
+ size_t stop_index; /* Offset within buffer to end inspecting */
+ uint16_t expected_value;
+ uint16_t * small_cube_buf_1;
+ uint16_t * large_cube_buf_1;
+ uint16_t * ptr_1;
+ size_t small_cube_size; /* Number of elements in small cube */
+ size_t large_cube_size; /* Number of elements in large cube */
hsize_t dims[SS_DR_MAX_RANK];
hsize_t chunk_dims[SS_DR_MAX_RANK];
- hsize_t sel_start[SS_DR_MAX_RANK];
- unsigned u, v, w, x; /* Local index variables */
- size_t s; /* Local index variable */
- htri_t check; /* Shape comparison return value */
- herr_t ret; /* Generic return value */
+ hsize_t sel_start[SS_DR_MAX_RANK];
+ unsigned u, v, w, x; /* Local index variables */
+ size_t s; /* Local index variable */
+ htri_t check; /* Shape comparison return value */
+ herr_t ret; /* Generic return value */
MESSAGE(7, ("\tn-cube slice through m-cube I/O test %d.\n", test_num));
- MESSAGE(7, ("\tranks = %d/%d, edge_size = %d, checker_edge_size = %d, chunk_edge_size = %d.\n", small_rank, large_rank, edge_size, checker_edge_size, chunk_edge_size));
+ MESSAGE(7, ("\tranks = %d/%d, edge_size = %d, checker_edge_size = %d, chunk_edge_size = %d.\n",
+ small_rank, large_rank, edge_size, checker_edge_size, chunk_edge_size));
HDassert(edge_size >= 6);
HDassert(checker_edge_size > 0);
@@ -2790,8 +2947,8 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
/* Compute cube sizes */
small_cube_size = large_cube_size = (size_t)1;
- for(u = 0; u < large_rank; u++) {
- if(u < small_rank)
+ for (u = 0; u < large_rank; u++) {
+ if (u < small_rank)
small_cube_size *= (size_t)edge_size;
large_cube_size *= (size_t)edge_size;
@@ -2807,14 +2964,12 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
*/
HDassert(large_cube_size < (size_t)(64 * 1024));
-
/* Allocate & initialize buffers */
small_cube_buf_1 = (uint16_t *)HDcalloc(sizeof(uint16_t), small_cube_size);
CHECK_PTR(small_cube_buf_1, "HDcalloc");
large_cube_buf_1 = (uint16_t *)HDcalloc(sizeof(uint16_t), large_cube_size);
CHECK_PTR(large_cube_buf_1, "HDcalloc");
-
/* Create a dataset transfer property list */
fapl = H5Pcreate(H5P_FILE_ACCESS);
CHECK(fapl, FAIL, "H5Pcreate");
@@ -2831,11 +2986,9 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
ret = H5Pclose(fapl);
CHECK(ret, FAIL, "H5Pclose");
-
/* setup dims: */
dims[0] = dims[1] = dims[2] = dims[3] = dims[4] = edge_size;
-
/* Create small cube dataspaces */
full_small_cube_sid = H5Screate_simple((int)small_rank, dims, NULL);
CHECK(full_small_cube_sid, FAIL, "H5Screate_simple");
@@ -2846,7 +2999,6 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
file_small_cube_sid = H5Screate_simple((int)small_rank, dims, NULL);
CHECK(file_small_cube_sid, FAIL, "H5Screate_simple");
-
/* Create large cube dataspace */
full_large_cube_sid = H5Screate_simple((int)large_rank, dims, NULL);
CHECK(full_large_cube_sid, FAIL, "H5Screate_simple");
@@ -2857,14 +3009,12 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
file_large_cube_sid = H5Screate_simple((int)large_rank, dims, NULL);
CHECK(file_large_cube_sid, FAIL, "H5Screate_simple");
-
/* if chunk edge size is greater than zero, set up the small and
* large data set creation property lists to specify chunked
* datasets.
*/
- if(chunk_edge_size > 0) {
- chunk_dims[0] = chunk_dims[1] =
- chunk_dims[2] = chunk_dims[3] = chunk_dims[4] = chunk_edge_size;
+ if (chunk_edge_size > 0) {
+ chunk_dims[0] = chunk_dims[1] = chunk_dims[2] = chunk_dims[3] = chunk_dims[4] = chunk_edge_size;
small_cube_dcpl_id = H5Pcreate(H5P_DATASET_CREATE);
CHECK(small_cube_dcpl_id, FAIL, "H5Pcreate");
@@ -2875,7 +3025,6 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
ret = H5Pset_chunk(small_cube_dcpl_id, (int)small_rank, chunk_dims);
CHECK(ret, FAIL, "H5Pset_chunk");
-
large_cube_dcpl_id = H5Pcreate(H5P_DATASET_CREATE);
CHECK(large_cube_dcpl_id, FAIL, "H5Pcreate");
@@ -2886,58 +3035,52 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
CHECK(ret, FAIL, "H5Pset_chunk");
} /* end if */
-
/* create the small cube dataset */
- small_cube_dataset = H5Dcreate2(fid, "small_cube_dataset", dset_type,
- file_small_cube_sid, H5P_DEFAULT, small_cube_dcpl_id, H5P_DEFAULT);
+ small_cube_dataset = H5Dcreate2(fid, "small_cube_dataset", dset_type, file_small_cube_sid, H5P_DEFAULT,
+ small_cube_dcpl_id, H5P_DEFAULT);
CHECK(small_cube_dataset, FAIL, "H5Dcreate2");
/* Close non-default small dataset DCPL */
- if(small_cube_dcpl_id != H5P_DEFAULT) {
+ if (small_cube_dcpl_id != H5P_DEFAULT) {
ret = H5Pclose(small_cube_dcpl_id);
CHECK(ret, FAIL, "H5Pclose");
} /* end if */
/* create the large cube dataset */
- large_cube_dataset = H5Dcreate2(fid, "large_cube_dataset", dset_type,
- file_large_cube_sid, H5P_DEFAULT, large_cube_dcpl_id, H5P_DEFAULT);
+ large_cube_dataset = H5Dcreate2(fid, "large_cube_dataset", dset_type, file_large_cube_sid, H5P_DEFAULT,
+ large_cube_dcpl_id, H5P_DEFAULT);
CHECK(large_cube_dataset, FAIL, "H5Dcreate2");
/* Close non-default large dataset DCPL */
- if(large_cube_dcpl_id != H5P_DEFAULT) {
+ if (large_cube_dcpl_id != H5P_DEFAULT) {
ret = H5Pclose(large_cube_dcpl_id);
CHECK(ret, FAIL, "H5Pclose");
} /* end if */
-
/* write initial data to the on disk datasets */
- ret = H5Dwrite(small_cube_dataset, H5T_NATIVE_UINT16, full_small_cube_sid,
- full_small_cube_sid, xfer_plist, cube_buf);
+ ret = H5Dwrite(small_cube_dataset, H5T_NATIVE_UINT16, full_small_cube_sid, full_small_cube_sid,
+ xfer_plist, cube_buf);
CHECK(ret, FAIL, "H5Dwrite");
- ret = H5Dwrite(large_cube_dataset, H5T_NATIVE_UINT16, full_large_cube_sid,
- full_large_cube_sid, xfer_plist, cube_buf);
+ ret = H5Dwrite(large_cube_dataset, H5T_NATIVE_UINT16, full_large_cube_sid, full_large_cube_sid,
+ xfer_plist, cube_buf);
CHECK(ret, FAIL, "H5Dwrite");
-
/* read initial small cube data from disk and verify that it is as expected. */
- ret = H5Dread(small_cube_dataset, H5T_NATIVE_UINT16, full_small_cube_sid,
- full_small_cube_sid, xfer_plist, small_cube_buf_1);
+ ret = H5Dread(small_cube_dataset, H5T_NATIVE_UINT16, full_small_cube_sid, full_small_cube_sid, xfer_plist,
+ small_cube_buf_1);
CHECK(ret, FAIL, "H5Dread");
/* Check that the data is valid */
- verify_select_hyper_contig_dr__run_test(small_cube_buf_1, small_cube_size,
- edge_size, small_rank);
+ verify_select_hyper_contig_dr__run_test(small_cube_buf_1, small_cube_size, edge_size, small_rank);
/* read initial large cube data from disk and verify that it is as expected. */
- ret = H5Dread(large_cube_dataset, H5T_NATIVE_UINT16, full_large_cube_sid,
- full_large_cube_sid, xfer_plist, large_cube_buf_1);
+ ret = H5Dread(large_cube_dataset, H5T_NATIVE_UINT16, full_large_cube_sid, full_large_cube_sid, xfer_plist,
+ large_cube_buf_1);
CHECK(ret, FAIL, "H5Dread");
/* Check that the data is valid */
- verify_select_hyper_contig_dr__run_test(large_cube_buf_1, large_cube_size,
- edge_size, large_rank);
-
+ verify_select_hyper_contig_dr__run_test(large_cube_buf_1, large_cube_size, edge_size, large_rank);
/* first, verify that we can read from disk correctly using selections
* of different rank that H5Sselect_shape_same() views as being of the
@@ -2953,12 +3096,8 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
sel_start[0] = sel_start[1] = sel_start[2] = sel_start[3] = sel_start[4] = 0;
- test_select_hyper_checker_board_dr__select_checker_board(mem_small_cube_sid,
- small_rank,
- edge_size,
- checker_edge_size,
- small_rank,
- sel_start);
+ test_select_hyper_checker_board_dr__select_checker_board(mem_small_cube_sid, small_rank, edge_size,
+ checker_edge_size, small_rank, sel_start);
/* now read slices from the large, on-disk cube into the small cube.
* Note how we adjust sel_start only in the dimensions peculiar to the
@@ -2967,22 +3106,22 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
u = 0;
do {
- if(small_rank_offset > 0)
+ if (small_rank_offset > 0)
sel_start[0] = u;
v = 0;
do {
- if(small_rank_offset > 1)
+ if (small_rank_offset > 1)
sel_start[1] = v;
w = 0;
do {
- if(small_rank_offset > 2)
+ if (small_rank_offset > 2)
sel_start[2] = w;
x = 0;
do {
- if(small_rank_offset > 3)
+ if (small_rank_offset > 3)
sel_start[3] = x;
/* we know that small_rank >= 1 and that large_rank > small_rank
@@ -2996,15 +3135,8 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
HDassert((sel_start[3] == 0) || (3 < small_rank_offset));
HDassert((sel_start[4] == 0) || (4 < small_rank_offset));
- test_select_hyper_checker_board_dr__select_checker_board
- (
- file_large_cube_sid,
- large_rank,
- edge_size,
- checker_edge_size,
- small_rank,
- sel_start
- );
+ test_select_hyper_checker_board_dr__select_checker_board(
+ file_large_cube_sid, large_rank, edge_size, checker_edge_size, small_rank, sel_start);
/* verify that H5Sselect_shape_same() reports the two
* selections as having the same shape.
@@ -3016,45 +3148,31 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
HDmemset(small_cube_buf_1, 0, sizeof(*small_cube_buf_1) * small_cube_size);
/* Read selection from disk */
- ret = H5Dread(large_cube_dataset,
- H5T_NATIVE_UINT16,
- mem_small_cube_sid,
- file_large_cube_sid,
- xfer_plist,
- small_cube_buf_1);
+ ret = H5Dread(large_cube_dataset, H5T_NATIVE_UINT16, mem_small_cube_sid,
+ file_large_cube_sid, xfer_plist, small_cube_buf_1);
CHECK(ret, FAIL, "H5Dread");
- expected_value = (uint16_t)
- ((u * edge_size * edge_size * edge_size * edge_size) +
- (v * edge_size * edge_size * edge_size) +
- (w * edge_size * edge_size) +
- (x * edge_size));
-
- data_ok = test_select_hyper_checker_board_dr__verify_data
- (
- small_cube_buf_1,
- small_rank,
- edge_size,
- checker_edge_size,
- expected_value,
- (hbool_t)TRUE
- );
- if(!data_ok)
- TestErrPrintf("small cube read from largecube has bad data! Line=%d\n",__LINE__);
+ expected_value = (uint16_t)((u * edge_size * edge_size * edge_size * edge_size) +
+ (v * edge_size * edge_size * edge_size) +
+ (w * edge_size * edge_size) + (x * edge_size));
+
+ data_ok = test_select_hyper_checker_board_dr__verify_data(small_cube_buf_1, small_rank,
+ edge_size, checker_edge_size,
+ expected_value, (hbool_t)TRUE);
+ if (!data_ok)
+ TestErrPrintf("small cube read from largecube has bad data! Line=%d\n", __LINE__);
x++;
- } while((large_rank >= (test_max_rank - 3)) &&
- (small_rank <= (test_max_rank - 4)) && (x < edge_size));
+ } while ((large_rank >= (test_max_rank - 3)) && (small_rank <= (test_max_rank - 4)) &&
+ (x < edge_size));
w++;
- } while((large_rank >= (test_max_rank - 2)) &&
- (small_rank <= (test_max_rank - 3)) && (w < edge_size));
+ } while ((large_rank >= (test_max_rank - 2)) && (small_rank <= (test_max_rank - 3)) &&
+ (w < edge_size));
v++;
- } while((large_rank >= (test_max_rank - 1)) &&
- (small_rank <= (test_max_rank - 2)) && (v < edge_size));
+ } while ((large_rank >= (test_max_rank - 1)) && (small_rank <= (test_max_rank - 2)) &&
+ (v < edge_size));
u++;
- } while((large_rank >= test_max_rank) &&
- (small_rank <= (test_max_rank - 1)) && (u < edge_size));
-
+ } while ((large_rank >= test_max_rank) && (small_rank <= (test_max_rank - 1)) && (u < edge_size));
/* similarly, read the on disk small cube into slices through the in memory
* large cube, and verify that the correct data (and only the correct data)
@@ -3063,32 +3181,27 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
/* select a checker board in the file small cube dataspace */
sel_start[0] = sel_start[1] = sel_start[2] = sel_start[3] = sel_start[4] = 0;
- test_select_hyper_checker_board_dr__select_checker_board(file_small_cube_sid,
- small_rank,
- edge_size,
- checker_edge_size,
- small_rank,
- sel_start);
-
+ test_select_hyper_checker_board_dr__select_checker_board(file_small_cube_sid, small_rank, edge_size,
+ checker_edge_size, small_rank, sel_start);
u = 0;
do {
- if(0 < small_rank_offset)
+ if (0 < small_rank_offset)
sel_start[0] = u;
v = 0;
do {
- if(1 < small_rank_offset)
+ if (1 < small_rank_offset)
sel_start[1] = v;
w = 0;
do {
- if(2 < small_rank_offset)
+ if (2 < small_rank_offset)
sel_start[2] = w;
x = 0;
do {
- if(3 < small_rank_offset)
+ if (3 < small_rank_offset)
sel_start[3] = x;
/* we know that small_rank >= 1 and that large_rank > small_rank
@@ -3102,15 +3215,8 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
HDassert((sel_start[3] == 0) || (3 < small_rank_offset));
HDassert((sel_start[4] == 0) || (4 < small_rank_offset));
- test_select_hyper_checker_board_dr__select_checker_board
- (
- mem_large_cube_sid,
- large_rank,
- edge_size,
- checker_edge_size,
- small_rank,
- sel_start
- );
+ test_select_hyper_checker_board_dr__select_checker_board(
+ mem_large_cube_sid, large_rank, edge_size, checker_edge_size, small_rank, sel_start);
/* verify that H5Sselect_shape_same() reports the two
* selections as having the same shape.
@@ -3118,52 +3224,38 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
check = H5Sselect_shape_same(file_small_cube_sid, mem_large_cube_sid);
VERIFY(check, TRUE, "H5Sselect_shape_same");
-
/* zero out the in memory large cube */
HDmemset(large_cube_buf_1, 0, sizeof(*large_cube_buf_1) * large_cube_size);
/* Read selection from disk */
- ret = H5Dread(small_cube_dataset,
- H5T_NATIVE_UINT16,
- mem_large_cube_sid,
- file_small_cube_sid,
- xfer_plist,
- large_cube_buf_1);
+ ret = H5Dread(small_cube_dataset, H5T_NATIVE_UINT16, mem_large_cube_sid,
+ file_small_cube_sid, xfer_plist, large_cube_buf_1);
CHECK(ret, FAIL, "H5Dread");
-
/* verify that the expected data and only the
* expected data was read.
*/
- data_ok = TRUE;
- ptr_1 = large_cube_buf_1;
+ data_ok = TRUE;
+ ptr_1 = large_cube_buf_1;
expected_value = 0;
- start_index = (u * edge_size * edge_size * edge_size * edge_size) +
- (v * edge_size * edge_size * edge_size) +
- (w * edge_size * edge_size) +
+ start_index = (u * edge_size * edge_size * edge_size * edge_size) +
+ (v * edge_size * edge_size * edge_size) + (w * edge_size * edge_size) +
(x * edge_size);
stop_index = start_index + small_cube_size - 1;
- HDassert( start_index < stop_index );
- HDassert( stop_index <= large_cube_size );
+ HDassert(start_index < stop_index);
+ HDassert(stop_index <= large_cube_size);
/* verify that the large cube contains only zeros before the slice */
- for(s = 0; s < start_index; s++) {
- if(*ptr_1 != 0)
+ for (s = 0; s < start_index; s++) {
+ if (*ptr_1 != 0)
data_ok = FALSE;
ptr_1++;
} /* end for */
HDassert(s == start_index);
- data_ok &= test_select_hyper_checker_board_dr__verify_data
- (
- ptr_1,
- small_rank,
- edge_size,
- checker_edge_size,
- (uint16_t)0,
- (hbool_t)TRUE
- );
+ data_ok &= test_select_hyper_checker_board_dr__verify_data(
+ ptr_1, small_rank, edge_size, checker_edge_size, (uint16_t)0, (hbool_t)TRUE);
ptr_1 += small_cube_size;
s += small_cube_size;
@@ -3171,27 +3263,25 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
HDassert(s == stop_index + 1);
/* verify that the large cube contains only zeros after the slice */
- for(s = stop_index + 1; s < large_cube_size; s++) {
- if(*ptr_1 != 0)
+ for (s = stop_index + 1; s < large_cube_size; s++) {
+ if (*ptr_1 != 0)
data_ok = FALSE;
ptr_1++;
} /* end for */
- if(!data_ok)
- TestErrPrintf("large cube read from small cube has bad data! Line=%d\n",__LINE__);
+ if (!data_ok)
+ TestErrPrintf("large cube read from small cube has bad data! Line=%d\n", __LINE__);
x++;
- } while((large_rank >= (test_max_rank - 3)) &&
- (small_rank <= (test_max_rank - 4)) && (x < edge_size));
+ } while ((large_rank >= (test_max_rank - 3)) && (small_rank <= (test_max_rank - 4)) &&
+ (x < edge_size));
w++;
- } while((large_rank >= (test_max_rank - 2)) &&
- (small_rank <= (test_max_rank - 3)) && (w < edge_size));
+ } while ((large_rank >= (test_max_rank - 2)) && (small_rank <= (test_max_rank - 3)) &&
+ (w < edge_size));
v++;
- } while((large_rank >= (test_max_rank - 1)) &&
- (small_rank <= (test_max_rank - 2)) && (v < edge_size));
+ } while ((large_rank >= (test_max_rank - 1)) && (small_rank <= (test_max_rank - 2)) &&
+ (v < edge_size));
u++;
- } while((large_rank >= test_max_rank) &&
- (small_rank <= (test_max_rank - 1)) && (u < edge_size));
-
+ } while ((large_rank >= test_max_rank) && (small_rank <= (test_max_rank - 1)) && (u < edge_size));
/* now we go in the opposite direction, verifying that we can write
* from memory to file using selections of different rank that
@@ -3206,43 +3296,34 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
/* select a checker board in the file small cube dataspace */
sel_start[0] = sel_start[1] = sel_start[2] = sel_start[3] = sel_start[4] = 0;
- test_select_hyper_checker_board_dr__select_checker_board(file_small_cube_sid,
- small_rank,
- edge_size,
- checker_edge_size,
- small_rank,
- sel_start);
+ test_select_hyper_checker_board_dr__select_checker_board(file_small_cube_sid, small_rank, edge_size,
+ checker_edge_size, small_rank, sel_start);
u = 0;
do {
- if(small_rank_offset > 0)
+ if (small_rank_offset > 0)
sel_start[0] = u;
v = 0;
do {
- if(small_rank_offset > 1)
+ if (small_rank_offset > 1)
sel_start[1] = v;
w = 0;
do {
- if(small_rank_offset > 2)
+ if (small_rank_offset > 2)
sel_start[2] = w;
x = 0;
do {
- if(small_rank_offset > 3)
+ if (small_rank_offset > 3)
sel_start[3] = x;
/* zero out the on disk small cube */
- ret = H5Dwrite(small_cube_dataset,
- H5T_NATIVE_UINT16,
- full_small_cube_sid,
- full_small_cube_sid,
- xfer_plist,
- zero_buf);
+ ret = H5Dwrite(small_cube_dataset, H5T_NATIVE_UINT16, full_small_cube_sid,
+ full_small_cube_sid, xfer_plist, zero_buf);
CHECK(ret, FAIL, "H5Dwrite");
-
/* we know that small_rank >= 1 and that large_rank > small_rank
* by the assertions at the head of this function. Thus no
* need for another inner loop.
@@ -3254,15 +3335,8 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
HDassert((sel_start[3] == 0) || (3 < small_rank_offset));
HDassert((sel_start[4] == 0) || (4 < small_rank_offset));
- test_select_hyper_checker_board_dr__select_checker_board
- (
- mem_large_cube_sid,
- large_rank,
- edge_size,
- checker_edge_size,
- small_rank,
- sel_start
- );
+ test_select_hyper_checker_board_dr__select_checker_board(
+ mem_large_cube_sid, large_rank, edge_size, checker_edge_size, small_rank, sel_start);
/* verify that H5Sselect_shape_same() reports the two
* selections as having the same shape.
@@ -3270,62 +3344,42 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
check = H5Sselect_shape_same(file_small_cube_sid, mem_large_cube_sid);
VERIFY(check, TRUE, "H5Sselect_shape_same");
-
- /* write the slice from the in memory large cube to the
+ /* write the slice from the in memory large cube to the
* on disk small cube
*/
- ret = H5Dwrite(small_cube_dataset,
- H5T_NATIVE_UINT16,
- mem_large_cube_sid,
- file_small_cube_sid,
- xfer_plist,
- cube_buf);
+ ret = H5Dwrite(small_cube_dataset, H5T_NATIVE_UINT16, mem_large_cube_sid,
+ file_small_cube_sid, xfer_plist, cube_buf);
CHECK(ret, FAIL, "H5Dwrite");
-
/* zero the buffer that we will be using for reading */
HDmemset(small_cube_buf_1, 0, sizeof(*small_cube_buf_1) * small_cube_size);
/* read the on disk small cube into memory */
- ret = H5Dread(small_cube_dataset,
- H5T_NATIVE_UINT16,
- full_small_cube_sid,
- full_small_cube_sid,
- xfer_plist,
- small_cube_buf_1);
+ ret = H5Dread(small_cube_dataset, H5T_NATIVE_UINT16, full_small_cube_sid,
+ full_small_cube_sid, xfer_plist, small_cube_buf_1);
CHECK(ret, FAIL, "H5Dread");
- expected_value = (uint16_t)
- ((u * edge_size * edge_size * edge_size * edge_size) +
- (v * edge_size * edge_size * edge_size) +
- (w * edge_size * edge_size) +
- (x * edge_size));
-
- data_ok = test_select_hyper_checker_board_dr__verify_data
- (
- small_cube_buf_1,
- small_rank,
- edge_size,
- checker_edge_size,
- expected_value,
- (hbool_t)TRUE
- );
- if(!data_ok)
- TestErrPrintf("small cube read from largecube has bad data! Line=%d\n",__LINE__);
+ expected_value = (uint16_t)((u * edge_size * edge_size * edge_size * edge_size) +
+ (v * edge_size * edge_size * edge_size) +
+ (w * edge_size * edge_size) + (x * edge_size));
+
+ data_ok = test_select_hyper_checker_board_dr__verify_data(small_cube_buf_1, small_rank,
+ edge_size, checker_edge_size,
+ expected_value, (hbool_t)TRUE);
+ if (!data_ok)
+ TestErrPrintf("small cube read from largecube has bad data! Line=%d\n", __LINE__);
x++;
- } while((large_rank >= (test_max_rank - 3)) &&
- (small_rank <= (test_max_rank - 4)) && (x < edge_size));
+ } while ((large_rank >= (test_max_rank - 3)) && (small_rank <= (test_max_rank - 4)) &&
+ (x < edge_size));
w++;
- } while((large_rank >= (test_max_rank - 2)) &&
- (small_rank <= (test_max_rank - 3)) && (w < edge_size));
+ } while ((large_rank >= (test_max_rank - 2)) && (small_rank <= (test_max_rank - 3)) &&
+ (w < edge_size));
v++;
- } while((large_rank >= (test_max_rank - 1)) &&
- (small_rank <= (test_max_rank - 2)) && (v < edge_size));
+ } while ((large_rank >= (test_max_rank - 1)) && (small_rank <= (test_max_rank - 2)) &&
+ (v < edge_size));
u++;
- } while((large_rank >= test_max_rank) &&
- (small_rank <= (test_max_rank - 1)) && (u < edge_size));
-
+ } while ((large_rank >= test_max_rank) && (small_rank <= (test_max_rank - 1)) && (u < edge_size));
/* Now write checker board selections of the entries in memory
* small cube to slices of the on disk cube. After each write,
@@ -3337,40 +3391,32 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
/* select a checker board in the in memory small cube dataspace */
sel_start[0] = sel_start[1] = sel_start[2] = sel_start[3] = sel_start[4] = 0;
- test_select_hyper_checker_board_dr__select_checker_board(mem_small_cube_sid,
- small_rank,
- edge_size,
- checker_edge_size,
- small_rank,
- sel_start);
+ test_select_hyper_checker_board_dr__select_checker_board(mem_small_cube_sid, small_rank, edge_size,
+ checker_edge_size, small_rank, sel_start);
u = 0;
do {
- if(small_rank_offset > 0)
+ if (small_rank_offset > 0)
sel_start[0] = u;
v = 0;
do {
- if(small_rank_offset > 1)
+ if (small_rank_offset > 1)
sel_start[1] = v;
w = 0;
do {
- if(small_rank_offset > 2)
+ if (small_rank_offset > 2)
sel_start[2] = w;
x = 0;
do {
- if(small_rank_offset > 3)
+ if (small_rank_offset > 3)
sel_start[3] = x;
/* zero out the on disk cube */
- ret = H5Dwrite(large_cube_dataset,
- H5T_NATIVE_USHORT,
- full_large_cube_sid,
- full_large_cube_sid,
- xfer_plist,
- zero_buf);
+ ret = H5Dwrite(large_cube_dataset, H5T_NATIVE_USHORT, full_large_cube_sid,
+ full_large_cube_sid, xfer_plist, zero_buf);
CHECK(ret, FAIL, "H5Dwrite");
/* we know that small_rank >= 1 and that large_rank > small_rank
@@ -3384,16 +3430,8 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
HDassert((sel_start[3] == 0) || (3 < small_rank_offset));
HDassert((sel_start[4] == 0) || (4 < small_rank_offset));
-
- test_select_hyper_checker_board_dr__select_checker_board
- (
- file_large_cube_sid,
- large_rank,
- edge_size,
- checker_edge_size,
- small_rank,
- sel_start
- );
+ test_select_hyper_checker_board_dr__select_checker_board(
+ file_large_cube_sid, large_rank, edge_size, checker_edge_size, small_rank, sel_start);
/* verify that H5Sselect_shape_same() reports the two
* selections as having the same shape.
@@ -3401,67 +3439,48 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
check = H5Sselect_shape_same(file_large_cube_sid, mem_small_cube_sid);
VERIFY(check, TRUE, "H5Sselect_shape_same");
-
- /* write the checker board selection of the in memory
+ /* write the checker board selection of the in memory
* small cube to a slice through the on disk large
* cube.
*/
- ret = H5Dwrite(large_cube_dataset,
- H5T_NATIVE_UINT16,
- mem_small_cube_sid,
- file_large_cube_sid,
- xfer_plist,
- cube_buf);
+ ret = H5Dwrite(large_cube_dataset, H5T_NATIVE_UINT16, mem_small_cube_sid,
+ file_large_cube_sid, xfer_plist, cube_buf);
CHECK(ret, FAIL, "H5Dwrite");
-
/* zero out the in memory large cube */
HDmemset(large_cube_buf_1, 0, sizeof(*large_cube_buf_1) * large_cube_size);
/* read the on disk large cube into memory */
- ret = H5Dread(large_cube_dataset,
- H5T_NATIVE_UINT16,
- full_large_cube_sid,
- full_large_cube_sid,
- xfer_plist,
- large_cube_buf_1);
+ ret = H5Dread(large_cube_dataset, H5T_NATIVE_UINT16, full_large_cube_sid,
+ full_large_cube_sid, xfer_plist, large_cube_buf_1);
CHECK(ret, FAIL, "H5Dread");
-
/* verify that the expected data and only the
* expected data was written to the on disk large
* cube.
*/
- data_ok = TRUE;
- ptr_1 = large_cube_buf_1;
+ data_ok = TRUE;
+ ptr_1 = large_cube_buf_1;
expected_value = 0;
- start_index = (u * edge_size * edge_size * edge_size * edge_size) +
- (v * edge_size * edge_size * edge_size) +
- (w * edge_size * edge_size) +
+ start_index = (u * edge_size * edge_size * edge_size * edge_size) +
+ (v * edge_size * edge_size * edge_size) + (w * edge_size * edge_size) +
(x * edge_size);
stop_index = start_index + small_cube_size - 1;
- HDassert( start_index < stop_index );
- HDassert( stop_index <= large_cube_size );
+ HDassert(start_index < stop_index);
+ HDassert(stop_index <= large_cube_size);
/* verify that the large cube contains only zeros before the slice */
- for(s = 0; s < start_index; s++) {
- if(*ptr_1 != 0)
+ for (s = 0; s < start_index; s++) {
+ if (*ptr_1 != 0)
data_ok = FALSE;
ptr_1++;
} /* end for */
HDassert(s == start_index);
/* verify that the slice contains the expected data */
- data_ok &= test_select_hyper_checker_board_dr__verify_data
- (
- ptr_1,
- small_rank,
- edge_size,
- checker_edge_size,
- (uint16_t)0,
- (hbool_t)TRUE
- );
+ data_ok &= test_select_hyper_checker_board_dr__verify_data(
+ ptr_1, small_rank, edge_size, checker_edge_size, (uint16_t)0, (hbool_t)TRUE);
ptr_1 += small_cube_size;
s += small_cube_size;
@@ -3469,27 +3488,25 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
HDassert(s == stop_index + 1);
/* verify that the large cube contains only zeros after the slice */
- for(s = stop_index + 1; s < large_cube_size; s++) {
- if(*ptr_1 != 0)
+ for (s = stop_index + 1; s < large_cube_size; s++) {
+ if (*ptr_1 != 0)
data_ok = FALSE;
ptr_1++;
} /* end for */
- if(!data_ok)
- TestErrPrintf("large cube written from small cube has bad data! Line=%d\n",__LINE__);
+ if (!data_ok)
+ TestErrPrintf("large cube written from small cube has bad data! Line=%d\n", __LINE__);
x++;
- } while((large_rank >= (test_max_rank - 3)) &&
- (small_rank <= (test_max_rank - 4)) && (x < edge_size));
+ } while ((large_rank >= (test_max_rank - 3)) && (small_rank <= (test_max_rank - 4)) &&
+ (x < edge_size));
w++;
- } while((large_rank >= (test_max_rank - 2)) &&
- (small_rank <= (test_max_rank - 3)) && (w < edge_size));
+ } while ((large_rank >= (test_max_rank - 2)) && (small_rank <= (test_max_rank - 3)) &&
+ (w < edge_size));
v++;
- } while((large_rank >= (test_max_rank - 1)) &&
- (small_rank <= (test_max_rank - 2)) && (v < edge_size));
+ } while ((large_rank >= (test_max_rank - 1)) && (small_rank <= (test_max_rank - 2)) &&
+ (v < edge_size));
u++;
- } while((large_rank >= test_max_rank) &&
- (small_rank <= (test_max_rank - 1)) && (u < edge_size));
-
+ } while ((large_rank >= test_max_rank) && (small_rank <= (test_max_rank - 1)) && (u < edge_size));
/* Close memory dataspaces */
ret = H5Sclose(full_small_cube_sid);
@@ -3504,7 +3521,6 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
ret = H5Sclose(mem_large_cube_sid);
CHECK(ret, FAIL, "H5Sclose");
-
/* Close disk dataspace */
ret = H5Sclose(file_small_cube_sid);
CHECK(ret, FAIL, "H5Sclose");
@@ -3527,8 +3543,7 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
HDfree(small_cube_buf_1);
HDfree(large_cube_buf_1);
-} /* test_select_hyper_checker_board_dr__run_test() */
-
+} /* test_select_hyper_checker_board_dr__run_test() */
/****************************************************************
**
@@ -3545,26 +3560,26 @@ test_select_hyper_checker_board_dr__run_test(int test_num, const uint16_t *cube_
static void
test_select_hyper_checker_board_dr(hid_t dset_type, hid_t xfer_plist)
{
- uint16_t *cube_buf; /* Buffer for writing cube data */
- uint16_t *cube_ptr; /* Temporary pointer into cube data */
- uint16_t *zero_buf; /* Buffer for writing zeroed cube data */
- int test_num = 0;
- unsigned checker_edge_size = 2; /* Size of checkerboard dimension */
- unsigned chunk_edge_size; /* Size of chunk's dataspace dimensions */
- unsigned edge_size = 6; /* Size of dataset's dataspace dimensions */
- unsigned small_rank; /* Current rank of small dataset */
- unsigned large_rank; /* Current rank of large dataset */
- unsigned max_rank = 5; /* Max. rank to use */
- size_t max_cube_size; /* Max. number of elements in largest cube */
- size_t s; /* Local index variable */
- unsigned u; /* Local index variable */
+ uint16_t *cube_buf; /* Buffer for writing cube data */
+ uint16_t *cube_ptr; /* Temporary pointer into cube data */
+ uint16_t *zero_buf; /* Buffer for writing zeroed cube data */
+ int test_num = 0;
+ unsigned checker_edge_size = 2; /* Size of checkerboard dimension */
+ unsigned chunk_edge_size; /* Size of chunk's dataspace dimensions */
+ unsigned edge_size = 6; /* Size of dataset's dataspace dimensions */
+ unsigned small_rank; /* Current rank of small dataset */
+ unsigned large_rank; /* Current rank of large dataset */
+ unsigned max_rank = 5; /* Max. rank to use */
+ size_t max_cube_size; /* Max. number of elements in largest cube */
+ size_t s; /* Local index variable */
+ unsigned u; /* Local index variable */
/* Output message about test being performed */
MESSAGE(5, ("Testing Checker Board Hyperslabs With Different Rank I/O Functionality\n"));
/* Compute max. cube size */
max_cube_size = (size_t)1;
- for(u = 0; u < max_rank; u++)
+ for (u = 0; u < max_rank; u++)
max_cube_size *= (size_t)(edge_size + 1);
/* Allocate cube buffer for writing values */
@@ -3573,47 +3588,43 @@ test_select_hyper_checker_board_dr(hid_t dset_type, hid_t xfer_plist)
/* Initialize the cube buffer */
cube_ptr = cube_buf;
- for(s = 0; s < max_cube_size; s++)
+ for (s = 0; s < max_cube_size; s++)
*cube_ptr++ = (uint16_t)s;
/* Allocate cube buffer for zeroing values on disk */
zero_buf = (uint16_t *)HDcalloc(sizeof(uint16_t), max_cube_size);
CHECK_PTR(zero_buf, "HDcalloc");
- for(large_rank = 1; large_rank <= max_rank; large_rank++) {
- for(small_rank = 1; small_rank < large_rank; small_rank++) {
+ for (large_rank = 1; large_rank <= max_rank; large_rank++) {
+ for (small_rank = 1; small_rank < large_rank; small_rank++) {
chunk_edge_size = 0;
- test_select_hyper_checker_board_dr__run_test(test_num, cube_buf,
- zero_buf, edge_size, checker_edge_size, chunk_edge_size, small_rank,
- large_rank, dset_type, xfer_plist);
+ test_select_hyper_checker_board_dr__run_test(test_num, cube_buf, zero_buf, edge_size,
+ checker_edge_size, chunk_edge_size, small_rank,
+ large_rank, dset_type, xfer_plist);
test_num++;
- test_select_hyper_checker_board_dr__run_test(test_num, cube_buf,
- zero_buf,
- edge_size + 1, checker_edge_size, chunk_edge_size, small_rank,
- large_rank, dset_type, xfer_plist);
+ test_select_hyper_checker_board_dr__run_test(test_num, cube_buf, zero_buf, edge_size + 1,
+ checker_edge_size, chunk_edge_size, small_rank,
+ large_rank, dset_type, xfer_plist);
test_num++;
chunk_edge_size = 3;
- test_select_hyper_checker_board_dr__run_test(test_num, cube_buf,
- zero_buf,
- edge_size, checker_edge_size, chunk_edge_size, small_rank,
- large_rank, dset_type, xfer_plist);
+ test_select_hyper_checker_board_dr__run_test(test_num, cube_buf, zero_buf, edge_size,
+ checker_edge_size, chunk_edge_size, small_rank,
+ large_rank, dset_type, xfer_plist);
test_num++;
- test_select_hyper_checker_board_dr__run_test(test_num, cube_buf,
- zero_buf,
- edge_size + 1, checker_edge_size, chunk_edge_size, small_rank,
- large_rank, dset_type, xfer_plist);
+ test_select_hyper_checker_board_dr__run_test(test_num, cube_buf, zero_buf, edge_size + 1,
+ checker_edge_size, chunk_edge_size, small_rank,
+ large_rank, dset_type, xfer_plist);
test_num++;
} /* for loop on small rank */
- } /* for loop on large rank */
+ } /* for loop on large rank */
HDfree(cube_buf);
HDfree(zero_buf);
-} /* test_select_hyper_checker_board_dr() */
-
+} /* test_select_hyper_checker_board_dr() */
/****************************************************************
**
@@ -3624,22 +3635,22 @@ test_select_hyper_checker_board_dr(hid_t dset_type, hid_t xfer_plist)
static void
test_select_hyper_copy(void)
{
- hid_t fid1; /* HDF5 File IDs */
- hid_t data1,data2; /* Dataset IDs */
- hid_t sid1,sid2,sid3; /* Dataspace IDs */
- hsize_t dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
- hsize_t dims2[] = {SPACE2_DIM1, SPACE2_DIM2};
- hsize_t dims3[] = {SPACE3_DIM1, SPACE3_DIM2};
- hsize_t start[SPACE1_RANK]; /* Starting location of hyperslab */
- hsize_t stride[SPACE1_RANK]; /* Stride of hyperslab */
- hsize_t count[SPACE1_RANK]; /* Element count of hyperslab */
- hsize_t block[SPACE1_RANK]; /* Block size of hyperslab */
- uint16_t *wbuf, /* buffer to write to disk */
- *rbuf, /* 1st buffer read from disk */
- *rbuf2, /* 2nd buffer read from disk */
- *tbuf; /* temporary buffer pointer */
- int i,j; /* Counters */
- herr_t ret; /* Generic return value */
+ hid_t fid1; /* HDF5 File IDs */
+ hid_t data1, data2; /* Dataset IDs */
+ hid_t sid1, sid2, sid3; /* Dataspace IDs */
+ hsize_t dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
+ hsize_t dims2[] = {SPACE2_DIM1, SPACE2_DIM2};
+ hsize_t dims3[] = {SPACE3_DIM1, SPACE3_DIM2};
+ hsize_t start[SPACE1_RANK]; /* Starting location of hyperslab */
+ hsize_t stride[SPACE1_RANK]; /* Stride of hyperslab */
+ hsize_t count[SPACE1_RANK]; /* Element count of hyperslab */
+ hsize_t block[SPACE1_RANK]; /* Block size of hyperslab */
+ uint16_t *wbuf, /* buffer to write to disk */
+ *rbuf, /* 1st buffer read from disk */
+ *rbuf2, /* 2nd buffer read from disk */
+ *tbuf; /* temporary buffer pointer */
+ int i, j; /* Counters */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Hyperslabs with Strides Functionality\n"));
@@ -3653,9 +3664,9 @@ test_select_hyper_copy(void)
CHECK_PTR(rbuf2, "HDcalloc");
/* Initialize write buffer */
- for(i=0, tbuf=wbuf; i<SPACE2_DIM1; i++)
- for(j=0; j<SPACE2_DIM2; j++)
- *tbuf++=(uint16_t)((i*SPACE2_DIM2)+j);
+ for (i = 0, tbuf = wbuf; i < SPACE2_DIM1; i++)
+ for (j = 0; j < SPACE2_DIM2; j++)
+ *tbuf++ = (uint16_t)((i * SPACE2_DIM2) + j);
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
@@ -3670,19 +3681,31 @@ test_select_hyper_copy(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 2x3x3 count with a stride of 2x4x3 & 1x2x2 block hyperslab for disk dataset */
- start[0] = 0; start[1] = 0; start[2] = 0;
- stride[0] = 2; stride[1] = 4; stride[2] = 3;
- count[0] = 2; count[1] = 3; count[2] = 3;
- block[0] = 1; block[1] = 2; block[2] = 2;
- ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block);
+ start[0] = 0;
+ start[1] = 0;
+ start[2] = 0;
+ stride[0] = 2;
+ stride[1] = 4;
+ stride[2] = 3;
+ count[0] = 2;
+ count[1] = 3;
+ count[2] = 3;
+ block[0] = 1;
+ block[1] = 2;
+ block[2] = 2;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Select 4x2 count with a stride of 5x5 & 3x3 block hyperslab for memory dataset */
- start[0] = 1; start[1] = 1;
- stride[0] = 5; stride[1] = 5;
- count[0] = 4; count[1] = 2;
- block[0] = 3; block[1] = 3;
- ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
+ start[0] = 1;
+ start[1] = 1;
+ stride[0] = 5;
+ stride[1] = 5;
+ count[0] = 4;
+ count[1] = 2;
+ block[0] = 3;
+ block[1] = 3;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Make a copy of the dataspace to write */
@@ -3718,11 +3741,15 @@ test_select_hyper_copy(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 3x4 count with a stride of 4x4 & 2x3 block hyperslab for memory dataset */
- start[0] = 0; start[1] = 0;
- stride[0] = 4; stride[1] = 4;
- count[0] = 3; count[1] = 4;
- block[0] = 2; block[1] = 3;
- ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 4;
+ stride[1] = 4;
+ count[0] = 3;
+ count[1] = 4;
+ block[0] = 2;
+ block[1] = 3;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Make a copy of the dataspace to read */
@@ -3730,16 +3757,16 @@ test_select_hyper_copy(void)
CHECK(sid3, FAIL, "H5Scopy");
/* Read selection from disk */
- ret=H5Dread(data1,H5T_STD_U16LE,sid2,sid1,H5P_DEFAULT,rbuf);
+ ret = H5Dread(data1, H5T_STD_U16LE, sid2, sid1, H5P_DEFAULT, rbuf);
CHECK(ret, FAIL, "H5Dread");
/* Read selection from disk */
- ret=H5Dread(data2,H5T_STD_U16LE,sid3,sid1,H5P_DEFAULT,rbuf2);
+ ret = H5Dread(data2, H5T_STD_U16LE, sid3, sid1, H5P_DEFAULT, rbuf2);
CHECK(ret, FAIL, "H5Dread");
/* Compare data read with data written out */
- if(HDmemcmp(rbuf,rbuf2,sizeof(uint16_t)*SPACE3_DIM1*SPACE3_DIM2))
- TestErrPrintf("hyperslab values don't match! Line=%d\n",__LINE__);
+ if (HDmemcmp(rbuf, rbuf2, sizeof(uint16_t) * SPACE3_DIM1 * SPACE3_DIM2))
+ TestErrPrintf("hyperslab values don't match! Line=%d\n", __LINE__);
/* Close memory dataspace */
ret = H5Sclose(sid2);
@@ -3769,7 +3796,7 @@ test_select_hyper_copy(void)
HDfree(wbuf);
HDfree(rbuf);
HDfree(rbuf2);
-} /* test_select_hyper_copy() */
+} /* test_select_hyper_copy() */
/****************************************************************
**
@@ -3780,21 +3807,21 @@ test_select_hyper_copy(void)
static void
test_select_point_copy(void)
{
- hid_t fid1; /* HDF5 File IDs */
- hid_t data1,data2; /* Dataset IDs */
- hid_t sid1,sid2,sid3; /* Dataspace IDs */
- hsize_t dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
- hsize_t dims2[] = {SPACE2_DIM1, SPACE2_DIM2};
- hsize_t dims3[] = {SPACE3_DIM1, SPACE3_DIM2};
- hsize_t coord1[POINT1_NPOINTS][SPACE1_RANK]; /* Coordinates for point selection */
- hsize_t coord2[POINT1_NPOINTS][SPACE2_RANK]; /* Coordinates for point selection */
- hsize_t coord3[POINT1_NPOINTS][SPACE3_RANK]; /* Coordinates for point selection */
- uint16_t *wbuf, /* buffer to write to disk */
- *rbuf, /* 1st buffer read from disk */
- *rbuf2, /* 2nd buffer read from disk */
- *tbuf; /* temporary buffer pointer */
- int i,j; /* Counters */
- herr_t ret; /* Generic return value */
+ hid_t fid1; /* HDF5 File IDs */
+ hid_t data1, data2; /* Dataset IDs */
+ hid_t sid1, sid2, sid3; /* Dataspace IDs */
+ hsize_t dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
+ hsize_t dims2[] = {SPACE2_DIM1, SPACE2_DIM2};
+ hsize_t dims3[] = {SPACE3_DIM1, SPACE3_DIM2};
+ hsize_t coord1[POINT1_NPOINTS][SPACE1_RANK]; /* Coordinates for point selection */
+ hsize_t coord2[POINT1_NPOINTS][SPACE2_RANK]; /* Coordinates for point selection */
+ hsize_t coord3[POINT1_NPOINTS][SPACE3_RANK]; /* Coordinates for point selection */
+ uint16_t *wbuf, /* buffer to write to disk */
+ *rbuf, /* 1st buffer read from disk */
+ *rbuf2, /* 2nd buffer read from disk */
+ *tbuf; /* temporary buffer pointer */
+ int i, j; /* Counters */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Hyperslabs with Strides Functionality\n"));
@@ -3808,9 +3835,9 @@ test_select_point_copy(void)
CHECK_PTR(rbuf2, "HDcalloc");
/* Initialize write buffer */
- for(i=0, tbuf=wbuf; i<SPACE2_DIM1; i++)
- for(j=0; j<SPACE2_DIM2; j++)
- *tbuf++=(uint16_t)((i*SPACE2_DIM2)+j);
+ for (i = 0, tbuf = wbuf; i < SPACE2_DIM1; i++)
+ for (j = 0; j < SPACE2_DIM2; j++)
+ *tbuf++ = (uint16_t)((i * SPACE2_DIM2) + j);
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
@@ -3825,31 +3852,61 @@ test_select_point_copy(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select sequence of ten points for disk dataset */
- coord1[0][0]=0; coord1[0][1]=10; coord1[0][2]= 5;
- coord1[1][0]=1; coord1[1][1]= 2; coord1[1][2]= 7;
- coord1[2][0]=2; coord1[2][1]= 4; coord1[2][2]= 9;
- coord1[3][0]=0; coord1[3][1]= 6; coord1[3][2]=11;
- coord1[4][0]=1; coord1[4][1]= 8; coord1[4][2]=13;
- coord1[5][0]=2; coord1[5][1]=12; coord1[5][2]= 0;
- coord1[6][0]=0; coord1[6][1]=14; coord1[6][2]= 2;
- coord1[7][0]=1; coord1[7][1]= 0; coord1[7][2]= 4;
- coord1[8][0]=2; coord1[8][1]= 1; coord1[8][2]= 6;
- coord1[9][0]=0; coord1[9][1]= 3; coord1[9][2]= 8;
- ret = H5Sselect_elements(sid1, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord1);
+ coord1[0][0] = 0;
+ coord1[0][1] = 10;
+ coord1[0][2] = 5;
+ coord1[1][0] = 1;
+ coord1[1][1] = 2;
+ coord1[1][2] = 7;
+ coord1[2][0] = 2;
+ coord1[2][1] = 4;
+ coord1[2][2] = 9;
+ coord1[3][0] = 0;
+ coord1[3][1] = 6;
+ coord1[3][2] = 11;
+ coord1[4][0] = 1;
+ coord1[4][1] = 8;
+ coord1[4][2] = 13;
+ coord1[5][0] = 2;
+ coord1[5][1] = 12;
+ coord1[5][2] = 0;
+ coord1[6][0] = 0;
+ coord1[6][1] = 14;
+ coord1[6][2] = 2;
+ coord1[7][0] = 1;
+ coord1[7][1] = 0;
+ coord1[7][2] = 4;
+ coord1[8][0] = 2;
+ coord1[8][1] = 1;
+ coord1[8][2] = 6;
+ coord1[9][0] = 0;
+ coord1[9][1] = 3;
+ coord1[9][2] = 8;
+ ret = H5Sselect_elements(sid1, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord1);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Select sequence of ten points for write dataset */
- coord2[0][0]=12; coord2[0][1]= 3;
- coord2[1][0]=15; coord2[1][1]=13;
- coord2[2][0]= 7; coord2[2][1]=25;
- coord2[3][0]= 0; coord2[3][1]= 6;
- coord2[4][0]=13; coord2[4][1]= 0;
- coord2[5][0]=24; coord2[5][1]=11;
- coord2[6][0]=12; coord2[6][1]=21;
- coord2[7][0]=29; coord2[7][1]= 4;
- coord2[8][0]= 8; coord2[8][1]= 8;
- coord2[9][0]=19; coord2[9][1]=17;
- ret = H5Sselect_elements(sid2, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord2);
+ coord2[0][0] = 12;
+ coord2[0][1] = 3;
+ coord2[1][0] = 15;
+ coord2[1][1] = 13;
+ coord2[2][0] = 7;
+ coord2[2][1] = 25;
+ coord2[3][0] = 0;
+ coord2[3][1] = 6;
+ coord2[4][0] = 13;
+ coord2[4][1] = 0;
+ coord2[5][0] = 24;
+ coord2[5][1] = 11;
+ coord2[6][0] = 12;
+ coord2[6][1] = 21;
+ coord2[7][0] = 29;
+ coord2[7][1] = 4;
+ coord2[8][0] = 8;
+ coord2[8][1] = 8;
+ coord2[9][0] = 19;
+ coord2[9][1] = 17;
+ ret = H5Sselect_elements(sid2, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord2);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Make a copy of the dataspace to write */
@@ -3885,17 +3942,27 @@ test_select_point_copy(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select sequence of points for read dataset */
- coord3[0][0]= 0; coord3[0][1]= 2;
- coord3[1][0]= 4; coord3[1][1]= 8;
- coord3[2][0]=13; coord3[2][1]=13;
- coord3[3][0]=14; coord3[3][1]=25;
- coord3[4][0]= 7; coord3[4][1]= 9;
- coord3[5][0]= 2; coord3[5][1]= 0;
- coord3[6][0]= 9; coord3[6][1]=19;
- coord3[7][0]= 1; coord3[7][1]=22;
- coord3[8][0]=12; coord3[8][1]=21;
- coord3[9][0]=11; coord3[9][1]= 6;
- ret = H5Sselect_elements(sid2, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord3);
+ coord3[0][0] = 0;
+ coord3[0][1] = 2;
+ coord3[1][0] = 4;
+ coord3[1][1] = 8;
+ coord3[2][0] = 13;
+ coord3[2][1] = 13;
+ coord3[3][0] = 14;
+ coord3[3][1] = 25;
+ coord3[4][0] = 7;
+ coord3[4][1] = 9;
+ coord3[5][0] = 2;
+ coord3[5][1] = 0;
+ coord3[6][0] = 9;
+ coord3[6][1] = 19;
+ coord3[7][0] = 1;
+ coord3[7][1] = 22;
+ coord3[8][0] = 12;
+ coord3[8][1] = 21;
+ coord3[9][0] = 11;
+ coord3[9][1] = 6;
+ ret = H5Sselect_elements(sid2, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord3);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Make a copy of the dataspace to read */
@@ -3903,15 +3970,15 @@ test_select_point_copy(void)
CHECK(sid3, FAIL, "H5Scopy");
/* Read selection from disk */
- ret=H5Dread(data1,H5T_STD_U16LE,sid2,sid1,H5P_DEFAULT,rbuf);
+ ret = H5Dread(data1, H5T_STD_U16LE, sid2, sid1, H5P_DEFAULT, rbuf);
CHECK(ret, FAIL, "H5Dread");
/* Read selection from disk */
- ret=H5Dread(data2,H5T_STD_U16LE,sid3,sid1,H5P_DEFAULT,rbuf2);
+ ret = H5Dread(data2, H5T_STD_U16LE, sid3, sid1, H5P_DEFAULT, rbuf2);
CHECK(ret, FAIL, "H5Dread");
/* Compare data read with data written out */
- if(HDmemcmp(rbuf,rbuf2,sizeof(uint16_t)*SPACE3_DIM1*SPACE3_DIM2))
+ if (HDmemcmp(rbuf, rbuf2, sizeof(uint16_t) * SPACE3_DIM1 * SPACE3_DIM2))
TestErrPrintf("point values don't match!\n");
/* Close memory dataspace */
@@ -3942,7 +4009,7 @@ test_select_point_copy(void)
HDfree(wbuf);
HDfree(rbuf);
HDfree(rbuf2);
-} /* test_select_point_copy() */
+} /* test_select_point_copy() */
/****************************************************************
**
@@ -3954,25 +4021,25 @@ test_select_point_copy(void)
static void
test_select_hyper_offset(void)
{
- hid_t fid1; /* HDF5 File IDs */
- hid_t dataset; /* Dataset ID */
- hid_t sid1,sid2; /* Dataspace ID */
- hsize_t dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
- hsize_t dims2[] = {SPACE2_DIM1, SPACE2_DIM2};
- hsize_t dims3[] = {SPACE3_DIM1, SPACE3_DIM2};
- hsize_t start[SPACE1_RANK]; /* Starting location of hyperslab */
- hsize_t stride[SPACE1_RANK]; /* Stride of hyperslab */
- hsize_t count[SPACE1_RANK]; /* Element count of hyperslab */
- hsize_t block[SPACE1_RANK]; /* Block size of hyperslab */
- hssize_t offset[SPACE1_RANK]; /* Offset of selection */
- uint8_t *wbuf, /* buffer to write to disk */
- *rbuf, /* buffer read from disk */
- *tbuf, /* temporary buffer pointer */
- *tbuf2; /* temporary buffer pointer */
- int i,j; /* Counters */
- herr_t ret; /* Generic return value */
- htri_t valid; /* Generic boolean return value */
- H5S_class_t ext_type; /* Extent type */
+ hid_t fid1; /* HDF5 File IDs */
+ hid_t dataset; /* Dataset ID */
+ hid_t sid1, sid2; /* Dataspace ID */
+ hsize_t dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
+ hsize_t dims2[] = {SPACE2_DIM1, SPACE2_DIM2};
+ hsize_t dims3[] = {SPACE3_DIM1, SPACE3_DIM2};
+ hsize_t start[SPACE1_RANK]; /* Starting location of hyperslab */
+ hsize_t stride[SPACE1_RANK]; /* Stride of hyperslab */
+ hsize_t count[SPACE1_RANK]; /* Element count of hyperslab */
+ hsize_t block[SPACE1_RANK]; /* Block size of hyperslab */
+ hssize_t offset[SPACE1_RANK]; /* Offset of selection */
+ uint8_t *wbuf, /* buffer to write to disk */
+ *rbuf, /* buffer read from disk */
+ *tbuf, /* temporary buffer pointer */
+ *tbuf2; /* temporary buffer pointer */
+ int i, j; /* Counters */
+ herr_t ret; /* Generic return value */
+ htri_t valid; /* Generic boolean return value */
+ H5S_class_t ext_type; /* Extent type */
/* Output message about test being performed */
MESSAGE(5, ("Testing Hyperslab Selection Functions with Offsets\n"));
@@ -3984,9 +4051,9 @@ test_select_hyper_offset(void)
CHECK_PTR(rbuf, "HDcalloc");
/* Initialize write buffer */
- for(i=0, tbuf=wbuf; i<SPACE2_DIM1; i++)
- for(j=0; j<SPACE2_DIM2; j++)
- *tbuf++=(uint8_t)((i*SPACE2_DIM2)+j);
+ for (i = 0, tbuf = wbuf; i < SPACE2_DIM1; i++)
+ for (j = 0; j < SPACE2_DIM2; j++)
+ *tbuf++ = (uint8_t)((i * SPACE2_DIM2) + j);
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
@@ -4005,45 +4072,64 @@ test_select_hyper_offset(void)
VERIFY(ext_type, H5S_SIMPLE, "H5Sget_simple_extent_type");
/* Select 2x15x13 hyperslab for disk dataset */
- start[0]=1; start[1]=0; start[2]=0;
- stride[0]=1; stride[1]=1; stride[2]=1;
- count[0]=2; count[1]=15; count[2]=13;
- block[0]=1; block[1]=1; block[2]=1;
- ret = H5Sselect_hyperslab(sid1,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 1;
+ start[1] = 0;
+ start[2] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ stride[2] = 1;
+ count[0] = 2;
+ count[1] = 15;
+ count[2] = 13;
+ block[0] = 1;
+ block[1] = 1;
+ block[2] = 1;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Check a valid offset */
- offset[0]=-1; offset[1]=0; offset[2]=0;
- ret = H5Soffset_simple(sid1,offset);
+ offset[0] = -1;
+ offset[1] = 0;
+ offset[2] = 0;
+ ret = H5Soffset_simple(sid1, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
valid = H5Sselect_valid(sid1);
VERIFY(valid, TRUE, "H5Sselect_valid");
/* Check an invalid offset */
- offset[0]=10; offset[1]=0; offset[2]=0;
- ret = H5Soffset_simple(sid1,offset);
+ offset[0] = 10;
+ offset[1] = 0;
+ offset[2] = 0;
+ ret = H5Soffset_simple(sid1, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
valid = H5Sselect_valid(sid1);
VERIFY(valid, FALSE, "H5Sselect_valid");
/* Reset offset */
- offset[0]=0; offset[1]=0; offset[2]=0;
- ret = H5Soffset_simple(sid1,offset);
+ offset[0] = 0;
+ offset[1] = 0;
+ offset[2] = 0;
+ ret = H5Soffset_simple(sid1, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
valid = H5Sselect_valid(sid1);
VERIFY(valid, TRUE, "H5Sselect_valid");
/* Select 15x26 hyperslab for memory dataset */
- start[0]=15; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=15; count[1]=26;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 15;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 15;
+ count[1] = 26;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Choose a valid offset for the memory dataspace */
- offset[0]=-10; offset[1]=0;
- ret = H5Soffset_simple(sid2,offset);
+ offset[0] = -10;
+ offset[1] = 0;
+ ret = H5Soffset_simple(sid2, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
valid = H5Sselect_valid(sid2);
VERIFY(valid, TRUE, "H5Sselect_valid");
@@ -4065,26 +4151,31 @@ test_select_hyper_offset(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 15x26 hyperslab for reading memory dataset */
- start[0]=0; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=15; count[1]=26;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 15;
+ count[1] = 26;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Read selection from disk */
- ret=H5Dread(dataset,H5T_NATIVE_UCHAR,sid2,sid1,H5P_DEFAULT,rbuf);
+ ret = H5Dread(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, rbuf);
CHECK(ret, FAIL, "H5Dread");
/* Compare data read with data written out */
- for(i=0; i<SPACE3_DIM1; i++) {
- tbuf=wbuf+((i+5)*SPACE2_DIM2);
- tbuf2=rbuf+(i*SPACE3_DIM2);
- for(j=0; j<SPACE3_DIM2; j++, tbuf++, tbuf2++) {
- if(*tbuf!=*tbuf2)
- TestErrPrintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%u, *tbuf2=%u\n",__LINE__,i,j,(unsigned)*tbuf,(unsigned)*tbuf2);
+ for (i = 0; i < SPACE3_DIM1; i++) {
+ tbuf = wbuf + ((i + 5) * SPACE2_DIM2);
+ tbuf2 = rbuf + (i * SPACE3_DIM2);
+ for (j = 0; j < SPACE3_DIM2; j++, tbuf++, tbuf2++) {
+ if (*tbuf != *tbuf2)
+ TestErrPrintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%u, *tbuf2=%u\n",
+ __LINE__, i, j, (unsigned)*tbuf, (unsigned)*tbuf2);
} /* end for */
- } /* end for */
+ } /* end for */
/* Close memory dataspace */
ret = H5Sclose(sid2);
@@ -4105,7 +4196,7 @@ test_select_hyper_offset(void)
/* Free memory buffers */
HDfree(wbuf);
HDfree(rbuf);
-} /* test_select_hyper_offset() */
+} /* test_select_hyper_offset() */
/****************************************************************
**
@@ -4116,21 +4207,21 @@ test_select_hyper_offset(void)
static void
test_select_hyper_offset2(void)
{
- hid_t fid1; /* HDF5 File IDs */
+ hid_t fid1; /* HDF5 File IDs */
hid_t dataset; /* Dataset ID */
- hid_t sid1,sid2; /* Dataspace ID */
- hsize_t dims1[] = {SPACE7_DIM1, SPACE7_DIM2};
- hsize_t dims2[] = {SPACE7_DIM1, SPACE7_DIM2};
- hsize_t start[SPACE7_RANK]; /* Starting location of hyperslab */
- hsize_t count[SPACE7_RANK]; /* Element count of hyperslab */
- hssize_t offset[SPACE7_RANK]; /* Offset of selection */
- uint8_t *wbuf, /* buffer to write to disk */
- *rbuf, /* buffer read from disk */
- *tbuf, /* temporary buffer pointer */
- *tbuf2; /* temporary buffer pointer */
- int i,j; /* Counters */
- herr_t ret; /* Generic return value */
- htri_t valid; /* Generic boolean return value */
+ hid_t sid1, sid2; /* Dataspace ID */
+ hsize_t dims1[] = {SPACE7_DIM1, SPACE7_DIM2};
+ hsize_t dims2[] = {SPACE7_DIM1, SPACE7_DIM2};
+ hsize_t start[SPACE7_RANK]; /* Starting location of hyperslab */
+ hsize_t count[SPACE7_RANK]; /* Element count of hyperslab */
+ hssize_t offset[SPACE7_RANK]; /* Offset of selection */
+ uint8_t *wbuf, /* buffer to write to disk */
+ *rbuf, /* buffer read from disk */
+ *tbuf, /* temporary buffer pointer */
+ *tbuf2; /* temporary buffer pointer */
+ int i, j; /* Counters */
+ herr_t ret; /* Generic return value */
+ htri_t valid; /* Generic boolean return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing More Hyperslab Selection Functions with Offsets\n"));
@@ -4142,9 +4233,9 @@ test_select_hyper_offset2(void)
CHECK_PTR(rbuf, "HDcalloc");
/* Initialize write buffer */
- for(i=0, tbuf=wbuf; i<SPACE7_DIM1; i++)
- for(j=0; j<SPACE7_DIM2; j++)
- *tbuf++=(uint8_t)((i*SPACE7_DIM2)+j);
+ for (i = 0, tbuf = wbuf; i < SPACE7_DIM1; i++)
+ for (j = 0; j < SPACE7_DIM2; j++)
+ *tbuf++ = (uint8_t)((i * SPACE7_DIM2) + j);
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
@@ -4159,27 +4250,33 @@ test_select_hyper_offset2(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 4x10 hyperslab for disk dataset */
- start[0]=1; start[1]=0;
- count[0]=4; count[1]=10;
- ret = H5Sselect_hyperslab(sid1,H5S_SELECT_SET,start,NULL,count,NULL);
+ start[0] = 1;
+ start[1] = 0;
+ count[0] = 4;
+ count[1] = 10;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, NULL, count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Set offset */
- offset[0]=1; offset[1]=0;
- ret = H5Soffset_simple(sid1,offset);
+ offset[0] = 1;
+ offset[1] = 0;
+ ret = H5Soffset_simple(sid1, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
valid = H5Sselect_valid(sid1);
VERIFY(valid, TRUE, "H5Sselect_valid");
/* Select 4x10 hyperslab for memory dataset */
- start[0]=1; start[1]=0;
- count[0]=4; count[1]=10;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,NULL,count,NULL);
+ start[0] = 1;
+ start[1] = 0;
+ count[0] = 4;
+ count[1] = 10;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, NULL, count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Choose a valid offset for the memory dataspace */
- offset[0]=2; offset[1]=0;
- ret = H5Soffset_simple(sid2, offset);
+ offset[0] = 2;
+ offset[1] = 0;
+ ret = H5Soffset_simple(sid2, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
valid = H5Sselect_valid(sid2);
VERIFY(valid, TRUE, "H5Sselect_valid");
@@ -4197,14 +4294,15 @@ test_select_hyper_offset2(void)
CHECK(ret, FAIL, "H5Dread");
/* Compare data read with data written out */
- for(i=0; i<4; i++) {
- tbuf=wbuf+((i+3)*SPACE7_DIM2);
- tbuf2=rbuf+((i+3)*SPACE7_DIM2);
- for(j=0; j<SPACE7_DIM2; j++, tbuf++, tbuf2++) {
- if(*tbuf!=*tbuf2)
- TestErrPrintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%u, *tbuf2=%u\n",__LINE__,i,j,(unsigned)*tbuf,(unsigned)*tbuf2);
+ for (i = 0; i < 4; i++) {
+ tbuf = wbuf + ((i + 3) * SPACE7_DIM2);
+ tbuf2 = rbuf + ((i + 3) * SPACE7_DIM2);
+ for (j = 0; j < SPACE7_DIM2; j++, tbuf++, tbuf2++) {
+ if (*tbuf != *tbuf2)
+ TestErrPrintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%u, *tbuf2=%u\n",
+ __LINE__, i, j, (unsigned)*tbuf, (unsigned)*tbuf2);
} /* end for */
- } /* end for */
+ } /* end for */
/* Close memory dataspace */
ret = H5Sclose(sid2);
@@ -4225,7 +4323,7 @@ test_select_hyper_offset2(void)
/* Free memory buffers */
HDfree(wbuf);
HDfree(rbuf);
-} /* test_select_hyper_offset2() */
+} /* test_select_hyper_offset2() */
/****************************************************************
**
@@ -4237,23 +4335,23 @@ test_select_hyper_offset2(void)
static void
test_select_point_offset(void)
{
- hid_t fid1; /* HDF5 File IDs */
- hid_t dataset; /* Dataset ID */
- hid_t sid1,sid2; /* Dataspace ID */
- hsize_t dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
- hsize_t dims2[] = {SPACE2_DIM1, SPACE2_DIM2};
- hsize_t dims3[] = {SPACE3_DIM1, SPACE3_DIM2};
- hsize_t coord1[POINT1_NPOINTS][SPACE1_RANK]; /* Coordinates for point selection */
- hsize_t coord2[POINT1_NPOINTS][SPACE2_RANK]; /* Coordinates for point selection */
- hsize_t coord3[POINT1_NPOINTS][SPACE3_RANK]; /* Coordinates for point selection */
- hssize_t offset[SPACE1_RANK]; /* Offset of selection */
- uint8_t *wbuf, /* buffer to write to disk */
- *rbuf, /* buffer read from disk */
- *tbuf, /* temporary buffer pointer */
- *tbuf2; /* temporary buffer pointer */
- int i,j; /* Counters */
- herr_t ret; /* Generic return value */
- htri_t valid; /* Generic boolean return value */
+ hid_t fid1; /* HDF5 File IDs */
+ hid_t dataset; /* Dataset ID */
+ hid_t sid1, sid2; /* Dataspace ID */
+ hsize_t dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
+ hsize_t dims2[] = {SPACE2_DIM1, SPACE2_DIM2};
+ hsize_t dims3[] = {SPACE3_DIM1, SPACE3_DIM2};
+ hsize_t coord1[POINT1_NPOINTS][SPACE1_RANK]; /* Coordinates for point selection */
+ hsize_t coord2[POINT1_NPOINTS][SPACE2_RANK]; /* Coordinates for point selection */
+ hsize_t coord3[POINT1_NPOINTS][SPACE3_RANK]; /* Coordinates for point selection */
+ hssize_t offset[SPACE1_RANK]; /* Offset of selection */
+ uint8_t *wbuf, /* buffer to write to disk */
+ *rbuf, /* buffer read from disk */
+ *tbuf, /* temporary buffer pointer */
+ *tbuf2; /* temporary buffer pointer */
+ int i, j; /* Counters */
+ herr_t ret; /* Generic return value */
+ htri_t valid; /* Generic boolean return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Element Selection Functions\n"));
@@ -4265,9 +4363,9 @@ test_select_point_offset(void)
CHECK_PTR(rbuf, "HDcalloc");
/* Initialize write buffer */
- for(i=0, tbuf=wbuf; i<SPACE2_DIM1; i++)
- for(j=0; j<SPACE2_DIM2; j++)
- *tbuf++=(uint8_t)((i*SPACE2_DIM2)+j);
+ for (i = 0, tbuf = wbuf; i < SPACE2_DIM1; i++)
+ for (j = 0; j < SPACE2_DIM2; j++)
+ *tbuf++ = (uint8_t)((i * SPACE2_DIM2) + j);
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
@@ -4282,57 +4380,94 @@ test_select_point_offset(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select sequence of ten points for disk dataset */
- coord1[0][0]=0; coord1[0][1]=10; coord1[0][2]= 5;
- coord1[1][0]=1; coord1[1][1]= 2; coord1[1][2]= 7;
- coord1[2][0]=2; coord1[2][1]= 4; coord1[2][2]= 9;
- coord1[3][0]=0; coord1[3][1]= 6; coord1[3][2]=11;
- coord1[4][0]=1; coord1[4][1]= 8; coord1[4][2]=12;
- coord1[5][0]=2; coord1[5][1]=12; coord1[5][2]= 0;
- coord1[6][0]=0; coord1[6][1]=14; coord1[6][2]= 2;
- coord1[7][0]=1; coord1[7][1]= 0; coord1[7][2]= 4;
- coord1[8][0]=2; coord1[8][1]= 1; coord1[8][2]= 6;
- coord1[9][0]=0; coord1[9][1]= 3; coord1[9][2]= 8;
- ret = H5Sselect_elements(sid1, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord1);
+ coord1[0][0] = 0;
+ coord1[0][1] = 10;
+ coord1[0][2] = 5;
+ coord1[1][0] = 1;
+ coord1[1][1] = 2;
+ coord1[1][2] = 7;
+ coord1[2][0] = 2;
+ coord1[2][1] = 4;
+ coord1[2][2] = 9;
+ coord1[3][0] = 0;
+ coord1[3][1] = 6;
+ coord1[3][2] = 11;
+ coord1[4][0] = 1;
+ coord1[4][1] = 8;
+ coord1[4][2] = 12;
+ coord1[5][0] = 2;
+ coord1[5][1] = 12;
+ coord1[5][2] = 0;
+ coord1[6][0] = 0;
+ coord1[6][1] = 14;
+ coord1[6][2] = 2;
+ coord1[7][0] = 1;
+ coord1[7][1] = 0;
+ coord1[7][2] = 4;
+ coord1[8][0] = 2;
+ coord1[8][1] = 1;
+ coord1[8][2] = 6;
+ coord1[9][0] = 0;
+ coord1[9][1] = 3;
+ coord1[9][2] = 8;
+ ret = H5Sselect_elements(sid1, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord1);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Check a valid offset */
- offset[0]=0; offset[1]=0; offset[2]=1;
- ret = H5Soffset_simple(sid1,offset);
+ offset[0] = 0;
+ offset[1] = 0;
+ offset[2] = 1;
+ ret = H5Soffset_simple(sid1, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
valid = H5Sselect_valid(sid1);
VERIFY(valid, TRUE, "H5Sselect_valid");
/* Check an invalid offset */
- offset[0]=10; offset[1]=0; offset[2]=0;
- ret = H5Soffset_simple(sid1,offset);
+ offset[0] = 10;
+ offset[1] = 0;
+ offset[2] = 0;
+ ret = H5Soffset_simple(sid1, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
valid = H5Sselect_valid(sid1);
VERIFY(valid, FALSE, "H5Sselect_valid");
/* Reset offset */
- offset[0]=0; offset[1]=0; offset[2]=0;
- ret = H5Soffset_simple(sid1,offset);
+ offset[0] = 0;
+ offset[1] = 0;
+ offset[2] = 0;
+ ret = H5Soffset_simple(sid1, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
valid = H5Sselect_valid(sid1);
VERIFY(valid, TRUE, "H5Sselect_valid");
/* Select sequence of ten points for write dataset */
- coord2[0][0]=12; coord2[0][1]= 3;
- coord2[1][0]=15; coord2[1][1]=13;
- coord2[2][0]= 7; coord2[2][1]=24;
- coord2[3][0]= 0; coord2[3][1]= 6;
- coord2[4][0]=13; coord2[4][1]= 0;
- coord2[5][0]=24; coord2[5][1]=11;
- coord2[6][0]=12; coord2[6][1]=21;
- coord2[7][0]=23; coord2[7][1]= 4;
- coord2[8][0]= 8; coord2[8][1]= 8;
- coord2[9][0]=19; coord2[9][1]=17;
- ret = H5Sselect_elements(sid2, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord2);
+ coord2[0][0] = 12;
+ coord2[0][1] = 3;
+ coord2[1][0] = 15;
+ coord2[1][1] = 13;
+ coord2[2][0] = 7;
+ coord2[2][1] = 24;
+ coord2[3][0] = 0;
+ coord2[3][1] = 6;
+ coord2[4][0] = 13;
+ coord2[4][1] = 0;
+ coord2[5][0] = 24;
+ coord2[5][1] = 11;
+ coord2[6][0] = 12;
+ coord2[6][1] = 21;
+ coord2[7][0] = 23;
+ coord2[7][1] = 4;
+ coord2[8][0] = 8;
+ coord2[8][1] = 8;
+ coord2[9][0] = 19;
+ coord2[9][1] = 17;
+ ret = H5Sselect_elements(sid2, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord2);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Choose a valid offset for the memory dataspace */
- offset[0]=5; offset[1]=1;
- ret = H5Soffset_simple(sid2, offset);
+ offset[0] = 5;
+ offset[1] = 1;
+ ret = H5Soffset_simple(sid2, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
valid = H5Sselect_valid(sid2);
VERIFY(valid, TRUE, "H5Sselect_valid");
@@ -4354,17 +4489,27 @@ test_select_point_offset(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select sequence of points for read dataset */
- coord3[0][0]= 0; coord3[0][1]= 2;
- coord3[1][0]= 4; coord3[1][1]= 8;
- coord3[2][0]=13; coord3[2][1]=13;
- coord3[3][0]=14; coord3[3][1]=25;
- coord3[4][0]= 7; coord3[4][1]= 9;
- coord3[5][0]= 2; coord3[5][1]= 0;
- coord3[6][0]= 9; coord3[6][1]=19;
- coord3[7][0]= 1; coord3[7][1]=22;
- coord3[8][0]=12; coord3[8][1]=21;
- coord3[9][0]=11; coord3[9][1]= 6;
- ret = H5Sselect_elements(sid2, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord3);
+ coord3[0][0] = 0;
+ coord3[0][1] = 2;
+ coord3[1][0] = 4;
+ coord3[1][1] = 8;
+ coord3[2][0] = 13;
+ coord3[2][1] = 13;
+ coord3[3][0] = 14;
+ coord3[3][1] = 25;
+ coord3[4][0] = 7;
+ coord3[4][1] = 9;
+ coord3[5][0] = 2;
+ coord3[5][1] = 0;
+ coord3[6][0] = 9;
+ coord3[6][1] = 19;
+ coord3[7][0] = 1;
+ coord3[7][1] = 22;
+ coord3[8][0] = 12;
+ coord3[8][1] = 21;
+ coord3[9][0] = 11;
+ coord3[9][1] = 6;
+ ret = H5Sselect_elements(sid2, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord3);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Read selection from disk */
@@ -4372,10 +4517,10 @@ test_select_point_offset(void)
CHECK(ret, FAIL, "H5Dread");
/* Compare data read with data written out */
- for(i = 0; i < POINT1_NPOINTS; i++) {
+ for (i = 0; i < POINT1_NPOINTS; i++) {
tbuf = wbuf + ((coord2[i][0] + (hsize_t)offset[0]) * SPACE2_DIM2) + coord2[i][1] + (hsize_t)offset[1];
tbuf2 = rbuf + (coord3[i][0] * SPACE3_DIM2) + coord3[i][1];
- if(*tbuf != *tbuf2)
+ if (*tbuf != *tbuf2)
TestErrPrintf("element values don't match!, i=%d\n", i);
} /* end for */
@@ -4398,7 +4543,7 @@ test_select_point_offset(void)
/* Free memory buffers */
HDfree(wbuf);
HDfree(rbuf);
-} /* test_select_point_offset() */
+} /* test_select_point_offset() */
/****************************************************************
**
@@ -4409,31 +4554,31 @@ test_select_point_offset(void)
static void
test_select_hyper_union(void)
{
- hid_t fid1; /* HDF5 File IDs */
- hid_t dataset; /* Dataset ID */
- hid_t sid1,sid2; /* Dataspace ID */
- hid_t xfer; /* Dataset Transfer Property List ID */
- hsize_t dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
- hsize_t dims2[] = {SPACE2_DIM1, SPACE2_DIM2};
- hsize_t dims3[] = {SPACE3_DIM1, SPACE3_DIM2};
- hsize_t start[SPACE1_RANK]; /* Starting location of hyperslab */
- hsize_t stride[SPACE1_RANK]; /* Stride of hyperslab */
- hsize_t count[SPACE1_RANK]; /* Element count of hyperslab */
- hsize_t block[SPACE1_RANK]; /* Block size of hyperslab */
- size_t begin[SPACE2_DIM1]= /* Offset within irregular block */
- {0,0,0,0,0,0,0,0,0,0, /* First ten rows start at offset 0 */
- 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5}; /* Next eighteen rows start at offset 5 */
- size_t len[SPACE2_DIM1]= /* Len of each row within irregular block */
- {10,10,10,10,10,10,10,10, /* First eight rows are 10 long */
- 20,20, /* Next two rows are 20 long */
- 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15}; /* Next eighteen rows are 15 long */
- uint8_t *wbuf, /* buffer to write to disk */
- *rbuf, /* buffer read from disk */
- *tbuf, /* temporary buffer pointer */
- *tbuf2; /* temporary buffer pointer */
- int i,j; /* Counters */
- herr_t ret; /* Generic return value */
- hssize_t npoints; /* Number of elements in selection */
+ hid_t fid1; /* HDF5 File IDs */
+ hid_t dataset; /* Dataset ID */
+ hid_t sid1, sid2; /* Dataspace ID */
+ hid_t xfer; /* Dataset Transfer Property List ID */
+ hsize_t dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
+ hsize_t dims2[] = {SPACE2_DIM1, SPACE2_DIM2};
+ hsize_t dims3[] = {SPACE3_DIM1, SPACE3_DIM2};
+ hsize_t start[SPACE1_RANK]; /* Starting location of hyperslab */
+ hsize_t stride[SPACE1_RANK]; /* Stride of hyperslab */
+ hsize_t count[SPACE1_RANK]; /* Element count of hyperslab */
+ hsize_t block[SPACE1_RANK]; /* Block size of hyperslab */
+ size_t begin[SPACE2_DIM1] = /* Offset within irregular block */
+ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* First ten rows start at offset 0 */
+ 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5}; /* Next eighteen rows start at offset 5 */
+ size_t len[SPACE2_DIM1] = /* Len of each row within irregular block */
+ {10, 10, 10, 10, 10, 10, 10, 10, /* First eight rows are 10 long */
+ 20, 20, /* Next two rows are 20 long */
+ 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15}; /* Next eighteen rows are 15 long */
+ uint8_t *wbuf, /* buffer to write to disk */
+ *rbuf, /* buffer read from disk */
+ *tbuf, /* temporary buffer pointer */
+ *tbuf2; /* temporary buffer pointer */
+ int i, j; /* Counters */
+ herr_t ret; /* Generic return value */
+ hssize_t npoints; /* Number of elements in selection */
/* Output message about test being performed */
MESSAGE(5, ("Testing Hyperslab Selection Functions with unions of hyperslabs\n"));
@@ -4445,15 +4590,15 @@ test_select_hyper_union(void)
CHECK_PTR(rbuf, "HDcalloc");
/* Initialize write buffer */
- for(i=0, tbuf=wbuf; i<SPACE2_DIM1; i++)
- for(j=0; j<SPACE2_DIM2; j++)
- *tbuf++=(uint8_t)((i*SPACE2_DIM2)+j);
+ for (i = 0, tbuf = wbuf; i < SPACE2_DIM1; i++)
+ for (j = 0; j < SPACE2_DIM2; j++)
+ *tbuf++ = (uint8_t)((i * SPACE2_DIM2) + j);
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
CHECK(fid1, FAIL, "H5Fcreate");
-/* Test simple case of one block overlapping another */
+ /* Test simple case of one block overlapping another */
/* Create dataspace for dataset */
sid1 = H5Screate_simple(SPACE1_RANK, dims1, NULL);
CHECK(sid1, FAIL, "H5Screate_simple");
@@ -4463,30 +4608,46 @@ test_select_hyper_union(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 2x15x13 hyperslab for disk dataset */
- start[0]=1; start[1]=0; start[2]=0;
- stride[0]=1; stride[1]=1; stride[2]=1;
- count[0]=2; count[1]=15; count[2]=13;
- block[0]=1; block[1]=1; block[2]=1;
- ret = H5Sselect_hyperslab(sid1,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 1;
+ start[1] = 0;
+ start[2] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ stride[2] = 1;
+ count[0] = 2;
+ count[1] = 15;
+ count[2] = 13;
+ block[0] = 1;
+ block[1] = 1;
+ block[2] = 1;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
npoints = H5Sget_select_npoints(sid1);
VERIFY(npoints, 2 * 15 * 13, "H5Sget_select_npoints");
/* Select 8x26 hyperslab for memory dataset */
- start[0]=15; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=8; count[1]=26;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 15;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 8;
+ count[1] = 26;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Union overlapping 8x26 hyperslab for memory dataset (to form a 15x26 selection) */
- start[0]=22; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=8; count[1]=26;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_OR,start,stride,count,block);
+ start[0] = 22;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 8;
+ count[1] = 26;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
npoints = H5Sget_select_npoints(sid2);
@@ -4509,26 +4670,31 @@ test_select_hyper_union(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 15x26 hyperslab for reading memory dataset */
- start[0]=0; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=15; count[1]=26;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 15;
+ count[1] = 26;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Read selection from disk */
- ret=H5Dread(dataset,H5T_NATIVE_UCHAR,sid2,sid1,H5P_DEFAULT,rbuf);
+ ret = H5Dread(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, rbuf);
CHECK(ret, FAIL, "H5Dread");
/* Compare data read with data written out */
- for(i=0; i<SPACE3_DIM1; i++) {
- tbuf=wbuf+((i+15)*SPACE2_DIM2);
- tbuf2=rbuf+(i*SPACE3_DIM2);
- for(j=0; j<SPACE3_DIM2; j++, tbuf++, tbuf2++) {
- if(*tbuf!=*tbuf2)
- TestErrPrintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%d, *tbuf2=%d\n",__LINE__,i,j,(int)*tbuf,(int)*tbuf2);
+ for (i = 0; i < SPACE3_DIM1; i++) {
+ tbuf = wbuf + ((i + 15) * SPACE2_DIM2);
+ tbuf2 = rbuf + (i * SPACE3_DIM2);
+ for (j = 0; j < SPACE3_DIM2; j++, tbuf++, tbuf2++) {
+ if (*tbuf != *tbuf2)
+ TestErrPrintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%d, *tbuf2=%d\n",
+ __LINE__, i, j, (int)*tbuf, (int)*tbuf2);
} /* end for */
- } /* end for */
+ } /* end for */
/* Close memory dataspace */
ret = H5Sclose(sid2);
@@ -4542,7 +4708,7 @@ test_select_hyper_union(void)
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
-/* Test simple case of several block overlapping another */
+ /* Test simple case of several block overlapping another */
/* Create dataspace for dataset */
sid1 = H5Screate_simple(SPACE1_RANK, dims1, NULL);
CHECK(sid1, FAIL, "H5Screate_simple");
@@ -4552,35 +4718,55 @@ test_select_hyper_union(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 2x15x13 hyperslab for disk dataset */
- start[0]=1; start[1]=0; start[2]=0;
- stride[0]=1; stride[1]=1; stride[2]=1;
- count[0]=2; count[1]=15; count[2]=13;
- block[0]=1; block[1]=1; block[2]=1;
- ret = H5Sselect_hyperslab(sid1,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 1;
+ start[1] = 0;
+ start[2] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ stride[2] = 1;
+ count[0] = 2;
+ count[1] = 15;
+ count[2] = 13;
+ block[0] = 1;
+ block[1] = 1;
+ block[2] = 1;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Select 8x15 hyperslab for memory dataset */
- start[0]=15; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=8; count[1]=15;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 15;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 8;
+ count[1] = 15;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Union overlapping 8x15 hyperslab for memory dataset (to form a 15x15 selection) */
- start[0]=22; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=8; count[1]=15;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_OR,start,stride,count,block);
+ start[0] = 22;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 8;
+ count[1] = 15;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Union overlapping 15x15 hyperslab for memory dataset (to form a 15x26 selection) */
- start[0]=15; start[1]=11;
- stride[0]=1; stride[1]=1;
- count[0]=15; count[1]=15;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_OR,start,stride,count,block);
+ start[0] = 15;
+ start[1] = 11;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 15;
+ count[1] = 15;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
npoints = H5Sget_select_npoints(sid2);
@@ -4603,26 +4789,31 @@ test_select_hyper_union(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 15x26 hyperslab for reading memory dataset */
- start[0]=0; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=15; count[1]=26;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 15;
+ count[1] = 26;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Read selection from disk */
- ret=H5Dread(dataset,H5T_NATIVE_UCHAR,sid2,sid1,H5P_DEFAULT,rbuf);
+ ret = H5Dread(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, rbuf);
CHECK(ret, FAIL, "H5Dread");
/* Compare data read with data written out */
- for(i=0; i<SPACE3_DIM1; i++) {
- tbuf=wbuf+((i+15)*SPACE2_DIM2);
- tbuf2=rbuf+(i*SPACE3_DIM2);
- for(j=0; j<SPACE3_DIM2; j++, tbuf++, tbuf2++) {
- if(*tbuf!=*tbuf2)
- TestErrPrintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%d, *tbuf2=%d\n",__LINE__,i,j,(int)*tbuf,(int)*tbuf2);
+ for (i = 0; i < SPACE3_DIM1; i++) {
+ tbuf = wbuf + ((i + 15) * SPACE2_DIM2);
+ tbuf2 = rbuf + (i * SPACE3_DIM2);
+ for (j = 0; j < SPACE3_DIM2; j++, tbuf++, tbuf2++) {
+ if (*tbuf != *tbuf2)
+ TestErrPrintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%d, *tbuf2=%d\n",
+ __LINE__, i, j, (int)*tbuf, (int)*tbuf2);
} /* end for */
- } /* end for */
+ } /* end for */
/* Close memory dataspace */
ret = H5Sclose(sid2);
@@ -4636,7 +4827,7 @@ test_select_hyper_union(void)
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
-/* Test disjoint case of two non-overlapping blocks */
+ /* Test disjoint case of two non-overlapping blocks */
/* Create dataspace for dataset */
sid1 = H5Screate_simple(SPACE1_RANK, dims1, NULL);
CHECK(sid1, FAIL, "H5Screate_simple");
@@ -4646,27 +4837,43 @@ test_select_hyper_union(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 2x15x13 hyperslab for disk dataset */
- start[0]=1; start[1]=0; start[2]=0;
- stride[0]=1; stride[1]=1; stride[2]=1;
- count[0]=2; count[1]=15; count[2]=13;
- block[0]=1; block[1]=1; block[2]=1;
- ret = H5Sselect_hyperslab(sid1,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 1;
+ start[1] = 0;
+ start[2] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ stride[2] = 1;
+ count[0] = 2;
+ count[1] = 15;
+ count[2] = 13;
+ block[0] = 1;
+ block[1] = 1;
+ block[2] = 1;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Select 7x26 hyperslab for memory dataset */
- start[0]=1; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=7; count[1]=26;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 1;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 7;
+ count[1] = 26;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Union non-overlapping 8x26 hyperslab for memory dataset (to form a 15x26 disjoint selection) */
- start[0]=22; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=8; count[1]=26;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_OR,start,stride,count,block);
+ start[0] = 22;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 8;
+ count[1] = 26;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
npoints = H5Sget_select_npoints(sid2);
@@ -4689,30 +4896,35 @@ test_select_hyper_union(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 15x26 hyperslab for reading memory dataset */
- start[0]=0; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=15; count[1]=26;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 15;
+ count[1] = 26;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Read selection from disk */
- ret=H5Dread(dataset,H5T_NATIVE_UCHAR,sid2,sid1,H5P_DEFAULT,rbuf);
+ ret = H5Dread(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, rbuf);
CHECK(ret, FAIL, "H5Dread");
/* Compare data read with data written out */
- for(i=0; i<SPACE3_DIM1; i++) {
+ for (i = 0; i < SPACE3_DIM1; i++) {
/* Jump over gap in middle */
- if(i<7)
- tbuf=wbuf+((i+1)*SPACE2_DIM2);
+ if (i < 7)
+ tbuf = wbuf + ((i + 1) * SPACE2_DIM2);
else
- tbuf=wbuf+((i+15)*SPACE2_DIM2);
- tbuf2=rbuf+(i*SPACE3_DIM2);
- for(j=0; j<SPACE3_DIM2; j++, tbuf++, tbuf2++) {
- if(*tbuf!=*tbuf2)
- TestErrPrintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%d, *tbuf2=%d\n",__LINE__,i,j,(int)*tbuf,(int)*tbuf2);
+ tbuf = wbuf + ((i + 15) * SPACE2_DIM2);
+ tbuf2 = rbuf + (i * SPACE3_DIM2);
+ for (j = 0; j < SPACE3_DIM2; j++, tbuf++, tbuf2++) {
+ if (*tbuf != *tbuf2)
+ TestErrPrintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%d, *tbuf2=%d\n",
+ __LINE__, i, j, (int)*tbuf, (int)*tbuf2);
} /* end for */
- } /* end for */
+ } /* end for */
/* Close memory dataspace */
ret = H5Sclose(sid2);
@@ -4726,7 +4938,7 @@ test_select_hyper_union(void)
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
-/* Test disjoint case of two non-overlapping blocks with hyperslab caching turned off */
+ /* Test disjoint case of two non-overlapping blocks with hyperslab caching turned off */
/* Create dataspace for dataset */
sid1 = H5Screate_simple(SPACE1_RANK, dims1, NULL);
CHECK(sid1, FAIL, "H5Screate_simple");
@@ -4736,27 +4948,43 @@ test_select_hyper_union(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 2x15x13 hyperslab for disk dataset */
- start[0]=1; start[1]=0; start[2]=0;
- stride[0]=1; stride[1]=1; stride[2]=1;
- count[0]=2; count[1]=15; count[2]=13;
- block[0]=1; block[1]=1; block[2]=1;
- ret = H5Sselect_hyperslab(sid1,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 1;
+ start[1] = 0;
+ start[2] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ stride[2] = 1;
+ count[0] = 2;
+ count[1] = 15;
+ count[2] = 13;
+ block[0] = 1;
+ block[1] = 1;
+ block[2] = 1;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Select 7x26 hyperslab for memory dataset */
- start[0]=1; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=7; count[1]=26;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 1;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 7;
+ count[1] = 26;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Union non-overlapping 8x26 hyperslab for memory dataset (to form a 15x26 disjoint selection) */
- start[0]=22; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=8; count[1]=26;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_OR,start,stride,count,block);
+ start[0] = 22;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 8;
+ count[1] = 26;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
npoints = H5Sget_select_npoints(sid2);
@@ -4766,11 +4994,11 @@ test_select_hyper_union(void)
dataset = H5Dcreate2(fid1, SPACE4_NAME, H5T_NATIVE_UCHAR, sid1, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
CHECK(dataset, FAIL, "H5Dcreate2");
- xfer = H5Pcreate (H5P_DATASET_XFER);
+ xfer = H5Pcreate(H5P_DATASET_XFER);
CHECK(xfer, FAIL, "H5Pcreate");
/* Write selection to disk */
- ret=H5Dwrite(dataset,H5T_NATIVE_UCHAR,sid2,sid1,xfer,wbuf);
+ ret = H5Dwrite(dataset, H5T_NATIVE_UCHAR, sid2, sid1, xfer, wbuf);
CHECK(ret, FAIL, "H5Dwrite");
/* Close memory dataspace */
@@ -4782,15 +5010,19 @@ test_select_hyper_union(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 15x26 hyperslab for reading memory dataset */
- start[0]=0; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=15; count[1]=26;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 15;
+ count[1] = 26;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Read selection from disk */
- ret=H5Dread(dataset,H5T_NATIVE_UCHAR,sid2,sid1,xfer,rbuf);
+ ret = H5Dread(dataset, H5T_NATIVE_UCHAR, sid2, sid1, xfer, rbuf);
CHECK(ret, FAIL, "H5Dread");
/* Close transfer property list */
@@ -4798,18 +5030,19 @@ test_select_hyper_union(void)
CHECK(ret, FAIL, "H5Pclose");
/* Compare data read with data written out */
- for(i=0; i<SPACE3_DIM1; i++) {
+ for (i = 0; i < SPACE3_DIM1; i++) {
/* Jump over gap in middle */
- if(i<7)
- tbuf=wbuf+((i+1)*SPACE2_DIM2);
+ if (i < 7)
+ tbuf = wbuf + ((i + 1) * SPACE2_DIM2);
else
- tbuf=wbuf+((i+15)*SPACE2_DIM2);
- tbuf2=rbuf+(i*SPACE3_DIM2);
- for(j=0; j<SPACE3_DIM2; j++, tbuf++, tbuf2++) {
- if(*tbuf!=*tbuf2)
- TestErrPrintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%d, *tbuf2=%d\n",__LINE__,i,j,(int)*tbuf,(int)*tbuf2);
+ tbuf = wbuf + ((i + 15) * SPACE2_DIM2);
+ tbuf2 = rbuf + (i * SPACE3_DIM2);
+ for (j = 0; j < SPACE3_DIM2; j++, tbuf++, tbuf2++) {
+ if (*tbuf != *tbuf2)
+ TestErrPrintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%d, *tbuf2=%d\n",
+ __LINE__, i, j, (int)*tbuf, (int)*tbuf2);
} /* end for */
- } /* end for */
+ } /* end for */
/* Close memory dataspace */
ret = H5Sclose(sid2);
@@ -4823,7 +5056,7 @@ test_select_hyper_union(void)
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
-/* Test case of two blocks which overlap corners and must be split */
+ /* Test case of two blocks which overlap corners and must be split */
/* Create dataspace for dataset */
sid1 = H5Screate_simple(SPACE1_RANK, dims1, NULL);
CHECK(sid1, FAIL, "H5Screate_simple");
@@ -4833,38 +5066,54 @@ test_select_hyper_union(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 2x15x13 hyperslab for disk dataset */
- start[0]=1; start[1]=0; start[2]=0;
- stride[0]=1; stride[1]=1; stride[2]=1;
- count[0]=2; count[1]=15; count[2]=13;
- block[0]=1; block[1]=1; block[2]=1;
- ret = H5Sselect_hyperslab(sid1,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 1;
+ start[1] = 0;
+ start[2] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ stride[2] = 1;
+ count[0] = 2;
+ count[1] = 15;
+ count[2] = 13;
+ block[0] = 1;
+ block[1] = 1;
+ block[2] = 1;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Select 10x10 hyperslab for memory dataset */
- start[0]=0; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=10; count[1]=10;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 10;
+ count[1] = 10;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Union overlapping 15x20 hyperslab for memory dataset (forming a irregularly shaped region) */
- start[0]=8; start[1]=5;
- stride[0]=1; stride[1]=1;
- count[0]=20; count[1]=15;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_OR,start,stride,count,block);
+ start[0] = 8;
+ start[1] = 5;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 20;
+ count[1] = 15;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
npoints = H5Sget_select_npoints(sid2);
VERIFY(npoints, 15 * 26, "H5Sget_select_npoints");
/* Create a dataset */
- dataset = H5Dcreate2(fid1,SPACE5_NAME, H5T_NATIVE_UCHAR, sid1, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
+ dataset = H5Dcreate2(fid1, SPACE5_NAME, H5T_NATIVE_UCHAR, sid1, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
CHECK(dataset, FAIL, "H5Dcreate2");
/* Write selection to disk */
- ret=H5Dwrite(dataset,H5T_NATIVE_UCHAR,sid2,sid1,H5P_DEFAULT,wbuf);
+ ret = H5Dwrite(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, wbuf);
CHECK(ret, FAIL, "H5Dwrite");
/* Close memory dataspace */
@@ -4876,25 +5125,30 @@ test_select_hyper_union(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 15x26 hyperslab for reading memory dataset */
- start[0]=0; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=15; count[1]=26;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 15;
+ count[1] = 26;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Read selection from disk */
- ret=H5Dread(dataset,H5T_NATIVE_UCHAR,sid2,sid1,H5P_DEFAULT,rbuf);
+ ret = H5Dread(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, rbuf);
CHECK(ret, FAIL, "H5Dread");
/* Compare data read with data written out */
- for(i=0,tbuf2=rbuf; i<SPACE2_DIM1; i++) {
- tbuf=wbuf+(i*SPACE2_DIM2)+begin[i];
- for(j=0; j<(int)len[i]; j++, tbuf++, tbuf2++) {
- if(*tbuf!=*tbuf2)
- TestErrPrintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%d, *tbuf2=%d\n",__LINE__,i,j,(int)*tbuf,(int)*tbuf2);
+ for (i = 0, tbuf2 = rbuf; i < SPACE2_DIM1; i++) {
+ tbuf = wbuf + (i * SPACE2_DIM2) + begin[i];
+ for (j = 0; j < (int)len[i]; j++, tbuf++, tbuf2++) {
+ if (*tbuf != *tbuf2)
+ TestErrPrintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%d, *tbuf2=%d\n",
+ __LINE__, i, j, (int)*tbuf, (int)*tbuf2);
} /* end for */
- } /* end for */
+ } /* end for */
/* Close memory dataspace */
ret = H5Sclose(sid2);
@@ -4915,7 +5169,7 @@ test_select_hyper_union(void)
/* Free memory buffers */
HDfree(wbuf);
HDfree(rbuf);
-} /* test_select_hyper_union() */
+} /* test_select_hyper_union() */
/****************************************************************
**
@@ -4927,70 +5181,57 @@ test_select_hyper_union(void)
static void
test_select_hyper_union_stagger(void)
{
- hid_t file_id; /* File ID */
- hid_t dset_id; /* Dataset ID */
- hid_t dataspace; /* File dataspace ID */
- hid_t memspace; /* Memory dataspace ID */
- hid_t tmp_space; /* Temporary dataspace ID */
- hid_t tmp2_space; /* Another emporary dataspace ID */
- hsize_t dimsm[2]={7,7}; /* Memory array dimensions */
- hsize_t dimsf[2]={6,5}; /* File array dimensions */
- hsize_t count[2]={3,1}; /* 1st Hyperslab size */
- hsize_t count2[2]={3,1}; /* 2nd Hyperslab size */
- hsize_t count3[2]={2,1}; /* 3rd Hyperslab size */
- hsize_t start[2]={0,0}; /* 1st Hyperslab offset */
- hsize_t start2[2]={2,1}; /* 2nd Hyperslab offset */
- hsize_t start3[2]={4,2}; /* 3rd Hyperslab offset */
- hsize_t count_out[2]={4,2}; /* Hyperslab size in memory */
- hsize_t start_out[2]={0,3}; /* Hyperslab offset in memory */
- int data[6][5]; /* Data to write */
- int data_out[7][7]; /* Data read in */
- int input_loc[8][2]={{0,0},
- {1,0},
- {2,0},
- {2,1},
- {3,1},
- {4,1},
- {4,2},
- {5,2}};
- int output_loc[8][2]={{0,3},
- {0,4},
- {1,3},
- {1,4},
- {2,3},
- {2,4},
- {3,3},
- {3,4}};
- int dsetrank=2; /* File Dataset rank */
- int memrank=2; /* Memory Dataset rank */
- int i,j; /* Local counting variables */
- herr_t error;
- hsize_t stride[2]={1,1};
- hsize_t block[2]={1,1};
+ hid_t file_id; /* File ID */
+ hid_t dset_id; /* Dataset ID */
+ hid_t dataspace; /* File dataspace ID */
+ hid_t memspace; /* Memory dataspace ID */
+ hid_t tmp_space; /* Temporary dataspace ID */
+ hid_t tmp2_space; /* Another emporary dataspace ID */
+ hsize_t dimsm[2] = {7, 7}; /* Memory array dimensions */
+ hsize_t dimsf[2] = {6, 5}; /* File array dimensions */
+ hsize_t count[2] = {3, 1}; /* 1st Hyperslab size */
+ hsize_t count2[2] = {3, 1}; /* 2nd Hyperslab size */
+ hsize_t count3[2] = {2, 1}; /* 3rd Hyperslab size */
+ hsize_t start[2] = {0, 0}; /* 1st Hyperslab offset */
+ hsize_t start2[2] = {2, 1}; /* 2nd Hyperslab offset */
+ hsize_t start3[2] = {4, 2}; /* 3rd Hyperslab offset */
+ hsize_t count_out[2] = {4, 2}; /* Hyperslab size in memory */
+ hsize_t start_out[2] = {0, 3}; /* Hyperslab offset in memory */
+ int data[6][5]; /* Data to write */
+ int data_out[7][7]; /* Data read in */
+ int input_loc[8][2] = {{0, 0}, {1, 0}, {2, 0}, {2, 1}, {3, 1}, {4, 1}, {4, 2}, {5, 2}};
+ int output_loc[8][2] = {{0, 3}, {0, 4}, {1, 3}, {1, 4}, {2, 3}, {2, 4}, {3, 3}, {3, 4}};
+ int dsetrank = 2; /* File Dataset rank */
+ int memrank = 2; /* Memory Dataset rank */
+ int i, j; /* Local counting variables */
+ herr_t error;
+ hsize_t stride[2] = {1, 1};
+ hsize_t block[2] = {1, 1};
/* Initialize data to write */
- for(i=0; i<6; i++)
- for(j=0; j<5; j++)
- data[i][j] = j*10 + i;
+ for (i = 0; i < 6; i++)
+ for (j = 0; j < 5; j++)
+ data[i][j] = j * 10 + i;
/* Create file */
- file_id=H5Fcreate(FILENAME,H5F_ACC_TRUNC,H5P_DEFAULT,H5P_DEFAULT);
+ file_id = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
CHECK(file_id, FAIL, "H5Fcreate");
/* Create File Dataspace */
- dataspace=H5Screate_simple(dsetrank,dimsf,NULL);
+ dataspace = H5Screate_simple(dsetrank, dimsf, NULL);
CHECK(dataspace, FAIL, "H5Screate_simple");
/* Create File Dataset */
- dset_id=H5Dcreate2(file_id,"IntArray",H5T_NATIVE_INT,dataspace,H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
+ dset_id =
+ H5Dcreate2(file_id, "IntArray", H5T_NATIVE_INT, dataspace, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
CHECK(dset_id, FAIL, "H5Dcreate2");
/* Write File Dataset */
- error=H5Dwrite(dset_id,H5T_NATIVE_INT,dataspace,dataspace,H5P_DEFAULT,data);
+ error = H5Dwrite(dset_id, H5T_NATIVE_INT, dataspace, dataspace, H5P_DEFAULT, data);
CHECK(error, FAIL, "H5Dwrite");
/* Close things */
- error=H5Sclose(dataspace);
+ error = H5Sclose(dataspace);
CHECK(error, FAIL, "H5Sclose");
error = H5Dclose(dset_id);
CHECK(error, FAIL, "H5Dclose");
@@ -5021,48 +5262,48 @@ test_select_hyper_union_stagger(void)
/* Copy the file dataspace and select hyperslab */
tmp2_space = H5Scopy(dataspace);
CHECK(tmp2_space, FAIL, "H5Scopy");
- error=H5Sselect_hyperslab(tmp2_space, H5S_SELECT_SET, start3, stride, count3, block);
+ error = H5Sselect_hyperslab(tmp2_space, H5S_SELECT_SET, start3, stride, count3, block);
CHECK(error, FAIL, "H5Sselect_hyperslab");
/* Combine the copied dataspace with the temporary dataspace */
- error=H5Smodify_select(tmp_space,H5S_SELECT_OR,tmp2_space);
+ error = H5Smodify_select(tmp_space, H5S_SELECT_OR, tmp2_space);
CHECK(error, FAIL, "H5Smodify_select");
/* Create Memory Dataspace */
- memspace=H5Screate_simple(memrank,dimsm,NULL);
+ memspace = H5Screate_simple(memrank, dimsm, NULL);
CHECK(memspace, FAIL, "H5Screate_simple");
/* Select hyperslab in memory */
- error=H5Sselect_hyperslab(memspace, H5S_SELECT_SET, start_out, stride, count_out, block);
+ error = H5Sselect_hyperslab(memspace, H5S_SELECT_SET, start_out, stride, count_out, block);
CHECK(error, FAIL, "H5Sselect_hyperslab");
/* Read File Dataset */
- error=H5Dread(dset_id,H5T_NATIVE_INT,memspace,tmp_space,H5P_DEFAULT,data_out);
+ error = H5Dread(dset_id, H5T_NATIVE_INT, memspace, tmp_space, H5P_DEFAULT, data_out);
CHECK(error, FAIL, "H5Dread");
/* Verify input data */
- for(i=0; i<8; i++) {
- if(data[input_loc[i][0]][input_loc[i][1]]!=data_out[output_loc[i][0]][output_loc[i][1]]) {
- HDprintf("input data #%d is wrong!\n",i);
- HDprintf("input_loc=[%d][%d]\n",input_loc[i][0],input_loc[i][1]);
- HDprintf("output_loc=[%d][%d]\n",output_loc[i][0],output_loc[i][1]);
- HDprintf("data=%d\n",data[input_loc[i][0]][input_loc[i][1]]);
- TestErrPrintf("data_out=%d\n",data_out[output_loc[i][0]][output_loc[i][1]]);
+ for (i = 0; i < 8; i++) {
+ if (data[input_loc[i][0]][input_loc[i][1]] != data_out[output_loc[i][0]][output_loc[i][1]]) {
+ HDprintf("input data #%d is wrong!\n", i);
+ HDprintf("input_loc=[%d][%d]\n", input_loc[i][0], input_loc[i][1]);
+ HDprintf("output_loc=[%d][%d]\n", output_loc[i][0], output_loc[i][1]);
+ HDprintf("data=%d\n", data[input_loc[i][0]][input_loc[i][1]]);
+ TestErrPrintf("data_out=%d\n", data_out[output_loc[i][0]][output_loc[i][1]]);
} /* end if */
- } /* end for */
+ } /* end for */
/* Close things */
- error=H5Sclose(tmp2_space);
+ error = H5Sclose(tmp2_space);
CHECK(error, FAIL, "H5Sclose");
- error=H5Sclose(tmp_space);
+ error = H5Sclose(tmp_space);
CHECK(error, FAIL, "H5Sclose");
- error=H5Sclose(dataspace);
+ error = H5Sclose(dataspace);
CHECK(error, FAIL, "H5Sclose");
- error=H5Sclose(memspace);
+ error = H5Sclose(memspace);
CHECK(error, FAIL, "H5Sclose");
- error=H5Dclose(dset_id);
+ error = H5Dclose(dset_id);
CHECK(error, FAIL, "H5Dclose");
- error=H5Fclose(file_id);
+ error = H5Fclose(file_id);
CHECK(error, FAIL, "H5Fclose");
}
@@ -5076,80 +5317,46 @@ test_select_hyper_union_stagger(void)
static void
test_select_hyper_union_3d(void)
{
- hid_t fid1; /* HDF5 File IDs */
- hid_t dataset; /* Dataset ID */
- hid_t sid1,sid2; /* Dataspace ID */
- hid_t tmp_space; /* Temporary Dataspace ID */
- hid_t tmp2_space; /* Another temporary Dataspace ID */
- hsize_t dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
- hsize_t dims2[] = {SPACE4_DIM1, SPACE4_DIM2, SPACE4_DIM3};
- hsize_t dims3[] = {SPACE3_DIM1, SPACE3_DIM2};
- hsize_t start[SPACE1_RANK]; /* Starting location of hyperslab */
- hsize_t stride[SPACE1_RANK]; /* Stride of hyperslab */
- hsize_t count[SPACE1_RANK]; /* Element count of hyperslab */
- hsize_t block[SPACE1_RANK]; /* Block size of hyperslab */
+ hid_t fid1; /* HDF5 File IDs */
+ hid_t dataset; /* Dataset ID */
+ hid_t sid1, sid2; /* Dataspace ID */
+ hid_t tmp_space; /* Temporary Dataspace ID */
+ hid_t tmp2_space; /* Another temporary Dataspace ID */
+ hsize_t dims1[] = {SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3};
+ hsize_t dims2[] = {SPACE4_DIM1, SPACE4_DIM2, SPACE4_DIM3};
+ hsize_t dims3[] = {SPACE3_DIM1, SPACE3_DIM2};
+ hsize_t start[SPACE1_RANK]; /* Starting location of hyperslab */
+ hsize_t stride[SPACE1_RANK]; /* Stride of hyperslab */
+ hsize_t count[SPACE1_RANK]; /* Element count of hyperslab */
+ hsize_t block[SPACE1_RANK]; /* Block size of hyperslab */
struct row_list {
size_t z;
size_t y;
size_t x;
size_t l;
- } rows[]= { /* Array of x,y,z coordinates & length for each row written from memory */
- {0,0,0,6}, /* 1st face of 3-D object */
- {0,1,0,6},
- {0,2,0,6},
- {0,3,0,6},
- {0,4,0,6},
- {1,0,0,6}, /* 2nd face of 3-D object */
- {1,1,0,6},
- {1,2,0,6},
- {1,3,0,6},
- {1,4,0,6},
- {2,0,0,6}, /* 3rd face of 3-D object */
- {2,1,0,10},
- {2,2,0,10},
- {2,3,0,10},
- {2,4,0,10},
- {2,5,2,8},
- {2,6,2,8},
- {3,0,0,6}, /* 4th face of 3-D object */
- {3,1,0,10},
- {3,2,0,10},
- {3,3,0,10},
- {3,4,0,10},
- {3,5,2,8},
- {3,6,2,8},
- {4,0,0,6}, /* 5th face of 3-D object */
- {4,1,0,10},
- {4,2,0,10},
- {4,3,0,10},
- {4,4,0,10},
- {4,5,2,8},
- {4,6,2,8},
- {5,1,2,8}, /* 6th face of 3-D object */
- {5,2,2,8},
- {5,3,2,8},
- {5,4,2,8},
- {5,5,2,8},
- {5,6,2,8},
- {6,1,2,8}, /* 7th face of 3-D object */
- {6,2,2,8},
- {6,3,2,8},
- {6,4,2,8},
- {6,5,2,8},
- {6,6,2,8},
- {7,1,2,8}, /* 8th face of 3-D object */
- {7,2,2,8},
- {7,3,2,8},
- {7,4,2,8},
- {7,5,2,8},
- {7,6,2,8}};
- uint8_t *wbuf, /* buffer to write to disk */
- *rbuf, /* buffer read from disk */
- *tbuf, /* temporary buffer pointer */
- *tbuf2; /* temporary buffer pointer */
- int i,j,k; /* Counters */
- herr_t ret; /* Generic return value */
- hsize_t npoints; /* Number of elements in selection */
+ } rows[] = {
+ /* Array of x,y,z coordinates & length for each row written from memory */
+ {0, 0, 0, 6}, /* 1st face of 3-D object */
+ {0, 1, 0, 6}, {0, 2, 0, 6}, {0, 3, 0, 6}, {0, 4, 0, 6}, {1, 0, 0, 6}, /* 2nd face of 3-D object */
+ {1, 1, 0, 6}, {1, 2, 0, 6}, {1, 3, 0, 6}, {1, 4, 0, 6}, {2, 0, 0, 6}, /* 3rd face of 3-D object */
+ {2, 1, 0, 10}, {2, 2, 0, 10}, {2, 3, 0, 10}, {2, 4, 0, 10}, {2, 5, 2, 8},
+ {2, 6, 2, 8}, {3, 0, 0, 6}, /* 4th face of 3-D object */
+ {3, 1, 0, 10}, {3, 2, 0, 10}, {3, 3, 0, 10}, {3, 4, 0, 10}, {3, 5, 2, 8},
+ {3, 6, 2, 8}, {4, 0, 0, 6}, /* 5th face of 3-D object */
+ {4, 1, 0, 10}, {4, 2, 0, 10}, {4, 3, 0, 10}, {4, 4, 0, 10}, {4, 5, 2, 8},
+ {4, 6, 2, 8}, {5, 1, 2, 8}, /* 6th face of 3-D object */
+ {5, 2, 2, 8}, {5, 3, 2, 8}, {5, 4, 2, 8}, {5, 5, 2, 8}, {5, 6, 2, 8},
+ {6, 1, 2, 8}, /* 7th face of 3-D object */
+ {6, 2, 2, 8}, {6, 3, 2, 8}, {6, 4, 2, 8}, {6, 5, 2, 8}, {6, 6, 2, 8},
+ {7, 1, 2, 8}, /* 8th face of 3-D object */
+ {7, 2, 2, 8}, {7, 3, 2, 8}, {7, 4, 2, 8}, {7, 5, 2, 8}, {7, 6, 2, 8}};
+ uint8_t *wbuf, /* buffer to write to disk */
+ *rbuf, /* buffer read from disk */
+ *tbuf, /* temporary buffer pointer */
+ *tbuf2; /* temporary buffer pointer */
+ int i, j, k; /* Counters */
+ herr_t ret; /* Generic return value */
+ hsize_t npoints; /* Number of elements in selection */
/* Output message about test being performed */
MESSAGE(5, ("Testing Hyperslab Selection Functions with unions of 3-D hyperslabs\n"));
@@ -5161,16 +5368,16 @@ test_select_hyper_union_3d(void)
CHECK(rbuf, NULL, "HDcalloc");
/* Initialize write buffer */
- for(i=0, tbuf=wbuf; i<SPACE4_DIM1; i++)
- for(j=0; j<SPACE4_DIM2; j++)
- for(k=0; k<SPACE4_DIM3; k++)
- *tbuf++=(uint8_t)((((i*SPACE4_DIM2)+j)*SPACE4_DIM3)+k);
+ for (i = 0, tbuf = wbuf; i < SPACE4_DIM1; i++)
+ for (j = 0; j < SPACE4_DIM2; j++)
+ for (k = 0; k < SPACE4_DIM3; k++)
+ *tbuf++ = (uint8_t)((((i * SPACE4_DIM2) + j) * SPACE4_DIM3) + k);
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
CHECK(fid1, FAIL, "H5Fcreate");
-/* Test case of two blocks which overlap corners and must be split */
+ /* Test case of two blocks which overlap corners and must be split */
/* Create dataspace for dataset on disk */
sid1 = H5Screate_simple(SPACE1_RANK, dims1, NULL);
CHECK(sid1, FAIL, "H5Screate_simple");
@@ -5180,42 +5387,66 @@ test_select_hyper_union_3d(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 2x15x13 hyperslab for disk dataset */
- start[0]=1; start[1]=0; start[2]=0;
- stride[0]=1; stride[1]=1; stride[2]=1;
- count[0]=2; count[1]=15; count[2]=13;
- block[0]=1; block[1]=1; block[2]=1;
- ret = H5Sselect_hyperslab(sid1,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 1;
+ start[1] = 0;
+ start[2] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ stride[2] = 1;
+ count[0] = 2;
+ count[1] = 15;
+ count[2] = 13;
+ block[0] = 1;
+ block[1] = 1;
+ block[2] = 1;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Select 5x5x6 hyperslab for memory dataset */
- start[0]=0; start[1]=0; start[2]=0;
- stride[0]=1; stride[1]=1; stride[2]=1;
- count[0]=5; count[1]=5; count[2]=6;
- block[0]=1; block[1]=1; block[2]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ start[1] = 0;
+ start[2] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ stride[2] = 1;
+ count[0] = 5;
+ count[1] = 5;
+ count[2] = 6;
+ block[0] = 1;
+ block[1] = 1;
+ block[2] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Union overlapping 15x20 hyperslab for memory dataset (forming a irregularly shaped region) */
- start[0]=2; start[1]=1; start[2]=2;
- stride[0]=1; stride[1]=1; stride[2]=1;
- count[0]=6; count[1]=6; count[2]=8;
- block[0]=1; block[1]=1; block[2]=1;
- tmp_space = H5Scombine_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 2;
+ start[1] = 1;
+ start[2] = 2;
+ stride[0] = 1;
+ stride[1] = 1;
+ stride[2] = 1;
+ count[0] = 6;
+ count[1] = 6;
+ count[2] = 8;
+ block[0] = 1;
+ block[1] = 1;
+ block[2] = 1;
+ tmp_space = H5Scombine_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(tmp_space, FAIL, "H5Sselect_hyperslab");
/* Combine dataspaces and create new dataspace */
- tmp2_space = H5Scombine_select(sid2,H5S_SELECT_OR,tmp_space);
+ tmp2_space = H5Scombine_select(sid2, H5S_SELECT_OR, tmp_space);
CHECK(tmp2_space, FAIL, "H5Scombin_select");
npoints = (hsize_t)H5Sget_select_npoints(tmp2_space);
- VERIFY(npoints, 15*26, "H5Sget_select_npoints");
+ VERIFY(npoints, 15 * 26, "H5Sget_select_npoints");
/* Create a dataset */
dataset = H5Dcreate2(fid1, SPACE1_NAME, H5T_NATIVE_UCHAR, sid1, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
CHECK(dataset, FAIL, "H5Dcreate2");
/* Write selection to disk */
- ret=H5Dwrite(dataset,H5T_NATIVE_UCHAR,tmp2_space,sid1,H5P_DEFAULT,wbuf);
+ ret = H5Dwrite(dataset, H5T_NATIVE_UCHAR, tmp2_space, sid1, H5P_DEFAULT, wbuf);
CHECK(ret, FAIL, "H5Dwrite");
/* Close temporary dataspaces */
@@ -5233,25 +5464,30 @@ test_select_hyper_union_3d(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 15x26 hyperslab for reading memory dataset */
- start[0]=0; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=15; count[1]=26;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 15;
+ count[1] = 26;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Read selection from disk */
- ret=H5Dread(dataset,H5T_NATIVE_UCHAR,sid2,sid1,H5P_DEFAULT,rbuf);
+ ret = H5Dread(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, rbuf);
CHECK(ret, FAIL, "H5Dread");
/* Compare data read with data written out */
- for(i=0,tbuf2=rbuf; i<(int)(sizeof(rows)/sizeof(struct row_list)); i++) {
- tbuf=wbuf+(rows[i].z*SPACE4_DIM3*SPACE4_DIM2)+(rows[i].y*SPACE4_DIM3)+rows[i].x;
- for(j=0; j<(int)rows[i].l; j++, tbuf++, tbuf2++) {
- if(*tbuf!=*tbuf2)
- TestErrPrintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%d, *tbuf2=%d\n",__LINE__,i,j,(int)*tbuf,(int)*tbuf2);
+ for (i = 0, tbuf2 = rbuf; i < (int)(sizeof(rows) / sizeof(struct row_list)); i++) {
+ tbuf = wbuf + (rows[i].z * SPACE4_DIM3 * SPACE4_DIM2) + (rows[i].y * SPACE4_DIM3) + rows[i].x;
+ for (j = 0; j < (int)rows[i].l; j++, tbuf++, tbuf2++) {
+ if (*tbuf != *tbuf2)
+ TestErrPrintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%d, *tbuf2=%d\n",
+ __LINE__, i, j, (int)*tbuf, (int)*tbuf2);
} /* end for */
- } /* end for */
+ } /* end for */
/* Close memory dataspace */
ret = H5Sclose(sid2);
@@ -5272,7 +5508,7 @@ test_select_hyper_union_3d(void)
/* Free memory buffers */
HDfree(wbuf);
HDfree(rbuf);
-} /* test_select_hyper_union_3d() */
+} /* test_select_hyper_union_3d() */
/****************************************************************
**
@@ -5284,32 +5520,33 @@ test_select_hyper_union_3d(void)
static void
test_select_hyper_valid_combination(void)
{
- hid_t single_pt_sid; /* Dataspace ID with single point selection */
- hid_t single_hyper_sid; /* Dataspace ID with single block hyperslab selection */
- hid_t regular_hyper_sid; /* Dataspace ID with regular hyperslab selection */
+ hid_t single_pt_sid; /* Dataspace ID with single point selection */
+ hid_t single_hyper_sid; /* Dataspace ID with single block hyperslab selection */
+ hid_t regular_hyper_sid; /* Dataspace ID with regular hyperslab selection */
hid_t non_existent_sid = -1; /* A non-existent space id */
- hid_t tmp_sid; /* Temporary dataspace ID */
- hsize_t dims2D[] = {SPACE9_DIM1, SPACE9_DIM2};
- hsize_t dims3D[] = {SPACE4_DIM1, SPACE4_DIM2, SPACE4_DIM3};
+ hid_t tmp_sid; /* Temporary dataspace ID */
+ hsize_t dims2D[] = {SPACE9_DIM1, SPACE9_DIM2};
+ hsize_t dims3D[] = {SPACE4_DIM1, SPACE4_DIM2, SPACE4_DIM3};
- hsize_t coord1[1][SPACE2_RANK]; /* Coordinates for single point selection */
- hsize_t start[SPACE4_RANK]; /* Hyperslab start */
- hsize_t stride[SPACE4_RANK]; /* Hyperslab stride */
- hsize_t count[SPACE4_RANK]; /* Hyperslab block count */
- hsize_t block[SPACE4_RANK]; /* Hyperslab block size */
- herr_t ret; /* Generic return value */
+ hsize_t coord1[1][SPACE2_RANK]; /* Coordinates for single point selection */
+ hsize_t start[SPACE4_RANK]; /* Hyperslab start */
+ hsize_t stride[SPACE4_RANK]; /* Hyperslab stride */
+ hsize_t count[SPACE4_RANK]; /* Hyperslab block count */
+ hsize_t block[SPACE4_RANK]; /* Hyperslab block size */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(6, ("Testing Selection Combination Validity\n"));
- assert(SPACE9_DIM2>=POINT1_NPOINTS);
+ assert(SPACE9_DIM2 >= POINT1_NPOINTS);
/* Create dataspace for single point selection */
single_pt_sid = H5Screate_simple(SPACE9_RANK, dims2D, NULL);
CHECK(single_pt_sid, FAIL, "H5Screate_simple");
/* Select sequence of ten points for multiple point selection */
- coord1[0][0] = 2; coord1[0][1] = 2;
- ret = H5Sselect_elements(single_pt_sid, H5S_SELECT_SET, (size_t)1, (const hsize_t *)coord1);
+ coord1[0][0] = 2;
+ coord1[0][1] = 2;
+ ret = H5Sselect_elements(single_pt_sid, H5S_SELECT_SET, (size_t)1, (const hsize_t *)coord1);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Create dataspace for single hyperslab selection */
@@ -5317,11 +5554,15 @@ test_select_hyper_valid_combination(void)
CHECK(single_hyper_sid, FAIL, "H5Screate_simple");
/* Select 10x10 hyperslab for single hyperslab selection */
- start[0]=1; start[1]=1;
- stride[0]=1; stride[1]=1;
- count[0]=1; count[1]=1;
- block[0]=(SPACE9_DIM1-2); block[1]=(SPACE9_DIM2-2);
- ret = H5Sselect_hyperslab(single_hyper_sid,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 1;
+ start[1] = 1;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 1;
+ count[1] = 1;
+ block[0] = (SPACE9_DIM1 - 2);
+ block[1] = (SPACE9_DIM2 - 2);
+ ret = H5Sselect_hyperslab(single_hyper_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Create dataspace for regular hyperslab selection */
@@ -5329,14 +5570,21 @@ test_select_hyper_valid_combination(void)
CHECK(regular_hyper_sid, FAIL, "H5Screate_simple");
/* Select regular, strided hyperslab selection */
- start[0]=2; start[1]=2; start[2]=2;
- stride[0]=2; stride[1]=2; stride[2]=2;
- count[0]=5; count[1]=2; count[2]=5;
- block[0]=1; block[1]=1; block[2]=1;
- ret = H5Sselect_hyperslab(regular_hyper_sid,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 2;
+ start[1] = 2;
+ start[2] = 2;
+ stride[0] = 2;
+ stride[1] = 2;
+ stride[2] = 2;
+ count[0] = 5;
+ count[1] = 2;
+ count[2] = 5;
+ block[0] = 1;
+ block[1] = 1;
+ block[2] = 1;
+ ret = H5Sselect_hyperslab(regular_hyper_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
-
/* Test all the selections created */
/* Test the invalid combinations between point and hyperslab */
@@ -5374,8 +5622,7 @@ test_select_hyper_valid_combination(void)
CHECK(ret, FAIL, "H5Sclose");
ret = H5Sclose(regular_hyper_sid);
CHECK(ret, FAIL, "H5Sclose");
-} /* test_select_hyper_valid_combination() */
-
+} /* test_select_hyper_valid_combination() */
/****************************************************************
**
@@ -5386,22 +5633,22 @@ test_select_hyper_valid_combination(void)
static void
test_select_hyper_and_2d(void)
{
- hid_t fid1; /* HDF5 File IDs */
- hid_t dataset; /* Dataset ID */
- hid_t sid1,sid2; /* Dataspace ID */
- hsize_t dims1[] = {SPACE2_DIM1, SPACE2_DIM2};
- hsize_t dims2[] = {SPACE2A_DIM1};
- hsize_t start[SPACE2_RANK]; /* Starting location of hyperslab */
- hsize_t stride[SPACE2_RANK]; /* Stride of hyperslab */
- hsize_t count[SPACE2_RANK]; /* Element count of hyperslab */
- hsize_t block[SPACE2_RANK]; /* Block size of hyperslab */
- uint8_t *wbuf, /* buffer to write to disk */
- *rbuf, /* buffer read from disk */
- *tbuf, /* temporary buffer pointer */
- *tbuf2; /* temporary buffer pointer */
- int i,j; /* Counters */
- herr_t ret; /* Generic return value */
- hssize_t npoints; /* Number of elements in selection */
+ hid_t fid1; /* HDF5 File IDs */
+ hid_t dataset; /* Dataset ID */
+ hid_t sid1, sid2; /* Dataspace ID */
+ hsize_t dims1[] = {SPACE2_DIM1, SPACE2_DIM2};
+ hsize_t dims2[] = {SPACE2A_DIM1};
+ hsize_t start[SPACE2_RANK]; /* Starting location of hyperslab */
+ hsize_t stride[SPACE2_RANK]; /* Stride of hyperslab */
+ hsize_t count[SPACE2_RANK]; /* Element count of hyperslab */
+ hsize_t block[SPACE2_RANK]; /* Block size of hyperslab */
+ uint8_t *wbuf, /* buffer to write to disk */
+ *rbuf, /* buffer read from disk */
+ *tbuf, /* temporary buffer pointer */
+ *tbuf2; /* temporary buffer pointer */
+ int i, j; /* Counters */
+ herr_t ret; /* Generic return value */
+ hssize_t npoints; /* Number of elements in selection */
/* Output message about test being performed */
MESSAGE(5, ("Testing Hyperslab Selection Functions with intersection of 2-D hyperslabs\n"));
@@ -5413,9 +5660,9 @@ test_select_hyper_and_2d(void)
CHECK_PTR(rbuf, "HDcalloc");
/* Initialize write buffer */
- for(i=0, tbuf=wbuf; i<SPACE2_DIM1; i++)
- for(j=0; j<SPACE2_DIM2; j++)
- *tbuf++=(uint8_t)((i*SPACE2_DIM2)+j);
+ for (i = 0, tbuf = wbuf; i < SPACE2_DIM1; i++)
+ for (j = 0; j < SPACE2_DIM2; j++)
+ *tbuf++ = (uint8_t)((i * SPACE2_DIM2) + j);
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
@@ -5430,30 +5677,38 @@ test_select_hyper_and_2d(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 10x10 hyperslab for disk dataset */
- start[0]=0; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=10; count[1]=10;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid1,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 10;
+ count[1] = 10;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Intersect overlapping 10x10 hyperslab */
- start[0]=5; start[1]=5;
- stride[0]=1; stride[1]=1;
- count[0]=10; count[1]=10;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid1,H5S_SELECT_AND,start,stride,count,block);
+ start[0] = 5;
+ start[1] = 5;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 10;
+ count[1] = 10;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_AND, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
npoints = H5Sget_select_npoints(sid1);
VERIFY(npoints, 5 * 5, "H5Sget_select_npoints");
/* Select 25 hyperslab for memory dataset */
- start[0]=0;
- stride[0]=1;
- count[0]=25;
- block[0]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ stride[0] = 1;
+ count[0] = 25;
+ block[0] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
npoints = H5Sget_select_npoints(sid2);
@@ -5464,26 +5719,28 @@ test_select_hyper_and_2d(void)
CHECK(dataset, FAIL, "H5Dcreate2");
/* Write selection to disk */
- ret=H5Dwrite(dataset,H5T_NATIVE_UCHAR,sid2,sid1,H5P_DEFAULT,wbuf);
+ ret = H5Dwrite(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, wbuf);
CHECK(ret, FAIL, "H5Dwrite");
/* Read entire dataset from disk */
- ret=H5Dread(dataset,H5T_NATIVE_UCHAR,H5S_ALL,H5S_ALL,H5P_DEFAULT,rbuf);
+ ret = H5Dread(dataset, H5T_NATIVE_UCHAR, H5S_ALL, H5S_ALL, H5P_DEFAULT, rbuf);
CHECK(ret, FAIL, "H5Dread");
/* Initialize write buffer */
- for(i=0, tbuf=rbuf, tbuf2=wbuf; i<SPACE2_DIM1; i++)
- for(j=0; j<SPACE2_DIM2; j++, tbuf++) {
- if((i>=5 && i<=9) && (j>=5 && j<=9)) {
- if(*tbuf!=*tbuf2)
- HDprintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%d, *tbuf2=%d\n",__LINE__,i,j,(int)*tbuf,(int)*tbuf2);
+ for (i = 0, tbuf = rbuf, tbuf2 = wbuf; i < SPACE2_DIM1; i++)
+ for (j = 0; j < SPACE2_DIM2; j++, tbuf++) {
+ if ((i >= 5 && i <= 9) && (j >= 5 && j <= 9)) {
+ if (*tbuf != *tbuf2)
+ HDprintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%d, *tbuf2=%d\n", __LINE__,
+ i, j, (int)*tbuf, (int)*tbuf2);
tbuf2++;
} /* end if */
else {
- if(*tbuf!=0)
- HDprintf("%d: hyperslab element has wrong value!, i=%d, j=%d, *tbuf=%d\n",__LINE__,i,j,(int)*tbuf);
+ if (*tbuf != 0)
+ HDprintf("%d: hyperslab element has wrong value!, i=%d, j=%d, *tbuf=%d\n", __LINE__, i, j,
+ (int)*tbuf);
} /* end else */
- } /* end for */
+ } /* end for */
/* Close memory dataspace */
ret = H5Sclose(sid2);
@@ -5504,7 +5761,7 @@ test_select_hyper_and_2d(void)
/* Free memory buffers */
HDfree(wbuf);
HDfree(rbuf);
-} /* test_select_hyper_and_2d() */
+} /* test_select_hyper_and_2d() */
/****************************************************************
**
@@ -5515,22 +5772,22 @@ test_select_hyper_and_2d(void)
static void
test_select_hyper_xor_2d(void)
{
- hid_t fid1; /* HDF5 File IDs */
- hid_t dataset; /* Dataset ID */
- hid_t sid1,sid2; /* Dataspace ID */
- hsize_t dims1[] = {SPACE2_DIM1, SPACE2_DIM2};
- hsize_t dims2[] = {SPACE2A_DIM1};
- hsize_t start[SPACE2_RANK]; /* Starting location of hyperslab */
- hsize_t stride[SPACE2_RANK]; /* Stride of hyperslab */
- hsize_t count[SPACE2_RANK]; /* Element count of hyperslab */
- hsize_t block[SPACE2_RANK]; /* Block size of hyperslab */
- uint8_t *wbuf, /* buffer to write to disk */
- *rbuf, /* buffer read from disk */
- *tbuf, /* temporary buffer pointer */
- *tbuf2; /* temporary buffer pointer */
- int i,j; /* Counters */
- herr_t ret; /* Generic return value */
- hssize_t npoints; /* Number of elements in selection */
+ hid_t fid1; /* HDF5 File IDs */
+ hid_t dataset; /* Dataset ID */
+ hid_t sid1, sid2; /* Dataspace ID */
+ hsize_t dims1[] = {SPACE2_DIM1, SPACE2_DIM2};
+ hsize_t dims2[] = {SPACE2A_DIM1};
+ hsize_t start[SPACE2_RANK]; /* Starting location of hyperslab */
+ hsize_t stride[SPACE2_RANK]; /* Stride of hyperslab */
+ hsize_t count[SPACE2_RANK]; /* Element count of hyperslab */
+ hsize_t block[SPACE2_RANK]; /* Block size of hyperslab */
+ uint8_t *wbuf, /* buffer to write to disk */
+ *rbuf, /* buffer read from disk */
+ *tbuf, /* temporary buffer pointer */
+ *tbuf2; /* temporary buffer pointer */
+ int i, j; /* Counters */
+ herr_t ret; /* Generic return value */
+ hssize_t npoints; /* Number of elements in selection */
/* Output message about test being performed */
MESSAGE(5, ("Testing Hyperslab Selection Functions with XOR of 2-D hyperslabs\n"));
@@ -5542,9 +5799,9 @@ test_select_hyper_xor_2d(void)
CHECK_PTR(rbuf, "HDcalloc");
/* Initialize write buffer */
- for(i=0, tbuf=wbuf; i<SPACE2_DIM1; i++)
- for(j=0; j<SPACE2_DIM2; j++)
- *tbuf++=(uint8_t)((i*SPACE2_DIM2)+j);
+ for (i = 0, tbuf = wbuf; i < SPACE2_DIM1; i++)
+ for (j = 0; j < SPACE2_DIM2; j++)
+ *tbuf++ = (uint8_t)((i * SPACE2_DIM2) + j);
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
@@ -5559,30 +5816,38 @@ test_select_hyper_xor_2d(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 10x10 hyperslab for disk dataset */
- start[0]=0; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=10; count[1]=10;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid1,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 10;
+ count[1] = 10;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Intersect overlapping 10x10 hyperslab */
- start[0]=5; start[1]=5;
- stride[0]=1; stride[1]=1;
- count[0]=10; count[1]=10;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid1,H5S_SELECT_XOR,start,stride,count,block);
+ start[0] = 5;
+ start[1] = 5;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 10;
+ count[1] = 10;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_XOR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
npoints = H5Sget_select_npoints(sid1);
VERIFY(npoints, 150, "H5Sget_select_npoints");
/* Select 25 hyperslab for memory dataset */
- start[0]=0;
- stride[0]=1;
- count[0]=150;
- block[0]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ stride[0] = 1;
+ count[0] = 150;
+ block[0] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
npoints = H5Sget_select_npoints(sid2);
@@ -5593,28 +5858,30 @@ test_select_hyper_xor_2d(void)
CHECK(dataset, FAIL, "H5Dcreate2");
/* Write selection to disk */
- ret=H5Dwrite(dataset,H5T_NATIVE_UCHAR,sid2,sid1,H5P_DEFAULT,wbuf);
+ ret = H5Dwrite(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, wbuf);
CHECK(ret, FAIL, "H5Dwrite");
/* Read entire dataset from disk */
- ret=H5Dread(dataset,H5T_NATIVE_UCHAR,H5S_ALL,H5S_ALL,H5P_DEFAULT,rbuf);
+ ret = H5Dread(dataset, H5T_NATIVE_UCHAR, H5S_ALL, H5S_ALL, H5P_DEFAULT, rbuf);
CHECK(ret, FAIL, "H5Dread");
/* Initialize write buffer */
- for(i=0, tbuf=rbuf, tbuf2=wbuf; i<SPACE2_DIM1; i++)
- for(j=0; j<SPACE2_DIM2; j++, tbuf++) {
- if(((i>=0 && i<=4) && (j>=0 && j<=9)) ||
- ((i>=5 && i<=9) && ((j>=0 && j<=4) || (j>=10 && j<=14))) ||
- ((i>=10 && i<=14) && (j>=5 && j<=14))) {
- if(*tbuf!=*tbuf2)
- HDprintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%d, *tbuf2=%d\n",__LINE__,i,j,(int)*tbuf,(int)*tbuf2);
+ for (i = 0, tbuf = rbuf, tbuf2 = wbuf; i < SPACE2_DIM1; i++)
+ for (j = 0; j < SPACE2_DIM2; j++, tbuf++) {
+ if (((i >= 0 && i <= 4) && (j >= 0 && j <= 9)) ||
+ ((i >= 5 && i <= 9) && ((j >= 0 && j <= 4) || (j >= 10 && j <= 14))) ||
+ ((i >= 10 && i <= 14) && (j >= 5 && j <= 14))) {
+ if (*tbuf != *tbuf2)
+ HDprintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%d, *tbuf2=%d\n", __LINE__,
+ i, j, (int)*tbuf, (int)*tbuf2);
tbuf2++;
} /* end if */
else {
- if(*tbuf!=0)
- HDprintf("%d: hyperslab element has wrong value!, i=%d, j=%d, *tbuf=%d\n",__LINE__,i,j,(int)*tbuf);
+ if (*tbuf != 0)
+ HDprintf("%d: hyperslab element has wrong value!, i=%d, j=%d, *tbuf=%d\n", __LINE__, i, j,
+ (int)*tbuf);
} /* end else */
- } /* end for */
+ } /* end for */
/* Close memory dataspace */
ret = H5Sclose(sid2);
@@ -5635,7 +5902,7 @@ test_select_hyper_xor_2d(void)
/* Free memory buffers */
HDfree(wbuf);
HDfree(rbuf);
-} /* test_select_hyper_xor_2d() */
+} /* test_select_hyper_xor_2d() */
/****************************************************************
**
@@ -5646,22 +5913,22 @@ test_select_hyper_xor_2d(void)
static void
test_select_hyper_notb_2d(void)
{
- hid_t fid1; /* HDF5 File IDs */
- hid_t dataset; /* Dataset ID */
- hid_t sid1,sid2; /* Dataspace ID */
- hsize_t dims1[] = {SPACE2_DIM1, SPACE2_DIM2};
- hsize_t dims2[] = {SPACE2A_DIM1};
- hsize_t start[SPACE2_RANK]; /* Starting location of hyperslab */
- hsize_t stride[SPACE2_RANK]; /* Stride of hyperslab */
- hsize_t count[SPACE2_RANK]; /* Element count of hyperslab */
- hsize_t block[SPACE2_RANK]; /* Block size of hyperslab */
- uint8_t *wbuf, /* buffer to write to disk */
- *rbuf, /* buffer read from disk */
- *tbuf, /* temporary buffer pointer */
- *tbuf2; /* temporary buffer pointer */
- int i,j; /* Counters */
- herr_t ret; /* Generic return value */
- hssize_t npoints; /* Number of elements in selection */
+ hid_t fid1; /* HDF5 File IDs */
+ hid_t dataset; /* Dataset ID */
+ hid_t sid1, sid2; /* Dataspace ID */
+ hsize_t dims1[] = {SPACE2_DIM1, SPACE2_DIM2};
+ hsize_t dims2[] = {SPACE2A_DIM1};
+ hsize_t start[SPACE2_RANK]; /* Starting location of hyperslab */
+ hsize_t stride[SPACE2_RANK]; /* Stride of hyperslab */
+ hsize_t count[SPACE2_RANK]; /* Element count of hyperslab */
+ hsize_t block[SPACE2_RANK]; /* Block size of hyperslab */
+ uint8_t *wbuf, /* buffer to write to disk */
+ *rbuf, /* buffer read from disk */
+ *tbuf, /* temporary buffer pointer */
+ *tbuf2; /* temporary buffer pointer */
+ int i, j; /* Counters */
+ herr_t ret; /* Generic return value */
+ hssize_t npoints; /* Number of elements in selection */
/* Output message about test being performed */
MESSAGE(5, ("Testing Hyperslab Selection Functions with NOTB of 2-D hyperslabs\n"));
@@ -5673,9 +5940,9 @@ test_select_hyper_notb_2d(void)
CHECK_PTR(rbuf, "HDcalloc");
/* Initialize write buffer */
- for(i=0, tbuf=wbuf; i<SPACE2_DIM1; i++)
- for(j=0; j<SPACE2_DIM2; j++)
- *tbuf++=(uint8_t)((i*SPACE2_DIM2)+j);
+ for (i = 0, tbuf = wbuf; i < SPACE2_DIM1; i++)
+ for (j = 0; j < SPACE2_DIM2; j++)
+ *tbuf++ = (uint8_t)((i * SPACE2_DIM2) + j);
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
@@ -5690,30 +5957,38 @@ test_select_hyper_notb_2d(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 10x10 hyperslab for disk dataset */
- start[0]=0; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=10; count[1]=10;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid1,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 10;
+ count[1] = 10;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Intersect overlapping 10x10 hyperslab */
- start[0]=5; start[1]=5;
- stride[0]=1; stride[1]=1;
- count[0]=10; count[1]=10;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid1,H5S_SELECT_NOTB,start,stride,count,block);
+ start[0] = 5;
+ start[1] = 5;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 10;
+ count[1] = 10;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_NOTB, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
npoints = H5Sget_select_npoints(sid1);
VERIFY(npoints, 75, "H5Sget_select_npoints");
/* Select 75 hyperslab for memory dataset */
- start[0]=0;
- stride[0]=1;
- count[0]=75;
- block[0]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ stride[0] = 1;
+ count[0] = 75;
+ block[0] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
npoints = H5Sget_select_npoints(sid2);
@@ -5724,27 +5999,28 @@ test_select_hyper_notb_2d(void)
CHECK(dataset, FAIL, "H5Dcreate2");
/* Write selection to disk */
- ret=H5Dwrite(dataset,H5T_NATIVE_UCHAR,sid2,sid1,H5P_DEFAULT,wbuf);
+ ret = H5Dwrite(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, wbuf);
CHECK(ret, FAIL, "H5Dwrite");
/* Read entire dataset from disk */
- ret=H5Dread(dataset,H5T_NATIVE_UCHAR,H5S_ALL,H5S_ALL,H5P_DEFAULT,rbuf);
+ ret = H5Dread(dataset, H5T_NATIVE_UCHAR, H5S_ALL, H5S_ALL, H5P_DEFAULT, rbuf);
CHECK(ret, FAIL, "H5Dread");
/* Initialize write buffer */
- for(i=0, tbuf=rbuf, tbuf2=wbuf; i<SPACE2_DIM1; i++)
- for(j=0; j<SPACE2_DIM2; j++, tbuf++) {
- if(((i>=0 && i<=4) && (j>=0 && j<=9)) ||
- ((i>=5 && i<=9) && (j>=0 && j<=4))) {
- if(*tbuf!=*tbuf2)
- HDprintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%d, *tbuf2=%d\n",__LINE__,i,j,(int)*tbuf,(int)*tbuf2);
+ for (i = 0, tbuf = rbuf, tbuf2 = wbuf; i < SPACE2_DIM1; i++)
+ for (j = 0; j < SPACE2_DIM2; j++, tbuf++) {
+ if (((i >= 0 && i <= 4) && (j >= 0 && j <= 9)) || ((i >= 5 && i <= 9) && (j >= 0 && j <= 4))) {
+ if (*tbuf != *tbuf2)
+ HDprintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%d, *tbuf2=%d\n", __LINE__,
+ i, j, (int)*tbuf, (int)*tbuf2);
tbuf2++;
} /* end if */
else {
- if(*tbuf!=0)
- HDprintf("%d: hyperslab element has wrong value!, i=%d, j=%d, *tbuf=%d\n",__LINE__,i,j,(int)*tbuf);
+ if (*tbuf != 0)
+ HDprintf("%d: hyperslab element has wrong value!, i=%d, j=%d, *tbuf=%d\n", __LINE__, i, j,
+ (int)*tbuf);
} /* end else */
- } /* end for */
+ } /* end for */
/* Close memory dataspace */
ret = H5Sclose(sid2);
@@ -5765,7 +6041,7 @@ test_select_hyper_notb_2d(void)
/* Free memory buffers */
HDfree(wbuf);
HDfree(rbuf);
-} /* test_select_hyper_notb_2d() */
+} /* test_select_hyper_notb_2d() */
/****************************************************************
**
@@ -5776,22 +6052,22 @@ test_select_hyper_notb_2d(void)
static void
test_select_hyper_nota_2d(void)
{
- hid_t fid1; /* HDF5 File IDs */
- hid_t dataset; /* Dataset ID */
- hid_t sid1,sid2; /* Dataspace ID */
- hsize_t dims1[] = {SPACE2_DIM1, SPACE2_DIM2};
- hsize_t dims2[] = {SPACE2A_DIM1};
- hsize_t start[SPACE2_RANK]; /* Starting location of hyperslab */
- hsize_t stride[SPACE2_RANK]; /* Stride of hyperslab */
- hsize_t count[SPACE2_RANK]; /* Element count of hyperslab */
- hsize_t block[SPACE2_RANK]; /* Block size of hyperslab */
- uint8_t *wbuf, /* buffer to write to disk */
- *rbuf, /* buffer read from disk */
- *tbuf, /* temporary buffer pointer */
- *tbuf2; /* temporary buffer pointer */
- int i,j; /* Counters */
- herr_t ret; /* Generic return value */
- hssize_t npoints; /* Number of elements in selection */
+ hid_t fid1; /* HDF5 File IDs */
+ hid_t dataset; /* Dataset ID */
+ hid_t sid1, sid2; /* Dataspace ID */
+ hsize_t dims1[] = {SPACE2_DIM1, SPACE2_DIM2};
+ hsize_t dims2[] = {SPACE2A_DIM1};
+ hsize_t start[SPACE2_RANK]; /* Starting location of hyperslab */
+ hsize_t stride[SPACE2_RANK]; /* Stride of hyperslab */
+ hsize_t count[SPACE2_RANK]; /* Element count of hyperslab */
+ hsize_t block[SPACE2_RANK]; /* Block size of hyperslab */
+ uint8_t *wbuf, /* buffer to write to disk */
+ *rbuf, /* buffer read from disk */
+ *tbuf, /* temporary buffer pointer */
+ *tbuf2; /* temporary buffer pointer */
+ int i, j; /* Counters */
+ herr_t ret; /* Generic return value */
+ hssize_t npoints; /* Number of elements in selection */
/* Output message about test being performed */
MESSAGE(5, ("Testing Hyperslab Selection Functions with NOTA of 2-D hyperslabs\n"));
@@ -5803,9 +6079,9 @@ test_select_hyper_nota_2d(void)
CHECK_PTR(rbuf, "HDcalloc");
/* Initialize write buffer */
- for(i=0, tbuf=wbuf; i<SPACE2_DIM1; i++)
- for(j=0; j<SPACE2_DIM2; j++)
- *tbuf++=(uint8_t)((i*SPACE2_DIM2)+j);
+ for (i = 0, tbuf = wbuf; i < SPACE2_DIM1; i++)
+ for (j = 0; j < SPACE2_DIM2; j++)
+ *tbuf++ = (uint8_t)((i * SPACE2_DIM2) + j);
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
@@ -5820,30 +6096,38 @@ test_select_hyper_nota_2d(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Select 10x10 hyperslab for disk dataset */
- start[0]=0; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=10; count[1]=10;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid1,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 10;
+ count[1] = 10;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Intersect overlapping 10x10 hyperslab */
- start[0]=5; start[1]=5;
- stride[0]=1; stride[1]=1;
- count[0]=10; count[1]=10;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(sid1,H5S_SELECT_NOTA,start,stride,count,block);
+ start[0] = 5;
+ start[1] = 5;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 10;
+ count[1] = 10;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_NOTA, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
npoints = H5Sget_select_npoints(sid1);
VERIFY(npoints, 75, "H5Sget_select_npoints");
/* Select 75 hyperslab for memory dataset */
- start[0]=0;
- stride[0]=1;
- count[0]=75;
- block[0]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ stride[0] = 1;
+ count[0] = 75;
+ block[0] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
npoints = H5Sget_select_npoints(sid2);
@@ -5854,27 +6138,29 @@ test_select_hyper_nota_2d(void)
CHECK(dataset, FAIL, "H5Dcreate2");
/* Write selection to disk */
- ret=H5Dwrite(dataset,H5T_NATIVE_UCHAR,sid2,sid1,H5P_DEFAULT,wbuf);
+ ret = H5Dwrite(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, wbuf);
CHECK(ret, FAIL, "H5Dwrite");
/* Read entire dataset from disk */
- ret=H5Dread(dataset,H5T_NATIVE_UCHAR,H5S_ALL,H5S_ALL,H5P_DEFAULT,rbuf);
+ ret = H5Dread(dataset, H5T_NATIVE_UCHAR, H5S_ALL, H5S_ALL, H5P_DEFAULT, rbuf);
CHECK(ret, FAIL, "H5Dread");
/* Initialize write buffer */
- for(i=0, tbuf=rbuf, tbuf2=wbuf; i<SPACE2_DIM1; i++)
- for(j=0; j<SPACE2_DIM2; j++, tbuf++) {
- if(((i>=10 && i<=14) && (j>=5 && j<=14)) ||
- ((i>=5 && i<=9) && (j>=10 && j<=14))) {
- if(*tbuf!=*tbuf2)
- TestErrPrintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%d, *tbuf2=%d\n",__LINE__,i,j,(int)*tbuf,(int)*tbuf2);
+ for (i = 0, tbuf = rbuf, tbuf2 = wbuf; i < SPACE2_DIM1; i++)
+ for (j = 0; j < SPACE2_DIM2; j++, tbuf++) {
+ if (((i >= 10 && i <= 14) && (j >= 5 && j <= 14)) ||
+ ((i >= 5 && i <= 9) && (j >= 10 && j <= 14))) {
+ if (*tbuf != *tbuf2)
+ TestErrPrintf("%d: hyperslab values don't match!, i=%d, j=%d, *tbuf=%d, *tbuf2=%d\n",
+ __LINE__, i, j, (int)*tbuf, (int)*tbuf2);
tbuf2++;
} /* end if */
else {
- if(*tbuf!=0)
- TestErrPrintf("%d: hyperslab element has wrong value!, i=%d, j=%d, *tbuf=%d\n",__LINE__,i,j,(int)*tbuf);
+ if (*tbuf != 0)
+ TestErrPrintf("%d: hyperslab element has wrong value!, i=%d, j=%d, *tbuf=%d\n", __LINE__,
+ i, j, (int)*tbuf);
} /* end else */
- } /* end for */
+ } /* end for */
/* Close memory dataspace */
ret = H5Sclose(sid2);
@@ -5895,7 +6181,7 @@ test_select_hyper_nota_2d(void)
/* Free memory buffers */
HDfree(wbuf);
HDfree(rbuf);
-} /* test_select_hyper_nota_2d() */
+} /* test_select_hyper_nota_2d() */
/****************************************************************
**
@@ -5903,29 +6189,30 @@ test_select_hyper_nota_2d(void)
**
****************************************************************/
static herr_t
-test_select_hyper_iter2(void *_elem, hid_t H5_ATTR_UNUSED type_id, unsigned ndim, const hsize_t *point, void *_operator_data)
+test_select_hyper_iter2(void *_elem, hid_t H5_ATTR_UNUSED type_id, unsigned ndim, const hsize_t *point,
+ void *_operator_data)
{
- int *tbuf=(int *)_elem, /* temporary buffer pointer */
- **tbuf2=(int **)_operator_data; /* temporary buffer handle */
- unsigned u; /* Local counting variable */
+ int *tbuf = (int *)_elem, /* temporary buffer pointer */
+ **tbuf2 = (int **)_operator_data; /* temporary buffer handle */
+ unsigned u; /* Local counting variable */
- if(*tbuf!=**tbuf2) {
+ if (*tbuf != **tbuf2) {
TestErrPrintf("Error in hyperslab iteration!\n");
HDprintf("location: { ");
- for(u=0; u<ndim; u++) {
- HDprintf("%2d",(int)point[u]);
- if(u<(ndim-1))
+ for (u = 0; u < ndim; u++) {
+ HDprintf("%2d", (int)point[u]);
+ if (u < (ndim - 1))
HDprintf(", ");
} /* end for */
HDprintf("}\n");
- HDprintf("*tbuf=%d, **tbuf2=%d\n",*tbuf,**tbuf2);
- return(-1);
+ HDprintf("*tbuf=%d, **tbuf2=%d\n", *tbuf, **tbuf2);
+ return (-1);
} /* end if */
else {
(*tbuf2)++;
- return(0);
+ return (0);
}
-} /* end test_select_hyper_iter2() */
+} /* end test_select_hyper_iter2() */
/****************************************************************
**
@@ -5936,22 +6223,22 @@ test_select_hyper_iter2(void *_elem, hid_t H5_ATTR_UNUSED type_id, unsigned ndim
static void
test_select_hyper_union_random_5d(hid_t read_plist)
{
- hid_t fid1; /* HDF5 File IDs */
- hid_t dataset; /* Dataset ID */
- hid_t sid1,sid2; /* Dataspace ID */
- hsize_t dims1[] = {SPACE5_DIM1, SPACE5_DIM2, SPACE5_DIM3, SPACE5_DIM4, SPACE5_DIM5};
- hsize_t dims2[] = {SPACE6_DIM1};
- hsize_t start[SPACE5_RANK]; /* Starting location of hyperslab */
- hsize_t count[SPACE5_RANK]; /* Element count of hyperslab */
- int *wbuf, /* buffer to write to disk */
- *rbuf, /* buffer read from disk */
- *tbuf; /* temporary buffer pointer */
- int i,j,k,l,m; /* Counters */
- herr_t ret; /* Generic return value */
- hssize_t npoints, /* Number of elements in file selection */
- npoints2; /* Number of elements in memory selection */
- unsigned seed; /* Random number seed for each test */
- unsigned test_num; /* Count of tests being executed */
+ hid_t fid1; /* HDF5 File IDs */
+ hid_t dataset; /* Dataset ID */
+ hid_t sid1, sid2; /* Dataspace ID */
+ hsize_t dims1[] = {SPACE5_DIM1, SPACE5_DIM2, SPACE5_DIM3, SPACE5_DIM4, SPACE5_DIM5};
+ hsize_t dims2[] = {SPACE6_DIM1};
+ hsize_t start[SPACE5_RANK]; /* Starting location of hyperslab */
+ hsize_t count[SPACE5_RANK]; /* Element count of hyperslab */
+ int * wbuf, /* buffer to write to disk */
+ *rbuf, /* buffer read from disk */
+ *tbuf; /* temporary buffer pointer */
+ int i, j, k, l, m; /* Counters */
+ herr_t ret; /* Generic return value */
+ hssize_t npoints, /* Number of elements in file selection */
+ npoints2; /* Number of elements in memory selection */
+ unsigned seed; /* Random number seed for each test */
+ unsigned test_num; /* Count of tests being executed */
/* Output message about test being performed */
MESSAGE(5, ("Testing Hyperslab Selection Functions with random unions of 5-D hyperslabs\n"));
@@ -5959,16 +6246,19 @@ test_select_hyper_union_random_5d(hid_t read_plist)
/* Allocate write & read buffers */
wbuf = (int *)HDmalloc(sizeof(int) * SPACE5_DIM1 * SPACE5_DIM2 * SPACE5_DIM3 * SPACE5_DIM4 * SPACE5_DIM5);
CHECK_PTR(wbuf, "HDmalloc");
- rbuf = (int *)HDcalloc(sizeof(int), (size_t)(SPACE5_DIM1 * SPACE5_DIM2 * SPACE5_DIM3 * SPACE5_DIM4 * SPACE5_DIM5));
+ rbuf = (int *)HDcalloc(sizeof(int),
+ (size_t)(SPACE5_DIM1 * SPACE5_DIM2 * SPACE5_DIM3 * SPACE5_DIM4 * SPACE5_DIM5));
CHECK_PTR(rbuf, "HDcalloc");
/* Initialize write buffer */
- for(i=0, tbuf=wbuf; i<SPACE5_DIM1; i++)
- for(j=0; j<SPACE5_DIM2; j++)
- for(k=0; k<SPACE5_DIM3; k++)
- for(l=0; l<SPACE5_DIM4; l++)
- for(m=0; m<SPACE5_DIM5; m++)
- *tbuf++=(int)(((((((i*SPACE5_DIM2)+j)*SPACE5_DIM3)+k)*SPACE5_DIM4)+l)*SPACE5_DIM5)+m;
+ for (i = 0, tbuf = wbuf; i < SPACE5_DIM1; i++)
+ for (j = 0; j < SPACE5_DIM2; j++)
+ for (k = 0; k < SPACE5_DIM3; k++)
+ for (l = 0; l < SPACE5_DIM4; l++)
+ for (m = 0; m < SPACE5_DIM5; m++)
+ *tbuf++ = (int)(((((((i * SPACE5_DIM2) + j) * SPACE5_DIM3) + k) * SPACE5_DIM4) + l) *
+ SPACE5_DIM5) +
+ m;
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
@@ -5983,7 +6273,7 @@ test_select_hyper_union_random_5d(hid_t read_plist)
CHECK(dataset, FAIL, "H5Dcreate2");
/* Write entire dataset to disk */
- ret=H5Dwrite(dataset,H5T_NATIVE_INT,H5S_ALL,H5S_ALL,H5P_DEFAULT,wbuf);
+ ret = H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, wbuf);
CHECK(ret, FAIL, "H5Dwrite");
/* Create dataspace for reading buffer */
@@ -5994,27 +6284,28 @@ test_select_hyper_union_random_5d(hid_t read_plist)
seed = (unsigned)HDtime(NULL) + (unsigned)HDclock();
/* Crunch through a bunch of random hyperslab reads from the file dataset */
- for(test_num=0; test_num<NRAND_HYPER; test_num++) {
+ for (test_num = 0; test_num < NRAND_HYPER; test_num++) {
/* Save random # seed for later use */
/* (Used in case of errors, to regenerate the hyperslab sequence) */
seed += (unsigned)HDclock();
HDsrandom(seed);
- for(i=0; i<NHYPERSLABS; i++) {
+ for (i = 0; i < NHYPERSLABS; i++) {
/* Select random hyperslab location & size for selection */
- for(j=0; j<SPACE5_RANK; j++) {
+ for (j = 0; j < SPACE5_RANK; j++) {
start[j] = ((hsize_t)HDrandom() % dims1[j]);
count[j] = (((hsize_t)HDrandom() % (dims1[j] - start[j])) + 1);
} /* end for */
/* Select hyperslab */
- ret = H5Sselect_hyperslab(sid1, (i == 0 ? H5S_SELECT_SET : H5S_SELECT_OR), start, NULL, count, NULL);
+ ret = H5Sselect_hyperslab(sid1, (i == 0 ? H5S_SELECT_SET : H5S_SELECT_OR), start, NULL, count,
+ NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- if(ret < 0) {
+ if (ret < 0) {
TestErrPrintf("Random hyperslabs for seed %u failed!\n", seed);
break;
} /* end if */
- } /* end for */
+ } /* end for */
/* Get the number of elements selected */
npoints = H5Sget_select_npoints(sid1);
@@ -6023,24 +6314,24 @@ test_select_hyper_union_random_5d(hid_t read_plist)
/* Select linear 1-D hyperslab for memory dataset */
start[0] = 0;
count[0] = (hsize_t)npoints;
- ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, NULL, count, NULL);
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, NULL, count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
npoints2 = H5Sget_select_npoints(sid2);
VERIFY(npoints, npoints2, "H5Sget_select_npoints");
/* Read selection from disk */
- ret=H5Dread(dataset,H5T_NATIVE_INT,sid2,sid1,read_plist,rbuf);
+ ret = H5Dread(dataset, H5T_NATIVE_INT, sid2, sid1, read_plist, rbuf);
CHECK(ret, FAIL, "H5Dread");
- if(ret < 0) {
+ if (ret < 0) {
TestErrPrintf("Random hyperslabs for seed %u failed!\n", seed);
break;
} /* end if */
/* Compare data read with data written out */
- tbuf=rbuf;
- ret = H5Diterate(wbuf,H5T_NATIVE_INT,sid1,test_select_hyper_iter2,&tbuf);
- if(ret < 0) {
+ tbuf = rbuf;
+ ret = H5Diterate(wbuf, H5T_NATIVE_INT, sid1, test_select_hyper_iter2, &tbuf);
+ if (ret < 0) {
TestErrPrintf("Random hyperslabs for seed %u failed!\n", seed);
break;
} /* end if */
@@ -6068,7 +6359,7 @@ test_select_hyper_union_random_5d(hid_t read_plist)
/* Free memory buffers */
HDfree(wbuf);
HDfree(rbuf);
-} /* test_select_hyper_union_random_5d() */
+} /* test_select_hyper_union_random_5d() */
/****************************************************************
**
@@ -6079,30 +6370,30 @@ test_select_hyper_union_random_5d(hid_t read_plist)
static void
test_select_hyper_chunk(hid_t fapl_plist, hid_t xfer_plist)
{
- hsize_t dimsf[3]; /* dataset dimensions */
- hsize_t chunk_dimsf[3] = {CHUNK_X, CHUNK_Y, CHUNK_Z}; /* chunk sizes */
- short *data; /* data to write */
- short *tmpdata; /* data to write */
+ hsize_t dimsf[3]; /* dataset dimensions */
+ hsize_t chunk_dimsf[3] = {CHUNK_X, CHUNK_Y, CHUNK_Z}; /* chunk sizes */
+ short * data; /* data to write */
+ short * tmpdata; /* data to write */
/*
* Data and output buffer initialization.
*/
- hid_t file, dataset; /* handles */
- hid_t dataspace;
- hid_t memspace;
- hid_t plist;
- hsize_t dimsm[3]; /* memory space dimensions */
- hsize_t dims_out[3]; /* dataset dimensions */
- herr_t status;
-
- short *data_out; /* output buffer */
- short *tmpdata_out; /* output buffer */
-
- hsize_t count[3]; /* size of the hyperslab in the file */
- hsize_t offset[3]; /* hyperslab offset in the file */
- hsize_t count_out[3]; /* size of the hyperslab in memory */
- hsize_t offset_out[3]; /* hyperslab offset in memory */
- int i, j, k, status_n, rank;
+ hid_t file, dataset; /* handles */
+ hid_t dataspace;
+ hid_t memspace;
+ hid_t plist;
+ hsize_t dimsm[3]; /* memory space dimensions */
+ hsize_t dims_out[3]; /* dataset dimensions */
+ herr_t status;
+
+ short *data_out; /* output buffer */
+ short *tmpdata_out; /* output buffer */
+
+ hsize_t count[3]; /* size of the hyperslab in the file */
+ hsize_t offset[3]; /* hyperslab offset in the file */
+ hsize_t count_out[3]; /* size of the hyperslab in memory */
+ hsize_t offset_out[3]; /* hyperslab offset in memory */
+ int i, j, k, status_n, rank;
/* Output message about test being performed */
MESSAGE(5, ("Testing Hyperslab I/O on Large Chunks\n"));
@@ -6120,24 +6411,24 @@ test_select_hyper_chunk(hid_t fapl_plist, hid_t xfer_plist)
for (j = 0; j < X; j++)
for (i = 0; i < Y; i++)
for (k = 0; k < Z; k++)
- *tmpdata++ = (short)((k+1)%256);
+ *tmpdata++ = (short)((k + 1) % 256);
/*
* Create a new file using H5F_ACC_TRUNC access,
* the default file creation properties, and the default file
* access properties.
*/
- file = H5Fcreate (FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl_plist);
+ file = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl_plist);
CHECK(file, FAIL, "H5Fcreate");
/*
* Describe the size of the array and create the dataspace for fixed
* size dataset.
*/
- dimsf[0] = X;
- dimsf[1] = Y;
- dimsf[2] = Z;
- dataspace = H5Screate_simple (RANK_F, dimsf, NULL);
+ dimsf[0] = X;
+ dimsf[1] = Y;
+ dimsf[2] = Z;
+ dataspace = H5Screate_simple(RANK_F, dimsf, NULL);
CHECK(dataspace, FAIL, "H5Screate_simple");
/*
@@ -6160,8 +6451,7 @@ test_select_hyper_chunk(hid_t fapl_plist, hid_t xfer_plist)
count[0] = NX_SUB;
count[1] = NY_SUB;
count[2] = NZ_SUB;
- status = H5Sselect_hyperslab (dataspace, H5S_SELECT_SET, offset, NULL,
- count, NULL);
+ status = H5Sselect_hyperslab(dataspace, H5S_SELECT_SET, offset, NULL, count, NULL);
CHECK(status, FAIL, "H5Sselect_hyperslab");
/*
@@ -6170,7 +6460,7 @@ test_select_hyper_chunk(hid_t fapl_plist, hid_t xfer_plist)
dimsm[0] = NX;
dimsm[1] = NY;
dimsm[2] = NZ;
- memspace = H5Screate_simple (RANK_M, dimsm, NULL);
+ memspace = H5Screate_simple(RANK_M, dimsm, NULL);
CHECK(memspace, FAIL, "H5Screate_simple");
/*
@@ -6182,39 +6472,36 @@ test_select_hyper_chunk(hid_t fapl_plist, hid_t xfer_plist)
count_out[0] = NX_SUB;
count_out[1] = NY_SUB;
count_out[2] = NZ_SUB;
- status = H5Sselect_hyperslab (memspace, H5S_SELECT_SET, offset_out, NULL,
- count_out, NULL);
+ status = H5Sselect_hyperslab(memspace, H5S_SELECT_SET, offset_out, NULL, count_out, NULL);
CHECK(status, FAIL, "H5Sselect_hyperslab");
/*
* Write the data to the dataset using hyperslabs
*/
- status = H5Dwrite (dataset, H5T_NATIVE_SHORT, memspace, dataspace,
- xfer_plist, data);
+ status = H5Dwrite(dataset, H5T_NATIVE_SHORT, memspace, dataspace, xfer_plist, data);
CHECK(status, FAIL, "H5Dwrite");
/*
* Close/release resources.
*/
- status=H5Pclose (plist);
+ status = H5Pclose(plist);
CHECK(status, FAIL, "H5Pclose");
- status=H5Sclose (dataspace);
+ status = H5Sclose(dataspace);
CHECK(status, FAIL, "H5Sclose");
- status=H5Sclose (memspace);
+ status = H5Sclose(memspace);
CHECK(status, FAIL, "H5Sclose");
- status=H5Dclose (dataset);
+ status = H5Dclose(dataset);
CHECK(status, FAIL, "H5Dclose");
- status=H5Fclose (file);
+ status = H5Fclose(file);
CHECK(status, FAIL, "H5Fclose");
+ /*************************************************************
-/*************************************************************
+ This reads the hyperslab from the test.h5 file just
+ created, into a 3-dimensional plane of the 3-dimensional
+ array.
- This reads the hyperslab from the test.h5 file just
- created, into a 3-dimensional plane of the 3-dimensional
- array.
-
- ************************************************************/
+ ************************************************************/
/*
* Open the file and the dataset.
@@ -6224,7 +6511,7 @@ test_select_hyper_chunk(hid_t fapl_plist, hid_t xfer_plist)
dataset = H5Dopen2(file, DATASETNAME, H5P_DEFAULT);
CHECK(dataset, FAIL, "H5Dopen2");
- dataspace = H5Dget_space(dataset); /* dataspace handle */
+ dataspace = H5Dget_space(dataset); /* dataspace handle */
CHECK(dataspace, FAIL, "H5Dget_space");
rank = H5Sget_simple_extent_ndims(dataspace);
VERIFY(rank, 3, "H5Sget_simple_extent_ndims");
@@ -6243,8 +6530,7 @@ test_select_hyper_chunk(hid_t fapl_plist, hid_t xfer_plist)
count[0] = NX_SUB;
count[1] = NY_SUB;
count[2] = NZ_SUB;
- status = H5Sselect_hyperslab (dataspace, H5S_SELECT_SET, offset, NULL,
- count, NULL);
+ status = H5Sselect_hyperslab(dataspace, H5S_SELECT_SET, offset, NULL, count, NULL);
CHECK(status, FAIL, "H5Sselect_hyperslab");
/*
@@ -6253,7 +6539,7 @@ test_select_hyper_chunk(hid_t fapl_plist, hid_t xfer_plist)
dimsm[0] = NX;
dimsm[1] = NY;
dimsm[2] = NZ;
- memspace = H5Screate_simple (RANK_M, dimsm, NULL);
+ memspace = H5Screate_simple(RANK_M, dimsm, NULL);
CHECK(memspace, FAIL, "H5Screate_simple");
/*
@@ -6265,42 +6551,41 @@ test_select_hyper_chunk(hid_t fapl_plist, hid_t xfer_plist)
count_out[0] = NX_SUB;
count_out[1] = NY_SUB;
count_out[2] = NZ_SUB;
- status = H5Sselect_hyperslab (memspace, H5S_SELECT_SET, offset_out, NULL,
- count_out, NULL);
+ status = H5Sselect_hyperslab(memspace, H5S_SELECT_SET, offset_out, NULL, count_out, NULL);
CHECK(status, FAIL, "H5Sselect_hyperslab");
/*
* Read data from hyperslab in the file into the hyperslab in
* memory and display.
*/
- status = H5Dread (dataset, H5T_NATIVE_SHORT, memspace, dataspace,
- xfer_plist, data_out);
+ status = H5Dread(dataset, H5T_NATIVE_SHORT, memspace, dataspace, xfer_plist, data_out);
CHECK(status, FAIL, "H5Dread");
/* Compare data written with data read in */
- tmpdata = data;
+ tmpdata = data;
tmpdata_out = data_out;
for (j = 0; j < X; j++)
for (i = 0; i < Y; i++)
- for (k = 0; k < Z; k++,tmpdata++,tmpdata_out++) {
- if(*tmpdata!=*tmpdata_out)
- TestErrPrintf("Line %d: Error! j=%d, i=%d, k=%d, *tmpdata=%x, *tmpdata_out=%x\n",__LINE__,j,i,k,(unsigned)*tmpdata,(unsigned)*tmpdata_out);
+ for (k = 0; k < Z; k++, tmpdata++, tmpdata_out++) {
+ if (*tmpdata != *tmpdata_out)
+ TestErrPrintf("Line %d: Error! j=%d, i=%d, k=%d, *tmpdata=%x, *tmpdata_out=%x\n",
+ __LINE__, j, i, k, (unsigned)*tmpdata, (unsigned)*tmpdata_out);
} /* end for */
/*
* Close and release resources.
*/
- status=H5Dclose (dataset);
+ status = H5Dclose(dataset);
CHECK(status, FAIL, "H5Dclose");
- status=H5Sclose (dataspace);
+ status = H5Sclose(dataspace);
CHECK(status, FAIL, "H5Sclose");
- status=H5Sclose (memspace);
+ status = H5Sclose(memspace);
CHECK(status, FAIL, "H5Sclose");
- status=H5Fclose (file);
+ status = H5Fclose(file);
CHECK(status, FAIL, "H5Fclose");
- HDfree (data);
- HDfree (data_out);
-} /* test_select_hyper_chunk() */
+ HDfree(data);
+ HDfree(data_out);
+} /* test_select_hyper_chunk() */
/****************************************************************
**
@@ -6312,29 +6597,29 @@ test_select_hyper_chunk(hid_t fapl_plist, hid_t xfer_plist)
static void
test_select_point_chunk(void)
{
- hsize_t dimsf[SPACE7_RANK]; /* dataset dimensions */
- hsize_t chunk_dimsf[SPACE7_RANK] = {SPACE7_CHUNK_DIM1,SPACE7_CHUNK_DIM2}; /* chunk sizes */
- unsigned *data; /* data to write */
- unsigned *tmpdata; /* data to write */
+ hsize_t dimsf[SPACE7_RANK]; /* dataset dimensions */
+ hsize_t chunk_dimsf[SPACE7_RANK] = {SPACE7_CHUNK_DIM1, SPACE7_CHUNK_DIM2}; /* chunk sizes */
+ unsigned *data; /* data to write */
+ unsigned *tmpdata; /* data to write */
/*
* Data and output buffer initialization.
*/
- hid_t file, dataset; /* handles */
- hid_t dataspace;
- hid_t pnt1_space; /* Dataspace to hold 1st point selection */
- hid_t pnt2_space; /* Dataspace to hold 2nd point selection */
- hid_t hyp1_space; /* Dataspace to hold 1st hyperslab selection */
- hid_t hyp2_space; /* Dataspace to hold 2nd hyperslab selection */
- hid_t dcpl;
- herr_t ret; /* Generic return value */
-
- unsigned *data_out; /* output buffer */
-
- hsize_t start[SPACE7_RANK]; /* hyperslab offset */
- hsize_t count[SPACE7_RANK]; /* size of the hyperslab */
- hsize_t points[SPACE7_NPOINTS][SPACE7_RANK]; /* points for selection */
- unsigned i, j; /* Local index variables */
+ hid_t file, dataset; /* handles */
+ hid_t dataspace;
+ hid_t pnt1_space; /* Dataspace to hold 1st point selection */
+ hid_t pnt2_space; /* Dataspace to hold 2nd point selection */
+ hid_t hyp1_space; /* Dataspace to hold 1st hyperslab selection */
+ hid_t hyp2_space; /* Dataspace to hold 2nd hyperslab selection */
+ hid_t dcpl;
+ herr_t ret; /* Generic return value */
+
+ unsigned *data_out; /* output buffer */
+
+ hsize_t start[SPACE7_RANK]; /* hyperslab offset */
+ hsize_t count[SPACE7_RANK]; /* size of the hyperslab */
+ hsize_t points[SPACE7_NPOINTS][SPACE7_RANK]; /* points for selection */
+ unsigned i, j; /* Local index variables */
/* Output message about test being performed */
MESSAGE(5, ("Testing Point Selections on Chunked Datasets\n"));
@@ -6351,20 +6636,20 @@ test_select_point_chunk(void)
tmpdata = data;
for (i = 0; i < SPACE7_DIM1; i++)
for (j = 0; j < SPACE7_DIM1; j++)
- *tmpdata++ = ((i*SPACE7_DIM2)+j)%256;
+ *tmpdata++ = ((i * SPACE7_DIM2) + j) % 256;
/*
* Create a new file using H5F_ACC_TRUNC access,
* the default file creation properties and file
* access properties.
*/
- file = H5Fcreate (FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
+ file = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
CHECK(file, FAIL, "H5Fcreate");
/* Create file dataspace */
- dimsf[0] = SPACE7_DIM1;
- dimsf[1] = SPACE7_DIM2;
- dataspace = H5Screate_simple (SPACE7_RANK, dimsf, NULL);
+ dimsf[0] = SPACE7_DIM1;
+ dimsf[1] = SPACE7_DIM2;
+ dataspace = H5Screate_simple(SPACE7_RANK, dimsf, NULL);
CHECK(dataspace, FAIL, "H5Screate_simple");
/*
@@ -6379,75 +6664,79 @@ test_select_point_chunk(void)
CHECK(dataset, FAIL, "H5Dcreate2");
/* Create 1st point selection */
- pnt1_space = H5Scopy (dataspace);
+ pnt1_space = H5Scopy(dataspace);
CHECK(pnt1_space, FAIL, "H5Scopy");
- points[0][0]=3;
- points[0][1]=3;
- points[1][0]=3;
- points[1][1]=8;
- points[2][0]=8;
- points[2][1]=3;
- points[3][0]=8;
- points[3][1]=8;
- points[4][0]=1; /* In same chunk as point #0, but "earlier" in chunk */
- points[4][1]=1;
- points[5][0]=1; /* In same chunk as point #1, but "earlier" in chunk */
- points[5][1]=6;
- points[6][0]=6; /* In same chunk as point #2, but "earlier" in chunk */
- points[6][1]=1;
- points[7][0]=6; /* In same chunk as point #3, but "earlier" in chunk */
- points[7][1]=6;
+ points[0][0] = 3;
+ points[0][1] = 3;
+ points[1][0] = 3;
+ points[1][1] = 8;
+ points[2][0] = 8;
+ points[2][1] = 3;
+ points[3][0] = 8;
+ points[3][1] = 8;
+ points[4][0] = 1; /* In same chunk as point #0, but "earlier" in chunk */
+ points[4][1] = 1;
+ points[5][0] = 1; /* In same chunk as point #1, but "earlier" in chunk */
+ points[5][1] = 6;
+ points[6][0] = 6; /* In same chunk as point #2, but "earlier" in chunk */
+ points[6][1] = 1;
+ points[7][0] = 6; /* In same chunk as point #3, but "earlier" in chunk */
+ points[7][1] = 6;
ret = H5Sselect_elements(pnt1_space, H5S_SELECT_SET, (size_t)SPACE7_NPOINTS, (const hsize_t *)points);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Create 1st hyperslab selection */
- hyp1_space = H5Scopy (dataspace);
+ hyp1_space = H5Scopy(dataspace);
CHECK(hyp1_space, FAIL, "H5Scopy");
- start[0]=2; start[1]=2;
- count[0]=4; count[1]=2;
- ret = H5Sselect_hyperslab(hyp1_space,H5S_SELECT_SET,start,NULL,count,NULL);
+ start[0] = 2;
+ start[1] = 2;
+ count[0] = 4;
+ count[1] = 2;
+ ret = H5Sselect_hyperslab(hyp1_space, H5S_SELECT_SET, start, NULL, count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Write out data using 1st point selection for file & hyperslab for memory */
- ret=H5Dwrite(dataset,H5T_NATIVE_UINT,hyp1_space,pnt1_space,H5P_DEFAULT,data);
+ ret = H5Dwrite(dataset, H5T_NATIVE_UINT, hyp1_space, pnt1_space, H5P_DEFAULT, data);
CHECK(ret, FAIL, "H5Dwrite");
/* Create 2nd point selection */
- pnt2_space = H5Scopy (dataspace);
+ pnt2_space = H5Scopy(dataspace);
CHECK(pnt2_space, FAIL, "H5Scopy");
- points[0][0]=4;
- points[0][1]=4;
- points[1][0]=4;
- points[1][1]=9;
- points[2][0]=9;
- points[2][1]=4;
- points[3][0]=9;
- points[3][1]=9;
- points[4][0]=2; /* In same chunk as point #0, but "earlier" in chunk */
- points[4][1]=2;
- points[5][0]=2; /* In same chunk as point #1, but "earlier" in chunk */
- points[5][1]=7;
- points[6][0]=7; /* In same chunk as point #2, but "earlier" in chunk */
- points[6][1]=2;
- points[7][0]=7; /* In same chunk as point #3, but "earlier" in chunk */
- points[7][1]=7;
+ points[0][0] = 4;
+ points[0][1] = 4;
+ points[1][0] = 4;
+ points[1][1] = 9;
+ points[2][0] = 9;
+ points[2][1] = 4;
+ points[3][0] = 9;
+ points[3][1] = 9;
+ points[4][0] = 2; /* In same chunk as point #0, but "earlier" in chunk */
+ points[4][1] = 2;
+ points[5][0] = 2; /* In same chunk as point #1, but "earlier" in chunk */
+ points[5][1] = 7;
+ points[6][0] = 7; /* In same chunk as point #2, but "earlier" in chunk */
+ points[6][1] = 2;
+ points[7][0] = 7; /* In same chunk as point #3, but "earlier" in chunk */
+ points[7][1] = 7;
ret = H5Sselect_elements(pnt2_space, H5S_SELECT_SET, (size_t)SPACE7_NPOINTS, (const hsize_t *)points);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Create 2nd hyperslab selection */
- hyp2_space = H5Scopy (dataspace);
+ hyp2_space = H5Scopy(dataspace);
CHECK(hyp2_space, FAIL, "H5Scopy");
- start[0]=2; start[1]=4;
- count[0]=4; count[1]=2;
- ret = H5Sselect_hyperslab(hyp2_space,H5S_SELECT_SET,start,NULL,count,NULL);
+ start[0] = 2;
+ start[1] = 4;
+ count[0] = 4;
+ count[1] = 2;
+ ret = H5Sselect_hyperslab(hyp2_space, H5S_SELECT_SET, start, NULL, count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Write out data using 2nd hyperslab selection for file & point for memory */
- ret=H5Dwrite(dataset,H5T_NATIVE_UINT,pnt2_space,hyp2_space,H5P_DEFAULT,data);
+ ret = H5Dwrite(dataset, H5T_NATIVE_UINT, pnt2_space, hyp2_space, H5P_DEFAULT, data);
CHECK(ret, FAIL, "H5Dwrite");
/* Close everything (except selections) */
@@ -6470,13 +6759,13 @@ test_select_point_chunk(void)
ret = H5Dread(dataset, H5T_NATIVE_UINT, hyp1_space, pnt1_space, H5P_DEFAULT, data_out);
CHECK(ret, FAIL, "H5Dread");
-/* Verify data (later) */
+ /* Verify data (later) */
/* Read data using 2nd hyperslab selection for file and point for memory */
ret = H5Dread(dataset, H5T_NATIVE_UINT, pnt2_space, hyp2_space, H5P_DEFAULT, data_out);
CHECK(ret, FAIL, "H5Dread");
-/* Verify data (later) */
+ /* Verify data (later) */
/* Close everything (inclusing selections) */
ret = H5Sclose(pnt1_space);
@@ -6493,8 +6782,8 @@ test_select_point_chunk(void)
CHECK(ret, FAIL, "H5Fclose");
HDfree(data);
- HDfree (data_out);
-} /* test_select_point_chunk() */
+ HDfree(data_out);
+} /* test_select_point_chunk() */
/****************************************************************
**
@@ -6505,17 +6794,17 @@ test_select_point_chunk(void)
static void
test_select_scalar_chunk(void)
{
- hid_t file_id; /* File ID */
- hid_t dcpl; /* Dataset creation property list */
- hid_t dsid; /* Dataset ID */
- hid_t sid; /* Dataspace ID */
- hid_t m_sid; /* Memory dataspace */
- hsize_t dims[] = {2}; /* Dataset dimensions */
- hsize_t maxdims[] = {H5S_UNLIMITED}; /* Dataset maximum dimensions */
- hsize_t offset[] = {0}; /* Hyperslab start */
- hsize_t count[] = {1}; /* Hyperslab count */
- unsigned data = 2; /* Data to write */
- herr_t ret;
+ hid_t file_id; /* File ID */
+ hid_t dcpl; /* Dataset creation property list */
+ hid_t dsid; /* Dataset ID */
+ hid_t sid; /* Dataspace ID */
+ hid_t m_sid; /* Memory dataspace */
+ hsize_t dims[] = {2}; /* Dataset dimensions */
+ hsize_t maxdims[] = {H5S_UNLIMITED}; /* Dataset maximum dimensions */
+ hsize_t offset[] = {0}; /* Hyperslab start */
+ hsize_t count[] = {1}; /* Hyperslab count */
+ unsigned data = 2; /* Data to write */
+ herr_t ret;
/* Output message about test being performed */
MESSAGE(5, ("Testing Scalar Dataspaces and Chunked Datasets\n"));
@@ -6527,7 +6816,7 @@ test_select_scalar_chunk(void)
CHECK(dcpl, FAIL, "H5Pcreate");
dims[0] = 1024U;
- ret = H5Pset_chunk(dcpl, 1, dims);
+ ret = H5Pset_chunk(dcpl, 1, dims);
CHECK(ret, FAIL, "H5Pset_chunk");
/* Create 1-D dataspace */
@@ -6546,7 +6835,7 @@ test_select_scalar_chunk(void)
CHECK(m_sid, FAIL, "H5Screate");
/* Write out data using scalar dataspace for memory dataspace */
- ret = H5Dwrite (dsid, H5T_NATIVE_UINT, m_sid, sid, H5P_DEFAULT, &data);
+ ret = H5Dwrite(dsid, H5T_NATIVE_UINT, m_sid, sid, H5P_DEFAULT, &data);
CHECK(ret, FAIL, "H5Dwrite");
/* Close resources */
@@ -6558,9 +6847,9 @@ test_select_scalar_chunk(void)
CHECK(ret, FAIL, "H5Dclose");
ret = H5Pclose(dcpl);
CHECK(ret, FAIL, "H5Pclose");
- ret = H5Fclose (file_id);
+ ret = H5Fclose(file_id);
CHECK(ret, FAIL, "H5Fclose");
-} /* test_select_scalar_chunk() */
+} /* test_select_scalar_chunk() */
/****************************************************************
**
@@ -6571,111 +6860,114 @@ test_select_scalar_chunk(void)
static void
test_select_valid(void)
{
- herr_t error;
- htri_t valid;
- hid_t main_space, sub_space;
- hsize_t safe_start[2]={1,1};
- hsize_t safe_count[2]={1,1};
+ herr_t error;
+ htri_t valid;
+ hid_t main_space, sub_space;
+ hsize_t safe_start[2] = {1, 1};
+ hsize_t safe_count[2] = {1, 1};
hsize_t start[2];
- hsize_t dims[2],maxdims[2],size[2],count[2];
+ hsize_t dims[2], maxdims[2], size[2], count[2];
/* Output message about test being performed */
MESSAGE(5, ("Testing Selection Validity\n"));
- MESSAGE(8, ( "Case 1 : sub_space is not a valid dataspace\n"));
+ MESSAGE(8, ("Case 1 : sub_space is not a valid dataspace\n"));
dims[0] = dims[1] = H5S_UNLIMITED;
- sub_space = H5Screate_simple(2,dims,NULL);
+ sub_space = H5Screate_simple(2, dims, NULL);
VERIFY(sub_space, FAIL, "H5Screate_simple");
- valid=H5Sselect_valid(sub_space);
+ valid = H5Sselect_valid(sub_space);
VERIFY(valid, FAIL, "H5Sselect_valid");
/* Set arrays and dataspace for the rest of the cases */
count[0] = count[1] = 1;
dims[0] = dims[1] = maxdims[0] = maxdims[1] = 10;
- main_space = H5Screate_simple(2,dims,maxdims);
+ main_space = H5Screate_simple(2, dims, maxdims);
CHECK(main_space, FAIL, "H5Screate_simple");
- MESSAGE(8, ( "Case 2 : sub_space is a valid but closed dataspace\n"));
+ MESSAGE(8, ("Case 2 : sub_space is a valid but closed dataspace\n"));
sub_space = H5Scopy(main_space);
CHECK(sub_space, FAIL, "H5Scopy");
- error=H5Sclose(sub_space);
+ error = H5Sclose(sub_space);
CHECK(error, FAIL, "H5Sclose");
- valid=H5Sselect_valid(sub_space);
+ valid = H5Sselect_valid(sub_space);
VERIFY(valid, FAIL, "H5Sselect_valid");
- MESSAGE(8, ( "Case 3 : in the dimensions\nTry offset (4,4) and size(6,6), the original space is of size (10,10)\n"));
+ MESSAGE(8, ("Case 3 : in the dimensions\nTry offset (4,4) and size(6,6), the original space is of size "
+ "(10,10)\n"));
start[0] = start[1] = 4;
size[0] = size[1] = 6;
sub_space = H5Scopy(main_space);
CHECK(sub_space, FAIL, "H5Scopy");
- error=H5Sselect_hyperslab(sub_space,H5S_SELECT_SET,start,size,count,size);
+ error = H5Sselect_hyperslab(sub_space, H5S_SELECT_SET, start, size, count, size);
CHECK(error, FAIL, "H5Sselect_hyperslab");
- valid=H5Sselect_valid(sub_space);
+ valid = H5Sselect_valid(sub_space);
VERIFY(valid, TRUE, "H5Sselect_valid");
- error=H5Sselect_hyperslab(sub_space,H5S_SELECT_OR,safe_start,NULL,safe_count,NULL);
+ error = H5Sselect_hyperslab(sub_space, H5S_SELECT_OR, safe_start, NULL, safe_count, NULL);
CHECK(error, FAIL, "H5Sselect_hyperslab");
- valid=H5Sselect_valid(sub_space);
+ valid = H5Sselect_valid(sub_space);
VERIFY(valid, TRUE, "H5Sselect_valid");
- error=H5Sclose(sub_space);
+ error = H5Sclose(sub_space);
CHECK(error, FAIL, "H5Sclose");
- MESSAGE(8, ( "Case 4 : exceed dimensions by 1\nTry offset (5,5) and size(6,6), the original space is of size (10,10)\n"));
+ MESSAGE(8, ("Case 4 : exceed dimensions by 1\nTry offset (5,5) and size(6,6), the original space is of "
+ "size (10,10)\n"));
start[0] = start[1] = 5;
size[0] = size[1] = 6;
sub_space = H5Scopy(main_space);
CHECK(sub_space, FAIL, "H5Scopy");
- error=H5Sselect_hyperslab(sub_space,H5S_SELECT_SET,start,size,count,size);
+ error = H5Sselect_hyperslab(sub_space, H5S_SELECT_SET, start, size, count, size);
CHECK(error, FAIL, "H5Sselect_hyperslab");
- valid=H5Sselect_valid(sub_space);
+ valid = H5Sselect_valid(sub_space);
VERIFY(valid, FALSE, "H5Sselect_valid");
- error=H5Sselect_hyperslab(sub_space,H5S_SELECT_OR,safe_start,NULL,safe_count,NULL);
+ error = H5Sselect_hyperslab(sub_space, H5S_SELECT_OR, safe_start, NULL, safe_count, NULL);
CHECK(error, FAIL, "H5Sselect_hyperslab");
- valid=H5Sselect_valid(sub_space);
+ valid = H5Sselect_valid(sub_space);
VERIFY(valid, FALSE, "H5Sselect_valid");
- error=H5Sclose(sub_space);
+ error = H5Sclose(sub_space);
CHECK(error, FAIL, "H5Sclose");
- MESSAGE(8, ( "Case 5 : exceed dimensions by 2\nTry offset (6,6) and size(6,6), the original space is of size (10,10)\n"));
+ MESSAGE(8, ("Case 5 : exceed dimensions by 2\nTry offset (6,6) and size(6,6), the original space is of "
+ "size (10,10)\n"));
start[0] = start[1] = 6;
size[0] = size[1] = 6;
sub_space = H5Scopy(main_space);
CHECK(sub_space, FAIL, "H5Scopy");
- error=H5Sselect_hyperslab(sub_space,H5S_SELECT_SET,start,size,count,size);
+ error = H5Sselect_hyperslab(sub_space, H5S_SELECT_SET, start, size, count, size);
CHECK(error, FAIL, "H5Sselect_hyperslab");
- valid=H5Sselect_valid(sub_space);
+ valid = H5Sselect_valid(sub_space);
VERIFY(valid, FALSE, "H5Sselect_valid");
- error=H5Sselect_hyperslab(sub_space,H5S_SELECT_OR,safe_start,NULL,safe_count,NULL);
+ error = H5Sselect_hyperslab(sub_space, H5S_SELECT_OR, safe_start, NULL, safe_count, NULL);
CHECK(error, FAIL, "H5Sselect_hyperslab");
- valid=H5Sselect_valid(sub_space);
+ valid = H5Sselect_valid(sub_space);
VERIFY(valid, FALSE, "H5Sselect_valid");
- error=H5Sclose(sub_space);
+ error = H5Sclose(sub_space);
CHECK(error, FAIL, "H5Sclose");
- error=H5Sclose(main_space);
+ error = H5Sclose(main_space);
CHECK(error, FAIL, "H5Sclose");
-} /* test_select_valid() */
+} /* test_select_valid() */
/****************************************************************
**
@@ -6687,19 +6979,19 @@ test_select_valid(void)
static void
test_select_combine(void)
{
- hid_t base_id; /* Base dataspace for test */
- hid_t all_id; /* Dataspace for "all" selection */
- hid_t none_id; /* Dataspace for "none" selection */
- hid_t space1; /* Temporary dataspace #1 */
- hsize_t start[SPACE7_RANK]; /* Hyperslab start */
- hsize_t stride[SPACE7_RANK]; /* Hyperslab stride */
- hsize_t count[SPACE7_RANK]; /* Hyperslab count */
- hsize_t block[SPACE7_RANK]; /* Hyperslab block */
- hsize_t dims[SPACE7_RANK]={SPACE7_DIM1,SPACE7_DIM2}; /* Dimensions of dataspace */
- H5S_sel_type sel_type; /* Selection type */
- hssize_t nblocks; /* Number of hyperslab blocks */
- hsize_t blocks[16][2][SPACE7_RANK]; /* List of blocks */
- herr_t error;
+ hid_t base_id; /* Base dataspace for test */
+ hid_t all_id; /* Dataspace for "all" selection */
+ hid_t none_id; /* Dataspace for "none" selection */
+ hid_t space1; /* Temporary dataspace #1 */
+ hsize_t start[SPACE7_RANK]; /* Hyperslab start */
+ hsize_t stride[SPACE7_RANK]; /* Hyperslab stride */
+ hsize_t count[SPACE7_RANK]; /* Hyperslab count */
+ hsize_t block[SPACE7_RANK]; /* Hyperslab block */
+ hsize_t dims[SPACE7_RANK] = {SPACE7_DIM1, SPACE7_DIM2}; /* Dimensions of dataspace */
+ H5S_sel_type sel_type; /* Selection type */
+ hssize_t nblocks; /* Number of hyperslab blocks */
+ hsize_t blocks[16][2][SPACE7_RANK]; /* List of blocks */
+ herr_t error;
/* Output message about test being performed */
MESSAGE(5, ("Testing Selection Combinations\n"));
@@ -6709,100 +7001,99 @@ test_select_combine(void)
CHECK(base_id, FAIL, "H5Screate_simple");
/* Copy base dataspace and set selection to "all" */
- all_id=H5Scopy(base_id);
+ all_id = H5Scopy(base_id);
CHECK(all_id, FAIL, "H5Scopy");
- error=H5Sselect_all(all_id);
+ error = H5Sselect_all(all_id);
CHECK(error, FAIL, "H5Sselect_all");
- sel_type=H5Sget_select_type(all_id);
+ sel_type = H5Sget_select_type(all_id);
VERIFY(sel_type, H5S_SEL_ALL, "H5Sget_select_type");
/* Copy base dataspace and set selection to "none" */
- none_id=H5Scopy(base_id);
+ none_id = H5Scopy(base_id);
CHECK(none_id, FAIL, "H5Scopy");
- error=H5Sselect_none(none_id);
+ error = H5Sselect_none(none_id);
CHECK(error, FAIL, "H5Sselect_none");
- sel_type=H5Sget_select_type(none_id);
+ sel_type = H5Sget_select_type(none_id);
VERIFY(sel_type, H5S_SEL_NONE, "H5Sget_select_type");
-
/* Copy "all" selection & space */
- space1=H5Scopy(all_id);
+ space1 = H5Scopy(all_id);
CHECK(space1, FAIL, "H5Scopy");
/* 'OR' "all" selection with another hyperslab */
- start[0]=start[1]=0;
- stride[0]=stride[1]=1;
- count[0]=count[1]=1;
- block[0]=block[1]=5;
- error=H5Sselect_hyperslab(space1,H5S_SELECT_OR,start,stride,count,block);
+ start[0] = start[1] = 0;
+ stride[0] = stride[1] = 1;
+ count[0] = count[1] = 1;
+ block[0] = block[1] = 5;
+ error = H5Sselect_hyperslab(space1, H5S_SELECT_OR, start, stride, count, block);
CHECK(error, FAIL, "H5Sselect_hyperslab");
/* Verify that it's still "all" selection */
- sel_type=H5Sget_select_type(space1);
+ sel_type = H5Sget_select_type(space1);
VERIFY(sel_type, H5S_SEL_ALL, "H5Sget_select_type");
/* Close temporary dataspace */
- error=H5Sclose(space1);
+ error = H5Sclose(space1);
CHECK(error, FAIL, "H5Sclose");
/* Copy "all" selection & space */
- space1=H5Scopy(all_id);
+ space1 = H5Scopy(all_id);
CHECK(space1, FAIL, "H5Scopy");
/* 'AND' "all" selection with another hyperslab */
- start[0]=start[1]=0;
- stride[0]=stride[1]=1;
- count[0]=count[1]=1;
- block[0]=block[1]=5;
- error=H5Sselect_hyperslab(space1,H5S_SELECT_AND,start,stride,count,block);
+ start[0] = start[1] = 0;
+ stride[0] = stride[1] = 1;
+ count[0] = count[1] = 1;
+ block[0] = block[1] = 5;
+ error = H5Sselect_hyperslab(space1, H5S_SELECT_AND, start, stride, count, block);
CHECK(error, FAIL, "H5Sselect_hyperslab");
/* Verify that the new selection is the same at the original block */
- sel_type=H5Sget_select_type(space1);
+ sel_type = H5Sget_select_type(space1);
VERIFY(sel_type, H5S_SEL_HYPERSLABS, "H5Sget_select_type");
/* Verify that there is only one block */
- nblocks=H5Sget_select_hyper_nblocks(space1);
+ nblocks = H5Sget_select_hyper_nblocks(space1);
VERIFY(nblocks, 1, "H5Sget_select_hyper_nblocks");
/* Retrieve the block defined */
- HDmemset(blocks,-1,sizeof(blocks)); /* Reset block list */
- error=H5Sget_select_hyper_blocklist(space1,(hsize_t)0,(hsize_t)nblocks,(hsize_t *)blocks);
+ HDmemset(blocks, -1, sizeof(blocks)); /* Reset block list */
+ error = H5Sget_select_hyper_blocklist(space1, (hsize_t)0, (hsize_t)nblocks, (hsize_t *)blocks);
CHECK(error, FAIL, "H5Sget_select_hyper_blocklist");
/* Verify that the correct block is defined */
VERIFY(blocks[0][0][0], (hsize_t)start[0], "H5Sget_select_hyper_blocklist");
VERIFY(blocks[0][0][1], (hsize_t)start[1], "H5Sget_select_hyper_blocklist");
- VERIFY(blocks[0][1][0], (block[0]-1), "H5Sget_select_hyper_blocklist");
- VERIFY(blocks[0][1][1], (block[1]-1), "H5Sget_select_hyper_blocklist");
+ VERIFY(blocks[0][1][0], (block[0] - 1), "H5Sget_select_hyper_blocklist");
+ VERIFY(blocks[0][1][1], (block[1] - 1), "H5Sget_select_hyper_blocklist");
/* Close temporary dataspace */
- error=H5Sclose(space1);
+ error = H5Sclose(space1);
CHECK(error, FAIL, "H5Sclose");
/* Copy "all" selection & space */
- space1=H5Scopy(all_id);
+ space1 = H5Scopy(all_id);
CHECK(space1, FAIL, "H5Scopy");
/* 'XOR' "all" selection with another hyperslab */
- start[0]=start[1]=0;
- stride[0]=stride[1]=1;
- count[0]=count[1]=1;
- block[0]=block[1]=5;
- error=H5Sselect_hyperslab(space1,H5S_SELECT_XOR,start,stride,count,block);
+ start[0] = start[1] = 0;
+ stride[0] = stride[1] = 1;
+ count[0] = count[1] = 1;
+ block[0] = block[1] = 5;
+ error = H5Sselect_hyperslab(space1, H5S_SELECT_XOR, start, stride, count, block);
CHECK(error, FAIL, "H5Sselect_hyperslab");
/* Verify that the new selection is an inversion of the original block */
- sel_type=H5Sget_select_type(space1);
+ sel_type = H5Sget_select_type(space1);
VERIFY(sel_type, H5S_SEL_HYPERSLABS, "H5Sget_select_type");
/* Verify that there are two blocks */
- nblocks=H5Sget_select_hyper_nblocks(space1);
+ nblocks = H5Sget_select_hyper_nblocks(space1);
VERIFY(nblocks, 2, "H5Sget_select_hyper_nblocks");
/* Retrieve the block defined */
- HDmemset(blocks,-1,sizeof(blocks)); /* Reset block list */
- error=H5Sget_select_hyper_blocklist(space1,(hsize_t)0,(hsize_t)nblocks,(hsize_t *)blocks);
+ HDmemset(blocks, -1, sizeof(blocks)); /* Reset block list */
+ error = H5Sget_select_hyper_blocklist(space1, (hsize_t)0, (hsize_t)nblocks, (hsize_t *)blocks);
CHECK(error, FAIL, "H5Sget_select_hyper_blocklist");
/* Verify that the correct block is defined */
@@ -6816,32 +7107,32 @@ test_select_combine(void)
VERIFY(blocks[1][1][1], 9, "H5Sget_select_hyper_blocklist");
/* Close temporary dataspace */
- error=H5Sclose(space1);
+ error = H5Sclose(space1);
CHECK(error, FAIL, "H5Sclose");
/* Copy "all" selection & space */
- space1=H5Scopy(all_id);
+ space1 = H5Scopy(all_id);
CHECK(space1, FAIL, "H5Scopy");
/* 'NOTB' "all" selection with another hyperslab */
- start[0]=start[1]=0;
- stride[0]=stride[1]=1;
- count[0]=count[1]=1;
- block[0]=block[1]=5;
- error=H5Sselect_hyperslab(space1,H5S_SELECT_NOTB,start,stride,count,block);
+ start[0] = start[1] = 0;
+ stride[0] = stride[1] = 1;
+ count[0] = count[1] = 1;
+ block[0] = block[1] = 5;
+ error = H5Sselect_hyperslab(space1, H5S_SELECT_NOTB, start, stride, count, block);
CHECK(error, FAIL, "H5Sselect_hyperslab");
/* Verify that the new selection is an inversion of the original block */
- sel_type=H5Sget_select_type(space1);
+ sel_type = H5Sget_select_type(space1);
VERIFY(sel_type, H5S_SEL_HYPERSLABS, "H5Sget_select_type");
/* Verify that there are two blocks */
- nblocks=H5Sget_select_hyper_nblocks(space1);
+ nblocks = H5Sget_select_hyper_nblocks(space1);
VERIFY(nblocks, 2, "H5Sget_select_hyper_nblocks");
/* Retrieve the block defined */
- HDmemset(blocks,-1,sizeof(blocks)); /* Reset block list */
- error=H5Sget_select_hyper_blocklist(space1,(hsize_t)0,(hsize_t)nblocks,(hsize_t *)blocks);
+ HDmemset(blocks, -1, sizeof(blocks)); /* Reset block list */
+ error = H5Sget_select_hyper_blocklist(space1, (hsize_t)0, (hsize_t)nblocks, (hsize_t *)blocks);
CHECK(error, FAIL, "H5Sget_select_hyper_blocklist");
/* Verify that the correct block is defined */
@@ -6855,194 +7146,192 @@ test_select_combine(void)
VERIFY(blocks[1][1][1], 9, "H5Sget_select_hyper_blocklist");
/* Close temporary dataspace */
- error=H5Sclose(space1);
+ error = H5Sclose(space1);
CHECK(error, FAIL, "H5Sclose");
/* Copy "all" selection & space */
- space1=H5Scopy(all_id);
+ space1 = H5Scopy(all_id);
CHECK(space1, FAIL, "H5Scopy");
/* 'NOTA' "all" selection with another hyperslab */
- start[0]=start[1]=0;
- stride[0]=stride[1]=1;
- count[0]=count[1]=1;
- block[0]=block[1]=5;
- error=H5Sselect_hyperslab(space1,H5S_SELECT_NOTA,start,stride,count,block);
+ start[0] = start[1] = 0;
+ stride[0] = stride[1] = 1;
+ count[0] = count[1] = 1;
+ block[0] = block[1] = 5;
+ error = H5Sselect_hyperslab(space1, H5S_SELECT_NOTA, start, stride, count, block);
CHECK(error, FAIL, "H5Sselect_hyperslab");
/* Verify that the new selection is the "none" selection */
- sel_type=H5Sget_select_type(space1);
+ sel_type = H5Sget_select_type(space1);
VERIFY(sel_type, H5S_SEL_NONE, "H5Sget_select_type");
/* Close temporary dataspace */
- error=H5Sclose(space1);
+ error = H5Sclose(space1);
CHECK(error, FAIL, "H5Sclose");
-
/* Copy "none" selection & space */
- space1=H5Scopy(none_id);
+ space1 = H5Scopy(none_id);
CHECK(space1, FAIL, "H5Scopy");
/* 'OR' "none" selection with another hyperslab */
- start[0]=start[1]=0;
- stride[0]=stride[1]=1;
- count[0]=count[1]=1;
- block[0]=block[1]=5;
- error=H5Sselect_hyperslab(space1,H5S_SELECT_OR,start,stride,count,block);
+ start[0] = start[1] = 0;
+ stride[0] = stride[1] = 1;
+ count[0] = count[1] = 1;
+ block[0] = block[1] = 5;
+ error = H5Sselect_hyperslab(space1, H5S_SELECT_OR, start, stride, count, block);
CHECK(error, FAIL, "H5Sselect_hyperslab");
/* Verify that the new selection is the same as the original hyperslab */
- sel_type=H5Sget_select_type(space1);
+ sel_type = H5Sget_select_type(space1);
VERIFY(sel_type, H5S_SEL_HYPERSLABS, "H5Sget_select_type");
/* Verify that there is only one block */
- nblocks=H5Sget_select_hyper_nblocks(space1);
+ nblocks = H5Sget_select_hyper_nblocks(space1);
VERIFY(nblocks, 1, "H5Sget_select_hyper_nblocks");
/* Retrieve the block defined */
- HDmemset(blocks,-1,sizeof(blocks)); /* Reset block list */
- error=H5Sget_select_hyper_blocklist(space1,(hsize_t)0,(hsize_t)nblocks,(hsize_t *)blocks);
+ HDmemset(blocks, -1, sizeof(blocks)); /* Reset block list */
+ error = H5Sget_select_hyper_blocklist(space1, (hsize_t)0, (hsize_t)nblocks, (hsize_t *)blocks);
CHECK(error, FAIL, "H5Sget_select_hyper_blocklist");
/* Verify that the correct block is defined */
VERIFY(blocks[0][0][0], (hsize_t)start[0], "H5Sget_select_hyper_blocklist");
VERIFY(blocks[0][0][1], (hsize_t)start[1], "H5Sget_select_hyper_blocklist");
- VERIFY(blocks[0][1][0], (block[0]-1), "H5Sget_select_hyper_blocklist");
- VERIFY(blocks[0][1][1], (block[1]-1), "H5Sget_select_hyper_blocklist");
+ VERIFY(blocks[0][1][0], (block[0] - 1), "H5Sget_select_hyper_blocklist");
+ VERIFY(blocks[0][1][1], (block[1] - 1), "H5Sget_select_hyper_blocklist");
/* Close temporary dataspace */
- error=H5Sclose(space1);
+ error = H5Sclose(space1);
CHECK(error, FAIL, "H5Sclose");
/* Copy "none" selection & space */
- space1=H5Scopy(none_id);
+ space1 = H5Scopy(none_id);
CHECK(space1, FAIL, "H5Scopy");
/* 'AND' "none" selection with another hyperslab */
- start[0]=start[1]=0;
- stride[0]=stride[1]=1;
- count[0]=count[1]=1;
- block[0]=block[1]=5;
- error=H5Sselect_hyperslab(space1,H5S_SELECT_AND,start,stride,count,block);
+ start[0] = start[1] = 0;
+ stride[0] = stride[1] = 1;
+ count[0] = count[1] = 1;
+ block[0] = block[1] = 5;
+ error = H5Sselect_hyperslab(space1, H5S_SELECT_AND, start, stride, count, block);
CHECK(error, FAIL, "H5Sselect_hyperslab");
/* Verify that the new selection is the "none" selection */
- sel_type=H5Sget_select_type(space1);
+ sel_type = H5Sget_select_type(space1);
VERIFY(sel_type, H5S_SEL_NONE, "H5Sget_select_type");
/* Close temporary dataspace */
- error=H5Sclose(space1);
+ error = H5Sclose(space1);
CHECK(error, FAIL, "H5Sclose");
/* Copy "none" selection & space */
- space1=H5Scopy(none_id);
+ space1 = H5Scopy(none_id);
CHECK(space1, FAIL, "H5Scopy");
/* 'XOR' "none" selection with another hyperslab */
- start[0]=start[1]=0;
- stride[0]=stride[1]=1;
- count[0]=count[1]=1;
- block[0]=block[1]=5;
- error=H5Sselect_hyperslab(space1,H5S_SELECT_XOR,start,stride,count,block);
+ start[0] = start[1] = 0;
+ stride[0] = stride[1] = 1;
+ count[0] = count[1] = 1;
+ block[0] = block[1] = 5;
+ error = H5Sselect_hyperslab(space1, H5S_SELECT_XOR, start, stride, count, block);
CHECK(error, FAIL, "H5Sselect_hyperslab");
/* Verify that the new selection is the same as the original hyperslab */
- sel_type=H5Sget_select_type(space1);
+ sel_type = H5Sget_select_type(space1);
VERIFY(sel_type, H5S_SEL_HYPERSLABS, "H5Sget_select_type");
/* Verify that there is only one block */
- nblocks=H5Sget_select_hyper_nblocks(space1);
+ nblocks = H5Sget_select_hyper_nblocks(space1);
VERIFY(nblocks, 1, "H5Sget_select_hyper_nblocks");
/* Retrieve the block defined */
- HDmemset(blocks,-1,sizeof(blocks)); /* Reset block list */
- error=H5Sget_select_hyper_blocklist(space1,(hsize_t)0,(hsize_t)nblocks,(hsize_t *)blocks);
+ HDmemset(blocks, -1, sizeof(blocks)); /* Reset block list */
+ error = H5Sget_select_hyper_blocklist(space1, (hsize_t)0, (hsize_t)nblocks, (hsize_t *)blocks);
CHECK(error, FAIL, "H5Sget_select_hyper_blocklist");
/* Verify that the correct block is defined */
VERIFY(blocks[0][0][0], (hsize_t)start[0], "H5Sget_select_hyper_blocklist");
VERIFY(blocks[0][0][1], (hsize_t)start[1], "H5Sget_select_hyper_blocklist");
- VERIFY(blocks[0][1][0], (block[0]-1), "H5Sget_select_hyper_blocklist");
- VERIFY(blocks[0][1][1], (block[1]-1), "H5Sget_select_hyper_blocklist");
+ VERIFY(blocks[0][1][0], (block[0] - 1), "H5Sget_select_hyper_blocklist");
+ VERIFY(blocks[0][1][1], (block[1] - 1), "H5Sget_select_hyper_blocklist");
/* Close temporary dataspace */
- error=H5Sclose(space1);
+ error = H5Sclose(space1);
CHECK(error, FAIL, "H5Sclose");
/* Copy "none" selection & space */
- space1=H5Scopy(none_id);
+ space1 = H5Scopy(none_id);
CHECK(space1, FAIL, "H5Scopy");
/* 'NOTB' "none" selection with another hyperslab */
- start[0]=start[1]=0;
- stride[0]=stride[1]=1;
- count[0]=count[1]=1;
- block[0]=block[1]=5;
- error=H5Sselect_hyperslab(space1,H5S_SELECT_NOTB,start,stride,count,block);
+ start[0] = start[1] = 0;
+ stride[0] = stride[1] = 1;
+ count[0] = count[1] = 1;
+ block[0] = block[1] = 5;
+ error = H5Sselect_hyperslab(space1, H5S_SELECT_NOTB, start, stride, count, block);
CHECK(error, FAIL, "H5Sselect_hyperslab");
/* Verify that the new selection is the "none" selection */
- sel_type=H5Sget_select_type(space1);
+ sel_type = H5Sget_select_type(space1);
VERIFY(sel_type, H5S_SEL_NONE, "H5Sget_select_type");
/* Close temporary dataspace */
- error=H5Sclose(space1);
+ error = H5Sclose(space1);
CHECK(error, FAIL, "H5Sclose");
/* Copy "none" selection & space */
- space1=H5Scopy(none_id);
+ space1 = H5Scopy(none_id);
CHECK(space1, FAIL, "H5Scopy");
/* 'NOTA' "none" selection with another hyperslab */
- start[0]=start[1]=0;
- stride[0]=stride[1]=1;
- count[0]=count[1]=1;
- block[0]=block[1]=5;
- error=H5Sselect_hyperslab(space1,H5S_SELECT_NOTA,start,stride,count,block);
+ start[0] = start[1] = 0;
+ stride[0] = stride[1] = 1;
+ count[0] = count[1] = 1;
+ block[0] = block[1] = 5;
+ error = H5Sselect_hyperslab(space1, H5S_SELECT_NOTA, start, stride, count, block);
CHECK(error, FAIL, "H5Sselect_hyperslab");
/* Verify that the new selection is the same as the original hyperslab */
- sel_type=H5Sget_select_type(space1);
+ sel_type = H5Sget_select_type(space1);
VERIFY(sel_type, H5S_SEL_HYPERSLABS, "H5Sget_select_type");
/* Verify that there is only one block */
- nblocks=H5Sget_select_hyper_nblocks(space1);
+ nblocks = H5Sget_select_hyper_nblocks(space1);
VERIFY(nblocks, 1, "H5Sget_select_hyper_nblocks");
/* Retrieve the block defined */
- HDmemset(blocks,-1,sizeof(blocks)); /* Reset block list */
- error=H5Sget_select_hyper_blocklist(space1,(hsize_t)0,(hsize_t)nblocks,(hsize_t *)blocks);
+ HDmemset(blocks, -1, sizeof(blocks)); /* Reset block list */
+ error = H5Sget_select_hyper_blocklist(space1, (hsize_t)0, (hsize_t)nblocks, (hsize_t *)blocks);
CHECK(error, FAIL, "H5Sget_select_hyper_blocklist");
/* Verify that the correct block is defined */
VERIFY(blocks[0][0][0], (hsize_t)start[0], "H5Sget_select_hyper_blocklist");
VERIFY(blocks[0][0][1], (hsize_t)start[1], "H5Sget_select_hyper_blocklist");
- VERIFY(blocks[0][1][0], (block[0]-1), "H5Sget_select_hyper_blocklist");
- VERIFY(blocks[0][1][1], (block[1]-1), "H5Sget_select_hyper_blocklist");
+ VERIFY(blocks[0][1][0], (block[0] - 1), "H5Sget_select_hyper_blocklist");
+ VERIFY(blocks[0][1][1], (block[1] - 1), "H5Sget_select_hyper_blocklist");
/* Close temporary dataspace */
- error=H5Sclose(space1);
+ error = H5Sclose(space1);
CHECK(error, FAIL, "H5Sclose");
-
/* Close dataspaces */
- error=H5Sclose(base_id);
+ error = H5Sclose(base_id);
CHECK(error, FAIL, "H5Sclose");
- error=H5Sclose(all_id);
+ error = H5Sclose(all_id);
CHECK(error, FAIL, "H5Sclose");
- error=H5Sclose(none_id);
+ error = H5Sclose(none_id);
CHECK(error, FAIL, "H5Sclose");
-} /* test_select_combine() */
+} /* test_select_combine() */
/*
* Typedef for iteration structure used in the fill value tests
*/
typedef struct {
- unsigned short fill_value; /* The fill value to check */
- size_t curr_coord; /* Current coordinate to examine */
- hsize_t *coords; /* Pointer to selection's coordinates */
+ unsigned short fill_value; /* The fill value to check */
+ size_t curr_coord; /* Current coordinate to examine */
+ hsize_t * coords; /* Pointer to selection's coordinates */
} fill_iter_info;
/****************************************************************
@@ -7051,32 +7340,34 @@ typedef struct {
**
****************************************************************/
static herr_t
-test_select_hyper_iter3(void *_elem, hid_t H5_ATTR_UNUSED type_id, unsigned ndim, const hsize_t *point, void *_operator_data)
+test_select_hyper_iter3(void *_elem, hid_t H5_ATTR_UNUSED type_id, unsigned ndim, const hsize_t *point,
+ void *_operator_data)
{
- unsigned *tbuf = (unsigned *)_elem; /* temporary buffer pointer */
- fill_iter_info *iter_info = (fill_iter_info *)_operator_data; /* Get the pointer to the iterator information */
- hsize_t *coord_ptr; /* Pointer to the coordinate information for a point*/
+ unsigned * tbuf = (unsigned *)_elem; /* temporary buffer pointer */
+ fill_iter_info *iter_info =
+ (fill_iter_info *)_operator_data; /* Get the pointer to the iterator information */
+ hsize_t *coord_ptr; /* Pointer to the coordinate information for a point*/
/* Check value in current buffer location */
- if(*tbuf != iter_info->fill_value)
- return(-1);
+ if (*tbuf != iter_info->fill_value)
+ return (-1);
else {
/* Check number of dimensions */
- if(ndim != SPACE7_RANK)
- return(-1);
+ if (ndim != SPACE7_RANK)
+ return (-1);
else {
/* Check Coordinates */
coord_ptr = iter_info->coords + (2 * iter_info->curr_coord);
iter_info->curr_coord++;
- if(coord_ptr[0] != point[0])
- return(-1);
- else if(coord_ptr[1] != point[1])
- return(-1);
+ if (coord_ptr[0] != point[0])
+ return (-1);
+ else if (coord_ptr[1] != point[1])
+ return (-1);
else
- return(0);
+ return (0);
} /* end else */
- } /* end else */
-} /* end test_select_hyper_iter3() */
+ } /* end else */
+} /* end test_select_hyper_iter3() */
/****************************************************************
**
@@ -7087,15 +7378,15 @@ test_select_hyper_iter3(void *_elem, hid_t H5_ATTR_UNUSED type_id, unsigned ndim
static void
test_select_fill_all(void)
{
- hid_t sid1; /* Dataspace ID */
- hsize_t dims1[] = {SPACE7_DIM1, SPACE7_DIM2};
- unsigned fill_value; /* Fill value */
- fill_iter_info iter_info; /* Iterator information structure */
- hsize_t points[SPACE7_DIM1*SPACE7_DIM2][SPACE7_RANK]; /* Coordinates of selection */
- unsigned *wbuf, /* buffer to write to disk */
- *tbuf; /* temporary buffer pointer */
- unsigned u, v; /* Counters */
- herr_t ret; /* Generic return value */
+ hid_t sid1; /* Dataspace ID */
+ hsize_t dims1[] = {SPACE7_DIM1, SPACE7_DIM2};
+ unsigned fill_value; /* Fill value */
+ fill_iter_info iter_info; /* Iterator information structure */
+ hsize_t points[SPACE7_DIM1 * SPACE7_DIM2][SPACE7_RANK]; /* Coordinates of selection */
+ unsigned * wbuf, /* buffer to write to disk */
+ *tbuf; /* temporary buffer pointer */
+ unsigned u, v; /* Counters */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Filling 'all' Selections\n"));
@@ -7105,8 +7396,8 @@ test_select_fill_all(void)
CHECK_PTR(wbuf, "HDmalloc");
/* Initialize memory buffer */
- for(u = 0, tbuf = wbuf; u < SPACE7_DIM1; u++)
- for(v = 0; v < SPACE7_DIM2; v++)
+ for (u = 0, tbuf = wbuf; u < SPACE7_DIM1; u++)
+ for (v = 0; v < SPACE7_DIM2; v++)
*tbuf++ = (u * SPACE7_DIM2) + v;
/* Create dataspace for dataset on disk */
@@ -7123,14 +7414,14 @@ test_select_fill_all(void)
CHECK(ret, FAIL, "H5Dfill");
/* Verify memory buffer the hard way... */
- for(u = 0, tbuf = wbuf; u < SPACE7_DIM1; u++)
- for(v = 0; v < SPACE7_DIM2; v++)
- if(*tbuf != fill_value)
+ for (u = 0, tbuf = wbuf; u < SPACE7_DIM1; u++)
+ for (v = 0; v < SPACE7_DIM2; v++)
+ if (*tbuf != fill_value)
TestErrPrintf("Error! v=%d, u=%u, *tbuf=%u, fill_value=%u\n", v, u, *tbuf, fill_value);
/* Set the coordinates of the selection */
- for(u = 0; u < SPACE7_DIM1; u++)
- for(v = 0; v < SPACE7_DIM2; v++) {
+ for (u = 0; u < SPACE7_DIM1; u++)
+ for (v = 0; v < SPACE7_DIM2; v++) {
points[(u * SPACE7_DIM2) + v][0] = u;
points[(u * SPACE7_DIM2) + v][1] = v;
} /* end for */
@@ -7138,7 +7429,7 @@ test_select_fill_all(void)
/* Initialize the iterator structure */
iter_info.fill_value = SPACE7_FILL;
iter_info.curr_coord = 0;
- iter_info.coords = (hsize_t *)points;
+ iter_info.coords = (hsize_t *)points;
/* Iterate through selection, verifying correct data */
ret = H5Diterate(wbuf, H5T_NATIVE_UINT, sid1, test_select_hyper_iter3, &iter_info);
@@ -7150,7 +7441,7 @@ test_select_fill_all(void)
/* Free memory buffers */
HDfree(wbuf);
-} /* test_select_fill_all() */
+} /* test_select_fill_all() */
/****************************************************************
**
@@ -7161,17 +7452,17 @@ test_select_fill_all(void)
static void
test_select_fill_point(hssize_t *offset)
{
- hid_t sid1; /* Dataspace ID */
- hsize_t dims1[] = {SPACE7_DIM1, SPACE7_DIM2};
- hssize_t real_offset[SPACE7_RANK]; /* Actual offset to use */
- hsize_t points[5][SPACE7_RANK] = {{2,4}, {3,8}, {8,4}, {7,5}, {7,7}};
- size_t num_points = 5; /* Number of points selected */
- int fill_value; /* Fill value */
- fill_iter_info iter_info; /* Iterator information structure */
- unsigned *wbuf, /* buffer to write to disk */
- *tbuf; /* temporary buffer pointer */
- unsigned u, v, w; /* Counters */
- herr_t ret; /* Generic return value */
+ hid_t sid1; /* Dataspace ID */
+ hsize_t dims1[] = {SPACE7_DIM1, SPACE7_DIM2};
+ hssize_t real_offset[SPACE7_RANK]; /* Actual offset to use */
+ hsize_t points[5][SPACE7_RANK] = {{2, 4}, {3, 8}, {8, 4}, {7, 5}, {7, 7}};
+ size_t num_points = 5; /* Number of points selected */
+ int fill_value; /* Fill value */
+ fill_iter_info iter_info; /* Iterator information structure */
+ unsigned * wbuf, /* buffer to write to disk */
+ *tbuf; /* temporary buffer pointer */
+ unsigned u, v, w; /* Counters */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Filling 'point' Selections\n"));
@@ -7181,8 +7472,8 @@ test_select_fill_point(hssize_t *offset)
CHECK_PTR(wbuf, "HDmalloc");
/* Initialize memory buffer */
- for(u = 0, tbuf = wbuf; u < SPACE7_DIM1; u++)
- for(v = 0; v < SPACE7_DIM2; v++)
+ for (u = 0, tbuf = wbuf; u < SPACE7_DIM1; u++)
+ for (v = 0; v < SPACE7_DIM2; v++)
*tbuf++ = (unsigned short)(u * SPACE7_DIM2) + v;
/* Create dataspace for dataset on disk */
@@ -7193,7 +7484,7 @@ test_select_fill_point(hssize_t *offset)
ret = H5Sselect_elements(sid1, H5S_SELECT_SET, num_points, (const hsize_t *)points);
CHECK(ret, FAIL, "H5Sselect_elements");
- if(offset != NULL) {
+ if (offset != NULL) {
HDmemcpy(real_offset, offset, SPACE7_RANK * sizeof(hssize_t));
/* Set offset, if provided */
@@ -7211,26 +7502,29 @@ test_select_fill_point(hssize_t *offset)
CHECK(ret, FAIL, "H5Dfill");
/* Verify memory buffer the hard way... */
- for(u = 0, tbuf = wbuf; u < SPACE7_DIM1; u++)
- for(v = 0; v < SPACE7_DIM2; v++, tbuf++) {
- for(w = 0; w < (unsigned)num_points; w++) {
- if(u == (unsigned)(points[w][0] + (hsize_t)real_offset[0]) && v == (unsigned)(points[w][1] + (hsize_t)real_offset[1])) {
- if(*tbuf != (unsigned)fill_value)
- TestErrPrintf("Error! v=%u, u=%u, *tbuf=%u, fill_value=%u\n", v, u, *tbuf, (unsigned)fill_value);
+ for (u = 0, tbuf = wbuf; u < SPACE7_DIM1; u++)
+ for (v = 0; v < SPACE7_DIM2; v++, tbuf++) {
+ for (w = 0; w < (unsigned)num_points; w++) {
+ if (u == (unsigned)(points[w][0] + (hsize_t)real_offset[0]) &&
+ v == (unsigned)(points[w][1] + (hsize_t)real_offset[1])) {
+ if (*tbuf != (unsigned)fill_value)
+ TestErrPrintf("Error! v=%u, u=%u, *tbuf=%u, fill_value=%u\n", v, u, *tbuf,
+ (unsigned)fill_value);
break;
} /* end if */
- } /* end for */
- if(w == (unsigned)num_points && *tbuf != ((u * SPACE7_DIM2) + v))
- TestErrPrintf("Error! v=%d, u=%d, *tbuf=%u, should be: %u\n", v, u, *tbuf, ((u * SPACE7_DIM2) + v));
+ } /* end for */
+ if (w == (unsigned)num_points && *tbuf != ((u * SPACE7_DIM2) + v))
+ TestErrPrintf("Error! v=%d, u=%d, *tbuf=%u, should be: %u\n", v, u, *tbuf,
+ ((u * SPACE7_DIM2) + v));
} /* end for */
/* Initialize the iterator structure */
iter_info.fill_value = SPACE7_FILL;
iter_info.curr_coord = 0;
- iter_info.coords = (hsize_t *)points;
+ iter_info.coords = (hsize_t *)points;
/* Add in the offset */
- for(u = 0; u < (unsigned)num_points; u++) {
+ for (u = 0; u < (unsigned)num_points; u++) {
points[u][0] = (hsize_t)((hssize_t)points[u][0] + real_offset[0]);
points[u][1] = (hsize_t)((hssize_t)points[u][1] + real_offset[1]);
} /* end for */
@@ -7245,7 +7539,7 @@ test_select_fill_point(hssize_t *offset)
/* Free memory buffers */
HDfree(wbuf);
-} /* test_select_fill_point() */
+} /* test_select_fill_point() */
/****************************************************************
**
@@ -7256,19 +7550,19 @@ test_select_fill_point(hssize_t *offset)
static void
test_select_fill_hyper_simple(hssize_t *offset)
{
- hid_t sid1; /* Dataspace ID */
- hsize_t dims1[] = {SPACE7_DIM1, SPACE7_DIM2};
- hssize_t real_offset[SPACE7_RANK]; /* Actual offset to use */
- hsize_t start[SPACE7_RANK]; /* Hyperslab start */
- hsize_t count[SPACE7_RANK]; /* Hyperslab block size */
- size_t num_points; /* Number of points in selection */
- hsize_t points[16][SPACE7_RANK]; /* Coordinates selected */
- int fill_value; /* Fill value */
- fill_iter_info iter_info; /* Iterator information structure */
- unsigned *wbuf, /* buffer to write to disk */
- *tbuf; /* temporary buffer pointer */
- unsigned u, v; /* Counters */
- herr_t ret; /* Generic return value */
+ hid_t sid1; /* Dataspace ID */
+ hsize_t dims1[] = {SPACE7_DIM1, SPACE7_DIM2};
+ hssize_t real_offset[SPACE7_RANK]; /* Actual offset to use */
+ hsize_t start[SPACE7_RANK]; /* Hyperslab start */
+ hsize_t count[SPACE7_RANK]; /* Hyperslab block size */
+ size_t num_points; /* Number of points in selection */
+ hsize_t points[16][SPACE7_RANK]; /* Coordinates selected */
+ int fill_value; /* Fill value */
+ fill_iter_info iter_info; /* Iterator information structure */
+ unsigned * wbuf, /* buffer to write to disk */
+ *tbuf; /* temporary buffer pointer */
+ unsigned u, v; /* Counters */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Filling Simple 'hyperslab' Selections\n"));
@@ -7278,8 +7572,8 @@ test_select_fill_hyper_simple(hssize_t *offset)
CHECK_PTR(wbuf, "HDmalloc");
/* Initialize memory buffer */
- for(u = 0, tbuf = wbuf; u < SPACE7_DIM1; u++)
- for(v = 0; v < SPACE7_DIM2; v++)
+ for (u = 0, tbuf = wbuf; u < SPACE7_DIM1; u++)
+ for (v = 0; v < SPACE7_DIM2; v++)
*tbuf++ = (unsigned short)(u * SPACE7_DIM2) + v;
/* Create dataspace for dataset on disk */
@@ -7287,12 +7581,14 @@ test_select_fill_hyper_simple(hssize_t *offset)
CHECK(sid1, FAIL, "H5Screate_simple");
/* Select "hyperslab" selection */
- start[0] = 3; start[1] = 3;
- count[0] = 4; count[1] = 4;
- ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, NULL, count, NULL);
+ start[0] = 3;
+ start[1] = 3;
+ count[0] = 4;
+ count[1] = 4;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, NULL, count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- if(offset != NULL) {
+ if (offset != NULL) {
HDmemcpy(real_offset, offset, SPACE7_RANK * sizeof(hssize_t));
/* Set offset, if provided */
@@ -7310,27 +7606,31 @@ test_select_fill_hyper_simple(hssize_t *offset)
CHECK(ret, FAIL, "H5Dfill");
/* Verify memory buffer the hard way... */
- for(u = 0, tbuf = wbuf; u < SPACE7_DIM1; u++)
- for(v = 0; v < SPACE7_DIM2; v++, tbuf++) {
- if((u >= (unsigned)((hssize_t)start[0] + real_offset[0]) && u < (unsigned)((hssize_t)(start[0] + count[0]) + real_offset[0]))
- && (v >= (unsigned)((hssize_t)start[1] + real_offset[1]) && v < (unsigned)((hssize_t)(start[1] + count[1]) + real_offset[1]))) {
- if(*tbuf != (unsigned)fill_value)
- TestErrPrintf("Error! v=%u, u=%u, *tbuf=%u, fill_value=%u\n", v, u, *tbuf, (unsigned)fill_value);
- } /* end if */
+ for (u = 0, tbuf = wbuf; u < SPACE7_DIM1; u++)
+ for (v = 0; v < SPACE7_DIM2; v++, tbuf++) {
+ if ((u >= (unsigned)((hssize_t)start[0] + real_offset[0]) &&
+ u < (unsigned)((hssize_t)(start[0] + count[0]) + real_offset[0])) &&
+ (v >= (unsigned)((hssize_t)start[1] + real_offset[1]) &&
+ v < (unsigned)((hssize_t)(start[1] + count[1]) + real_offset[1]))) {
+ if (*tbuf != (unsigned)fill_value)
+ TestErrPrintf("Error! v=%u, u=%u, *tbuf=%u, fill_value=%u\n", v, u, *tbuf,
+ (unsigned)fill_value);
+ } /* end if */
else {
- if(*tbuf != ((unsigned)(u * SPACE7_DIM2) + v))
- TestErrPrintf("Error! v=%u, u=%u, *tbuf=%u, should be: %u\n", v, u, *tbuf, ((u * SPACE7_DIM2) + v));
+ if (*tbuf != ((unsigned)(u * SPACE7_DIM2) + v))
+ TestErrPrintf("Error! v=%u, u=%u, *tbuf=%u, should be: %u\n", v, u, *tbuf,
+ ((u * SPACE7_DIM2) + v));
} /* end else */
- } /* end for */
+ } /* end for */
/* Initialize the iterator structure */
iter_info.fill_value = SPACE7_FILL;
iter_info.curr_coord = 0;
- iter_info.coords = (hsize_t *)points;
+ iter_info.coords = (hsize_t *)points;
/* Set the coordinates of the selection (with the offset) */
- for(u = 0, num_points = 0; u < (unsigned)count[0]; u++)
- for(v = 0; v < (unsigned)count[1]; v++, num_points++) {
+ for (u = 0, num_points = 0; u < (unsigned)count[0]; u++)
+ for (v = 0; v < (unsigned)count[1]; v++, num_points++) {
points[num_points][0] = (hsize_t)((hssize_t)(u + start[0]) + real_offset[0]);
points[num_points][1] = (hsize_t)((hssize_t)(v + start[1]) + real_offset[1]);
} /* end for */
@@ -7345,7 +7645,7 @@ test_select_fill_hyper_simple(hssize_t *offset)
/* Free memory buffers */
HDfree(wbuf);
-} /* test_select_fill_hyper_simple() */
+} /* test_select_fill_hyper_simple() */
/****************************************************************
**
@@ -7356,26 +7656,24 @@ test_select_fill_hyper_simple(hssize_t *offset)
static void
test_select_fill_hyper_regular(hssize_t *offset)
{
- hid_t sid1; /* Dataspace ID */
- hsize_t dims1[] = {SPACE7_DIM1, SPACE7_DIM2};
- hssize_t real_offset[SPACE7_RANK]; /* Actual offset to use */
- hsize_t start[SPACE7_RANK]; /* Hyperslab start */
- hsize_t stride[SPACE7_RANK]; /* Hyperslab stride size */
- hsize_t count[SPACE7_RANK]; /* Hyperslab block count */
- hsize_t block[SPACE7_RANK]; /* Hyperslab block size */
- hsize_t points[16][SPACE7_RANK] = {
- {2,2}, {2,3}, {2,6}, {2,7},
- {3,2}, {3,3}, {3,6}, {3,7},
- {6,2}, {6,3}, {6,6}, {6,7},
- {7,2}, {7,3}, {7,6}, {7,7},
- };
- size_t num_points=16; /* Number of points selected */
- int fill_value; /* Fill value */
- fill_iter_info iter_info; /* Iterator information structure */
- unsigned *wbuf, /* buffer to write to disk */
- *tbuf; /* temporary buffer pointer */
- unsigned u, v, w; /* Counters */
- herr_t ret; /* Generic return value */
+ hid_t sid1; /* Dataspace ID */
+ hsize_t dims1[] = {SPACE7_DIM1, SPACE7_DIM2};
+ hssize_t real_offset[SPACE7_RANK]; /* Actual offset to use */
+ hsize_t start[SPACE7_RANK]; /* Hyperslab start */
+ hsize_t stride[SPACE7_RANK]; /* Hyperslab stride size */
+ hsize_t count[SPACE7_RANK]; /* Hyperslab block count */
+ hsize_t block[SPACE7_RANK]; /* Hyperslab block size */
+ hsize_t points[16][SPACE7_RANK] = {
+ {2, 2}, {2, 3}, {2, 6}, {2, 7}, {3, 2}, {3, 3}, {3, 6}, {3, 7},
+ {6, 2}, {6, 3}, {6, 6}, {6, 7}, {7, 2}, {7, 3}, {7, 6}, {7, 7},
+ };
+ size_t num_points = 16; /* Number of points selected */
+ int fill_value; /* Fill value */
+ fill_iter_info iter_info; /* Iterator information structure */
+ unsigned * wbuf, /* buffer to write to disk */
+ *tbuf; /* temporary buffer pointer */
+ unsigned u, v, w; /* Counters */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Filling Regular 'hyperslab' Selections\n"));
@@ -7385,23 +7683,27 @@ test_select_fill_hyper_regular(hssize_t *offset)
CHECK_PTR(wbuf, "HDmalloc");
/* Initialize memory buffer */
- for(u = 0, tbuf = wbuf; u < SPACE7_DIM1; u++)
- for(v = 0; v < SPACE7_DIM2; v++)
- *tbuf++ =(u * SPACE7_DIM2) + v;
+ for (u = 0, tbuf = wbuf; u < SPACE7_DIM1; u++)
+ for (v = 0; v < SPACE7_DIM2; v++)
+ *tbuf++ = (u * SPACE7_DIM2) + v;
/* Create dataspace for dataset on disk */
sid1 = H5Screate_simple(SPACE7_RANK, dims1, NULL);
CHECK(sid1, FAIL, "H5Screate_simple");
/* Select "hyperslab" selection */
- start[0] = 2; start[1] = 2;
- stride[0] = 4; stride[1] = 4;
- count[0] = 2; count[1] = 2;
- block[0] = 2; block[1] = 2;
- ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block);
- CHECK(ret, FAIL, "H5Sselect_hyperslab");
-
- if(offset != NULL) {
+ start[0] = 2;
+ start[1] = 2;
+ stride[0] = 4;
+ stride[1] = 4;
+ count[0] = 2;
+ count[1] = 2;
+ block[0] = 2;
+ block[1] = 2;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, stride, count, block);
+ CHECK(ret, FAIL, "H5Sselect_hyperslab");
+
+ if (offset != NULL) {
HDmemcpy(real_offset, offset, SPACE7_RANK * sizeof(hssize_t));
/* Set offset, if provided */
@@ -7419,26 +7721,29 @@ test_select_fill_hyper_regular(hssize_t *offset)
CHECK(ret, FAIL, "H5Dfill");
/* Verify memory buffer the hard way... */
- for(u = 0, tbuf = wbuf; u < SPACE7_DIM1; u++)
- for(v = 0; v < SPACE7_DIM2; v++, tbuf++) {
- for(w = 0; w < (unsigned)num_points; w++) {
- if(u == (unsigned)((hssize_t)points[w][0] + real_offset[0]) && v == (unsigned)((hssize_t)points[w][1] + real_offset[1])) {
- if(*tbuf != (unsigned)fill_value)
- TestErrPrintf("Error! v=%u, u=%u, *tbuf=%u, fill_value=%u\n", v, u, *tbuf, (unsigned)fill_value);
+ for (u = 0, tbuf = wbuf; u < SPACE7_DIM1; u++)
+ for (v = 0; v < SPACE7_DIM2; v++, tbuf++) {
+ for (w = 0; w < (unsigned)num_points; w++) {
+ if (u == (unsigned)((hssize_t)points[w][0] + real_offset[0]) &&
+ v == (unsigned)((hssize_t)points[w][1] + real_offset[1])) {
+ if (*tbuf != (unsigned)fill_value)
+ TestErrPrintf("Error! v=%u, u=%u, *tbuf=%u, fill_value=%u\n", v, u, *tbuf,
+ (unsigned)fill_value);
break;
} /* end if */
- } /* end for */
- if(w == (unsigned)num_points && *tbuf != ((u * SPACE7_DIM2) + v))
- TestErrPrintf("Error! v=%d, u=%d, *tbuf=%u, should be: %u\n", v, u, *tbuf, ((u * SPACE7_DIM2) + v));
+ } /* end for */
+ if (w == (unsigned)num_points && *tbuf != ((u * SPACE7_DIM2) + v))
+ TestErrPrintf("Error! v=%d, u=%d, *tbuf=%u, should be: %u\n", v, u, *tbuf,
+ ((u * SPACE7_DIM2) + v));
} /* end for */
/* Initialize the iterator structure */
iter_info.fill_value = SPACE7_FILL;
iter_info.curr_coord = 0;
- iter_info.coords = (hsize_t *)points;
+ iter_info.coords = (hsize_t *)points;
/* Add in the offset */
- for(u = 0; u < (unsigned)num_points; u++) {
+ for (u = 0; u < (unsigned)num_points; u++) {
points[u][0] = (hsize_t)((hssize_t)points[u][0] + real_offset[0]);
points[u][1] = (hsize_t)((hssize_t)points[u][1] + real_offset[1]);
} /* end for */
@@ -7453,7 +7758,7 @@ test_select_fill_hyper_regular(hssize_t *offset)
/* Free memory buffers */
HDfree(wbuf);
-} /* test_select_fill_hyper_regular() */
+} /* test_select_fill_hyper_regular() */
/****************************************************************
**
@@ -7464,37 +7769,31 @@ test_select_fill_hyper_regular(hssize_t *offset)
static void
test_select_fill_hyper_irregular(hssize_t *offset)
{
- hid_t sid1; /* Dataspace ID */
- hsize_t dims1[] = {SPACE7_DIM1, SPACE7_DIM2};
- hssize_t real_offset[SPACE7_RANK]; /* Actual offset to use */
- hsize_t start[SPACE7_RANK]; /* Hyperslab start */
- hsize_t count[SPACE7_RANK]; /* Hyperslab block count */
- hsize_t points[32][SPACE7_RANK] = { /* Yes, some of the are duplicated.. */
- {2,2}, {2,3}, {2,4}, {2,5},
- {3,2}, {3,3}, {3,4}, {3,5},
- {4,2}, {4,3}, {4,4}, {4,5},
- {5,2}, {5,3}, {5,4}, {5,5},
- {4,4}, {4,5}, {4,6}, {4,7},
- {5,4}, {5,5}, {5,6}, {5,7},
- {6,4}, {6,5}, {6,6}, {6,7},
- {7,4}, {7,5}, {7,6}, {7,7},
- };
- hsize_t iter_points[28][SPACE7_RANK] = { /* Coordinates, as iterated through */
- {2,2}, {2,3}, {2,4}, {2,5},
- {3,2}, {3,3}, {3,4}, {3,5},
- {4,2}, {4,3}, {4,4}, {4,5}, {4,6}, {4,7},
- {5,2}, {5,3}, {5,4}, {5,5}, {5,6}, {5,7},
- {6,4}, {6,5}, {6,6}, {6,7},
- {7,4}, {7,5}, {7,6}, {7,7},
- };
- size_t num_points = 32; /* Number of points selected */
- size_t num_iter_points = 28; /* Number of resulting points */
- int fill_value; /* Fill value */
- fill_iter_info iter_info; /* Iterator information structure */
- unsigned *wbuf, /* buffer to write to disk */
- *tbuf; /* temporary buffer pointer */
- unsigned u, v, w; /* Counters */
- herr_t ret; /* Generic return value */
+ hid_t sid1; /* Dataspace ID */
+ hsize_t dims1[] = {SPACE7_DIM1, SPACE7_DIM2};
+ hssize_t real_offset[SPACE7_RANK]; /* Actual offset to use */
+ hsize_t start[SPACE7_RANK]; /* Hyperslab start */
+ hsize_t count[SPACE7_RANK]; /* Hyperslab block count */
+ hsize_t points[32][SPACE7_RANK] = {
+ /* Yes, some of the are duplicated.. */
+ {2, 2}, {2, 3}, {2, 4}, {2, 5}, {3, 2}, {3, 3}, {3, 4}, {3, 5}, {4, 2}, {4, 3}, {4, 4},
+ {4, 5}, {5, 2}, {5, 3}, {5, 4}, {5, 5}, {4, 4}, {4, 5}, {4, 6}, {4, 7}, {5, 4}, {5, 5},
+ {5, 6}, {5, 7}, {6, 4}, {6, 5}, {6, 6}, {6, 7}, {7, 4}, {7, 5}, {7, 6}, {7, 7},
+ };
+ hsize_t iter_points[28][SPACE7_RANK] = {
+ /* Coordinates, as iterated through */
+ {2, 2}, {2, 3}, {2, 4}, {2, 5}, {3, 2}, {3, 3}, {3, 4}, {3, 5}, {4, 2}, {4, 3},
+ {4, 4}, {4, 5}, {4, 6}, {4, 7}, {5, 2}, {5, 3}, {5, 4}, {5, 5}, {5, 6}, {5, 7},
+ {6, 4}, {6, 5}, {6, 6}, {6, 7}, {7, 4}, {7, 5}, {7, 6}, {7, 7},
+ };
+ size_t num_points = 32; /* Number of points selected */
+ size_t num_iter_points = 28; /* Number of resulting points */
+ int fill_value; /* Fill value */
+ fill_iter_info iter_info; /* Iterator information structure */
+ unsigned * wbuf, /* buffer to write to disk */
+ *tbuf; /* temporary buffer pointer */
+ unsigned u, v, w; /* Counters */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Filling Irregular 'hyperslab' Selections\n"));
@@ -7504,8 +7803,8 @@ test_select_fill_hyper_irregular(hssize_t *offset)
CHECK_PTR(wbuf, "HDmalloc");
/* Initialize memory buffer */
- for(u = 0, tbuf = wbuf; u < SPACE7_DIM1; u++)
- for(v = 0; v < SPACE7_DIM2; v++)
+ for (u = 0, tbuf = wbuf; u < SPACE7_DIM1; u++)
+ for (v = 0; v < SPACE7_DIM2; v++)
*tbuf++ = (u * SPACE7_DIM2) + v;
/* Create dataspace for dataset on disk */
@@ -7513,18 +7812,22 @@ test_select_fill_hyper_irregular(hssize_t *offset)
CHECK(sid1, FAIL, "H5Screate_simple");
/* Select first "hyperslab" selection */
- start[0] = 2; start[1] = 2;
- count[0] = 4; count[1] = 4;
- ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, NULL, count, NULL);
+ start[0] = 2;
+ start[1] = 2;
+ count[0] = 4;
+ count[1] = 4;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, NULL, count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Combine with second "hyperslab" selection */
- start[0] = 4; start[1] = 4;
- count[0] = 4; count[1] = 4;
- ret = H5Sselect_hyperslab(sid1, H5S_SELECT_OR, start, NULL, count, NULL);
+ start[0] = 4;
+ start[1] = 4;
+ count[0] = 4;
+ count[1] = 4;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_OR, start, NULL, count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- if(offset != NULL) {
+ if (offset != NULL) {
HDmemcpy(real_offset, offset, SPACE7_RANK * sizeof(hssize_t));
/* Set offset, if provided */
@@ -7542,26 +7845,29 @@ test_select_fill_hyper_irregular(hssize_t *offset)
CHECK(ret, FAIL, "H5Dfill");
/* Verify memory buffer the hard way... */
- for(u = 0, tbuf = wbuf; u < SPACE7_DIM1; u++)
- for(v = 0; v < SPACE7_DIM2; v++, tbuf++) {
- for(w = 0; w < (unsigned)num_points; w++) {
- if(u == (unsigned)((hssize_t)points[w][0] + real_offset[0]) && v == (unsigned)((hssize_t)points[w][1] + real_offset[1])) {
- if(*tbuf != (unsigned)fill_value)
- TestErrPrintf("Error! v=%u, u=%u, *tbuf=%u, fill_value=%u\n", v, u, *tbuf, (unsigned)fill_value);
+ for (u = 0, tbuf = wbuf; u < SPACE7_DIM1; u++)
+ for (v = 0; v < SPACE7_DIM2; v++, tbuf++) {
+ for (w = 0; w < (unsigned)num_points; w++) {
+ if (u == (unsigned)((hssize_t)points[w][0] + real_offset[0]) &&
+ v == (unsigned)((hssize_t)points[w][1] + real_offset[1])) {
+ if (*tbuf != (unsigned)fill_value)
+ TestErrPrintf("Error! v=%u, u=%u, *tbuf=%u, fill_value=%u\n", v, u, *tbuf,
+ (unsigned)fill_value);
break;
} /* end if */
- } /* end for */
- if(w == (unsigned)num_points && *tbuf != ((u * SPACE7_DIM2) + v))
- TestErrPrintf("Error! v=%u, u=%u, *tbuf=%u, should be: %u\n", v, u, *tbuf, ((u * SPACE7_DIM2) + v));
+ } /* end for */
+ if (w == (unsigned)num_points && *tbuf != ((u * SPACE7_DIM2) + v))
+ TestErrPrintf("Error! v=%u, u=%u, *tbuf=%u, should be: %u\n", v, u, *tbuf,
+ ((u * SPACE7_DIM2) + v));
} /* end for */
/* Initialize the iterator structure */
iter_info.fill_value = SPACE7_FILL;
iter_info.curr_coord = 0;
- iter_info.coords = (hsize_t *)iter_points;
+ iter_info.coords = (hsize_t *)iter_points;
/* Add in the offset */
- for(u = 0; u < (unsigned)num_iter_points; u++) {
+ for (u = 0; u < (unsigned)num_iter_points; u++) {
iter_points[u][0] = (hsize_t)((hssize_t)iter_points[u][0] + real_offset[0]);
iter_points[u][1] = (hsize_t)((hssize_t)iter_points[u][1] + real_offset[1]);
} /* end for */
@@ -7576,7 +7882,7 @@ test_select_fill_hyper_irregular(hssize_t *offset)
/* Free memory buffers */
HDfree(wbuf);
-} /* test_select_fill_hyper_irregular() */
+} /* test_select_fill_hyper_irregular() */
/****************************************************************
**
@@ -7587,16 +7893,16 @@ test_select_fill_hyper_irregular(hssize_t *offset)
static void
test_select_none(void)
{
- hid_t fid1; /* HDF5 File IDs */
+ hid_t fid1; /* HDF5 File IDs */
hid_t dataset; /* Dataset ID */
- hid_t sid1,sid2; /* Dataspace ID */
- hsize_t dims1[] = {SPACE7_DIM1, SPACE7_DIM2};
- hsize_t dims2[] = {SPACE7_DIM1, SPACE7_DIM2};
- uint8_t *wbuf, /* buffer to write to disk */
- *rbuf, /* buffer to read from disk */
- *tbuf; /* temporary buffer pointer */
- int i,j; /* Counters */
- herr_t ret; /* Generic return value */
+ hid_t sid1, sid2; /* Dataspace ID */
+ hsize_t dims1[] = {SPACE7_DIM1, SPACE7_DIM2};
+ hsize_t dims2[] = {SPACE7_DIM1, SPACE7_DIM2};
+ uint8_t *wbuf, /* buffer to write to disk */
+ *rbuf, /* buffer to read from disk */
+ *tbuf; /* temporary buffer pointer */
+ int i, j; /* Counters */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing I/O on 0-sized Selections\n"));
@@ -7608,9 +7914,9 @@ test_select_none(void)
CHECK_PTR(rbuf, "HDcalloc");
/* Initialize write buffer */
- for(i=0, tbuf=wbuf; i<SPACE7_DIM1; i++)
- for(j=0; j<SPACE7_DIM2; j++)
- *tbuf++=(uint8_t)((i*SPACE7_DIM2)+j);
+ for (i = 0, tbuf = wbuf; i < SPACE7_DIM1; i++)
+ for (j = 0; j < SPACE7_DIM2; j++)
+ *tbuf++ = (uint8_t)((i * SPACE7_DIM2) + j);
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
@@ -7625,7 +7931,7 @@ test_select_none(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Create a dataset */
- dataset=H5Dcreate2(fid1,"Dataset1",H5T_NATIVE_UCHAR,sid1,H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
+ dataset = H5Dcreate2(fid1, "Dataset1", H5T_NATIVE_UCHAR, sid1, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
CHECK(dataset, FAIL, "H5Dcreate2");
/* Make "none" selection in both disk and memory datasets */
@@ -7636,23 +7942,23 @@ test_select_none(void)
CHECK(ret, FAIL, "H5Sselect_none");
/* Attempt to read "nothing" from disk (before space is allocated) */
- ret=H5Dread(dataset,H5T_NATIVE_UCHAR,sid2,sid1,H5P_DEFAULT,rbuf);
+ ret = H5Dread(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, rbuf);
CHECK(ret, FAIL, "H5Dread");
/* Write "nothing" to disk */
- ret=H5Dwrite(dataset,H5T_NATIVE_UCHAR,sid2,sid1,H5P_DEFAULT,wbuf);
+ ret = H5Dwrite(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, wbuf);
CHECK(ret, FAIL, "H5Dwrite");
/* Write "nothing" to disk (with a datatype conversion :-) */
- ret=H5Dwrite(dataset,H5T_NATIVE_INT,sid2,sid1,H5P_DEFAULT,wbuf);
+ ret = H5Dwrite(dataset, H5T_NATIVE_INT, sid2, sid1, H5P_DEFAULT, wbuf);
CHECK(ret, FAIL, "H5Dwrite");
/* Write "nothing" to disk (with NULL buffer argument) */
- ret=H5Dwrite(dataset,H5T_NATIVE_INT,sid2,sid1,H5P_DEFAULT,NULL);
+ ret = H5Dwrite(dataset, H5T_NATIVE_INT, sid2, sid1, H5P_DEFAULT, NULL);
CHECK(ret, FAIL, "H5Dwrite");
/* Read "nothing" from disk (with NULL buffer argument) */
- ret=H5Dread(dataset,H5T_NATIVE_INT,sid2,sid1,H5P_DEFAULT,NULL);
+ ret = H5Dread(dataset, H5T_NATIVE_INT, sid2, sid1, H5P_DEFAULT, NULL);
CHECK(ret, FAIL, "H5Dread");
/* Close memory dataspace */
@@ -7674,7 +7980,7 @@ test_select_none(void)
/* Free memory buffers */
HDfree(wbuf);
HDfree(rbuf);
-} /* test_select_none() */
+} /* test_select_none() */
/****************************************************************
**
@@ -7685,21 +7991,21 @@ test_select_none(void)
static void
test_scalar_select(void)
{
- hid_t fid1; /* HDF5 File IDs */
+ hid_t fid1; /* HDF5 File IDs */
hid_t dataset; /* Dataset ID */
- hid_t sid1,sid2; /* Dataspace ID */
- hsize_t dims2[] = {SPACE7_DIM1, SPACE7_DIM2};
- hsize_t coord1[SPACE7_RANK]; /* Coordinates for point selection */
- hsize_t start[SPACE7_RANK]; /* Hyperslab start */
- hsize_t count[SPACE7_RANK]; /* Hyperslab block count */
- uint8_t *wbuf_uint8, /* buffer to write to disk */
- rval_uint8, /* value read back in */
- *tbuf_uint8; /* temporary buffer pointer */
- unsigned short *wbuf_ushort,/* another buffer to write to disk */
- rval_ushort, /* value read back in */
- *tbuf_ushort; /* temporary buffer pointer */
- int i,j; /* Counters */
- herr_t ret; /* Generic return value */
+ hid_t sid1, sid2; /* Dataspace ID */
+ hsize_t dims2[] = {SPACE7_DIM1, SPACE7_DIM2};
+ hsize_t coord1[SPACE7_RANK]; /* Coordinates for point selection */
+ hsize_t start[SPACE7_RANK]; /* Hyperslab start */
+ hsize_t count[SPACE7_RANK]; /* Hyperslab block count */
+ uint8_t *wbuf_uint8, /* buffer to write to disk */
+ rval_uint8, /* value read back in */
+ *tbuf_uint8; /* temporary buffer pointer */
+ unsigned short *wbuf_ushort, /* another buffer to write to disk */
+ rval_ushort, /* value read back in */
+ *tbuf_ushort; /* temporary buffer pointer */
+ int i, j; /* Counters */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing I/O on Selections in Scalar Dataspaces\n"));
@@ -7711,10 +8017,10 @@ test_scalar_select(void)
CHECK_PTR(wbuf_ushort, "HDmalloc");
/* Initialize write buffers */
- for(i=0, tbuf_uint8=wbuf_uint8, tbuf_ushort=wbuf_ushort; i<SPACE7_DIM1; i++)
- for(j=0; j<SPACE7_DIM2; j++) {
- *tbuf_uint8++=(uint8_t)((i*SPACE7_DIM2)+j);
- *tbuf_ushort++=(unsigned short)((j*SPACE7_DIM2)+i);
+ for (i = 0, tbuf_uint8 = wbuf_uint8, tbuf_ushort = wbuf_ushort; i < SPACE7_DIM1; i++)
+ for (j = 0; j < SPACE7_DIM2; j++) {
+ *tbuf_uint8++ = (uint8_t)((i * SPACE7_DIM2) + j);
+ *tbuf_ushort++ = (unsigned short)((j * SPACE7_DIM2) + i);
} /* end for */
/* Create file */
@@ -7730,67 +8036,74 @@ test_scalar_select(void)
CHECK(sid2, FAIL, "H5Screate_simple");
/* Create a dataset */
- dataset=H5Dcreate2(fid1,"Dataset1",H5T_NATIVE_UCHAR,sid1,H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
+ dataset = H5Dcreate2(fid1, "Dataset1", H5T_NATIVE_UCHAR, sid1, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
CHECK(dataset, FAIL, "H5Dcreate2");
/* Select one element in memory with a point selection */
- coord1[0]=0; coord1[1]= 2;
- ret = H5Sselect_elements(sid2, H5S_SELECT_SET, (size_t)1, (const hsize_t *)&coord1);
+ coord1[0] = 0;
+ coord1[1] = 2;
+ ret = H5Sselect_elements(sid2, H5S_SELECT_SET, (size_t)1, (const hsize_t *)&coord1);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Write single point to disk */
- ret=H5Dwrite(dataset,H5T_NATIVE_UCHAR,sid2,sid1,H5P_DEFAULT,wbuf_uint8);
+ ret = H5Dwrite(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, wbuf_uint8);
CHECK(ret, FAIL, "H5Dwrite");
/* Read scalar element from disk */
- ret=H5Dread(dataset,H5T_NATIVE_UCHAR,sid1,sid1,H5P_DEFAULT,&rval_uint8);
+ ret = H5Dread(dataset, H5T_NATIVE_UCHAR, sid1, sid1, H5P_DEFAULT, &rval_uint8);
CHECK(ret, FAIL, "H5Dread");
/* Check value read back in */
- if(rval_uint8!=*(wbuf_uint8+2))
- TestErrPrintf("Error! rval=%u, should be: *(wbuf+2)=%u\n",(unsigned)rval_uint8,(unsigned)*(wbuf_uint8+2));
+ if (rval_uint8 != *(wbuf_uint8 + 2))
+ TestErrPrintf("Error! rval=%u, should be: *(wbuf+2)=%u\n", (unsigned)rval_uint8,
+ (unsigned)*(wbuf_uint8 + 2));
/* Write single point to disk (with a datatype conversion) */
- ret=H5Dwrite(dataset,H5T_NATIVE_USHORT,sid2,sid1,H5P_DEFAULT,wbuf_ushort);
+ ret = H5Dwrite(dataset, H5T_NATIVE_USHORT, sid2, sid1, H5P_DEFAULT, wbuf_ushort);
CHECK(ret, FAIL, "H5Dwrite");
/* Read scalar element from disk */
- ret=H5Dread(dataset,H5T_NATIVE_USHORT,sid1,sid1,H5P_DEFAULT,&rval_ushort);
+ ret = H5Dread(dataset, H5T_NATIVE_USHORT, sid1, sid1, H5P_DEFAULT, &rval_ushort);
CHECK(ret, FAIL, "H5Dread");
/* Check value read back in */
- if(rval_ushort!=*(wbuf_ushort+2))
- TestErrPrintf("Error! rval=%u, should be: *(wbuf+2)=%u\n",(unsigned)rval_ushort,(unsigned)*(wbuf_ushort+2));
+ if (rval_ushort != *(wbuf_ushort + 2))
+ TestErrPrintf("Error! rval=%u, should be: *(wbuf+2)=%u\n", (unsigned)rval_ushort,
+ (unsigned)*(wbuf_ushort + 2));
/* Select one element in memory with a hyperslab selection */
- start[0]=4; start[1]=3;
- count[0]=1; count[1]=1;
- ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,NULL,count,NULL);
+ start[0] = 4;
+ start[1] = 3;
+ count[0] = 1;
+ count[1] = 1;
+ ret = H5Sselect_hyperslab(sid2, H5S_SELECT_SET, start, NULL, count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Write single hyperslab element to disk */
- ret=H5Dwrite(dataset,H5T_NATIVE_UCHAR,sid2,sid1,H5P_DEFAULT,wbuf_uint8);
+ ret = H5Dwrite(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, wbuf_uint8);
CHECK(ret, FAIL, "H5Dwrite");
/* Read scalar element from disk */
- ret=H5Dread(dataset,H5T_NATIVE_UCHAR,sid1,sid1,H5P_DEFAULT,&rval_uint8);
+ ret = H5Dread(dataset, H5T_NATIVE_UCHAR, sid1, sid1, H5P_DEFAULT, &rval_uint8);
CHECK(ret, FAIL, "H5Dread");
/* Check value read back in */
- if(rval_uint8!=*(wbuf_uint8+(SPACE7_DIM2*4)+3))
- TestErrPrintf("Error! rval=%u, should be: *(wbuf+(SPACE7_DIM2*4)+3)=%u\n",(unsigned)rval_uint8,(unsigned)*(wbuf_uint8+(SPACE7_DIM2*4)+3));
+ if (rval_uint8 != *(wbuf_uint8 + (SPACE7_DIM2 * 4) + 3))
+ TestErrPrintf("Error! rval=%u, should be: *(wbuf+(SPACE7_DIM2*4)+3)=%u\n", (unsigned)rval_uint8,
+ (unsigned)*(wbuf_uint8 + (SPACE7_DIM2 * 4) + 3));
/* Write single hyperslab element to disk (with a datatype conversion) */
- ret=H5Dwrite(dataset,H5T_NATIVE_USHORT,sid2,sid1,H5P_DEFAULT,wbuf_ushort);
+ ret = H5Dwrite(dataset, H5T_NATIVE_USHORT, sid2, sid1, H5P_DEFAULT, wbuf_ushort);
CHECK(ret, FAIL, "H5Dwrite");
/* Read scalar element from disk */
- ret=H5Dread(dataset,H5T_NATIVE_USHORT,sid1,sid1,H5P_DEFAULT,&rval_ushort);
+ ret = H5Dread(dataset, H5T_NATIVE_USHORT, sid1, sid1, H5P_DEFAULT, &rval_ushort);
CHECK(ret, FAIL, "H5Dread");
/* Check value read back in */
- if(rval_ushort!=*(wbuf_ushort+(SPACE7_DIM2*4)+3))
- TestErrPrintf("Error! rval=%u, should be: *(wbuf+(SPACE7_DIM2*4)+3)=%u\n",(unsigned)rval_ushort,(unsigned)*(wbuf_ushort+(SPACE7_DIM2*4)+3));
+ if (rval_ushort != *(wbuf_ushort + (SPACE7_DIM2 * 4) + 3))
+ TestErrPrintf("Error! rval=%u, should be: *(wbuf+(SPACE7_DIM2*4)+3)=%u\n", (unsigned)rval_ushort,
+ (unsigned)*(wbuf_ushort + (SPACE7_DIM2 * 4) + 3));
/* Select no elements in memory & file with "none" selections */
ret = H5Sselect_none(sid1);
@@ -7800,11 +8113,11 @@ test_scalar_select(void)
CHECK(ret, FAIL, "H5Sselect_none");
/* Write no data to disk */
- ret=H5Dwrite(dataset,H5T_NATIVE_UCHAR,sid2,sid1,H5P_DEFAULT,wbuf_uint8);
+ ret = H5Dwrite(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, wbuf_uint8);
CHECK(ret, FAIL, "H5Dwrite");
/* Write no data to disk (with a datatype conversion) */
- ret=H5Dwrite(dataset,H5T_NATIVE_USHORT,sid2,sid1,H5P_DEFAULT,wbuf_ushort);
+ ret = H5Dwrite(dataset, H5T_NATIVE_USHORT, sid2, sid1, H5P_DEFAULT, wbuf_ushort);
CHECK(ret, FAIL, "H5Dwrite");
/* Close memory dataspace */
@@ -7826,7 +8139,7 @@ test_scalar_select(void)
/* Free memory buffers */
HDfree(wbuf_uint8);
HDfree(wbuf_ushort);
-} /* test_scalar_select() */
+} /* test_scalar_select() */
/****************************************************************
**
@@ -7838,11 +8151,11 @@ test_scalar_select(void)
static void
test_scalar_select2(void)
{
- hid_t sid; /* Dataspace ID */
- hsize_t coord1[1]; /* Coordinates for point selection */
- hsize_t start[1]; /* Hyperslab start */
- hsize_t count[1]; /* Hyperslab block count */
- herr_t ret; /* Generic return value */
+ hid_t sid; /* Dataspace ID */
+ hsize_t coord1[1]; /* Coordinates for point selection */
+ hsize_t start[1]; /* Hyperslab start */
+ hsize_t count[1]; /* Hyperslab block count */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(6, ("Testing Selections in Scalar Dataspaces\n"));
@@ -7852,18 +8165,16 @@ test_scalar_select2(void)
CHECK(sid, FAIL, "H5Screate_simple");
/* Select one element in memory with a point selection */
- coord1[0]=0;
- H5E_BEGIN_TRY {
- ret = H5Sselect_elements(sid, H5S_SELECT_SET, (size_t)1, (const hsize_t *)&coord1);
- } H5E_END_TRY;
+ coord1[0] = 0;
+ H5E_BEGIN_TRY { ret = H5Sselect_elements(sid, H5S_SELECT_SET, (size_t)1, (const hsize_t *)&coord1); }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Sselect_elements");
/* Select one element in memory with a hyperslab selection */
- start[0]=0;
- count[0]=0;
- H5E_BEGIN_TRY {
- ret = H5Sselect_hyperslab(sid,H5S_SELECT_SET,start,NULL,count,NULL);
- } H5E_END_TRY;
+ start[0] = 0;
+ count[0] = 0;
+ H5E_BEGIN_TRY { ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, NULL, count, NULL); }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
/* Select no elements in memory & file with "none" selection */
@@ -7877,7 +8188,7 @@ test_scalar_select2(void)
/* Close disk dataspace */
ret = H5Sclose(sid);
CHECK(ret, FAIL, "H5Sclose");
-} /* test_scalar_select2() */
+} /* test_scalar_select2() */
/****************************************************************
**
@@ -7888,18 +8199,18 @@ test_scalar_select2(void)
static void
test_scalar_select3(void)
{
- hid_t fid1; /* HDF5 File IDs */
- hid_t dataset; /* Dataset ID */
- hid_t sid1,sid2; /* Dataspace ID */
- hsize_t dims2[] = {SPACE7_DIM1, SPACE7_DIM2};
- hsize_t coord1[SPACE7_RANK]; /* Coordinates for point selection */
- hsize_t start[SPACE7_RANK]; /* Hyperslab start */
- hsize_t count[SPACE7_RANK]; /* Hyperslab block count */
- uint8_t wval_uint8, /* Value written out */
- rval_uint8; /* Value read in */
- unsigned short wval_ushort, /* Another value written out */
- rval_ushort; /* Another value read in */
- herr_t ret; /* Generic return value */
+ hid_t fid1; /* HDF5 File IDs */
+ hid_t dataset; /* Dataset ID */
+ hid_t sid1, sid2; /* Dataspace ID */
+ hsize_t dims2[] = {SPACE7_DIM1, SPACE7_DIM2};
+ hsize_t coord1[SPACE7_RANK]; /* Coordinates for point selection */
+ hsize_t start[SPACE7_RANK]; /* Hyperslab start */
+ hsize_t count[SPACE7_RANK]; /* Hyperslab block count */
+ uint8_t wval_uint8, /* Value written out */
+ rval_uint8; /* Value read in */
+ unsigned short wval_ushort, /* Another value written out */
+ rval_ushort; /* Another value read in */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing I/O on Selections in Scalar Dataspaces in Memory\n"));
@@ -7921,71 +8232,78 @@ test_scalar_select3(void)
CHECK(dataset, FAIL, "H5Dcreate2");
/* Select one element in file with a point selection */
- coord1[0] = 0; coord1[1] = 2;
- ret = H5Sselect_elements(sid1, H5S_SELECT_SET, (size_t)1, (const hsize_t *)&coord1);
+ coord1[0] = 0;
+ coord1[1] = 2;
+ ret = H5Sselect_elements(sid1, H5S_SELECT_SET, (size_t)1, (const hsize_t *)&coord1);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Write single point to disk */
wval_uint8 = 12;
- ret = H5Dwrite(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, &wval_uint8);
+ ret = H5Dwrite(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, &wval_uint8);
CHECK(ret, FAIL, "H5Dwrite");
/* Read scalar element from disk */
rval_uint8 = 0;
- ret = H5Dread(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, &rval_uint8);
+ ret = H5Dread(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, &rval_uint8);
CHECK(ret, FAIL, "H5Dread");
/* Check value read back in */
- if(rval_uint8 != wval_uint8)
- TestErrPrintf("%u: Error! rval=%u, should be: wval=%u\n", (unsigned)__LINE__, (unsigned)rval_uint8, (unsigned)wval_uint8);
+ if (rval_uint8 != wval_uint8)
+ TestErrPrintf("%u: Error! rval=%u, should be: wval=%u\n", (unsigned)__LINE__, (unsigned)rval_uint8,
+ (unsigned)wval_uint8);
/* Write single point to disk (with a datatype conversion) */
wval_ushort = 23;
- ret = H5Dwrite(dataset, H5T_NATIVE_USHORT, sid2, sid1, H5P_DEFAULT, &wval_ushort);
+ ret = H5Dwrite(dataset, H5T_NATIVE_USHORT, sid2, sid1, H5P_DEFAULT, &wval_ushort);
CHECK(ret, FAIL, "H5Dwrite");
/* Read scalar element from disk */
rval_ushort = 0;
- ret = H5Dread(dataset, H5T_NATIVE_USHORT, sid2, sid1, H5P_DEFAULT, &rval_ushort);
+ ret = H5Dread(dataset, H5T_NATIVE_USHORT, sid2, sid1, H5P_DEFAULT, &rval_ushort);
CHECK(ret, FAIL, "H5Dread");
/* Check value read back in */
- if(rval_ushort != wval_ushort)
- TestErrPrintf("%u: Error! rval=%u, should be: wval=%u\n", (unsigned)__LINE__, (unsigned)rval_ushort, (unsigned)wval_ushort);
+ if (rval_ushort != wval_ushort)
+ TestErrPrintf("%u: Error! rval=%u, should be: wval=%u\n", (unsigned)__LINE__, (unsigned)rval_ushort,
+ (unsigned)wval_ushort);
/* Select one element in file with a hyperslab selection */
- start[0] = 4; start[1] = 3;
- count[0] = 1; count[1] = 1;
- ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, NULL, count, NULL);
+ start[0] = 4;
+ start[1] = 3;
+ count[0] = 1;
+ count[1] = 1;
+ ret = H5Sselect_hyperslab(sid1, H5S_SELECT_SET, start, NULL, count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Write single hyperslab element to disk */
wval_uint8 = 92;
- ret = H5Dwrite(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, &wval_uint8);
+ ret = H5Dwrite(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, &wval_uint8);
CHECK(ret, FAIL, "H5Dwrite");
/* Read scalar element from disk */
rval_uint8 = 0;
- ret = H5Dread(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, &rval_uint8);
+ ret = H5Dread(dataset, H5T_NATIVE_UCHAR, sid2, sid1, H5P_DEFAULT, &rval_uint8);
CHECK(ret, FAIL, "H5Dread");
/* Check value read back in */
- if(rval_uint8 != wval_uint8)
- TestErrPrintf("%u: Error! rval=%u, should be: wval=%u\n", (unsigned)__LINE__, (unsigned)rval_uint8, (unsigned)wval_uint8);
+ if (rval_uint8 != wval_uint8)
+ TestErrPrintf("%u: Error! rval=%u, should be: wval=%u\n", (unsigned)__LINE__, (unsigned)rval_uint8,
+ (unsigned)wval_uint8);
/* Write single hyperslab element to disk (with a datatype conversion) */
wval_ushort = 107;
- ret = H5Dwrite(dataset, H5T_NATIVE_USHORT, sid2, sid1, H5P_DEFAULT, &wval_ushort);
+ ret = H5Dwrite(dataset, H5T_NATIVE_USHORT, sid2, sid1, H5P_DEFAULT, &wval_ushort);
CHECK(ret, FAIL, "H5Dwrite");
/* Read scalar element from disk */
rval_ushort = 0;
- ret = H5Dread(dataset, H5T_NATIVE_USHORT, sid2, sid1, H5P_DEFAULT, &rval_ushort);
+ ret = H5Dread(dataset, H5T_NATIVE_USHORT, sid2, sid1, H5P_DEFAULT, &rval_ushort);
CHECK(ret, FAIL, "H5Dread");
/* Check value read back in */
- if(rval_ushort != wval_ushort)
- TestErrPrintf("%u: Error! rval=%u, should be: wval=%u\n", (unsigned)__LINE__, (unsigned)rval_ushort, (unsigned)wval_ushort);
+ if (rval_ushort != wval_ushort)
+ TestErrPrintf("%u: Error! rval=%u, should be: wval=%u\n", (unsigned)__LINE__, (unsigned)rval_ushort,
+ (unsigned)wval_ushort);
/* Select no elements in memory & file with "none" selections */
ret = H5Sselect_none(sid1);
@@ -8017,7 +8335,7 @@ test_scalar_select3(void)
/* Close file */
ret = H5Fclose(fid1);
CHECK(ret, FAIL, "H5Fclose");
-} /* test_scalar_select3() */
+} /* test_scalar_select3() */
/****************************************************************
**
@@ -8028,38 +8346,38 @@ test_scalar_select3(void)
static void
test_shape_same(void)
{
- hid_t all_sid; /* Dataspace ID with "all" selection */
- hid_t none_sid; /* Dataspace ID with "none" selection */
- hid_t single_pt_sid; /* Dataspace ID with single point selection */
- hid_t mult_pt_sid; /* Dataspace ID with multiple point selection */
- hid_t single_hyper_sid; /* Dataspace ID with single block hyperslab selection */
- hid_t single_hyper_all_sid; /* Dataspace ID with single block hyperslab
- * selection that is the entire dataspace
- */
- hid_t single_hyper_pt_sid; /* Dataspace ID with single block hyperslab
- * selection that is the same as the single
- * point selection
- */
- hid_t regular_hyper_sid; /* Dataspace ID with regular hyperslab selection */
- hid_t irreg_hyper_sid; /* Dataspace ID with irregular hyperslab selection */
+ hid_t all_sid; /* Dataspace ID with "all" selection */
+ hid_t none_sid; /* Dataspace ID with "none" selection */
+ hid_t single_pt_sid; /* Dataspace ID with single point selection */
+ hid_t mult_pt_sid; /* Dataspace ID with multiple point selection */
+ hid_t single_hyper_sid; /* Dataspace ID with single block hyperslab selection */
+ hid_t single_hyper_all_sid; /* Dataspace ID with single block hyperslab
+ * selection that is the entire dataspace
+ */
+ hid_t single_hyper_pt_sid; /* Dataspace ID with single block hyperslab
+ * selection that is the same as the single
+ * point selection
+ */
+ hid_t regular_hyper_sid; /* Dataspace ID with regular hyperslab selection */
+ hid_t irreg_hyper_sid; /* Dataspace ID with irregular hyperslab selection */
hid_t none_hyper_sid; /* Dataspace ID with "no hyperslabs" selection */
hid_t scalar_all_sid; /* ID for scalar dataspace with "all" selection */
- hid_t scalar_none_sid; /* ID for scalar dataspace with "none" selection */
- hid_t tmp_sid; /* Temporary dataspace ID */
- hsize_t dims[] = {SPACE9_DIM1, SPACE9_DIM2};
- hsize_t coord1[1][SPACE2_RANK]; /* Coordinates for single point selection */
- hsize_t coord2[SPACE9_DIM2][SPACE9_RANK]; /* Coordinates for multiple point selection */
- hsize_t start[SPACE9_RANK]; /* Hyperslab start */
- hsize_t stride[SPACE9_RANK]; /* Hyperslab stride */
- hsize_t count[SPACE9_RANK]; /* Hyperslab block count */
- hsize_t block[SPACE9_RANK]; /* Hyperslab block size */
- unsigned u,v; /* Local index variables */
- htri_t check; /* Shape comparison return value */
- herr_t ret; /* Generic return value */
+ hid_t scalar_none_sid; /* ID for scalar dataspace with "none" selection */
+ hid_t tmp_sid; /* Temporary dataspace ID */
+ hsize_t dims[] = {SPACE9_DIM1, SPACE9_DIM2};
+ hsize_t coord1[1][SPACE2_RANK]; /* Coordinates for single point selection */
+ hsize_t coord2[SPACE9_DIM2][SPACE9_RANK]; /* Coordinates for multiple point selection */
+ hsize_t start[SPACE9_RANK]; /* Hyperslab start */
+ hsize_t stride[SPACE9_RANK]; /* Hyperslab stride */
+ hsize_t count[SPACE9_RANK]; /* Hyperslab block count */
+ hsize_t block[SPACE9_RANK]; /* Hyperslab block size */
+ unsigned u, v; /* Local index variables */
+ htri_t check; /* Shape comparison return value */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(6, ("Testing Same Shape Comparisons\n"));
- assert(SPACE9_DIM2>=POINT1_NPOINTS);
+ assert(SPACE9_DIM2 >= POINT1_NPOINTS);
/* Create dataspace for "all" selection */
all_sid = H5Screate_simple(SPACE9_RANK, dims, NULL);
@@ -8082,8 +8400,9 @@ test_shape_same(void)
CHECK(single_pt_sid, FAIL, "H5Screate_simple");
/* Select sequence of ten points for multiple point selection */
- coord1[0][0] = 2; coord1[0][1] = 2;
- ret = H5Sselect_elements(single_pt_sid, H5S_SELECT_SET, (size_t)1, (const hsize_t *)coord1);
+ coord1[0][0] = 2;
+ coord1[0][1] = 2;
+ ret = H5Sselect_elements(single_pt_sid, H5S_SELECT_SET, (size_t)1, (const hsize_t *)coord1);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Create dataspace for multiple point selection */
@@ -8091,16 +8410,26 @@ test_shape_same(void)
CHECK(mult_pt_sid, FAIL, "H5Screate_simple");
/* Select sequence of ten points for multiple point selection */
- coord2[0][0]=2; coord2[0][1]=2;
- coord2[1][0]=7; coord2[1][1]=2;
- coord2[2][0]=1; coord2[2][1]=4;
- coord2[3][0]=2; coord2[3][1]=6;
- coord2[4][0]=0; coord2[4][1]=8;
- coord2[5][0]=3; coord2[5][1]=2;
- coord2[6][0]=4; coord2[6][1]=4;
- coord2[7][0]=1; coord2[7][1]=0;
- coord2[8][0]=5; coord2[8][1]=1;
- coord2[9][0]=9; coord2[9][1]=3;
+ coord2[0][0] = 2;
+ coord2[0][1] = 2;
+ coord2[1][0] = 7;
+ coord2[1][1] = 2;
+ coord2[2][0] = 1;
+ coord2[2][1] = 4;
+ coord2[3][0] = 2;
+ coord2[3][1] = 6;
+ coord2[4][0] = 0;
+ coord2[4][1] = 8;
+ coord2[5][0] = 3;
+ coord2[5][1] = 2;
+ coord2[6][0] = 4;
+ coord2[6][1] = 4;
+ coord2[7][0] = 1;
+ coord2[7][1] = 0;
+ coord2[8][0] = 5;
+ coord2[8][1] = 1;
+ coord2[9][0] = 9;
+ coord2[9][1] = 3;
ret = H5Sselect_elements(mult_pt_sid, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord2);
CHECK(ret, FAIL, "H5Sselect_elements");
@@ -8109,11 +8438,15 @@ test_shape_same(void)
CHECK(single_hyper_sid, FAIL, "H5Screate_simple");
/* Select 10x10 hyperslab for single hyperslab selection */
- start[0]=1; start[1]=1;
- stride[0]=1; stride[1]=1;
- count[0]=1; count[1]=1;
- block[0]=(SPACE9_DIM1-2); block[1]=(SPACE9_DIM2-2);
- ret = H5Sselect_hyperslab(single_hyper_sid,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 1;
+ start[1] = 1;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 1;
+ count[1] = 1;
+ block[0] = (SPACE9_DIM1 - 2);
+ block[1] = (SPACE9_DIM2 - 2);
+ ret = H5Sselect_hyperslab(single_hyper_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Create dataspace for single hyperslab selection with entire extent selected */
@@ -8121,11 +8454,15 @@ test_shape_same(void)
CHECK(single_hyper_all_sid, FAIL, "H5Screate_simple");
/* Select entire extent for hyperslab selection */
- start[0]=0; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=1; count[1]=1;
- block[0]=SPACE9_DIM1; block[1]=SPACE9_DIM2;
- ret = H5Sselect_hyperslab(single_hyper_all_sid,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 1;
+ count[1] = 1;
+ block[0] = SPACE9_DIM1;
+ block[1] = SPACE9_DIM2;
+ ret = H5Sselect_hyperslab(single_hyper_all_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Create dataspace for single hyperslab selection with single point selected */
@@ -8133,11 +8470,15 @@ test_shape_same(void)
CHECK(single_hyper_pt_sid, FAIL, "H5Screate_simple");
/* Select entire extent for hyperslab selection */
- start[0]=2; start[1]=2;
- stride[0]=1; stride[1]=1;
- count[0]=1; count[1]=1;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(single_hyper_pt_sid,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 2;
+ start[1] = 2;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 1;
+ count[1] = 1;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(single_hyper_pt_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Create dataspace for regular hyperslab selection */
@@ -8145,11 +8486,15 @@ test_shape_same(void)
CHECK(regular_hyper_sid, FAIL, "H5Screate_simple");
/* Select regular, strided hyperslab selection */
- start[0]=2; start[1]=2;
- stride[0]=2; stride[1]=2;
- count[0]=5; count[1]=2;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(regular_hyper_sid,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 2;
+ start[1] = 2;
+ stride[0] = 2;
+ stride[1] = 2;
+ count[0] = 5;
+ count[1] = 2;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(regular_hyper_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Create dataspace for irregular hyperslab selection */
@@ -8157,18 +8502,26 @@ test_shape_same(void)
CHECK(irreg_hyper_sid, FAIL, "H5Screate_simple");
/* Create irregular hyperslab selection by OR'ing two blocks together */
- start[0]=2; start[1]=2;
- stride[0]=1; stride[1]=1;
- count[0]=1; count[1]=1;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(irreg_hyper_sid,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 2;
+ start[1] = 2;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 1;
+ count[1] = 1;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(irreg_hyper_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- start[0]=4; start[1]=4;
- stride[0]=1; stride[1]=1;
- count[0]=1; count[1]=1;
- block[0]=3; block[1]=3;
- ret = H5Sselect_hyperslab(irreg_hyper_sid,H5S_SELECT_OR,start,stride,count,block);
+ start[0] = 4;
+ start[1] = 4;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 1;
+ count[1] = 1;
+ block[0] = 3;
+ block[1] = 3;
+ ret = H5Sselect_hyperslab(irreg_hyper_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Create dataspace for "no" hyperslab selection */
@@ -8176,14 +8529,18 @@ test_shape_same(void)
CHECK(none_hyper_sid, FAIL, "H5Screate_simple");
/* Create "no" hyperslab selection by XOR'ing same blocks together */
- start[0]=2; start[1]=2;
- stride[0]=1; stride[1]=1;
- count[0]=1; count[1]=1;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(none_hyper_sid,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 2;
+ start[1] = 2;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 1;
+ count[1] = 1;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(none_hyper_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- ret = H5Sselect_hyperslab(none_hyper_sid,H5S_SELECT_XOR,start,stride,count,block);
+ ret = H5Sselect_hyperslab(none_hyper_sid, H5S_SELECT_XOR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Create scalar dataspace for "all" selection */
@@ -8199,868 +8556,890 @@ test_shape_same(void)
CHECK(ret, FAIL, "H5Sselect_none");
/* Compare "all" selection to all the selections created */
- /* Compare against itself */
- check = H5Sselect_shape_same(all_sid ,all_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against itself */
+ check = H5Sselect_shape_same(all_sid, all_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against copy of itself */
- tmp_sid = H5Scopy(all_sid);
- CHECK(tmp_sid, FAIL, "H5Scopy");
+ /* Compare against copy of itself */
+ tmp_sid = H5Scopy(all_sid);
+ CHECK(tmp_sid, FAIL, "H5Scopy");
- check = H5Sselect_shape_same(all_sid, tmp_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ check = H5Sselect_shape_same(all_sid, tmp_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- ret = H5Sclose(tmp_sid);
- CHECK(ret, FAIL, "H5Sclose");
+ ret = H5Sclose(tmp_sid);
+ CHECK(ret, FAIL, "H5Sclose");
- /* Compare against "none" selection */
- check = H5Sselect_shape_same(all_sid, none_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "none" selection */
+ check = H5Sselect_shape_same(all_sid, none_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against single point selection */
- check = H5Sselect_shape_same(all_sid, single_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against single point selection */
+ check = H5Sselect_shape_same(all_sid, single_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against multiple point selection */
- check = H5Sselect_shape_same(all_sid, mult_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against multiple point selection */
+ check = H5Sselect_shape_same(all_sid, mult_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "plain" single hyperslab selection */
- check = H5Sselect_shape_same(all_sid, single_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "plain" single hyperslab selection */
+ check = H5Sselect_shape_same(all_sid, single_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "all" single hyperslab selection */
- check = H5Sselect_shape_same(all_sid, single_hyper_all_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against "all" single hyperslab selection */
+ check = H5Sselect_shape_same(all_sid, single_hyper_all_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against "single point" single hyperslab selection */
- check = H5Sselect_shape_same(all_sid, single_hyper_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "single point" single hyperslab selection */
+ check = H5Sselect_shape_same(all_sid, single_hyper_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against regular, strided hyperslab selection */
- check = H5Sselect_shape_same(all_sid, regular_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against regular, strided hyperslab selection */
+ check = H5Sselect_shape_same(all_sid, regular_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against irregular hyperslab selection */
- check = H5Sselect_shape_same(all_sid, irreg_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against irregular hyperslab selection */
+ check = H5Sselect_shape_same(all_sid, irreg_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "no" hyperslab selection */
- check = H5Sselect_shape_same(all_sid, none_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "no" hyperslab selection */
+ check = H5Sselect_shape_same(all_sid, none_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against scalar "all" hyperslab selection */
- check = H5Sselect_shape_same(all_sid, scalar_all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against scalar "all" hyperslab selection */
+ check = H5Sselect_shape_same(all_sid, scalar_all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against scalar "none" hyperslab selection */
- check = H5Sselect_shape_same(all_sid, scalar_none_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against scalar "none" hyperslab selection */
+ check = H5Sselect_shape_same(all_sid, scalar_none_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
/* Compare "none" selection to all the selections created */
- /* Compare against itself */
- check = H5Sselect_shape_same(none_sid, none_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against itself */
+ check = H5Sselect_shape_same(none_sid, none_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against copy of itself */
- tmp_sid = H5Scopy(none_sid);
- CHECK(tmp_sid, FAIL, "H5Scopy");
+ /* Compare against copy of itself */
+ tmp_sid = H5Scopy(none_sid);
+ CHECK(tmp_sid, FAIL, "H5Scopy");
- check = H5Sselect_shape_same(none_sid, tmp_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ check = H5Sselect_shape_same(none_sid, tmp_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- ret = H5Sclose(tmp_sid);
- CHECK(ret, FAIL, "H5Sclose");
+ ret = H5Sclose(tmp_sid);
+ CHECK(ret, FAIL, "H5Sclose");
- /* Compare against "all" selection */
- check = H5Sselect_shape_same(none_sid, all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "all" selection */
+ check = H5Sselect_shape_same(none_sid, all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against single point selection */
- check = H5Sselect_shape_same(none_sid, single_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against single point selection */
+ check = H5Sselect_shape_same(none_sid, single_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against multiple point selection */
- check = H5Sselect_shape_same(none_sid, mult_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against multiple point selection */
+ check = H5Sselect_shape_same(none_sid, mult_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "plain" single hyperslab selection */
- check = H5Sselect_shape_same(none_sid, single_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "plain" single hyperslab selection */
+ check = H5Sselect_shape_same(none_sid, single_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "all" single hyperslab selection */
- check = H5Sselect_shape_same(none_sid, single_hyper_all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "all" single hyperslab selection */
+ check = H5Sselect_shape_same(none_sid, single_hyper_all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "single point" single hyperslab selection */
- check = H5Sselect_shape_same(none_sid, single_hyper_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "single point" single hyperslab selection */
+ check = H5Sselect_shape_same(none_sid, single_hyper_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against regular, strided hyperslab selection */
- check = H5Sselect_shape_same(none_sid, regular_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against regular, strided hyperslab selection */
+ check = H5Sselect_shape_same(none_sid, regular_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against irregular hyperslab selection */
- check = H5Sselect_shape_same(none_sid, irreg_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against irregular hyperslab selection */
+ check = H5Sselect_shape_same(none_sid, irreg_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "no" hyperslab selection */
- check = H5Sselect_shape_same(none_sid, none_hyper_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against "no" hyperslab selection */
+ check = H5Sselect_shape_same(none_sid, none_hyper_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against scalar "all" hyperslab selection */
- check = H5Sselect_shape_same(none_sid, scalar_all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against scalar "all" hyperslab selection */
+ check = H5Sselect_shape_same(none_sid, scalar_all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against scalar "none" hyperslab selection */
- check = H5Sselect_shape_same(none_sid, scalar_none_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against scalar "none" hyperslab selection */
+ check = H5Sselect_shape_same(none_sid, scalar_none_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
/* Compare single point selection to all the selections created */
- /* Compare against itself */
- check = H5Sselect_shape_same(single_pt_sid, single_pt_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against itself */
+ check = H5Sselect_shape_same(single_pt_sid, single_pt_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against copy of itself */
- tmp_sid = H5Scopy(single_pt_sid);
- CHECK(tmp_sid, FAIL, "H5Scopy");
+ /* Compare against copy of itself */
+ tmp_sid = H5Scopy(single_pt_sid);
+ CHECK(tmp_sid, FAIL, "H5Scopy");
- check = H5Sselect_shape_same(single_pt_sid, tmp_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ check = H5Sselect_shape_same(single_pt_sid, tmp_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- ret = H5Sclose(tmp_sid);
- CHECK(ret, FAIL, "H5Sclose");
+ ret = H5Sclose(tmp_sid);
+ CHECK(ret, FAIL, "H5Sclose");
- /* Compare against "all" selection */
- check = H5Sselect_shape_same(single_pt_sid, all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "all" selection */
+ check = H5Sselect_shape_same(single_pt_sid, all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "none" selection */
- check = H5Sselect_shape_same(single_pt_sid, none_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "none" selection */
+ check = H5Sselect_shape_same(single_pt_sid, none_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against multiple point selection */
- check = H5Sselect_shape_same(single_pt_sid, mult_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against multiple point selection */
+ check = H5Sselect_shape_same(single_pt_sid, mult_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "plain" single hyperslab selection */
- check = H5Sselect_shape_same(single_pt_sid, single_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "plain" single hyperslab selection */
+ check = H5Sselect_shape_same(single_pt_sid, single_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "all" single hyperslab selection */
- check = H5Sselect_shape_same(single_pt_sid, single_hyper_all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "all" single hyperslab selection */
+ check = H5Sselect_shape_same(single_pt_sid, single_hyper_all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "single point" single hyperslab selection */
- check = H5Sselect_shape_same(single_pt_sid, single_hyper_pt_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against "single point" single hyperslab selection */
+ check = H5Sselect_shape_same(single_pt_sid, single_hyper_pt_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against regular, strided hyperslab selection */
- check = H5Sselect_shape_same(single_pt_sid, regular_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against regular, strided hyperslab selection */
+ check = H5Sselect_shape_same(single_pt_sid, regular_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against irregular hyperslab selection */
- check = H5Sselect_shape_same(single_pt_sid, irreg_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against irregular hyperslab selection */
+ check = H5Sselect_shape_same(single_pt_sid, irreg_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "no" hyperslab selection */
- check = H5Sselect_shape_same(single_pt_sid, none_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "no" hyperslab selection */
+ check = H5Sselect_shape_same(single_pt_sid, none_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against scalar "all" hyperslab selection */
- check = H5Sselect_shape_same(single_pt_sid, scalar_all_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against scalar "all" hyperslab selection */
+ check = H5Sselect_shape_same(single_pt_sid, scalar_all_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against scalar "none" hyperslab selection */
- check = H5Sselect_shape_same(single_pt_sid, scalar_none_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against scalar "none" hyperslab selection */
+ check = H5Sselect_shape_same(single_pt_sid, scalar_none_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
/* Compare multiple point selection to all the selections created */
- /* Compare against itself */
- check = H5Sselect_shape_same(mult_pt_sid, mult_pt_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against itself */
+ check = H5Sselect_shape_same(mult_pt_sid, mult_pt_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against copy of itself */
- tmp_sid = H5Scopy(mult_pt_sid);
- CHECK(tmp_sid, FAIL, "H5Scopy");
+ /* Compare against copy of itself */
+ tmp_sid = H5Scopy(mult_pt_sid);
+ CHECK(tmp_sid, FAIL, "H5Scopy");
- check = H5Sselect_shape_same(mult_pt_sid, tmp_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ check = H5Sselect_shape_same(mult_pt_sid, tmp_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- ret = H5Sclose(tmp_sid);
- CHECK(ret, FAIL, "H5Sclose");
+ ret = H5Sclose(tmp_sid);
+ CHECK(ret, FAIL, "H5Sclose");
- /* Compare against "all" selection */
- check = H5Sselect_shape_same(mult_pt_sid, all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "all" selection */
+ check = H5Sselect_shape_same(mult_pt_sid, all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "none" selection */
- check = H5Sselect_shape_same(mult_pt_sid, none_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "none" selection */
+ check = H5Sselect_shape_same(mult_pt_sid, none_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against single point selection */
- check = H5Sselect_shape_same(mult_pt_sid, single_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against single point selection */
+ check = H5Sselect_shape_same(mult_pt_sid, single_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "plain" single hyperslab selection */
- check = H5Sselect_shape_same(mult_pt_sid, single_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "plain" single hyperslab selection */
+ check = H5Sselect_shape_same(mult_pt_sid, single_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "all" single hyperslab selection */
- check = H5Sselect_shape_same(mult_pt_sid, single_hyper_all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "all" single hyperslab selection */
+ check = H5Sselect_shape_same(mult_pt_sid, single_hyper_all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "single point" single hyperslab selection */
- check = H5Sselect_shape_same(mult_pt_sid, single_hyper_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "single point" single hyperslab selection */
+ check = H5Sselect_shape_same(mult_pt_sid, single_hyper_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against regular, strided hyperslab selection */
- check = H5Sselect_shape_same(mult_pt_sid, regular_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against regular, strided hyperslab selection */
+ check = H5Sselect_shape_same(mult_pt_sid, regular_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against irregular hyperslab selection */
- check = H5Sselect_shape_same(mult_pt_sid, irreg_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against irregular hyperslab selection */
+ check = H5Sselect_shape_same(mult_pt_sid, irreg_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "no" hyperslab selection */
- check = H5Sselect_shape_same(mult_pt_sid, none_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "no" hyperslab selection */
+ check = H5Sselect_shape_same(mult_pt_sid, none_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against scalar "all" hyperslab selection */
- check = H5Sselect_shape_same(mult_pt_sid, scalar_all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against scalar "all" hyperslab selection */
+ check = H5Sselect_shape_same(mult_pt_sid, scalar_all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against scalar "none" hyperslab selection */
- check = H5Sselect_shape_same(mult_pt_sid, scalar_none_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against scalar "none" hyperslab selection */
+ check = H5Sselect_shape_same(mult_pt_sid, scalar_none_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
/* Compare single "normal" hyperslab selection to all the selections created */
- /* Compare against itself */
- check = H5Sselect_shape_same(single_hyper_sid, single_hyper_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against itself */
+ check = H5Sselect_shape_same(single_hyper_sid, single_hyper_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against copy of itself */
- tmp_sid = H5Scopy(single_hyper_sid);
- CHECK(tmp_sid, FAIL, "H5Scopy");
+ /* Compare against copy of itself */
+ tmp_sid = H5Scopy(single_hyper_sid);
+ CHECK(tmp_sid, FAIL, "H5Scopy");
- check = H5Sselect_shape_same(single_hyper_sid, tmp_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ check = H5Sselect_shape_same(single_hyper_sid, tmp_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- ret = H5Sclose(tmp_sid);
- CHECK(ret, FAIL, "H5Sclose");
+ ret = H5Sclose(tmp_sid);
+ CHECK(ret, FAIL, "H5Sclose");
- /* Compare against "all" selection */
- check = H5Sselect_shape_same(single_hyper_sid, all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "all" selection */
+ check = H5Sselect_shape_same(single_hyper_sid, all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "none" selection */
- check = H5Sselect_shape_same(single_hyper_sid, none_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "none" selection */
+ check = H5Sselect_shape_same(single_hyper_sid, none_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against single point selection */
- check = H5Sselect_shape_same(single_hyper_sid, single_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against single point selection */
+ check = H5Sselect_shape_same(single_hyper_sid, single_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against multiple point selection */
- check = H5Sselect_shape_same(single_hyper_sid, mult_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against multiple point selection */
+ check = H5Sselect_shape_same(single_hyper_sid, mult_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "all" single hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_sid, single_hyper_all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "all" single hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_sid, single_hyper_all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "single point" single hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_sid, single_hyper_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "single point" single hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_sid, single_hyper_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against regular, strided hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_sid, regular_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against regular, strided hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_sid, regular_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against irregular hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_sid, irreg_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against irregular hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_sid, irreg_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "no" hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_sid, none_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "no" hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_sid, none_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
#ifdef NOT_YET
-/* In theory, these two selections are the same shape, but the
- * H5Sselect_shape_same() routine is just not this sophisticated yet and it
- * would take too much effort to make this work. The worst case is that the
- * non-optimized chunk mapping routines will be invoked instead of the more
- * optimized routines, so this only hurts performance, not correctness
- */
- /* Construct point selection which matches "plain" hyperslab selection */
- /* Create dataspace for point selection */
- tmp_sid = H5Screate_simple(SPACE9_RANK, dims, NULL);
- CHECK(tmp_sid, FAIL, "H5Screate_simple");
-
- /* Select sequence of points for point selection */
- for(u = 1; u < (SPACE9_DIM1 - 1); u++) {
- for(v = 1; v < (SPACE9_DIM2 - 1); v++) {
- coord2[v - 1][0] = u;
- coord2[v - 1][1] = v;
- } /* end for */
-
- ret = H5Sselect_elements(tmp_sid, H5S_SELECT_APPEND, (SPACE9_DIM2 - 2), coord2);
- CHECK(ret, FAIL, "H5Sselect_elements");
- } /* end for */
+ /* In theory, these two selections are the same shape, but the
+ * H5Sselect_shape_same() routine is just not this sophisticated yet and it
+ * would take too much effort to make this work. The worst case is that the
+ * non-optimized chunk mapping routines will be invoked instead of the more
+ * optimized routines, so this only hurts performance, not correctness
+ */
+ /* Construct point selection which matches "plain" hyperslab selection */
+ /* Create dataspace for point selection */
+ tmp_sid = H5Screate_simple(SPACE9_RANK, dims, NULL);
+ CHECK(tmp_sid, FAIL, "H5Screate_simple");
+
+ /* Select sequence of points for point selection */
+ for (u = 1; u < (SPACE9_DIM1 - 1); u++) {
+ for (v = 1; v < (SPACE9_DIM2 - 1); v++) {
+ coord2[v - 1][0] = u;
+ coord2[v - 1][1] = v;
+ } /* end for */
- /* Compare against hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_sid, tmp_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ ret = H5Sselect_elements(tmp_sid, H5S_SELECT_APPEND, (SPACE9_DIM2 - 2), coord2);
+ CHECK(ret, FAIL, "H5Sselect_elements");
+ } /* end for */
- ret = H5Sclose(tmp_sid);
- CHECK(ret, FAIL, "H5Sclose");
+ /* Compare against hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_sid, tmp_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
+
+ ret = H5Sclose(tmp_sid);
+ CHECK(ret, FAIL, "H5Sclose");
#endif /* NOT_YET */
- /* Construct hyperslab selection which matches "plain" hyperslab selection */
- /* Create dataspace for hyperslab selection */
- tmp_sid = H5Screate_simple(SPACE9_RANK, dims, NULL);
- CHECK(tmp_sid, FAIL, "H5Screate_simple");
-
- /* Un-select entire extent */
- ret = H5Sselect_none(tmp_sid);
- CHECK(ret, FAIL, "H5Sselect_none");
-
- /* Select sequence of rows for hyperslab selection */
- for(u = 1; u < (SPACE9_DIM1 - 1); u++) {
- start[0] = u; start[1] = 1;
- stride[0] = 1; stride[1] = 1;
- count[0] = 1; count[1] = 1;
- block[0] = 1; block[1] = (SPACE9_DIM2 - 2);
- ret = H5Sselect_hyperslab(tmp_sid, H5S_SELECT_OR, start, stride, count, block);
- CHECK(ret, FAIL, "H5Sselect_hyperslab");
- } /* end for */
+ /* Construct hyperslab selection which matches "plain" hyperslab selection */
+ /* Create dataspace for hyperslab selection */
+ tmp_sid = H5Screate_simple(SPACE9_RANK, dims, NULL);
+ CHECK(tmp_sid, FAIL, "H5Screate_simple");
+
+ /* Un-select entire extent */
+ ret = H5Sselect_none(tmp_sid);
+ CHECK(ret, FAIL, "H5Sselect_none");
+
+ /* Select sequence of rows for hyperslab selection */
+ for (u = 1; u < (SPACE9_DIM1 - 1); u++) {
+ start[0] = u;
+ start[1] = 1;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 1;
+ count[1] = 1;
+ block[0] = 1;
+ block[1] = (SPACE9_DIM2 - 2);
+ ret = H5Sselect_hyperslab(tmp_sid, H5S_SELECT_OR, start, stride, count, block);
+ CHECK(ret, FAIL, "H5Sselect_hyperslab");
+ } /* end for */
- /* Compare against hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_sid, tmp_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_sid, tmp_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- ret = H5Sclose(tmp_sid);
- CHECK(ret, FAIL, "H5Sclose");
+ ret = H5Sclose(tmp_sid);
+ CHECK(ret, FAIL, "H5Sclose");
- /* Compare against scalar "all" hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_sid, scalar_all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against scalar "all" hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_sid, scalar_all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against scalar "none" hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_sid, scalar_none_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against scalar "none" hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_sid, scalar_none_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
/* Compare single "all" hyperslab selection to all the selections created */
- /* Compare against itself */
- check = H5Sselect_shape_same(single_hyper_all_sid, single_hyper_all_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against itself */
+ check = H5Sselect_shape_same(single_hyper_all_sid, single_hyper_all_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against copy of itself */
- tmp_sid = H5Scopy(single_hyper_all_sid);
- CHECK(tmp_sid, FAIL, "H5Scopy");
+ /* Compare against copy of itself */
+ tmp_sid = H5Scopy(single_hyper_all_sid);
+ CHECK(tmp_sid, FAIL, "H5Scopy");
- check = H5Sselect_shape_same(single_hyper_all_sid, tmp_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ check = H5Sselect_shape_same(single_hyper_all_sid, tmp_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- ret = H5Sclose(tmp_sid);
- CHECK(ret, FAIL, "H5Sclose");
+ ret = H5Sclose(tmp_sid);
+ CHECK(ret, FAIL, "H5Sclose");
- /* Compare against "all" selection */
- check = H5Sselect_shape_same(single_hyper_all_sid, all_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against "all" selection */
+ check = H5Sselect_shape_same(single_hyper_all_sid, all_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against "none" selection */
- check = H5Sselect_shape_same(single_hyper_all_sid, none_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "none" selection */
+ check = H5Sselect_shape_same(single_hyper_all_sid, none_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against single point selection */
- check = H5Sselect_shape_same(single_hyper_all_sid, single_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against single point selection */
+ check = H5Sselect_shape_same(single_hyper_all_sid, single_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against multiple point selection */
- check = H5Sselect_shape_same(single_hyper_all_sid, mult_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against multiple point selection */
+ check = H5Sselect_shape_same(single_hyper_all_sid, mult_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "plain" single hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_all_sid, single_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "plain" single hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_all_sid, single_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "single point" single hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_all_sid, single_hyper_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "single point" single hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_all_sid, single_hyper_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against regular, strided hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_all_sid, regular_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against regular, strided hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_all_sid, regular_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against irregular hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_all_sid, irreg_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against irregular hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_all_sid, irreg_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "no" hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_all_sid, none_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "no" hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_all_sid, none_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
#ifdef NOT_YET
-/* In theory, these two selections are the same shape, but the
- * H5S_select_shape_same() routine is just not this sophisticated yet and it
- * would take too much effort to make this work. The worst case is that the
- * non-optimized chunk mapping routines will be invoked instead of the more
- * optimized routines, so this only hurts performance, not correctness
- */
- /* Construct point selection which matches "all" hyperslab selection */
- /* Create dataspace for point selection */
- tmp_sid = H5Screate_simple(SPACE9_RANK, dims, NULL);
- CHECK(tmp_sid, FAIL, "H5Screate_simple");
-
- /* Select sequence of points for point selection */
- for(u = 0; u < SPACE9_DIM1; u++) {
- for(v = 0; v < SPACE9_DIM2; v++) {
- coord2[v][0] = u;
- coord2[v][1] = v;
- } /* end for */
- ret = H5Sselect_elements(tmp_sid, H5S_SELECT_APPEND, SPACE9_DIM2, coord2);
- CHECK(ret, FAIL, "H5Sselect_elements");
- } /* end for */
+ /* In theory, these two selections are the same shape, but the
+ * H5S_select_shape_same() routine is just not this sophisticated yet and it
+ * would take too much effort to make this work. The worst case is that the
+ * non-optimized chunk mapping routines will be invoked instead of the more
+ * optimized routines, so this only hurts performance, not correctness
+ */
+ /* Construct point selection which matches "all" hyperslab selection */
+ /* Create dataspace for point selection */
+ tmp_sid = H5Screate_simple(SPACE9_RANK, dims, NULL);
+ CHECK(tmp_sid, FAIL, "H5Screate_simple");
+
+ /* Select sequence of points for point selection */
+ for (u = 0; u < SPACE9_DIM1; u++) {
+ for (v = 0; v < SPACE9_DIM2; v++) {
+ coord2[v][0] = u;
+ coord2[v][1] = v;
+ } /* end for */
+ ret = H5Sselect_elements(tmp_sid, H5S_SELECT_APPEND, SPACE9_DIM2, coord2);
+ CHECK(ret, FAIL, "H5Sselect_elements");
+ } /* end for */
- /* Compare against hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_all_sid, tmp_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_all_sid, tmp_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- ret = H5Sclose(tmp_sid);
- CHECK(ret, FAIL, "H5Sclose");
+ ret = H5Sclose(tmp_sid);
+ CHECK(ret, FAIL, "H5Sclose");
#endif /* NOT_YET */
- /* Construct hyperslab selection which matches "all" hyperslab selection */
- /* Create dataspace for hyperslab selection */
- tmp_sid = H5Screate_simple(SPACE9_RANK, dims, NULL);
- CHECK(tmp_sid, FAIL, "H5Screate_simple");
-
- /* Un-select entire extent */
- ret = H5Sselect_none(tmp_sid);
- CHECK(ret, FAIL, "H5Sselect_none");
-
- /* Select sequence of rows for hyperslab selection */
- for(u = 0; u < SPACE9_DIM2; u++) {
- start[0] = u; start[1] = 0;
- stride[0] = 1; stride[1] = 1;
- count[0] = 1; count[1] = 1;
- block[0] = 1; block[1] = SPACE9_DIM2;
- ret = H5Sselect_hyperslab(tmp_sid, H5S_SELECT_OR, start, stride, count, block);
- CHECK(ret, FAIL, "H5Sselect_hyperslab");
- } /* end for */
+ /* Construct hyperslab selection which matches "all" hyperslab selection */
+ /* Create dataspace for hyperslab selection */
+ tmp_sid = H5Screate_simple(SPACE9_RANK, dims, NULL);
+ CHECK(tmp_sid, FAIL, "H5Screate_simple");
- /* Compare against hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_all_sid, tmp_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Un-select entire extent */
+ ret = H5Sselect_none(tmp_sid);
+ CHECK(ret, FAIL, "H5Sselect_none");
- ret = H5Sclose(tmp_sid);
- CHECK(ret, FAIL, "H5Sclose");
+ /* Select sequence of rows for hyperslab selection */
+ for (u = 0; u < SPACE9_DIM2; u++) {
+ start[0] = u;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 1;
+ count[1] = 1;
+ block[0] = 1;
+ block[1] = SPACE9_DIM2;
+ ret = H5Sselect_hyperslab(tmp_sid, H5S_SELECT_OR, start, stride, count, block);
+ CHECK(ret, FAIL, "H5Sselect_hyperslab");
+ } /* end for */
- /* Compare against scalar "all" hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_all_sid, scalar_all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_all_sid, tmp_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against scalar "none" hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_all_sid, scalar_none_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ ret = H5Sclose(tmp_sid);
+ CHECK(ret, FAIL, "H5Sclose");
+
+ /* Compare against scalar "all" hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_all_sid, scalar_all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
+
+ /* Compare against scalar "none" hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_all_sid, scalar_none_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
/* Compare single "point" hyperslab selection to all the selections created */
- /* Compare against itself */
- check = H5Sselect_shape_same(single_hyper_pt_sid, single_hyper_pt_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against itself */
+ check = H5Sselect_shape_same(single_hyper_pt_sid, single_hyper_pt_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against copy of itself */
- tmp_sid = H5Scopy(single_hyper_pt_sid);
- CHECK(tmp_sid, FAIL, "H5Scopy");
+ /* Compare against copy of itself */
+ tmp_sid = H5Scopy(single_hyper_pt_sid);
+ CHECK(tmp_sid, FAIL, "H5Scopy");
- check = H5Sselect_shape_same(single_hyper_pt_sid, tmp_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ check = H5Sselect_shape_same(single_hyper_pt_sid, tmp_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- ret = H5Sclose(tmp_sid);
- CHECK(ret, FAIL, "H5Sclose");
+ ret = H5Sclose(tmp_sid);
+ CHECK(ret, FAIL, "H5Sclose");
- /* Compare against "all" selection */
- check = H5Sselect_shape_same(single_hyper_pt_sid, all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "all" selection */
+ check = H5Sselect_shape_same(single_hyper_pt_sid, all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "none" selection */
- check = H5Sselect_shape_same(single_hyper_pt_sid, none_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "none" selection */
+ check = H5Sselect_shape_same(single_hyper_pt_sid, none_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against single point selection */
- check = H5Sselect_shape_same(single_hyper_pt_sid, single_pt_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against single point selection */
+ check = H5Sselect_shape_same(single_hyper_pt_sid, single_pt_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against multiple point selection */
- check = H5Sselect_shape_same(single_hyper_pt_sid, mult_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against multiple point selection */
+ check = H5Sselect_shape_same(single_hyper_pt_sid, mult_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "plain" single hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_pt_sid, single_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "plain" single hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_pt_sid, single_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "all" single hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_pt_sid, single_hyper_all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "all" single hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_pt_sid, single_hyper_all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against regular, strided hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_pt_sid, regular_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against regular, strided hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_pt_sid, regular_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against irregular hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_pt_sid, irreg_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against irregular hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_pt_sid, irreg_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "no" hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_pt_sid, none_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "no" hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_pt_sid, none_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against scalar "all" hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_pt_sid, scalar_all_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against scalar "all" hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_pt_sid, scalar_all_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against scalar "none" hyperslab selection */
- check = H5Sselect_shape_same(single_hyper_pt_sid, scalar_none_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against scalar "none" hyperslab selection */
+ check = H5Sselect_shape_same(single_hyper_pt_sid, scalar_none_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
/* Compare regular, strided hyperslab selection to all the selections created */
- /* Compare against itself */
- check = H5Sselect_shape_same(regular_hyper_sid, regular_hyper_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against itself */
+ check = H5Sselect_shape_same(regular_hyper_sid, regular_hyper_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against copy of itself */
- tmp_sid = H5Scopy(regular_hyper_sid);
- CHECK(tmp_sid, FAIL, "H5Scopy");
+ /* Compare against copy of itself */
+ tmp_sid = H5Scopy(regular_hyper_sid);
+ CHECK(tmp_sid, FAIL, "H5Scopy");
- check = H5Sselect_shape_same(regular_hyper_sid, tmp_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ check = H5Sselect_shape_same(regular_hyper_sid, tmp_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- ret = H5Sclose(tmp_sid);
- CHECK(ret, FAIL, "H5Sclose");
+ ret = H5Sclose(tmp_sid);
+ CHECK(ret, FAIL, "H5Sclose");
- /* Compare against "all" selection */
- check = H5Sselect_shape_same(regular_hyper_sid, all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
-
- /* Compare against "none" selection */
- check = H5Sselect_shape_same(regular_hyper_sid, none_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
-
- /* Compare against single point selection */
- check = H5Sselect_shape_same(regular_hyper_sid, single_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
-
- /* Compare against multiple point selection */
- check = H5Sselect_shape_same(regular_hyper_sid, mult_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
-
- /* Compare against "plain" single hyperslab selection */
- check = H5Sselect_shape_same(regular_hyper_sid, single_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
-
- /* Compare against "all" single hyperslab selection */
- check = H5Sselect_shape_same(regular_hyper_sid, single_hyper_all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
-
- /* Compare against "single point" single hyperslab selection */
- check = H5Sselect_shape_same(regular_hyper_sid, single_hyper_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
-
- /* Compare against irregular hyperslab selection */
- check = H5Sselect_shape_same(regular_hyper_sid, irreg_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
-
- /* Compare against "no" hyperslab selection */
- check = H5Sselect_shape_same(regular_hyper_sid, none_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
-
- /* Construct point selection which matches regular, strided hyperslab selection */
- /* Create dataspace for point selection */
- tmp_sid = H5Screate_simple(SPACE9_RANK, dims, NULL);
- CHECK(tmp_sid, FAIL, "H5Screate_simple");
-
- /* Select sequence of points for point selection */
- for(u = 2; u < 11; u += 2) {
- for(v = 0; v < 2; v++) {
- coord2[v][0] = u;
- coord2[v][1] = (v * 2) + 2;
- } /* end for */
- ret = H5Sselect_elements(tmp_sid, H5S_SELECT_APPEND, (size_t)2, (const hsize_t *)coord2);
- CHECK(ret, FAIL, "H5Sselect_elements");
- } /* end for */
+ /* Compare against "all" selection */
+ check = H5Sselect_shape_same(regular_hyper_sid, all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against hyperslab selection */
- check = H5Sselect_shape_same(regular_hyper_sid, tmp_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
-
- ret = H5Sclose(tmp_sid);
- CHECK(ret, FAIL, "H5Sclose");
-
- /* Construct hyperslab selection which matches regular, strided hyperslab selection */
- /* Create dataspace for hyperslab selection */
- tmp_sid = H5Screate_simple(SPACE9_RANK, dims, NULL);
- CHECK(tmp_sid, FAIL, "H5Screate_simple");
-
- /* Un-select entire extent */
- ret = H5Sselect_none(tmp_sid);
- CHECK(ret, FAIL, "H5Sselect_none");
-
- /* Select sequence of rows for hyperslab selection */
- for(u = 2; u < 11; u += 2) {
- start[0] = u; start[1] = 3;
- stride[0] = 1; stride[1] = 2;
- count[0] = 1; count[1] = 2;
- block[0] = 1; block[1] = 1;
- ret = H5Sselect_hyperslab(tmp_sid, H5S_SELECT_OR, start, stride, count, block);
- CHECK(ret, FAIL, "H5Sselect_hyperslab");
- } /* end for */
+ /* Compare against "none" selection */
+ check = H5Sselect_shape_same(regular_hyper_sid, none_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against hyperslab selection */
- check = H5Sselect_shape_same(regular_hyper_sid, tmp_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against single point selection */
+ check = H5Sselect_shape_same(regular_hyper_sid, single_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- ret = H5Sclose(tmp_sid);
- CHECK(ret, FAIL, "H5Sclose");
+ /* Compare against multiple point selection */
+ check = H5Sselect_shape_same(regular_hyper_sid, mult_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Construct regular hyperslab selection with an offset which matches regular, strided hyperslab selection */
- /* Create dataspace for hyperslab selection */
- tmp_sid = H5Screate_simple(SPACE9_RANK, dims, NULL);
- CHECK(tmp_sid, FAIL, "H5Screate_simple");
+ /* Compare against "plain" single hyperslab selection */
+ check = H5Sselect_shape_same(regular_hyper_sid, single_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Select regular, strided hyperslab selection at an offset */
- start[0] = 1; start[1] = 1;
- stride[0] = 2; stride[1] = 2;
- count[0] = 5; count[1] = 2;
- block[0] = 1; block[1] = 1;
- ret = H5Sselect_hyperslab(tmp_sid, H5S_SELECT_SET, start, stride, count, block);
- CHECK(ret, FAIL, "H5Sselect_hyperslab");
+ /* Compare against "all" single hyperslab selection */
+ check = H5Sselect_shape_same(regular_hyper_sid, single_hyper_all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against hyperslab selection */
- check = H5Sselect_shape_same(regular_hyper_sid, tmp_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against "single point" single hyperslab selection */
+ check = H5Sselect_shape_same(regular_hyper_sid, single_hyper_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- ret = H5Sclose(tmp_sid);
- CHECK(ret, FAIL, "H5Sclose");
+ /* Compare against irregular hyperslab selection */
+ check = H5Sselect_shape_same(regular_hyper_sid, irreg_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against scalar "all" hyperslab selection */
- check = H5Sselect_shape_same(regular_hyper_sid, scalar_all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "no" hyperslab selection */
+ check = H5Sselect_shape_same(regular_hyper_sid, none_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against scalar "none" hyperslab selection */
- check = H5Sselect_shape_same(regular_hyper_sid, scalar_none_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Construct point selection which matches regular, strided hyperslab selection */
+ /* Create dataspace for point selection */
+ tmp_sid = H5Screate_simple(SPACE9_RANK, dims, NULL);
+ CHECK(tmp_sid, FAIL, "H5Screate_simple");
- /* Compare irregular hyperslab selection to all the selections created */
- /* Compare against itself */
- check = H5Sselect_shape_same(irreg_hyper_sid, irreg_hyper_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Select sequence of points for point selection */
+ for (u = 2; u < 11; u += 2) {
+ for (v = 0; v < 2; v++) {
+ coord2[v][0] = u;
+ coord2[v][1] = (v * 2) + 2;
+ } /* end for */
+ ret = H5Sselect_elements(tmp_sid, H5S_SELECT_APPEND, (size_t)2, (const hsize_t *)coord2);
+ CHECK(ret, FAIL, "H5Sselect_elements");
+ } /* end for */
- /* Compare against copy of itself */
- tmp_sid = H5Scopy(irreg_hyper_sid);
- CHECK(tmp_sid, FAIL, "H5Scopy");
+ /* Compare against hyperslab selection */
+ check = H5Sselect_shape_same(regular_hyper_sid, tmp_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- check = H5Sselect_shape_same(irreg_hyper_sid, tmp_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ ret = H5Sclose(tmp_sid);
+ CHECK(ret, FAIL, "H5Sclose");
- ret = H5Sclose(tmp_sid);
- CHECK(ret, FAIL, "H5Sclose");
+ /* Construct hyperslab selection which matches regular, strided hyperslab selection */
+ /* Create dataspace for hyperslab selection */
+ tmp_sid = H5Screate_simple(SPACE9_RANK, dims, NULL);
+ CHECK(tmp_sid, FAIL, "H5Screate_simple");
- /* Compare against "all" selection */
- check = H5Sselect_shape_same(irreg_hyper_sid, all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Un-select entire extent */
+ ret = H5Sselect_none(tmp_sid);
+ CHECK(ret, FAIL, "H5Sselect_none");
- /* Compare against "none" selection */
- check = H5Sselect_shape_same(irreg_hyper_sid, none_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Select sequence of rows for hyperslab selection */
+ for (u = 2; u < 11; u += 2) {
+ start[0] = u;
+ start[1] = 3;
+ stride[0] = 1;
+ stride[1] = 2;
+ count[0] = 1;
+ count[1] = 2;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(tmp_sid, H5S_SELECT_OR, start, stride, count, block);
+ CHECK(ret, FAIL, "H5Sselect_hyperslab");
+ } /* end for */
- /* Compare against single point selection */
- check = H5Sselect_shape_same(irreg_hyper_sid, single_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against hyperslab selection */
+ check = H5Sselect_shape_same(regular_hyper_sid, tmp_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against multiple point selection */
- check = H5Sselect_shape_same(irreg_hyper_sid, mult_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ ret = H5Sclose(tmp_sid);
+ CHECK(ret, FAIL, "H5Sclose");
- /* Compare against "plain" single hyperslab selection */
- check = H5Sselect_shape_same(irreg_hyper_sid, single_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Construct regular hyperslab selection with an offset which matches regular, strided hyperslab selection
+ */
+ /* Create dataspace for hyperslab selection */
+ tmp_sid = H5Screate_simple(SPACE9_RANK, dims, NULL);
+ CHECK(tmp_sid, FAIL, "H5Screate_simple");
+
+ /* Select regular, strided hyperslab selection at an offset */
+ start[0] = 1;
+ start[1] = 1;
+ stride[0] = 2;
+ stride[1] = 2;
+ count[0] = 5;
+ count[1] = 2;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(tmp_sid, H5S_SELECT_SET, start, stride, count, block);
+ CHECK(ret, FAIL, "H5Sselect_hyperslab");
+
+ /* Compare against hyperslab selection */
+ check = H5Sselect_shape_same(regular_hyper_sid, tmp_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against "all" single hyperslab selection */
- check = H5Sselect_shape_same(irreg_hyper_sid, single_hyper_all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ ret = H5Sclose(tmp_sid);
+ CHECK(ret, FAIL, "H5Sclose");
- /* Compare against "single point" single hyperslab selection */
- check = H5Sselect_shape_same(irreg_hyper_sid, single_hyper_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against scalar "all" hyperslab selection */
+ check = H5Sselect_shape_same(regular_hyper_sid, scalar_all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against regular, strided hyperslab selection */
- check = H5Sselect_shape_same(irreg_hyper_sid, regular_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against scalar "none" hyperslab selection */
+ check = H5Sselect_shape_same(regular_hyper_sid, scalar_none_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "no" hyperslab selection */
- check = H5Sselect_shape_same(irreg_hyper_sid, none_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare irregular hyperslab selection to all the selections created */
+ /* Compare against itself */
+ check = H5Sselect_shape_same(irreg_hyper_sid, irreg_hyper_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Construct hyperslab selection which matches irregular hyperslab selection */
- /* Create dataspace for hyperslab selection */
- tmp_sid = H5Screate_simple(SPACE9_RANK, dims, NULL);
- CHECK(tmp_sid, FAIL, "H5Screate_simple");
+ /* Compare against copy of itself */
+ tmp_sid = H5Scopy(irreg_hyper_sid);
+ CHECK(tmp_sid, FAIL, "H5Scopy");
- start[0] = 2; start[1] = 2;
- stride[0] = 1; stride[1] = 1;
- count[0] = 1; count[1] = 1;
- block[0] = 1; block[1] = 1;
- ret = H5Sselect_hyperslab(tmp_sid, H5S_SELECT_SET, start, stride, count, block);
- CHECK(ret, FAIL, "H5Sselect_hyperslab");
+ check = H5Sselect_shape_same(irreg_hyper_sid, tmp_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Select sequence of columns for hyperslab selection */
- for(u = 0; u < 3; u++) {
- start[0] = 4; start[1] = u + 4;
- stride[0] = 1; stride[1] = 1;
- count[0] = 1; count[1] = 1;
- block[0] = 3; block[1] = 1;
- ret = H5Sselect_hyperslab(tmp_sid, H5S_SELECT_OR, start, stride, count, block);
- CHECK(ret, FAIL, "H5Sselect_hyperslab");
- } /* end for */
+ ret = H5Sclose(tmp_sid);
+ CHECK(ret, FAIL, "H5Sclose");
- /* Compare against hyperslab selection */
- check = H5Sselect_shape_same(irreg_hyper_sid, tmp_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against "all" selection */
+ check = H5Sselect_shape_same(irreg_hyper_sid, all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- ret = H5Sclose(tmp_sid);
- CHECK(ret, FAIL, "H5Sclose");
+ /* Compare against "none" selection */
+ check = H5Sselect_shape_same(irreg_hyper_sid, none_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against scalar "all" hyperslab selection */
- check = H5Sselect_shape_same(irreg_hyper_sid, scalar_all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against single point selection */
+ check = H5Sselect_shape_same(irreg_hyper_sid, single_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against scalar "none" hyperslab selection */
- check = H5Sselect_shape_same(irreg_hyper_sid, scalar_none_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against multiple point selection */
+ check = H5Sselect_shape_same(irreg_hyper_sid, mult_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "plain" single hyperslab selection */
+ check = H5Sselect_shape_same(irreg_hyper_sid, single_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare scalar "all" dataspace with all selections created */
+ /* Compare against "all" single hyperslab selection */
+ check = H5Sselect_shape_same(irreg_hyper_sid, single_hyper_all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against itself */
- check = H5Sselect_shape_same(scalar_all_sid, scalar_all_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against "single point" single hyperslab selection */
+ check = H5Sselect_shape_same(irreg_hyper_sid, single_hyper_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against copy of itself */
- tmp_sid = H5Scopy(scalar_all_sid);
- CHECK(tmp_sid, FAIL, "H5Scopy");
+ /* Compare against regular, strided hyperslab selection */
+ check = H5Sselect_shape_same(irreg_hyper_sid, regular_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- check = H5Sselect_shape_same(scalar_all_sid, tmp_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against "no" hyperslab selection */
+ check = H5Sselect_shape_same(irreg_hyper_sid, none_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- ret = H5Sclose(tmp_sid);
- CHECK(ret, FAIL, "H5Sclose");
+ /* Construct hyperslab selection which matches irregular hyperslab selection */
+ /* Create dataspace for hyperslab selection */
+ tmp_sid = H5Screate_simple(SPACE9_RANK, dims, NULL);
+ CHECK(tmp_sid, FAIL, "H5Screate_simple");
- /* Compare against "all" selection */
- check = H5Sselect_shape_same(scalar_all_sid, all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ start[0] = 2;
+ start[1] = 2;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 1;
+ count[1] = 1;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(tmp_sid, H5S_SELECT_SET, start, stride, count, block);
+ CHECK(ret, FAIL, "H5Sselect_hyperslab");
+
+ /* Select sequence of columns for hyperslab selection */
+ for (u = 0; u < 3; u++) {
+ start[0] = 4;
+ start[1] = u + 4;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 1;
+ count[1] = 1;
+ block[0] = 3;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(tmp_sid, H5S_SELECT_OR, start, stride, count, block);
+ CHECK(ret, FAIL, "H5Sselect_hyperslab");
+ } /* end for */
- /* Compare against "none" selection */
- check = H5Sselect_shape_same(scalar_all_sid, none_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against hyperslab selection */
+ check = H5Sselect_shape_same(irreg_hyper_sid, tmp_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against single point selection */
- check = H5Sselect_shape_same(scalar_all_sid, single_pt_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ ret = H5Sclose(tmp_sid);
+ CHECK(ret, FAIL, "H5Sclose");
- /* Compare against multiple point selection */
- check = H5Sselect_shape_same(scalar_all_sid, mult_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against scalar "all" hyperslab selection */
+ check = H5Sselect_shape_same(irreg_hyper_sid, scalar_all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "plain" single hyperslab selection */
- check = H5Sselect_shape_same(scalar_all_sid, single_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against scalar "none" hyperslab selection */
+ check = H5Sselect_shape_same(irreg_hyper_sid, scalar_none_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "all" single hyperslab selection */
- check = H5Sselect_shape_same(scalar_all_sid, single_hyper_all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare scalar "all" dataspace with all selections created */
- /* Compare against "single point" single hyperslab selection */
- check = H5Sselect_shape_same(scalar_all_sid, single_hyper_pt_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against itself */
+ check = H5Sselect_shape_same(scalar_all_sid, scalar_all_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against regular, strided hyperslab selection */
- check = H5Sselect_shape_same(scalar_all_sid, regular_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against copy of itself */
+ tmp_sid = H5Scopy(scalar_all_sid);
+ CHECK(tmp_sid, FAIL, "H5Scopy");
- /* Compare against irregular hyperslab selection */
- check = H5Sselect_shape_same(scalar_all_sid, irreg_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ check = H5Sselect_shape_same(scalar_all_sid, tmp_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against "no" hyperslab selection */
- check = H5Sselect_shape_same(scalar_all_sid, none_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ ret = H5Sclose(tmp_sid);
+ CHECK(ret, FAIL, "H5Sclose");
- /* Compare against scalar "none" hyperslab selection */
- check = H5Sselect_shape_same(scalar_all_sid, scalar_none_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "all" selection */
+ check = H5Sselect_shape_same(scalar_all_sid, all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "none" selection */
+ check = H5Sselect_shape_same(scalar_all_sid, none_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare scalar "none" dataspace with all selections created */
+ /* Compare against single point selection */
+ check = H5Sselect_shape_same(scalar_all_sid, single_pt_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against itself */
- check = H5Sselect_shape_same(scalar_none_sid, scalar_none_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against multiple point selection */
+ check = H5Sselect_shape_same(scalar_all_sid, mult_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against copy of itself */
- tmp_sid = H5Scopy(scalar_none_sid);
- CHECK(tmp_sid, FAIL, "H5Scopy");
+ /* Compare against "plain" single hyperslab selection */
+ check = H5Sselect_shape_same(scalar_all_sid, single_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- check = H5Sselect_shape_same(scalar_none_sid, tmp_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against "all" single hyperslab selection */
+ check = H5Sselect_shape_same(scalar_all_sid, single_hyper_all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- ret = H5Sclose(tmp_sid);
- CHECK(ret, FAIL, "H5Sclose");
+ /* Compare against "single point" single hyperslab selection */
+ check = H5Sselect_shape_same(scalar_all_sid, single_hyper_pt_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
+
+ /* Compare against regular, strided hyperslab selection */
+ check = H5Sselect_shape_same(scalar_all_sid, regular_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
+
+ /* Compare against irregular hyperslab selection */
+ check = H5Sselect_shape_same(scalar_all_sid, irreg_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
+
+ /* Compare against "no" hyperslab selection */
+ check = H5Sselect_shape_same(scalar_all_sid, none_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
+
+ /* Compare against scalar "none" hyperslab selection */
+ check = H5Sselect_shape_same(scalar_all_sid, scalar_none_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
+
+ /* Compare scalar "none" dataspace with all selections created */
+
+ /* Compare against itself */
+ check = H5Sselect_shape_same(scalar_none_sid, scalar_none_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
+
+ /* Compare against copy of itself */
+ tmp_sid = H5Scopy(scalar_none_sid);
+ CHECK(tmp_sid, FAIL, "H5Scopy");
+
+ check = H5Sselect_shape_same(scalar_none_sid, tmp_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against "all" selection */
- check = H5Sselect_shape_same(scalar_none_sid, all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ ret = H5Sclose(tmp_sid);
+ CHECK(ret, FAIL, "H5Sclose");
- /* Compare against "none" selection */
- check = H5Sselect_shape_same(scalar_none_sid, none_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against "all" selection */
+ check = H5Sselect_shape_same(scalar_none_sid, all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against single point selection */
- check = H5Sselect_shape_same(scalar_none_sid, single_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "none" selection */
+ check = H5Sselect_shape_same(scalar_none_sid, none_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
- /* Compare against multiple point selection */
- check = H5Sselect_shape_same(scalar_none_sid, mult_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against single point selection */
+ check = H5Sselect_shape_same(scalar_none_sid, single_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "plain" single hyperslab selection */
- check = H5Sselect_shape_same(scalar_none_sid, single_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against multiple point selection */
+ check = H5Sselect_shape_same(scalar_none_sid, mult_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "all" single hyperslab selection */
- check = H5Sselect_shape_same(scalar_none_sid, single_hyper_all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "plain" single hyperslab selection */
+ check = H5Sselect_shape_same(scalar_none_sid, single_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "single point" single hyperslab selection */
- check = H5Sselect_shape_same(scalar_none_sid, single_hyper_pt_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "all" single hyperslab selection */
+ check = H5Sselect_shape_same(scalar_none_sid, single_hyper_all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against regular, strided hyperslab selection */
- check = H5Sselect_shape_same(scalar_none_sid, regular_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "single point" single hyperslab selection */
+ check = H5Sselect_shape_same(scalar_none_sid, single_hyper_pt_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against irregular hyperslab selection */
- check = H5Sselect_shape_same(scalar_none_sid, irreg_hyper_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against regular, strided hyperslab selection */
+ check = H5Sselect_shape_same(scalar_none_sid, regular_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against "no" hyperslab selection */
- check = H5Sselect_shape_same(scalar_none_sid, none_hyper_sid);
- VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against irregular hyperslab selection */
+ check = H5Sselect_shape_same(scalar_none_sid, irreg_hyper_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
- /* Compare against scalar "all" hyperslab selection */
- check = H5Sselect_shape_same(scalar_none_sid, scalar_all_sid);
- VERIFY(check, FALSE, "H5Sselect_shape_same");
+ /* Compare against "no" hyperslab selection */
+ check = H5Sselect_shape_same(scalar_none_sid, none_hyper_sid);
+ VERIFY(check, TRUE, "H5Sselect_shape_same");
+ /* Compare against scalar "all" hyperslab selection */
+ check = H5Sselect_shape_same(scalar_none_sid, scalar_all_sid);
+ VERIFY(check, FALSE, "H5Sselect_shape_same");
/* Close dataspaces */
ret = H5Sclose(all_sid);
@@ -9087,7 +9466,7 @@ test_shape_same(void)
CHECK(ret, FAIL, "H5Sclose");
ret = H5Sclose(scalar_none_sid);
CHECK(ret, FAIL, "H5Sclose");
-} /* test_shape_same() */
+} /* test_shape_same() */
/****************************************************************
**
@@ -9118,25 +9497,25 @@ test_shape_same(void)
static void
test_shape_same_dr__smoke_check_1(void)
{
- hid_t small_square_sid;
- hid_t small_cube_xy_slice_0_sid;
- hid_t small_cube_xy_slice_1_sid;
- hid_t small_cube_xy_slice_2_sid;
- hid_t small_cube_xz_slice_0_sid;
- hid_t small_cube_xz_slice_1_sid;
- hid_t small_cube_xz_slice_2_sid;
- hid_t small_cube_yz_slice_0_sid;
- hid_t small_cube_yz_slice_1_sid;
- hid_t small_cube_yz_slice_2_sid;
- hid_t small_cube_yz_slice_3_sid;
- hid_t small_cube_yz_slice_4_sid;
- hsize_t small_cube_dims[] = {10, 10, 10};
- hsize_t start[3];
- hsize_t stride[3];
- hsize_t count[3];
- hsize_t block[3];
- htri_t check; /* Shape comparison return value */
- herr_t ret; /* Generic return value */
+ hid_t small_square_sid;
+ hid_t small_cube_xy_slice_0_sid;
+ hid_t small_cube_xy_slice_1_sid;
+ hid_t small_cube_xy_slice_2_sid;
+ hid_t small_cube_xz_slice_0_sid;
+ hid_t small_cube_xz_slice_1_sid;
+ hid_t small_cube_xz_slice_2_sid;
+ hid_t small_cube_yz_slice_0_sid;
+ hid_t small_cube_yz_slice_1_sid;
+ hid_t small_cube_yz_slice_2_sid;
+ hid_t small_cube_yz_slice_3_sid;
+ hid_t small_cube_yz_slice_4_sid;
+ hsize_t small_cube_dims[] = {10, 10, 10};
+ hsize_t start[3];
+ hsize_t stride[3];
+ hsize_t count[3];
+ hsize_t block[3];
+ htri_t check; /* Shape comparison return value */
+ herr_t ret; /* Generic return value */
MESSAGE(7, (" Smoke check 1: Slices through a cube.\n"));
@@ -9154,39 +9533,35 @@ test_shape_same_dr__smoke_check_1(void)
small_cube_xy_slice_2_sid = H5Screate_simple(3, small_cube_dims, NULL);
CHECK(small_cube_xy_slice_2_sid, FAIL, "H5Screate_simple");
- start[0] = 0; /* x */
- start[1] = 0; /* y */
- start[2] = 0; /* z */
+ start[0] = 0; /* x */
+ start[1] = 0; /* y */
+ start[2] = 0; /* z */
/* stride is a bit silly here, since we are only selecting a single */
/* contiguous plane, but include it anyway, with values large enough */
/* to ensure that we will only get the single block selected. */
- stride[0] = 20; /* x */
- stride[1] = 20; /* y */
- stride[2] = 20; /* z */
+ stride[0] = 20; /* x */
+ stride[1] = 20; /* y */
+ stride[2] = 20; /* z */
- count[0] = 1; /* x */
- count[1] = 1; /* y */
- count[2] = 1; /* z */
+ count[0] = 1; /* x */
+ count[1] = 1; /* y */
+ count[2] = 1; /* z */
- block[0] = 10; /* x */
- block[1] = 10; /* y */
- block[2] = 1; /* z */
- ret = H5Sselect_hyperslab(small_cube_xy_slice_0_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ block[0] = 10; /* x */
+ block[1] = 10; /* y */
+ block[2] = 1; /* z */
+ ret = H5Sselect_hyperslab(small_cube_xy_slice_0_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[2] = 5;
- ret = H5Sselect_hyperslab(small_cube_xy_slice_1_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_xy_slice_1_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[2] = 9;
- ret = H5Sselect_hyperslab(small_cube_xy_slice_2_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_xy_slice_2_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
-
/* Create the 10 X 10 X 10 dataspaces for the hyperslab parallel to the xz axis */
small_cube_xz_slice_0_sid = H5Screate_simple(3, small_cube_dims, NULL);
CHECK(small_cube_xz_slice_0_sid, FAIL, "H5Screate_simple");
@@ -9197,39 +9572,35 @@ test_shape_same_dr__smoke_check_1(void)
small_cube_xz_slice_2_sid = H5Screate_simple(3, small_cube_dims, NULL);
CHECK(small_cube_xz_slice_2_sid, FAIL, "H5Screate_simple");
- start[0] = 0; /* x */
- start[1] = 0; /* y */
- start[2] = 0; /* z */
+ start[0] = 0; /* x */
+ start[1] = 0; /* y */
+ start[2] = 0; /* z */
/* stride is a bit silly here, since we are only selecting a single */
/* contiguous chunk, but include it anyway, with values large enough */
/* to ensure that we will only get the single chunk. */
- stride[0] = 20; /* x */
- stride[1] = 20; /* y */
- stride[2] = 20; /* z */
+ stride[0] = 20; /* x */
+ stride[1] = 20; /* y */
+ stride[2] = 20; /* z */
- count[0] = 1; /* x */
- count[1] = 1; /* y */
- count[2] = 1; /* z */
+ count[0] = 1; /* x */
+ count[1] = 1; /* y */
+ count[2] = 1; /* z */
- block[0] = 10; /* x */
- block[1] = 1; /* y */
- block[2] = 10; /* z */
- ret = H5Sselect_hyperslab(small_cube_xz_slice_0_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ block[0] = 10; /* x */
+ block[1] = 1; /* y */
+ block[2] = 10; /* z */
+ ret = H5Sselect_hyperslab(small_cube_xz_slice_0_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[1] = 4;
- ret = H5Sselect_hyperslab(small_cube_xz_slice_1_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_xz_slice_1_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[1] = 9;
- ret = H5Sselect_hyperslab(small_cube_xz_slice_2_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_xz_slice_2_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
-
/* Create the 10 X 10 X 10 dataspaces for the hyperslabs parallel to the yz axis */
small_cube_yz_slice_0_sid = H5Screate_simple(3, small_cube_dims, NULL);
CHECK(small_cube_yz_slice_0_sid, FAIL, "H5Screate_simple");
@@ -9246,57 +9617,50 @@ test_shape_same_dr__smoke_check_1(void)
small_cube_yz_slice_4_sid = H5Screate_simple(3, small_cube_dims, NULL);
CHECK(small_cube_yz_slice_4_sid, FAIL, "H5Screate_simple");
- start[0] = 0; /* x */
- start[1] = 0; /* y */
- start[2] = 0; /* z */
+ start[0] = 0; /* x */
+ start[1] = 0; /* y */
+ start[2] = 0; /* z */
/* stride is a bit silly here, since we are only selecting a single */
/* contiguous chunk, but include it anyway, with values large enough */
/* to ensure that we will only get the single chunk. */
- stride[0] = 20; /* x */
- stride[1] = 20; /* y */
- stride[2] = 20; /* z */
+ stride[0] = 20; /* x */
+ stride[1] = 20; /* y */
+ stride[2] = 20; /* z */
- count[0] = 1; /* x */
- count[1] = 1; /* y */
- count[2] = 1; /* z */
+ count[0] = 1; /* x */
+ count[1] = 1; /* y */
+ count[2] = 1; /* z */
- block[0] = 1; /* x */
- block[1] = 10; /* y */
- block[2] = 10; /* z */
+ block[0] = 1; /* x */
+ block[1] = 10; /* y */
+ block[2] = 10; /* z */
- ret = H5Sselect_hyperslab(small_cube_yz_slice_0_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_0_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[0] = 4;
- ret = H5Sselect_hyperslab(small_cube_yz_slice_1_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_1_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[0] = 9;
- ret = H5Sselect_hyperslab(small_cube_yz_slice_2_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_2_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[0] = 4;
block[0] = 2;
- ret = H5Sselect_hyperslab(small_cube_yz_slice_3_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_3_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[0] = 3;
block[0] = 1;
- ret = H5Sselect_hyperslab(small_cube_yz_slice_4_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_4_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[0] = 6;
- ret = H5Sselect_hyperslab(small_cube_yz_slice_4_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_4_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
-
/* setup is done -- run the tests: */
/* Compare against "xy" selection */
@@ -9309,7 +9673,6 @@ test_shape_same_dr__smoke_check_1(void)
check = H5Sselect_shape_same(small_cube_xy_slice_2_sid, small_square_sid);
VERIFY(check, FALSE, "H5Sselect_shape_same");
-
/* Compare against "xz" selection */
check = H5Sselect_shape_same(small_cube_xz_slice_0_sid, small_square_sid);
VERIFY(check, FALSE, "H5Sselect_shape_same");
@@ -9320,7 +9683,6 @@ test_shape_same_dr__smoke_check_1(void)
check = H5Sselect_shape_same(small_cube_xz_slice_2_sid, small_square_sid);
VERIFY(check, FALSE, "H5Sselect_shape_same");
-
/* Compare against "yz" selection */
check = H5Sselect_shape_same(small_cube_yz_slice_0_sid, small_square_sid);
VERIFY(check, TRUE, "H5Sselect_shape_same");
@@ -9337,12 +9699,10 @@ test_shape_same_dr__smoke_check_1(void)
check = H5Sselect_shape_same(small_cube_yz_slice_4_sid, small_square_sid);
VERIFY(check, FALSE, "H5Sselect_shape_same");
-
/* Close dataspaces */
ret = H5Sclose(small_square_sid);
CHECK(ret, FAIL, "H5Sclose");
-
ret = H5Sclose(small_cube_xy_slice_0_sid);
CHECK(ret, FAIL, "H5Sclose");
@@ -9352,7 +9712,6 @@ test_shape_same_dr__smoke_check_1(void)
ret = H5Sclose(small_cube_xy_slice_2_sid);
CHECK(ret, FAIL, "H5Sclose");
-
ret = H5Sclose(small_cube_xz_slice_0_sid);
CHECK(ret, FAIL, "H5Sclose");
@@ -9362,7 +9721,6 @@ test_shape_same_dr__smoke_check_1(void)
ret = H5Sclose(small_cube_xz_slice_2_sid);
CHECK(ret, FAIL, "H5Sclose");
-
ret = H5Sclose(small_cube_yz_slice_0_sid);
CHECK(ret, FAIL, "H5Sclose");
@@ -9425,24 +9783,24 @@ test_shape_same_dr__smoke_check_1(void)
static void
test_shape_same_dr__smoke_check_2(void)
{
- hid_t small_square_sid;
- hid_t small_cube_xy_slice_0_sid;
- hid_t small_cube_xy_slice_1_sid;
- hid_t small_cube_xy_slice_2_sid;
- hid_t small_cube_xz_slice_0_sid;
- hid_t small_cube_xz_slice_1_sid;
- hid_t small_cube_xz_slice_2_sid;
- hid_t small_cube_yz_slice_0_sid;
- hid_t small_cube_yz_slice_1_sid;
- hid_t small_cube_yz_slice_2_sid;
- hid_t small_cube_yz_slice_3_sid;
- hsize_t small_cube_dims[] = {10, 10, 10};
- hsize_t start[3];
- hsize_t stride[3];
- hsize_t count[3];
- hsize_t block[3];
- htri_t check; /* Shape comparison return value */
- herr_t ret; /* Generic return value */
+ hid_t small_square_sid;
+ hid_t small_cube_xy_slice_0_sid;
+ hid_t small_cube_xy_slice_1_sid;
+ hid_t small_cube_xy_slice_2_sid;
+ hid_t small_cube_xz_slice_0_sid;
+ hid_t small_cube_xz_slice_1_sid;
+ hid_t small_cube_xz_slice_2_sid;
+ hid_t small_cube_yz_slice_0_sid;
+ hid_t small_cube_yz_slice_1_sid;
+ hid_t small_cube_yz_slice_2_sid;
+ hid_t small_cube_yz_slice_3_sid;
+ hsize_t small_cube_dims[] = {10, 10, 10};
+ hsize_t start[3];
+ hsize_t stride[3];
+ hsize_t count[3];
+ hsize_t block[3];
+ htri_t check; /* Shape comparison return value */
+ herr_t ret; /* Generic return value */
MESSAGE(7, (" Smoke check 2: Checker board slices through a cube.\n"));
@@ -9450,37 +9808,34 @@ test_shape_same_dr__smoke_check_2(void)
small_square_sid = H5Screate_simple(2, small_cube_dims, NULL);
CHECK(small_square_sid, FAIL, "H5Screate_simple");
- start[0] = 0; /* x */
- start[1] = 0; /* y */
+ start[0] = 0; /* x */
+ start[1] = 0; /* y */
- stride[0] = 4; /* x */
- stride[1] = 4; /* y */
+ stride[0] = 4; /* x */
+ stride[1] = 4; /* y */
- count[0] = 3; /* x */
- count[1] = 3; /* y */
+ count[0] = 3; /* x */
+ count[1] = 3; /* y */
- block[0] = 2; /* x */
- block[1] = 2; /* y */
- ret = H5Sselect_hyperslab(small_square_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ block[0] = 2; /* x */
+ block[1] = 2; /* y */
+ ret = H5Sselect_hyperslab(small_square_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- start[0] = 2; /* x */
- start[1] = 2; /* y */
+ start[0] = 2; /* x */
+ start[1] = 2; /* y */
- stride[0] = 4; /* x */
- stride[1] = 4; /* y */
+ stride[0] = 4; /* x */
+ stride[1] = 4; /* y */
- count[0] = 2; /* x */
- count[1] = 2; /* y */
+ count[0] = 2; /* x */
+ count[1] = 2; /* y */
- block[0] = 2; /* x */
- block[1] = 2; /* y */
- ret = H5Sselect_hyperslab(small_square_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ block[0] = 2; /* x */
+ block[1] = 2; /* y */
+ ret = H5Sselect_hyperslab(small_square_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
-
/* Create the 10 X 10 X 10 dataspaces for the hyperslab parallel to the xy axis */
small_cube_xy_slice_0_sid = H5Screate_simple(3, small_cube_dims, NULL);
CHECK(small_cube_xy_slice_0_sid, FAIL, "H5Screate_simple");
@@ -9491,67 +9846,58 @@ test_shape_same_dr__smoke_check_2(void)
small_cube_xy_slice_2_sid = H5Screate_simple(3, small_cube_dims, NULL);
CHECK(small_cube_xy_slice_2_sid, FAIL, "H5Screate_simple");
+ start[0] = 0; /* x */
+ start[1] = 0; /* y */
+ start[2] = 0; /* z */
- start[0] = 0; /* x */
- start[1] = 0; /* y */
- start[2] = 0; /* z */
-
- stride[0] = 4; /* x */
- stride[1] = 4; /* y */
- stride[2] = 20; /* z -- large enough that there will only be one slice */
+ stride[0] = 4; /* x */
+ stride[1] = 4; /* y */
+ stride[2] = 20; /* z -- large enough that there will only be one slice */
- count[0] = 3; /* x */
- count[1] = 3; /* y */
- count[2] = 1; /* z */
+ count[0] = 3; /* x */
+ count[1] = 3; /* y */
+ count[2] = 1; /* z */
- block[0] = 2; /* x */
- block[1] = 2; /* y */
- block[2] = 1; /* z */
- ret = H5Sselect_hyperslab(small_cube_xy_slice_0_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ block[0] = 2; /* x */
+ block[1] = 2; /* y */
+ block[2] = 1; /* z */
+ ret = H5Sselect_hyperslab(small_cube_xy_slice_0_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[2] = 3;
- ret = H5Sselect_hyperslab(small_cube_xy_slice_1_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_xy_slice_1_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[2] = 9;
- ret = H5Sselect_hyperslab(small_cube_xy_slice_2_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_xy_slice_2_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
+ start[0] = 2; /* x */
+ start[1] = 2; /* y */
+ start[2] = 0; /* z */
- start[0] = 2; /* x */
- start[1] = 2; /* y */
- start[2] = 0; /* z */
-
- stride[0] = 4; /* x */
- stride[1] = 4; /* y */
- stride[2] = 20; /* z -- large enough that there will only be one slice */
+ stride[0] = 4; /* x */
+ stride[1] = 4; /* y */
+ stride[2] = 20; /* z -- large enough that there will only be one slice */
- count[0] = 2; /* x */
- count[1] = 2; /* y */
- count[2] = 1; /* z */
+ count[0] = 2; /* x */
+ count[1] = 2; /* y */
+ count[2] = 1; /* z */
- block[0] = 2; /* x */
- block[1] = 2; /* y */
- block[2] = 1; /* z */
- ret = H5Sselect_hyperslab(small_cube_xy_slice_0_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ block[0] = 2; /* x */
+ block[1] = 2; /* y */
+ block[2] = 1; /* z */
+ ret = H5Sselect_hyperslab(small_cube_xy_slice_0_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[2] = 3;
- ret = H5Sselect_hyperslab(small_cube_xy_slice_1_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_xy_slice_1_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[2] = 9;
- ret = H5Sselect_hyperslab(small_cube_xy_slice_2_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_xy_slice_2_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
-
/* Create the 10 X 10 X 10 dataspaces for the hyperslab parallel to the xz axis */
small_cube_xz_slice_0_sid = H5Screate_simple(3, small_cube_dims, NULL);
CHECK(small_cube_xz_slice_0_sid, FAIL, "H5Screate_simple");
@@ -9562,66 +9908,58 @@ test_shape_same_dr__smoke_check_2(void)
small_cube_xz_slice_2_sid = H5Screate_simple(3, small_cube_dims, NULL);
CHECK(small_cube_xz_slice_2_sid, FAIL, "H5Screate_simple");
+ start[0] = 0; /* x */
+ start[1] = 0; /* y */
+ start[2] = 0; /* z */
- start[0] = 0; /* x */
- start[1] = 0; /* y */
- start[2] = 0; /* z */
-
- stride[0] = 4; /* x */
- stride[1] = 20; /* y -- large enough that there will only be one slice */
- stride[2] = 4; /* z */
+ stride[0] = 4; /* x */
+ stride[1] = 20; /* y -- large enough that there will only be one slice */
+ stride[2] = 4; /* z */
- count[0] = 3; /* x */
- count[1] = 1; /* y */
- count[2] = 3; /* z */
+ count[0] = 3; /* x */
+ count[1] = 1; /* y */
+ count[2] = 3; /* z */
- block[0] = 2; /* x */
- block[1] = 1; /* y */
- block[2] = 2; /* z */
- ret = H5Sselect_hyperslab(small_cube_xz_slice_0_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ block[0] = 2; /* x */
+ block[1] = 1; /* y */
+ block[2] = 2; /* z */
+ ret = H5Sselect_hyperslab(small_cube_xz_slice_0_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[1] = 5;
- ret = H5Sselect_hyperslab(small_cube_xz_slice_1_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_xz_slice_1_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[1] = 9;
- ret = H5Sselect_hyperslab(small_cube_xz_slice_2_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_xz_slice_2_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- start[0] = 2; /* x */
- start[1] = 0; /* y */
- start[2] = 2; /* z */
+ start[0] = 2; /* x */
+ start[1] = 0; /* y */
+ start[2] = 2; /* z */
- stride[0] = 4; /* x */
- stride[1] = 20; /* y -- large enough that there will only be one slice */
- stride[2] = 4; /* z */
+ stride[0] = 4; /* x */
+ stride[1] = 20; /* y -- large enough that there will only be one slice */
+ stride[2] = 4; /* z */
- count[0] = 2; /* x */
- count[1] = 1; /* y */
- count[2] = 2; /* z */
+ count[0] = 2; /* x */
+ count[1] = 1; /* y */
+ count[2] = 2; /* z */
- block[0] = 2; /* x */
- block[1] = 1; /* y */
- block[2] = 2; /* z */
- ret = H5Sselect_hyperslab(small_cube_xz_slice_0_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ block[0] = 2; /* x */
+ block[1] = 1; /* y */
+ block[2] = 2; /* z */
+ ret = H5Sselect_hyperslab(small_cube_xz_slice_0_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[1] = 5;
- ret = H5Sselect_hyperslab(small_cube_xz_slice_1_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_xz_slice_1_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[1] = 9;
- ret = H5Sselect_hyperslab(small_cube_xz_slice_2_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_xz_slice_2_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
-
/* Create the 10 X 10 X 10 dataspaces for the hyperslabs parallel to the yz axis */
small_cube_yz_slice_0_sid = H5Screate_simple(3, small_cube_dims, NULL);
CHECK(small_cube_yz_slice_0_sid, FAIL, "H5Screate_simple");
@@ -9635,68 +9973,60 @@ test_shape_same_dr__smoke_check_2(void)
small_cube_yz_slice_3_sid = H5Screate_simple(3, small_cube_dims, NULL);
CHECK(small_cube_yz_slice_3_sid, FAIL, "H5Screate_simple");
- start[0] = 0; /* x */
- start[1] = 0; /* y */
- start[2] = 0; /* z */
+ start[0] = 0; /* x */
+ start[1] = 0; /* y */
+ start[2] = 0; /* z */
- stride[0] = 20; /* x -- large enough that there will only be one slice */
- stride[1] = 4; /* y */
- stride[2] = 4; /* z */
+ stride[0] = 20; /* x -- large enough that there will only be one slice */
+ stride[1] = 4; /* y */
+ stride[2] = 4; /* z */
- count[0] = 1; /* x */
- count[1] = 3; /* y */
- count[2] = 3; /* z */
+ count[0] = 1; /* x */
+ count[1] = 3; /* y */
+ count[2] = 3; /* z */
- block[0] = 1; /* x */
- block[1] = 2; /* y */
- block[2] = 2; /* z */
- ret = H5Sselect_hyperslab(small_cube_yz_slice_0_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ block[0] = 1; /* x */
+ block[1] = 2; /* y */
+ block[2] = 2; /* z */
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_0_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[0] = 8;
- ret = H5Sselect_hyperslab(small_cube_yz_slice_1_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_1_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[0] = 9;
- ret = H5Sselect_hyperslab(small_cube_yz_slice_2_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_2_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[0] = 3;
- ret = H5Sselect_hyperslab(small_cube_yz_slice_3_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_3_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
+ start[0] = 0; /* x */
+ start[1] = 2; /* y */
+ start[2] = 2; /* z */
- start[0] = 0; /* x */
- start[1] = 2; /* y */
- start[2] = 2; /* z */
-
- stride[0] = 20; /* x -- large enough that there will only be one slice */
- stride[1] = 4; /* y */
- stride[2] = 4; /* z */
+ stride[0] = 20; /* x -- large enough that there will only be one slice */
+ stride[1] = 4; /* y */
+ stride[2] = 4; /* z */
- count[0] = 1; /* x */
- count[1] = 2; /* y */
- count[2] = 2; /* z */
+ count[0] = 1; /* x */
+ count[1] = 2; /* y */
+ count[2] = 2; /* z */
- block[0] = 1; /* x */
- block[1] = 2; /* y */
- block[2] = 2; /* z */
- ret = H5Sselect_hyperslab(small_cube_yz_slice_0_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ block[0] = 1; /* x */
+ block[1] = 2; /* y */
+ block[2] = 2; /* z */
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_0_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[0] = 8;
- ret = H5Sselect_hyperslab(small_cube_yz_slice_1_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_1_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[0] = 9;
- ret = H5Sselect_hyperslab(small_cube_yz_slice_2_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_2_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start[0] = 4;
@@ -9705,11 +10035,9 @@ test_shape_same_dr__smoke_check_2(void)
* the oddness looks like it is not related to my code.
* -- JRM
*/
- ret = H5Sselect_hyperslab(small_cube_yz_slice_3_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_3_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
-
/* setup is done -- run the tests: */
/* Compare against "xy" selection */
@@ -9722,7 +10050,6 @@ test_shape_same_dr__smoke_check_2(void)
check = H5Sselect_shape_same(small_cube_xy_slice_2_sid, small_square_sid);
VERIFY(check, FALSE, "H5Sselect_shape_same");
-
/* Compare against "xz" selection */
check = H5Sselect_shape_same(small_cube_xz_slice_0_sid, small_square_sid);
VERIFY(check, FALSE, "H5Sselect_shape_same");
@@ -9733,7 +10060,6 @@ test_shape_same_dr__smoke_check_2(void)
check = H5Sselect_shape_same(small_cube_xz_slice_2_sid, small_square_sid);
VERIFY(check, FALSE, "H5Sselect_shape_same");
-
/* Compare against "yz" selection */
check = H5Sselect_shape_same(small_cube_yz_slice_0_sid, small_square_sid);
VERIFY(check, TRUE, "H5Sselect_shape_same");
@@ -9747,12 +10073,10 @@ test_shape_same_dr__smoke_check_2(void)
check = H5Sselect_shape_same(small_cube_yz_slice_3_sid, small_square_sid);
VERIFY(check, FALSE, "H5Sselect_shape_same");
-
/* Close dataspaces */
ret = H5Sclose(small_square_sid);
CHECK(ret, FAIL, "H5Sclose");
-
ret = H5Sclose(small_cube_xy_slice_0_sid);
CHECK(ret, FAIL, "H5Sclose");
@@ -9762,7 +10086,6 @@ test_shape_same_dr__smoke_check_2(void)
ret = H5Sclose(small_cube_xy_slice_2_sid);
CHECK(ret, FAIL, "H5Sclose");
-
ret = H5Sclose(small_cube_xz_slice_0_sid);
CHECK(ret, FAIL, "H5Sclose");
@@ -9772,7 +10095,6 @@ test_shape_same_dr__smoke_check_2(void)
ret = H5Sclose(small_cube_xz_slice_2_sid);
CHECK(ret, FAIL, "H5Sclose");
-
ret = H5Sclose(small_cube_yz_slice_0_sid);
CHECK(ret, FAIL, "H5Sclose");
@@ -9787,7 +10109,6 @@ test_shape_same_dr__smoke_check_2(void)
} /* test_shape_same_dr__smoke_check_2() */
-
/****************************************************************
**
** test_shape_same_dr__smoke_check_3():
@@ -9830,23 +10151,23 @@ test_shape_same_dr__smoke_check_2(void)
static void
test_shape_same_dr__smoke_check_3(void)
{
- hid_t small_square_sid;
- hid_t small_cube_xy_slice_0_sid;
- hid_t small_cube_xy_slice_1_sid;
- hid_t small_cube_xy_slice_2_sid;
- hid_t small_cube_xz_slice_0_sid;
- hid_t small_cube_xz_slice_1_sid;
- hid_t small_cube_xz_slice_2_sid;
- hid_t small_cube_yz_slice_0_sid;
- hid_t small_cube_yz_slice_1_sid;
- hid_t small_cube_yz_slice_2_sid;
- hsize_t small_cube_dims[] = {10, 10, 10};
- hsize_t start[3];
- hsize_t stride[3];
- hsize_t count[3];
- hsize_t block[3];
- htri_t check; /* Shape comparison return value */
- herr_t ret; /* Generic return value */
+ hid_t small_square_sid;
+ hid_t small_cube_xy_slice_0_sid;
+ hid_t small_cube_xy_slice_1_sid;
+ hid_t small_cube_xy_slice_2_sid;
+ hid_t small_cube_xz_slice_0_sid;
+ hid_t small_cube_xz_slice_1_sid;
+ hid_t small_cube_xz_slice_2_sid;
+ hid_t small_cube_yz_slice_0_sid;
+ hid_t small_cube_yz_slice_1_sid;
+ hid_t small_cube_yz_slice_2_sid;
+ hsize_t small_cube_dims[] = {10, 10, 10};
+ hsize_t start[3];
+ hsize_t stride[3];
+ hsize_t count[3];
+ hsize_t block[3];
+ htri_t check; /* Shape comparison return value */
+ herr_t ret; /* Generic return value */
MESSAGE(7, (" Smoke check 3: Offset subsets of slices through a cube.\n"));
@@ -9854,52 +10175,48 @@ test_shape_same_dr__smoke_check_3(void)
small_square_sid = H5Screate_simple(2, small_cube_dims, NULL);
CHECK(small_square_sid, FAIL, "H5Screate_simple");
- start[0] = 2; /* x */
- start[1] = 3; /* y */
+ start[0] = 2; /* x */
+ start[1] = 3; /* y */
- stride[0] = 20; /* x */
- stride[1] = 20; /* y */
+ stride[0] = 20; /* x */
+ stride[1] = 20; /* y */
- count[0] = 1; /* x */
- count[1] = 1; /* y */
+ count[0] = 1; /* x */
+ count[1] = 1; /* y */
- block[0] = 2; /* x */
- block[1] = 4; /* y */
- ret = H5Sselect_hyperslab(small_square_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ block[0] = 2; /* x */
+ block[1] = 4; /* y */
+ ret = H5Sselect_hyperslab(small_square_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- start[0] = 3; /* x */
- start[1] = 6; /* y */
+ start[0] = 3; /* x */
+ start[1] = 6; /* y */
- stride[0] = 20; /* x */
- stride[1] = 20; /* y */
+ stride[0] = 20; /* x */
+ stride[1] = 20; /* y */
- count[0] = 1; /* x */
- count[1] = 1; /* y */
+ count[0] = 1; /* x */
+ count[1] = 1; /* y */
- block[0] = 4; /* x */
- block[1] = 2; /* y */
- ret = H5Sselect_hyperslab(small_square_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ block[0] = 4; /* x */
+ block[1] = 2; /* y */
+ ret = H5Sselect_hyperslab(small_square_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- start[0] = 5; /* x */
- start[1] = 3; /* y */
+ start[0] = 5; /* x */
+ start[1] = 3; /* y */
- stride[0] = 20; /* x */
- stride[1] = 20; /* y */
+ stride[0] = 20; /* x */
+ stride[1] = 20; /* y */
- count[0] = 1; /* x */
- count[1] = 1; /* y */
+ count[0] = 1; /* x */
+ count[1] = 1; /* y */
- block[0] = 2; /* x */
- block[1] = 2; /* y */
- ret = H5Sselect_hyperslab(small_square_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ block[0] = 2; /* x */
+ block[1] = 2; /* y */
+ ret = H5Sselect_hyperslab(small_square_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
-
/* Create the 10 X 10 X 10 dataspaces for the hyperslab parallel to the xy axis */
small_cube_xy_slice_0_sid = H5Screate_simple(3, small_cube_dims, NULL);
CHECK(small_cube_xy_slice_0_sid, FAIL, "H5Screate_simple");
@@ -9910,107 +10227,96 @@ test_shape_same_dr__smoke_check_3(void)
small_cube_xy_slice_2_sid = H5Screate_simple(3, small_cube_dims, NULL);
CHECK(small_cube_xy_slice_2_sid, FAIL, "H5Screate_simple");
+ start[0] = 2; /* x */
+ start[1] = 3; /* y */
+ start[2] = 5; /* z */
- start[0] = 2; /* x */
- start[1] = 3; /* y */
- start[2] = 5; /* z */
+ stride[0] = 20; /* x */
+ stride[1] = 20; /* y */
+ stride[2] = 20; /* z */
- stride[0] = 20; /* x */
- stride[1] = 20; /* y */
- stride[2] = 20; /* z */
+ count[0] = 1; /* x */
+ count[1] = 1; /* y */
+ count[2] = 1; /* z */
- count[0] = 1; /* x */
- count[1] = 1; /* y */
- count[2] = 1; /* z */
-
- block[0] = 2; /* x */
- block[1] = 4; /* y */
- block[2] = 1; /* z */
- ret = H5Sselect_hyperslab(small_cube_xy_slice_0_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ block[0] = 2; /* x */
+ block[1] = 4; /* y */
+ block[2] = 1; /* z */
+ ret = H5Sselect_hyperslab(small_cube_xy_slice_0_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* move the starting point to the origin */
- start[0] -= 1; /* x */
- start[1] -= 2; /* y */
- ret = H5Sselect_hyperslab(small_cube_xy_slice_1_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ start[0] -= 1; /* x */
+ start[1] -= 2; /* y */
+ ret = H5Sselect_hyperslab(small_cube_xy_slice_1_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* move the irregular selection to the upper right hand corner */
- start[0] += 5; /* x */
- start[1] += 5; /* y */
- ret = H5Sselect_hyperslab(small_cube_xy_slice_2_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ start[0] += 5; /* x */
+ start[1] += 5; /* y */
+ ret = H5Sselect_hyperslab(small_cube_xy_slice_2_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- start[0] = 3; /* x */
- start[1] = 6; /* y */
- start[2] = 5; /* z */
+ start[0] = 3; /* x */
+ start[1] = 6; /* y */
+ start[2] = 5; /* z */
- stride[0] = 20; /* x */
- stride[1] = 20; /* y */
- stride[2] = 20; /* z */
+ stride[0] = 20; /* x */
+ stride[1] = 20; /* y */
+ stride[2] = 20; /* z */
- count[0] = 1; /* x */
- count[1] = 1; /* y */
- count[2] = 1; /* z */
+ count[0] = 1; /* x */
+ count[1] = 1; /* y */
+ count[2] = 1; /* z */
- block[0] = 4; /* x */
- block[1] = 2; /* y */
- block[2] = 1; /* z */
- ret = H5Sselect_hyperslab(small_cube_xy_slice_0_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ block[0] = 4; /* x */
+ block[1] = 2; /* y */
+ block[2] = 1; /* z */
+ ret = H5Sselect_hyperslab(small_cube_xy_slice_0_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* move the starting point to the origin */
- start[0] -= 1; /* x */
- start[1] -= 2; /* y */
- ret = H5Sselect_hyperslab(small_cube_xy_slice_1_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ start[0] -= 1; /* x */
+ start[1] -= 2; /* y */
+ ret = H5Sselect_hyperslab(small_cube_xy_slice_1_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* move the irregular selection to the upper right hand corner */
- start[0] += 5; /* x */
- start[1] += 5; /* y */
- ret = H5Sselect_hyperslab(small_cube_xy_slice_2_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ start[0] += 5; /* x */
+ start[1] += 5; /* y */
+ ret = H5Sselect_hyperslab(small_cube_xy_slice_2_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- start[0] = 5; /* x */
- start[1] = 3; /* y */
- start[2] = 5; /* z */
+ start[0] = 5; /* x */
+ start[1] = 3; /* y */
+ start[2] = 5; /* z */
- stride[0] = 20; /* x */
- stride[1] = 20; /* y */
- stride[2] = 20; /* z */
+ stride[0] = 20; /* x */
+ stride[1] = 20; /* y */
+ stride[2] = 20; /* z */
- count[0] = 1; /* x */
- count[1] = 1; /* y */
- count[2] = 1; /* z */
+ count[0] = 1; /* x */
+ count[1] = 1; /* y */
+ count[2] = 1; /* z */
- block[0] = 2; /* x */
- block[1] = 2; /* y */
- block[2] = 1; /* z */
- ret = H5Sselect_hyperslab(small_cube_xy_slice_0_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ block[0] = 2; /* x */
+ block[1] = 2; /* y */
+ block[2] = 1; /* z */
+ ret = H5Sselect_hyperslab(small_cube_xy_slice_0_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* move the starting point to the origin */
- start[0] -= 1; /* x */
- start[1] -= 2; /* y */
- ret = H5Sselect_hyperslab(small_cube_xy_slice_1_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ start[0] -= 1; /* x */
+ start[1] -= 2; /* y */
+ ret = H5Sselect_hyperslab(small_cube_xy_slice_1_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* move the irregular selection to the upper right hand corner */
- start[0] += 5; /* x */
- start[1] += 5; /* y */
- ret = H5Sselect_hyperslab(small_cube_xy_slice_2_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ start[0] += 5; /* x */
+ start[1] += 5; /* y */
+ ret = H5Sselect_hyperslab(small_cube_xy_slice_2_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
-
/* Create the 10 X 10 X 10 dataspaces for the hyperslab parallel to the xz axis */
small_cube_xz_slice_0_sid = H5Screate_simple(3, small_cube_dims, NULL);
CHECK(small_cube_xz_slice_0_sid, FAIL, "H5Screate_simple");
@@ -10021,108 +10327,98 @@ test_shape_same_dr__smoke_check_3(void)
small_cube_xz_slice_2_sid = H5Screate_simple(3, small_cube_dims, NULL);
CHECK(small_cube_xz_slice_2_sid, FAIL, "H5Screate_simple");
- start[0] = 2; /* x */
- start[1] = 5; /* y */
- start[2] = 3; /* z */
+ start[0] = 2; /* x */
+ start[1] = 5; /* y */
+ start[2] = 3; /* z */
- stride[0] = 20; /* x */
- stride[1] = 20; /* y */
- stride[2] = 20; /* z */
+ stride[0] = 20; /* x */
+ stride[1] = 20; /* y */
+ stride[2] = 20; /* z */
- count[0] = 1; /* x */
- count[1] = 1; /* y */
- count[2] = 1; /* z */
+ count[0] = 1; /* x */
+ count[1] = 1; /* y */
+ count[2] = 1; /* z */
- block[0] = 2; /* x */
- block[1] = 1; /* y */
- block[2] = 4; /* z */
- ret = H5Sselect_hyperslab(small_cube_xz_slice_0_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ block[0] = 2; /* x */
+ block[1] = 1; /* y */
+ block[2] = 4; /* z */
+ ret = H5Sselect_hyperslab(small_cube_xz_slice_0_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* move the starting point to the origin */
- start[0] -= 1; /* x */
- start[2] -= 2; /* y */
- ret = H5Sselect_hyperslab(small_cube_xz_slice_1_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ start[0] -= 1; /* x */
+ start[2] -= 2; /* y */
+ ret = H5Sselect_hyperslab(small_cube_xz_slice_1_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* move the irregular selection to the upper right hand corner */
- start[0] += 5; /* x */
- start[2] += 5; /* y */
- ret = H5Sselect_hyperslab(small_cube_xz_slice_2_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ start[0] += 5; /* x */
+ start[2] += 5; /* y */
+ ret = H5Sselect_hyperslab(small_cube_xz_slice_2_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- start[0] = 3; /* x */
- start[1] = 5; /* y */
- start[2] = 6; /* z */
+ start[0] = 3; /* x */
+ start[1] = 5; /* y */
+ start[2] = 6; /* z */
- stride[0] = 20; /* x */
- stride[1] = 20; /* y */
- stride[2] = 20; /* z */
+ stride[0] = 20; /* x */
+ stride[1] = 20; /* y */
+ stride[2] = 20; /* z */
- count[0] = 1; /* x */
- count[1] = 1; /* y */
- count[2] = 1; /* z */
+ count[0] = 1; /* x */
+ count[1] = 1; /* y */
+ count[2] = 1; /* z */
- block[0] = 4; /* x */
- block[1] = 1; /* y */
- block[2] = 2; /* z */
- ret = H5Sselect_hyperslab(small_cube_xz_slice_0_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ block[0] = 4; /* x */
+ block[1] = 1; /* y */
+ block[2] = 2; /* z */
+ ret = H5Sselect_hyperslab(small_cube_xz_slice_0_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* move the starting point to the origin */
- start[0] -= 1; /* x */
- start[2] -= 2; /* y */
- ret = H5Sselect_hyperslab(small_cube_xz_slice_1_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ start[0] -= 1; /* x */
+ start[2] -= 2; /* y */
+ ret = H5Sselect_hyperslab(small_cube_xz_slice_1_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* move the irregular selection to the upper right hand corner */
- start[0] += 5; /* x */
- start[2] += 5; /* y */
- ret = H5Sselect_hyperslab(small_cube_xz_slice_2_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ start[0] += 5; /* x */
+ start[2] += 5; /* y */
+ ret = H5Sselect_hyperslab(small_cube_xz_slice_2_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- start[0] = 5; /* x */
- start[1] = 5; /* y */
- start[2] = 3; /* z */
+ start[0] = 5; /* x */
+ start[1] = 5; /* y */
+ start[2] = 3; /* z */
- stride[0] = 20; /* x */
- stride[1] = 20; /* y */
- stride[2] = 20; /* z */
+ stride[0] = 20; /* x */
+ stride[1] = 20; /* y */
+ stride[2] = 20; /* z */
- count[0] = 1; /* x */
- count[1] = 1; /* y */
- count[2] = 1; /* z */
+ count[0] = 1; /* x */
+ count[1] = 1; /* y */
+ count[2] = 1; /* z */
- block[0] = 2; /* x */
- block[1] = 1; /* y */
- block[2] = 2; /* z */
- ret = H5Sselect_hyperslab(small_cube_xz_slice_0_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ block[0] = 2; /* x */
+ block[1] = 1; /* y */
+ block[2] = 2; /* z */
+ ret = H5Sselect_hyperslab(small_cube_xz_slice_0_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* move the starting point to the origin */
- start[0] -= 1; /* x */
- start[2] -= 2; /* y */
- ret = H5Sselect_hyperslab(small_cube_xz_slice_1_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ start[0] -= 1; /* x */
+ start[2] -= 2; /* y */
+ ret = H5Sselect_hyperslab(small_cube_xz_slice_1_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* move the irregular selection to the upper right hand corner */
- start[0] += 5; /* x */
- start[2] += 5; /* y */
- ret = H5Sselect_hyperslab(small_cube_xz_slice_2_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ start[0] += 5; /* x */
+ start[2] += 5; /* y */
+ ret = H5Sselect_hyperslab(small_cube_xz_slice_2_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
-
-/* QAK: Start here.
- */
+ /* QAK: Start here.
+ */
/* Create the 10 X 10 X 10 dataspaces for the hyperslabs parallel to the yz axis */
small_cube_yz_slice_0_sid = H5Screate_simple(3, small_cube_dims, NULL);
CHECK(small_cube_yz_slice_0_sid, FAIL, "H5Screate_simple");
@@ -10133,106 +10429,96 @@ test_shape_same_dr__smoke_check_3(void)
small_cube_yz_slice_2_sid = H5Screate_simple(3, small_cube_dims, NULL);
CHECK(small_cube_yz_slice_2_sid, FAIL, "H5Screate_simple");
- start[0] = 8; /* x */
- start[1] = 2; /* y */
- start[2] = 3; /* z */
+ start[0] = 8; /* x */
+ start[1] = 2; /* y */
+ start[2] = 3; /* z */
- stride[0] = 20; /* x -- large enough that there will only be one slice */
- stride[1] = 20; /* y */
- stride[2] = 20; /* z */
+ stride[0] = 20; /* x -- large enough that there will only be one slice */
+ stride[1] = 20; /* y */
+ stride[2] = 20; /* z */
- count[0] = 1; /* x */
- count[1] = 1; /* y */
- count[2] = 1; /* z */
+ count[0] = 1; /* x */
+ count[1] = 1; /* y */
+ count[2] = 1; /* z */
- block[0] = 1; /* x */
- block[1] = 2; /* y */
- block[2] = 4; /* z */
- ret = H5Sselect_hyperslab(small_cube_yz_slice_0_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ block[0] = 1; /* x */
+ block[1] = 2; /* y */
+ block[2] = 4; /* z */
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_0_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* move the starting point to the origin */
- start[1] -= 1; /* x */
- start[2] -= 2; /* y */
- ret = H5Sselect_hyperslab(small_cube_yz_slice_1_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ start[1] -= 1; /* x */
+ start[2] -= 2; /* y */
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_1_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* move the irregular selection to the upper right hand corner */
- start[0] += 5; /* x */
- start[2] += 5; /* y */
- ret = H5Sselect_hyperslab(small_cube_yz_slice_2_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ start[0] += 5; /* x */
+ start[2] += 5; /* y */
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_2_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- start[0] = 8; /* x */
- start[1] = 3; /* y */
- start[2] = 6; /* z */
+ start[0] = 8; /* x */
+ start[1] = 3; /* y */
+ start[2] = 6; /* z */
- stride[0] = 20; /* x */
- stride[1] = 20; /* y */
- stride[2] = 20; /* z */
+ stride[0] = 20; /* x */
+ stride[1] = 20; /* y */
+ stride[2] = 20; /* z */
- count[0] = 1; /* x */
- count[1] = 1; /* y */
- count[2] = 1; /* z */
+ count[0] = 1; /* x */
+ count[1] = 1; /* y */
+ count[2] = 1; /* z */
- block[0] = 1; /* x */
- block[1] = 4; /* y */
- block[2] = 2; /* z */
- ret = H5Sselect_hyperslab(small_cube_yz_slice_0_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ block[0] = 1; /* x */
+ block[1] = 4; /* y */
+ block[2] = 2; /* z */
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_0_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* move the starting point to the origin */
- start[1] -= 1; /* x */
- start[2] -= 2; /* y */
- ret = H5Sselect_hyperslab(small_cube_yz_slice_1_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ start[1] -= 1; /* x */
+ start[2] -= 2; /* y */
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_1_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* move the irregular selection to the upper right hand corner */
- start[0] += 5; /* x */
- start[2] += 5; /* y */
- ret = H5Sselect_hyperslab(small_cube_yz_slice_2_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ start[0] += 5; /* x */
+ start[2] += 5; /* y */
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_2_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- start[0] = 8; /* x */
- start[1] = 5; /* y */
- start[2] = 3; /* z */
+ start[0] = 8; /* x */
+ start[1] = 5; /* y */
+ start[2] = 3; /* z */
- stride[0] = 20; /* x */
- stride[1] = 20; /* y */
- stride[2] = 20; /* z */
+ stride[0] = 20; /* x */
+ stride[1] = 20; /* y */
+ stride[2] = 20; /* z */
- count[0] = 1; /* x */
- count[1] = 1; /* y */
- count[2] = 1; /* z */
+ count[0] = 1; /* x */
+ count[1] = 1; /* y */
+ count[2] = 1; /* z */
- block[0] = 1; /* x */
- block[1] = 2; /* y */
- block[2] = 2; /* z */
- ret = H5Sselect_hyperslab(small_cube_yz_slice_0_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ block[0] = 1; /* x */
+ block[1] = 2; /* y */
+ block[2] = 2; /* z */
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_0_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* move the starting point to the origin */
- start[1] -= 1; /* x */
- start[2] -= 2; /* y */
- ret = H5Sselect_hyperslab(small_cube_yz_slice_1_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ start[1] -= 1; /* x */
+ start[2] -= 2; /* y */
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_1_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* move the irregular selection to the upper right hand corner */
- start[0] += 5; /* x */
- start[2] += 5; /* y */
- ret = H5Sselect_hyperslab(small_cube_yz_slice_2_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ start[0] += 5; /* x */
+ start[2] += 5; /* y */
+ ret = H5Sselect_hyperslab(small_cube_yz_slice_2_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
-
/* setup is done -- run the tests: */
/* Compare against "xy" selection */
@@ -10245,7 +10531,6 @@ test_shape_same_dr__smoke_check_3(void)
check = H5Sselect_shape_same(small_cube_xy_slice_2_sid, small_square_sid);
VERIFY(check, FALSE, "H5Sselect_shape_same");
-
/* Compare against "xz" selection */
check = H5Sselect_shape_same(small_cube_xz_slice_0_sid, small_square_sid);
VERIFY(check, FALSE, "H5Sselect_shape_same");
@@ -10256,7 +10541,6 @@ test_shape_same_dr__smoke_check_3(void)
check = H5Sselect_shape_same(small_cube_xz_slice_2_sid, small_square_sid);
VERIFY(check, FALSE, "H5Sselect_shape_same");
-
/* Compare against "yz" selection */
check = H5Sselect_shape_same(small_cube_yz_slice_0_sid, small_square_sid);
VERIFY(check, TRUE, "H5Sselect_shape_same");
@@ -10267,12 +10551,10 @@ test_shape_same_dr__smoke_check_3(void)
check = H5Sselect_shape_same(small_cube_yz_slice_2_sid, small_square_sid);
VERIFY(check, TRUE, "H5Sselect_shape_same");
-
/* Close dataspaces */
ret = H5Sclose(small_square_sid);
CHECK(ret, FAIL, "H5Sclose");
-
ret = H5Sclose(small_cube_xy_slice_0_sid);
CHECK(ret, FAIL, "H5Sclose");
@@ -10282,7 +10564,6 @@ test_shape_same_dr__smoke_check_3(void)
ret = H5Sclose(small_cube_xy_slice_2_sid);
CHECK(ret, FAIL, "H5Sclose");
-
ret = H5Sclose(small_cube_xz_slice_0_sid);
CHECK(ret, FAIL, "H5Sclose");
@@ -10292,7 +10573,6 @@ test_shape_same_dr__smoke_check_3(void)
ret = H5Sclose(small_cube_xz_slice_2_sid);
CHECK(ret, FAIL, "H5Sclose");
-
ret = H5Sclose(small_cube_yz_slice_0_sid);
CHECK(ret, FAIL, "H5Sclose");
@@ -10303,7 +10583,6 @@ test_shape_same_dr__smoke_check_3(void)
CHECK(ret, FAIL, "H5Sclose");
} /* test_shape_same_dr__smoke_check_3() */
-
/****************************************************************
**
** test_shape_same_dr__smoke_check_4():
@@ -10337,21 +10616,21 @@ test_shape_same_dr__smoke_check_3(void)
static void
test_shape_same_dr__smoke_check_4(void)
{
- hid_t square_sid;
- hid_t three_d_space_0_sid;
- hid_t three_d_space_1_sid;
- hid_t three_d_space_2_sid;
- hid_t three_d_space_3_sid;
- hid_t four_d_space_0_sid;
- hid_t four_d_space_1_sid;
- hid_t four_d_space_2_sid;
- hid_t four_d_space_3_sid;
- hid_t four_d_space_4_sid;
- hid_t four_d_space_5_sid;
- hid_t four_d_space_6_sid;
- hsize_t dims[] = {10, 10, 10, 10};
- htri_t check; /* Shape comparison return value */
- herr_t ret; /* Generic return value */
+ hid_t square_sid;
+ hid_t three_d_space_0_sid;
+ hid_t three_d_space_1_sid;
+ hid_t three_d_space_2_sid;
+ hid_t three_d_space_3_sid;
+ hid_t four_d_space_0_sid;
+ hid_t four_d_space_1_sid;
+ hid_t four_d_space_2_sid;
+ hid_t four_d_space_3_sid;
+ hid_t four_d_space_4_sid;
+ hid_t four_d_space_5_sid;
+ hid_t four_d_space_6_sid;
+ hsize_t dims[] = {10, 10, 10, 10};
+ htri_t check; /* Shape comparison return value */
+ herr_t ret; /* Generic return value */
MESSAGE(7, (" Smoke check 4: Spaces of different dimension but same size.\n"));
@@ -10360,91 +10639,89 @@ test_shape_same_dr__smoke_check_4(void)
CHECK(square_sid, FAIL, "H5Screate_simple");
/* create (1 X 10 X 10) dataspace */
- dims[0] = 1;
- dims[1] = 10;
- dims[2] = 10;
+ dims[0] = 1;
+ dims[1] = 10;
+ dims[2] = 10;
three_d_space_0_sid = H5Screate_simple(3, dims, NULL);
CHECK(three_d_space_0_sid, FAIL, "H5Screate_simple");
/* create (10 X 1 X 10) dataspace */
- dims[0] = 10;
- dims[1] = 1;
- dims[2] = 10;
+ dims[0] = 10;
+ dims[1] = 1;
+ dims[2] = 10;
three_d_space_1_sid = H5Screate_simple(3, dims, NULL);
CHECK(three_d_space_1_sid, FAIL, "H5Screate_simple");
/* create (10 X 10 X 1) dataspace */
- dims[0] = 10;
- dims[1] = 10;
- dims[2] = 1;
+ dims[0] = 10;
+ dims[1] = 10;
+ dims[2] = 1;
three_d_space_2_sid = H5Screate_simple(3, dims, NULL);
CHECK(three_d_space_2_sid, FAIL, "H5Screate_simple");
/* create (10 X 10 X 10) dataspace */
- dims[0] = 10;
- dims[1] = 10;
- dims[2] = 10;
+ dims[0] = 10;
+ dims[1] = 10;
+ dims[2] = 10;
three_d_space_3_sid = H5Screate_simple(3, dims, NULL);
CHECK(three_d_space_3_sid, FAIL, "H5Screate_simple");
-
/* create (1 X 1 X 10 X 10) dataspace */
- dims[0] = 1;
- dims[1] = 1;
- dims[2] = 10;
- dims[3] = 10;
+ dims[0] = 1;
+ dims[1] = 1;
+ dims[2] = 10;
+ dims[3] = 10;
four_d_space_0_sid = H5Screate_simple(4, dims, NULL);
CHECK(four_d_space_0_sid, FAIL, "H5Screate_simple");
/* create (1 X 10 X 1 X 10) dataspace */
- dims[0] = 1;
- dims[1] = 10;
- dims[2] = 1;
- dims[3] = 10;
+ dims[0] = 1;
+ dims[1] = 10;
+ dims[2] = 1;
+ dims[3] = 10;
four_d_space_1_sid = H5Screate_simple(4, dims, NULL);
CHECK(four_d_space_1_sid, FAIL, "H5Screate_simple");
/* create (1 X 10 X 10 X 1) dataspace */
- dims[0] = 1;
- dims[1] = 10;
- dims[2] = 10;
- dims[3] = 1;
+ dims[0] = 1;
+ dims[1] = 10;
+ dims[2] = 10;
+ dims[3] = 1;
four_d_space_2_sid = H5Screate_simple(4, dims, NULL);
CHECK(four_d_space_2_sid, FAIL, "H5Screate_simple");
/* create (10 X 1 X 1 X 10) dataspace */
- dims[0] = 10;
- dims[1] = 1;
- dims[2] = 1;
- dims[3] = 10;
+ dims[0] = 10;
+ dims[1] = 1;
+ dims[2] = 1;
+ dims[3] = 10;
four_d_space_3_sid = H5Screate_simple(4, dims, NULL);
CHECK(four_d_space_3_sid, FAIL, "H5Screate_simple");
/* create (10 X 1 X 10 X 1) dataspace */
- dims[0] = 10;
- dims[1] = 1;
- dims[2] = 10;
- dims[3] = 1;
+ dims[0] = 10;
+ dims[1] = 1;
+ dims[2] = 10;
+ dims[3] = 1;
four_d_space_4_sid = H5Screate_simple(4, dims, NULL);
CHECK(four_d_space_4_sid, FAIL, "H5Screate_simple");
/* create (10 X 10 X 1 X 1) dataspace */
- dims[0] = 10;
- dims[1] = 10;
- dims[2] = 1;
- dims[3] = 1;
+ dims[0] = 10;
+ dims[1] = 10;
+ dims[2] = 1;
+ dims[3] = 1;
four_d_space_5_sid = H5Screate_simple(4, dims, NULL);
CHECK(four_d_space_5_sid, FAIL, "H5Screate_simple");
/* create (10 X 1 X 10 X 10) dataspace */
- dims[0] = 10;
- dims[1] = 1;
- dims[2] = 10;
- dims[3] = 10;
+ dims[0] = 10;
+ dims[1] = 1;
+ dims[2] = 10;
+ dims[3] = 10;
four_d_space_6_sid = H5Screate_simple(4, dims, NULL);
CHECK(four_d_space_6_sid, FAIL, "H5Screate_simple");
-
/* setup is done -- run the tests: */
check = H5Sselect_shape_same(three_d_space_0_sid, square_sid);
@@ -10459,7 +10736,6 @@ test_shape_same_dr__smoke_check_4(void)
check = H5Sselect_shape_same(three_d_space_3_sid, square_sid);
VERIFY(check, FALSE, "H5Sselect_shape_same");
-
check = H5Sselect_shape_same(four_d_space_0_sid, square_sid);
VERIFY(check, TRUE, "H5Sselect_shape_same");
@@ -10481,12 +10757,10 @@ test_shape_same_dr__smoke_check_4(void)
check = H5Sselect_shape_same(four_d_space_6_sid, square_sid);
VERIFY(check, FALSE, "H5Sselect_shape_same");
-
/* Close dataspaces */
ret = H5Sclose(square_sid);
CHECK(ret, FAIL, "H5Sclose");
-
ret = H5Sclose(three_d_space_0_sid);
CHECK(ret, FAIL, "H5Sclose");
@@ -10499,7 +10773,6 @@ test_shape_same_dr__smoke_check_4(void)
ret = H5Sclose(three_d_space_3_sid);
CHECK(ret, FAIL, "H5Sclose");
-
ret = H5Sclose(four_d_space_0_sid);
CHECK(ret, FAIL, "H5Sclose");
@@ -10537,73 +10810,60 @@ test_shape_same_dr__smoke_check_4(void)
**
****************************************************************/
static void
-test_shape_same_dr__full_space_vs_slice(int test_num,
- int small_rank,
- int large_rank,
- int offset,
- hsize_t edge_size,
- hbool_t dim_selected[],
- hbool_t expected_result)
+test_shape_same_dr__full_space_vs_slice(int test_num, int small_rank, int large_rank, int offset,
+ hsize_t edge_size, hbool_t dim_selected[], hbool_t expected_result)
{
- char test_desc_0[128];
- char test_desc_1[256];
- int i;
- hid_t n_cube_0_sid; /* the fully selected hyper cube */
- hid_t n_cube_1_sid; /* the hyper cube in which a slice is selected */
- hsize_t dims[SS_DR_MAX_RANK];
- hsize_t start[SS_DR_MAX_RANK];
- hsize_t * start_ptr;
- hsize_t stride[SS_DR_MAX_RANK];
- hsize_t * stride_ptr;
- hsize_t count[SS_DR_MAX_RANK];
- hsize_t * count_ptr;
- hsize_t block[SS_DR_MAX_RANK];
- hsize_t * block_ptr;
- htri_t check; /* Shape comparison return value */
- herr_t ret; /* Generic return value */
-
- HDassert( 0 < small_rank );
- HDassert( small_rank <= large_rank );
- HDassert( large_rank <= SS_DR_MAX_RANK );
- HDassert( 0 <= offset );
- HDassert( offset < large_rank );
- HDassert( edge_size > 0 );
- HDassert( edge_size <= 1000 );
-
- HDsprintf(test_desc_0,
- "\tn-cube slice through m-cube (n <= m) test %d.\n",
- test_num);
+ char test_desc_0[128];
+ char test_desc_1[256];
+ int i;
+ hid_t n_cube_0_sid; /* the fully selected hyper cube */
+ hid_t n_cube_1_sid; /* the hyper cube in which a slice is selected */
+ hsize_t dims[SS_DR_MAX_RANK];
+ hsize_t start[SS_DR_MAX_RANK];
+ hsize_t *start_ptr;
+ hsize_t stride[SS_DR_MAX_RANK];
+ hsize_t *stride_ptr;
+ hsize_t count[SS_DR_MAX_RANK];
+ hsize_t *count_ptr;
+ hsize_t block[SS_DR_MAX_RANK];
+ hsize_t *block_ptr;
+ htri_t check; /* Shape comparison return value */
+ herr_t ret; /* Generic return value */
+
+ HDassert(0 < small_rank);
+ HDassert(small_rank <= large_rank);
+ HDassert(large_rank <= SS_DR_MAX_RANK);
+ HDassert(0 <= offset);
+ HDassert(offset < large_rank);
+ HDassert(edge_size > 0);
+ HDassert(edge_size <= 1000);
+
+ HDsprintf(test_desc_0, "\tn-cube slice through m-cube (n <= m) test %d.\n", test_num);
MESSAGE(7, (test_desc_0));
/* This statement must be updated if SS_DR_MAX_RANK is changed */
- HDsprintf(test_desc_1,
- "\t\tranks: %d/%d offset: %d dim_selected: %d/%d/%d/%d/%d.\n",
- small_rank, large_rank, offset,
- (int)dim_selected[0],
- (int)dim_selected[1],
- (int)dim_selected[2],
- (int)dim_selected[3],
- (int)dim_selected[4]);
+ HDsprintf(test_desc_1, "\t\tranks: %d/%d offset: %d dim_selected: %d/%d/%d/%d/%d.\n", small_rank,
+ large_rank, offset, (int)dim_selected[0], (int)dim_selected[1], (int)dim_selected[2],
+ (int)dim_selected[3], (int)dim_selected[4]);
MESSAGE(7, (test_desc_1));
/* copy the edge size into the dims array */
- for(i = 0; i < SS_DR_MAX_RANK; i++)
+ for (i = 0; i < SS_DR_MAX_RANK; i++)
dims[i] = edge_size;
/* Create the small n-cube */
n_cube_0_sid = H5Screate_simple(small_rank, dims, NULL);
CHECK(n_cube_0_sid, FAIL, "H5Screate_simple");
-
/* Create the large n-cube */
n_cube_1_sid = H5Screate_simple(large_rank, dims, NULL);
CHECK(n_cube_1_sid, FAIL, "H5Screate_simple");
/* set up start, stride, count, and block for the hyperslab selection */
- for(i = 0; i < SS_DR_MAX_RANK; i++) {
+ for (i = 0; i < SS_DR_MAX_RANK; i++) {
stride[i] = 2 * edge_size; /* a bit silly in this case */
- count[i] = 1;
- if(dim_selected[i]) {
+ count[i] = 1;
+ if (dim_selected[i]) {
start[i] = 0;
block[i] = edge_size;
} /* end if */
@@ -10611,7 +10871,7 @@ test_shape_same_dr__full_space_vs_slice(int test_num,
start[i] = (hsize_t)offset;
block[i] = 1;
} /* end else */
- } /* end for */
+ } /* end for */
/* since large rank may be less than SS_DR_MAX_RANK, we may not
* use the entire start, stride, count, and block arrays. This
@@ -10633,26 +10893,21 @@ test_shape_same_dr__full_space_vs_slice(int test_num,
count_ptr = &(count[i]);
block_ptr = &(block[i]);
-
/* select the hyperslab */
- ret = H5Sselect_hyperslab(n_cube_1_sid, H5S_SELECT_SET,
- start_ptr, stride_ptr, count_ptr, block_ptr);
+ ret = H5Sselect_hyperslab(n_cube_1_sid, H5S_SELECT_SET, start_ptr, stride_ptr, count_ptr, block_ptr);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
-
/* setup is done -- run the test: */
check = H5Sselect_shape_same(n_cube_0_sid, n_cube_1_sid);
VERIFY(check, expected_result, "H5Sselect_shape_same");
-
/* Close dataspaces */
ret = H5Sclose(n_cube_0_sid);
CHECK(ret, FAIL, "H5Sclose");
ret = H5Sclose(n_cube_1_sid);
CHECK(ret, FAIL, "H5Sclose");
-} /* test_shape_same_dr__full_space_vs_slice() */
-
+} /* test_shape_same_dr__full_space_vs_slice() */
/****************************************************************
**
@@ -10685,123 +10940,100 @@ test_shape_same_dr__run_full_space_vs_slice_tests(void)
{
hbool_t dim_selected[5];
hbool_t expected_result;
- int i, j;
- int v, w, x, y, z;
- int test_num = 0;
- int small_rank;
- int large_rank;
+ int i, j;
+ int v, w, x, y, z;
+ int test_num = 0;
+ int small_rank;
+ int large_rank;
hsize_t edge_size = 10;
- for(large_rank = 1; large_rank <= 5; large_rank++) {
- for(small_rank = 1; small_rank <= large_rank; small_rank++) {
+ for (large_rank = 1; large_rank <= 5; large_rank++) {
+ for (small_rank = 1; small_rank <= large_rank; small_rank++) {
v = 0;
do {
- if(v == 0)
+ if (v == 0)
dim_selected[0] = FALSE;
else
dim_selected[0] = TRUE;
w = 0;
do {
- if(w == 0)
+ if (w == 0)
dim_selected[1] = FALSE;
else
dim_selected[1] = TRUE;
x = 0;
do {
- if(x == 0)
+ if (x == 0)
dim_selected[2] = FALSE;
else
dim_selected[2] = TRUE;
y = 0;
do {
- if(y == 0)
+ if (y == 0)
dim_selected[3] = FALSE;
else
dim_selected[3] = TRUE;
z = 0;
do {
- if(z == 0)
+ if (z == 0)
dim_selected[4] = FALSE;
else
dim_selected[4] = TRUE;
/* compute the expected result: */
- i = 0;
- j = 4;
+ i = 0;
+ j = 4;
expected_result = TRUE;
- while((i < small_rank) && expected_result) {
- if(!dim_selected[j])
+ while ((i < small_rank) && expected_result) {
+ if (!dim_selected[j])
expected_result = FALSE;
i++;
j--;
} /* end while */
- while((i < large_rank) && expected_result) {
- if(dim_selected[j])
+ while ((i < large_rank) && expected_result) {
+ if (dim_selected[j])
expected_result = FALSE;
i++;
j--;
} /* end while */
-
/* everything is set up -- run the tests */
- test_shape_same_dr__full_space_vs_slice
- (
- test_num++,
- small_rank,
- large_rank,
- 0,
- edge_size,
- dim_selected,
- expected_result
- );
-
- test_shape_same_dr__full_space_vs_slice
- (
- test_num++,
- small_rank,
- large_rank,
- large_rank / 2,
- edge_size,
- dim_selected,
- expected_result
- );
-
- test_shape_same_dr__full_space_vs_slice
- (
- test_num++,
- small_rank,
- large_rank,
- large_rank - 1,
- edge_size,
- dim_selected,
- expected_result
- );
+ test_shape_same_dr__full_space_vs_slice(test_num++, small_rank, large_rank, 0,
+ edge_size, dim_selected,
+ expected_result);
+
+ test_shape_same_dr__full_space_vs_slice(test_num++, small_rank, large_rank,
+ large_rank / 2, edge_size,
+ dim_selected, expected_result);
+
+ test_shape_same_dr__full_space_vs_slice(test_num++, small_rank, large_rank,
+ large_rank - 1, edge_size,
+ dim_selected, expected_result);
z++;
- } while((z < 2) && (large_rank >= 1));
+ } while ((z < 2) && (large_rank >= 1));
y++;
- } while((y < 2) && (large_rank >= 2));
+ } while ((y < 2) && (large_rank >= 2));
x++;
- } while((x < 2) && (large_rank >= 3));
+ } while ((x < 2) && (large_rank >= 3));
w++;
- } while((w < 2) && (large_rank >= 4));
+ } while ((w < 2) && (large_rank >= 4));
v++;
- } while((v < 2) && (large_rank >= 5));
+ } while ((v < 2) && (large_rank >= 5));
} /* end for */
- } /* end for */
+ } /* end for */
} /* test_shape_same_dr__run_full_space_vs_slice_tests() */
-
/****************************************************************
**
** test_shape_same_dr__checkerboard(): Tests selection of a
@@ -10819,78 +11051,64 @@ test_shape_same_dr__run_full_space_vs_slice_tests(void)
**
****************************************************************/
static void
-test_shape_same_dr__checkerboard(int test_num,
- int small_rank,
- int large_rank,
- int offset,
- hsize_t edge_size,
- hsize_t checker_size,
- hbool_t dim_selected[],
- hbool_t expected_result)
+test_shape_same_dr__checkerboard(int test_num, int small_rank, int large_rank, int offset, hsize_t edge_size,
+ hsize_t checker_size, hbool_t dim_selected[], hbool_t expected_result)
{
- char test_desc_0[128];
- char test_desc_1[256];
- int i;
- int dims_selected = 0;
- hid_t n_cube_0_sid; /* the checker board selected
- * hyper cube
- */
- hid_t n_cube_1_sid; /* the hyper cube in which a
- * checkerboard slice is selected
- */
- hsize_t dims[SS_DR_MAX_RANK];
- hsize_t base_start[2];
- hsize_t start[SS_DR_MAX_RANK];
- hsize_t * start_ptr;
- hsize_t base_stride[2];
- hsize_t stride[SS_DR_MAX_RANK];
- hsize_t * stride_ptr;
- hsize_t base_count[2];
- hsize_t count[SS_DR_MAX_RANK];
- hsize_t * count_ptr;
- hsize_t base_block[2];
- hsize_t block[SS_DR_MAX_RANK];
- hsize_t * block_ptr;
- htri_t check; /* Shape comparison return value */
- herr_t ret; /* Generic return value */
-
- HDassert( 0 < small_rank );
- HDassert( small_rank <= large_rank );
- HDassert( large_rank <= SS_DR_MAX_RANK );
- HDassert( 0 < checker_size );
- HDassert( checker_size <= edge_size );
- HDassert( edge_size <= 1000 );
- HDassert( 0 <= offset );
- HDassert( offset < (int)edge_size );
-
- for(i = SS_DR_MAX_RANK - large_rank; i < SS_DR_MAX_RANK; i++)
- if(dim_selected[i] == TRUE)
+ char test_desc_0[128];
+ char test_desc_1[256];
+ int i;
+ int dims_selected = 0;
+ hid_t n_cube_0_sid; /* the checker board selected
+ * hyper cube
+ */
+ hid_t n_cube_1_sid; /* the hyper cube in which a
+ * checkerboard slice is selected
+ */
+ hsize_t dims[SS_DR_MAX_RANK];
+ hsize_t base_start[2];
+ hsize_t start[SS_DR_MAX_RANK];
+ hsize_t *start_ptr;
+ hsize_t base_stride[2];
+ hsize_t stride[SS_DR_MAX_RANK];
+ hsize_t *stride_ptr;
+ hsize_t base_count[2];
+ hsize_t count[SS_DR_MAX_RANK];
+ hsize_t *count_ptr;
+ hsize_t base_block[2];
+ hsize_t block[SS_DR_MAX_RANK];
+ hsize_t *block_ptr;
+ htri_t check; /* Shape comparison return value */
+ herr_t ret; /* Generic return value */
+
+ HDassert(0 < small_rank);
+ HDassert(small_rank <= large_rank);
+ HDassert(large_rank <= SS_DR_MAX_RANK);
+ HDassert(0 < checker_size);
+ HDassert(checker_size <= edge_size);
+ HDassert(edge_size <= 1000);
+ HDassert(0 <= offset);
+ HDassert(offset < (int)edge_size);
+
+ for (i = SS_DR_MAX_RANK - large_rank; i < SS_DR_MAX_RANK; i++)
+ if (dim_selected[i] == TRUE)
dims_selected++;
- HDassert( dims_selected >= 0 );
- HDassert( dims_selected <= large_rank );
+ HDassert(dims_selected >= 0);
+ HDassert(dims_selected <= large_rank);
- HDsprintf(test_desc_0,
- "\tcheckerboard n-cube slice through m-cube (n <= m) test %d.\n",
- test_num);
+ HDsprintf(test_desc_0, "\tcheckerboard n-cube slice through m-cube (n <= m) test %d.\n", test_num);
MESSAGE(7, (test_desc_0));
/* This statement must be updated if SS_DR_MAX_RANK is changed */
HDsprintf(test_desc_1,
"\tranks: %d/%d edge/chkr size: %d/%d offset: %d dim_selected: %d/%d/%d/%d/%d:%d.\n",
- small_rank, large_rank,
- (int)edge_size, (int)checker_size,
- offset,
- (int)dim_selected[0],
- (int)dim_selected[1],
- (int)dim_selected[2],
- (int)dim_selected[3],
- (int)dim_selected[4],
+ small_rank, large_rank, (int)edge_size, (int)checker_size, offset, (int)dim_selected[0],
+ (int)dim_selected[1], (int)dim_selected[2], (int)dim_selected[3], (int)dim_selected[4],
dims_selected);
MESSAGE(7, (test_desc_1));
/* copy the edge size into the dims array */
- for(i = 0; i < SS_DR_MAX_RANK; i++)
+ for (i = 0; i < SS_DR_MAX_RANK; i++)
dims[i] = edge_size;
/* Create the small n-cube */
@@ -10966,11 +11184,11 @@ test_shape_same_dr__checkerboard(int test_num,
*/
base_count[0] = edge_size / (checker_size * 2);
- if((edge_size % (checker_size * 2)) > 0)
- base_count[0]++;
+ if ((edge_size % (checker_size * 2)) > 0)
+ base_count[0]++;
base_count[1] = (edge_size - checker_size) / (checker_size * 2);
- if(((edge_size - checker_size) % (checker_size * 2)) > 0)
+ if (((edge_size - checker_size) % (checker_size * 2)) > 0)
base_count[1]++;
base_block[0] = checker_size;
@@ -10979,15 +11197,14 @@ test_shape_same_dr__checkerboard(int test_num,
/* now setup start, stride, count, and block arrays for
* the first call to H5Sselect_hyperslab().
*/
- for(i = 0; i < SS_DR_MAX_RANK; i++) {
+ for (i = 0; i < SS_DR_MAX_RANK; i++) {
start[i] = base_start[0];
stride[i] = base_stride[0];
count[i] = base_count[0];
block[i] = base_block[0];
} /* end for */
- ret = H5Sselect_hyperslab(n_cube_0_sid, H5S_SELECT_SET,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(n_cube_0_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* if small_rank == 1, or if edge_size == checker_size, we
@@ -10998,16 +11215,15 @@ test_shape_same_dr__checkerboard(int test_num,
* make the additional selection.
*/
- if((small_rank > 1) && (checker_size < edge_size)) {
- for(i = 0; i < SS_DR_MAX_RANK; i++) {
+ if ((small_rank > 1) && (checker_size < edge_size)) {
+ for (i = 0; i < SS_DR_MAX_RANK; i++) {
start[i] = base_start[1];
stride[i] = base_stride[1];
count[i] = base_count[1];
block[i] = base_block[1];
} /* end for */
- ret = H5Sselect_hyperslab(n_cube_0_sid, H5S_SELECT_OR,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(n_cube_0_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
} /* end if */
@@ -11018,31 +11234,28 @@ test_shape_same_dr__checkerboard(int test_num,
* code to manually clip the selection back to the dataspace
* proper.
*/
- for(i = 0; i < SS_DR_MAX_RANK; i++) {
+ for (i = 0; i < SS_DR_MAX_RANK; i++) {
start[i] = 0;
stride[i] = edge_size;
count[i] = 1;
block[i] = edge_size;
} /* end for */
- ret = H5Sselect_hyperslab(n_cube_0_sid, H5S_SELECT_AND,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(n_cube_0_sid, H5S_SELECT_AND, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
-
/* Create the large n-cube */
n_cube_1_sid = H5Screate_simple(large_rank, dims, NULL);
CHECK(n_cube_1_sid, FAIL, "H5Screate_simple");
-
/* Now select the checkerboard selection in the (possibly larger) n-cube.
*
* Since we have already calculated the base start, stride, count,
* and block, re-use the values in setting up start, stride, count,
* and block.
*/
- for(i = 0; i < SS_DR_MAX_RANK; i++) {
- if(dim_selected[i]) {
+ for (i = 0; i < SS_DR_MAX_RANK; i++) {
+ if (dim_selected[i]) {
start[i] = base_start[0];
stride[i] = base_stride[0];
count[i] = base_count[0];
@@ -11054,7 +11267,7 @@ test_shape_same_dr__checkerboard(int test_num,
count[i] = 1;
block[i] = 1;
} /* end else */
- } /* end for */
+ } /* end for */
/* Since large rank may be less than SS_DR_MAX_RANK, we may not
* use the entire start, stride, count, and block arrays. This
@@ -11069,7 +11282,7 @@ test_shape_same_dr__checkerboard(int test_num,
*/
i = SS_DR_MAX_RANK - large_rank;
- HDassert( i >= 0 );
+ HDassert(i >= 0);
start_ptr = &(start[i]);
stride_ptr = &(stride[i]);
@@ -11077,8 +11290,7 @@ test_shape_same_dr__checkerboard(int test_num,
block_ptr = &(block[i]);
/* select the hyperslab */
- ret = H5Sselect_hyperslab(n_cube_1_sid, H5S_SELECT_SET,
- start_ptr, stride_ptr, count_ptr, block_ptr);
+ ret = H5Sselect_hyperslab(n_cube_1_sid, H5S_SELECT_SET, start_ptr, stride_ptr, count_ptr, block_ptr);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* As before, if the number of dimensions selected is less than or
@@ -11090,9 +11302,9 @@ test_shape_same_dr__checkerboard(int test_num,
* Otherwise, set up start, stride, count and block, and
* make the additional selection.
*/
- if((dims_selected > 1) && (checker_size < edge_size)) {
- for(i = 0; i < SS_DR_MAX_RANK; i++) {
- if(dim_selected[i]) {
+ if ((dims_selected > 1) && (checker_size < edge_size)) {
+ for (i = 0; i < SS_DR_MAX_RANK; i++) {
+ if (dim_selected[i]) {
start[i] = base_start[1];
stride[i] = base_stride[1];
count[i] = base_count[1];
@@ -11104,14 +11316,12 @@ test_shape_same_dr__checkerboard(int test_num,
count[i] = 1;
block[i] = 1;
} /* end else */
- } /* end for */
+ } /* end for */
- ret = H5Sselect_hyperslab(n_cube_1_sid, H5S_SELECT_OR,
- start_ptr, stride_ptr, count_ptr, block_ptr);
+ ret = H5Sselect_hyperslab(n_cube_1_sid, H5S_SELECT_OR, start_ptr, stride_ptr, count_ptr, block_ptr);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
} /* end if */
-
/* Wierdness alert:
*
* Again, it seems that selections can extend beyond the
@@ -11119,30 +11329,27 @@ test_shape_same_dr__checkerboard(int test_num,
* code to manually clip the selection back to the dataspace
* proper.
*/
- for(i = 0; i < SS_DR_MAX_RANK; i++) {
+ for (i = 0; i < SS_DR_MAX_RANK; i++) {
start[i] = 0;
stride[i] = edge_size;
count[i] = 1;
block[i] = edge_size;
} /* end for */
- ret = H5Sselect_hyperslab(n_cube_1_sid, H5S_SELECT_AND,
- start, stride, count, block);
+ ret = H5Sselect_hyperslab(n_cube_1_sid, H5S_SELECT_AND, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* setup is done -- run the test: */
check = H5Sselect_shape_same(n_cube_0_sid, n_cube_1_sid);
VERIFY(check, expected_result, "H5Sselect_shape_same");
-
/* Close dataspaces */
ret = H5Sclose(n_cube_0_sid);
CHECK(ret, FAIL, "H5Sclose");
ret = H5Sclose(n_cube_1_sid);
CHECK(ret, FAIL, "H5Sclose");
-} /* test_shape_same_dr__checkerboard() */
-
+} /* test_shape_same_dr__checkerboard() */
/****************************************************************
**
@@ -11171,249 +11378,171 @@ test_shape_same_dr__run_checkerboard_tests(void)
{
hbool_t dim_selected[5];
hbool_t expected_result;
- int i, j;
- int v, w, x, y, z;
- int test_num = 0;
- int small_rank;
- int large_rank;
-
- for(large_rank = 1; large_rank <= 5; large_rank++) {
- for(small_rank = 1; small_rank <= large_rank; small_rank++) {
+ int i, j;
+ int v, w, x, y, z;
+ int test_num = 0;
+ int small_rank;
+ int large_rank;
+
+ for (large_rank = 1; large_rank <= 5; large_rank++) {
+ for (small_rank = 1; small_rank <= large_rank; small_rank++) {
v = 0;
do {
- if(v == 0)
+ if (v == 0)
dim_selected[0] = FALSE;
else
dim_selected[0] = TRUE;
w = 0;
do {
- if(w == 0)
+ if (w == 0)
dim_selected[1] = FALSE;
else
dim_selected[1] = TRUE;
x = 0;
do {
- if(x == 0)
+ if (x == 0)
dim_selected[2] = FALSE;
else
dim_selected[2] = TRUE;
y = 0;
do {
- if(y == 0)
+ if (y == 0)
dim_selected[3] = FALSE;
else
dim_selected[3] = TRUE;
z = 0;
do {
- if(z == 0)
+ if (z == 0)
dim_selected[4] = FALSE;
else
dim_selected[4] = TRUE;
-
/* compute the expected result: */
- i = 0;
- j = 4;
+ i = 0;
+ j = 4;
expected_result = TRUE;
- while((i < small_rank) && expected_result) {
- if(!dim_selected[j])
+ while ((i < small_rank) && expected_result) {
+ if (!dim_selected[j])
expected_result = FALSE;
i++;
j--;
} /* end while */
- while((i < large_rank) && expected_result) {
- if(dim_selected[j])
+ while ((i < large_rank) && expected_result) {
+ if (dim_selected[j])
expected_result = FALSE;
i++;
j--;
} /* end while */
-
/* everything is set up -- run the tests */
/* run test with edge size 16, checker
* size 1, and a variety of offsets
*/
- test_shape_same_dr__checkerboard
- (
- test_num++,
- small_rank,
- large_rank,
- /* offset */ 0,
- /* edge_size */ 16,
- /* checker_size */ 1,
- dim_selected,
- expected_result
- );
-
- test_shape_same_dr__checkerboard
- (
- test_num++,
- small_rank,
- large_rank,
- /* offset */ 5,
- /* edge_size */ 16,
- /* checker_size */ 1,
- dim_selected,
- expected_result
- );
-
- test_shape_same_dr__checkerboard
- (
- test_num++,
- small_rank,
- large_rank,
- /* offset */ 15,
- /* edge_size */ 16,
- /* checker_size */ 1,
- dim_selected,
- expected_result
- );
-
+ test_shape_same_dr__checkerboard(test_num++, small_rank, large_rank,
+ /* offset */ 0,
+ /* edge_size */ 16,
+ /* checker_size */ 1, dim_selected,
+ expected_result);
+
+ test_shape_same_dr__checkerboard(test_num++, small_rank, large_rank,
+ /* offset */ 5,
+ /* edge_size */ 16,
+ /* checker_size */ 1, dim_selected,
+ expected_result);
+
+ test_shape_same_dr__checkerboard(test_num++, small_rank, large_rank,
+ /* offset */ 15,
+ /* edge_size */ 16,
+ /* checker_size */ 1, dim_selected,
+ expected_result);
/* run test with edge size 10, checker
* size 2, and a variety of offsets
*/
- test_shape_same_dr__checkerboard
- (
- test_num++,
- small_rank,
- large_rank,
- /* offset */ 0,
- /* edge_size */ 10,
- /* checker_size */ 2,
- dim_selected,
- expected_result
- );
-
- test_shape_same_dr__checkerboard
- (
- test_num++,
- small_rank,
- large_rank,
- /* offset */ 5,
- /* edge_size */ 10,
- /* checker_size */ 2,
- dim_selected,
- expected_result
- );
-
- test_shape_same_dr__checkerboard
- (
- test_num++,
- small_rank,
- large_rank,
- /* offset */ 9,
- /* edge_size */ 10,
- /* checker_size */ 2,
- dim_selected,
- expected_result
- );
-
+ test_shape_same_dr__checkerboard(test_num++, small_rank, large_rank,
+ /* offset */ 0,
+ /* edge_size */ 10,
+ /* checker_size */ 2, dim_selected,
+ expected_result);
+
+ test_shape_same_dr__checkerboard(test_num++, small_rank, large_rank,
+ /* offset */ 5,
+ /* edge_size */ 10,
+ /* checker_size */ 2, dim_selected,
+ expected_result);
+
+ test_shape_same_dr__checkerboard(test_num++, small_rank, large_rank,
+ /* offset */ 9,
+ /* edge_size */ 10,
+ /* checker_size */ 2, dim_selected,
+ expected_result);
/* run test with edge size 10, checker
* size 3, and a variety of offsets
*/
- test_shape_same_dr__checkerboard
- (
- test_num++,
- small_rank,
- large_rank,
- /* offset */ 0,
- /* edge_size */ 10,
- /* checker_size */ 3,
- dim_selected,
- expected_result
- );
-
- test_shape_same_dr__checkerboard
- (
- test_num++,
- small_rank,
- large_rank,
- /* offset */ 5,
- /* edge_size */ 10,
- /* checker_size */ 3,
- dim_selected,
- expected_result
- );
-
- test_shape_same_dr__checkerboard
- (
- test_num++,
- small_rank,
- large_rank,
- /* offset */ 9,
- /* edge_size */ 10,
- /* checker_size */ 3,
- dim_selected,
- expected_result
- );
-
+ test_shape_same_dr__checkerboard(test_num++, small_rank, large_rank,
+ /* offset */ 0,
+ /* edge_size */ 10,
+ /* checker_size */ 3, dim_selected,
+ expected_result);
+
+ test_shape_same_dr__checkerboard(test_num++, small_rank, large_rank,
+ /* offset */ 5,
+ /* edge_size */ 10,
+ /* checker_size */ 3, dim_selected,
+ expected_result);
+
+ test_shape_same_dr__checkerboard(test_num++, small_rank, large_rank,
+ /* offset */ 9,
+ /* edge_size */ 10,
+ /* checker_size */ 3, dim_selected,
+ expected_result);
/* run test with edge size 8, checker
* size 8, and a variety of offsets
*/
- test_shape_same_dr__checkerboard
- (
- test_num++,
- small_rank,
- large_rank,
- /* offset */ 0,
- /* edge_size */ 8,
- /* checker_size */ 8,
- dim_selected,
- expected_result
- );
-
- test_shape_same_dr__checkerboard
- (
- test_num++,
- small_rank,
- large_rank,
- /* offset */ 4,
- /* edge_size */ 8,
- /* checker_size */ 8,
- dim_selected,
- expected_result
- );
-
- test_shape_same_dr__checkerboard
- (
- test_num++,
- small_rank,
- large_rank,
- /* offset */ 7,
- /* edge_size */ 8,
- /* checker_size */ 8,
- dim_selected,
- expected_result
- );
+ test_shape_same_dr__checkerboard(test_num++, small_rank, large_rank,
+ /* offset */ 0,
+ /* edge_size */ 8,
+ /* checker_size */ 8, dim_selected,
+ expected_result);
+
+ test_shape_same_dr__checkerboard(test_num++, small_rank, large_rank,
+ /* offset */ 4,
+ /* edge_size */ 8,
+ /* checker_size */ 8, dim_selected,
+ expected_result);
+
+ test_shape_same_dr__checkerboard(test_num++, small_rank, large_rank,
+ /* offset */ 7,
+ /* edge_size */ 8,
+ /* checker_size */ 8, dim_selected,
+ expected_result);
z++;
- } while((z < 2) && (large_rank >= 1));
+ } while ((z < 2) && (large_rank >= 1));
y++;
- } while((y < 2) && (large_rank >= 2));
+ } while ((y < 2) && (large_rank >= 2));
x++;
- } while((x < 2) && (large_rank >= 3));
+ } while ((x < 2) && (large_rank >= 3));
w++;
- } while((w < 2) && (large_rank >= 4));
+ } while ((w < 2) && (large_rank >= 4));
v++;
- } while((v < 2) && (large_rank >= 5));
+ } while ((v < 2) && (large_rank >= 5));
} /* end for */
- } /* end for */
+ } /* end for */
} /* test_shape_same_dr__run_checkerboard_tests() */
-
/****************************************************************
**
** test_shape_same_dr__irregular():
@@ -11430,118 +11559,100 @@ test_shape_same_dr__run_checkerboard_tests(void)
**
****************************************************************/
static void
-test_shape_same_dr__irregular(int test_num,
- int small_rank,
- int large_rank,
- int pattern_offset,
- int slice_offset,
- hbool_t dim_selected[],
- hbool_t expected_result)
+test_shape_same_dr__irregular(int test_num, int small_rank, int large_rank, int pattern_offset,
+ int slice_offset, hbool_t dim_selected[], hbool_t expected_result)
{
- char test_desc_0[128];
- char test_desc_1[256];
- int edge_size = 10;
- int i;
- int j;
- int k;
- int dims_selected = 0;
- hid_t n_cube_0_sid; /* the hyper cube containing
- * an irregular selection
- */
- hid_t n_cube_1_sid; /* the hyper cube in which a
- * slice contains an irregular
- * selection.
- */
- hsize_t dims[SS_DR_MAX_RANK];
- hsize_t start_0[SS_DR_MAX_RANK] = { 2, 2, 2, 2, 5};
- hsize_t stride_0[SS_DR_MAX_RANK] = {10, 10, 10, 10, 10};
- hsize_t count_0[SS_DR_MAX_RANK] = { 1, 1, 1, 1, 1};
- hsize_t block_0[SS_DR_MAX_RANK] = { 2, 2, 2, 2, 3};
-
- hsize_t start_1[SS_DR_MAX_RANK] = { 2, 2, 2, 5, 2};
- hsize_t stride_1[SS_DR_MAX_RANK] = {10, 10, 10, 10, 10};
- hsize_t count_1[SS_DR_MAX_RANK] = { 1, 1, 1, 1, 1};
- hsize_t block_1[SS_DR_MAX_RANK] = { 2, 2, 2, 3, 2};
-
- hsize_t start_2[SS_DR_MAX_RANK] = { 2, 2, 5, 2, 2};
- hsize_t stride_2[SS_DR_MAX_RANK] = {10, 10, 10, 10, 10};
- hsize_t count_2[SS_DR_MAX_RANK] = { 1, 1, 1, 1, 1};
- hsize_t block_2[SS_DR_MAX_RANK] = { 2, 2, 3, 2, 2};
-
- hsize_t start_3[SS_DR_MAX_RANK] = { 2, 5, 2, 2, 2};
- hsize_t stride_3[SS_DR_MAX_RANK] = {10, 10, 10, 10, 10};
- hsize_t count_3[SS_DR_MAX_RANK] = { 1, 1, 1, 1, 1};
- hsize_t block_3[SS_DR_MAX_RANK] = { 2, 3, 2, 2, 2};
-
- hsize_t start_4[SS_DR_MAX_RANK] = { 5, 2, 2, 2, 2};
- hsize_t stride_4[SS_DR_MAX_RANK] = {10, 10, 10, 10, 10};
- hsize_t count_4[SS_DR_MAX_RANK] = { 1, 1, 1, 1, 1};
- hsize_t block_4[SS_DR_MAX_RANK] = { 3, 2, 2, 2, 2};
-
- hsize_t clip_start[SS_DR_MAX_RANK] = { 0, 0, 0, 0, 0};
- hsize_t clip_stride[SS_DR_MAX_RANK] = {10, 10, 10, 10, 10};
- hsize_t clip_count[SS_DR_MAX_RANK] = { 1, 1, 1, 1, 1};
- hsize_t clip_block[SS_DR_MAX_RANK] = {10, 10, 10, 10, 10};
-
-
- hsize_t *(starts[SS_DR_MAX_RANK]) =
- {start_0, start_1, start_2, start_3, start_4};
- hsize_t *(strides[SS_DR_MAX_RANK]) =
- {stride_0, stride_1, stride_2, stride_3, stride_4};
- hsize_t *(counts[SS_DR_MAX_RANK]) =
- {count_0, count_1, count_2, count_3, count_4};
- hsize_t *(blocks[SS_DR_MAX_RANK]) =
- {block_0, block_1, block_2, block_3, block_4};
-
- hsize_t start[SS_DR_MAX_RANK];
- hsize_t * start_ptr;
- hsize_t stride[SS_DR_MAX_RANK];
- hsize_t * stride_ptr;
- hsize_t count[SS_DR_MAX_RANK];
- hsize_t * count_ptr;
- hsize_t block[SS_DR_MAX_RANK];
- hsize_t * block_ptr;
- htri_t check; /* Shape comparison return value */
- herr_t ret; /* Generic return value */
-
- HDassert( 0 < small_rank );
- HDassert( small_rank <= large_rank );
- HDassert( large_rank <= SS_DR_MAX_RANK );
- HDassert( 9 <= edge_size );
- HDassert( edge_size <= 1000 );
- HDassert( 0 <= slice_offset );
- HDassert( slice_offset < edge_size );
- HDassert( -2 <= pattern_offset );
- HDassert( pattern_offset <= 2 );
-
- for(i = SS_DR_MAX_RANK - large_rank; i < SS_DR_MAX_RANK; i++)
- if(dim_selected[i] == TRUE)
+ char test_desc_0[128];
+ char test_desc_1[256];
+ int edge_size = 10;
+ int i;
+ int j;
+ int k;
+ int dims_selected = 0;
+ hid_t n_cube_0_sid; /* the hyper cube containing
+ * an irregular selection
+ */
+ hid_t n_cube_1_sid; /* the hyper cube in which a
+ * slice contains an irregular
+ * selection.
+ */
+ hsize_t dims[SS_DR_MAX_RANK];
+ hsize_t start_0[SS_DR_MAX_RANK] = {2, 2, 2, 2, 5};
+ hsize_t stride_0[SS_DR_MAX_RANK] = {10, 10, 10, 10, 10};
+ hsize_t count_0[SS_DR_MAX_RANK] = {1, 1, 1, 1, 1};
+ hsize_t block_0[SS_DR_MAX_RANK] = {2, 2, 2, 2, 3};
+
+ hsize_t start_1[SS_DR_MAX_RANK] = {2, 2, 2, 5, 2};
+ hsize_t stride_1[SS_DR_MAX_RANK] = {10, 10, 10, 10, 10};
+ hsize_t count_1[SS_DR_MAX_RANK] = {1, 1, 1, 1, 1};
+ hsize_t block_1[SS_DR_MAX_RANK] = {2, 2, 2, 3, 2};
+
+ hsize_t start_2[SS_DR_MAX_RANK] = {2, 2, 5, 2, 2};
+ hsize_t stride_2[SS_DR_MAX_RANK] = {10, 10, 10, 10, 10};
+ hsize_t count_2[SS_DR_MAX_RANK] = {1, 1, 1, 1, 1};
+ hsize_t block_2[SS_DR_MAX_RANK] = {2, 2, 3, 2, 2};
+
+ hsize_t start_3[SS_DR_MAX_RANK] = {2, 5, 2, 2, 2};
+ hsize_t stride_3[SS_DR_MAX_RANK] = {10, 10, 10, 10, 10};
+ hsize_t count_3[SS_DR_MAX_RANK] = {1, 1, 1, 1, 1};
+ hsize_t block_3[SS_DR_MAX_RANK] = {2, 3, 2, 2, 2};
+
+ hsize_t start_4[SS_DR_MAX_RANK] = {5, 2, 2, 2, 2};
+ hsize_t stride_4[SS_DR_MAX_RANK] = {10, 10, 10, 10, 10};
+ hsize_t count_4[SS_DR_MAX_RANK] = {1, 1, 1, 1, 1};
+ hsize_t block_4[SS_DR_MAX_RANK] = {3, 2, 2, 2, 2};
+
+ hsize_t clip_start[SS_DR_MAX_RANK] = {0, 0, 0, 0, 0};
+ hsize_t clip_stride[SS_DR_MAX_RANK] = {10, 10, 10, 10, 10};
+ hsize_t clip_count[SS_DR_MAX_RANK] = {1, 1, 1, 1, 1};
+ hsize_t clip_block[SS_DR_MAX_RANK] = {10, 10, 10, 10, 10};
+
+ hsize_t *(starts[SS_DR_MAX_RANK]) = {start_0, start_1, start_2, start_3, start_4};
+ hsize_t *(strides[SS_DR_MAX_RANK]) = {stride_0, stride_1, stride_2, stride_3, stride_4};
+ hsize_t *(counts[SS_DR_MAX_RANK]) = {count_0, count_1, count_2, count_3, count_4};
+ hsize_t *(blocks[SS_DR_MAX_RANK]) = {block_0, block_1, block_2, block_3, block_4};
+
+ hsize_t start[SS_DR_MAX_RANK];
+ hsize_t *start_ptr;
+ hsize_t stride[SS_DR_MAX_RANK];
+ hsize_t *stride_ptr;
+ hsize_t count[SS_DR_MAX_RANK];
+ hsize_t *count_ptr;
+ hsize_t block[SS_DR_MAX_RANK];
+ hsize_t *block_ptr;
+ htri_t check; /* Shape comparison return value */
+ herr_t ret; /* Generic return value */
+
+ HDassert(0 < small_rank);
+ HDassert(small_rank <= large_rank);
+ HDassert(large_rank <= SS_DR_MAX_RANK);
+ HDassert(9 <= edge_size);
+ HDassert(edge_size <= 1000);
+ HDassert(0 <= slice_offset);
+ HDassert(slice_offset < edge_size);
+ HDassert(-2 <= pattern_offset);
+ HDassert(pattern_offset <= 2);
+
+ for (i = SS_DR_MAX_RANK - large_rank; i < SS_DR_MAX_RANK; i++)
+ if (dim_selected[i] == TRUE)
dims_selected++;
- HDassert( dims_selected >= 0 );
- HDassert( dims_selected <= large_rank );
+ HDassert(dims_selected >= 0);
+ HDassert(dims_selected <= large_rank);
- HDsprintf(test_desc_0,
- "\tirregular sub set of n-cube slice through m-cube (n <= m) test %d.\n",
+ HDsprintf(test_desc_0, "\tirregular sub set of n-cube slice through m-cube (n <= m) test %d.\n",
test_num);
MESSAGE(7, (test_desc_0));
/* This statement must be updated if SS_DR_MAX_RANK is changed */
- HDsprintf(test_desc_1,
- "\tranks: %d/%d edge: %d s/p offset: %d/%d dim_selected: %d/%d/%d/%d/%d:%d.\n",
- small_rank, large_rank,
- edge_size,
- slice_offset, pattern_offset,
- (int)dim_selected[0],
- (int)dim_selected[1],
- (int)dim_selected[2],
- (int)dim_selected[3],
- (int)dim_selected[4],
+ HDsprintf(test_desc_1, "\tranks: %d/%d edge: %d s/p offset: %d/%d dim_selected: %d/%d/%d/%d/%d:%d.\n",
+ small_rank, large_rank, edge_size, slice_offset, pattern_offset, (int)dim_selected[0],
+ (int)dim_selected[1], (int)dim_selected[2], (int)dim_selected[3], (int)dim_selected[4],
dims_selected);
MESSAGE(7, (test_desc_1));
/* copy the edge size into the dims array */
- for(i = 0; i < SS_DR_MAX_RANK; i++)
+ for (i = 0; i < SS_DR_MAX_RANK; i++)
dims[i] = (hsize_t)edge_size;
/* Create the small n-cube */
@@ -11592,20 +11703,17 @@ test_shape_same_dr__irregular(int test_num,
CHECK(ret, FAIL, "H5Sselect_none");
/* now, select the irregular pattern */
- for(i = 0; i < SS_DR_MAX_RANK; i++) {
- ret = H5Sselect_hyperslab(n_cube_0_sid, H5S_SELECT_OR,
- starts[i], strides[i], counts[i], blocks[i]);
+ for (i = 0; i < SS_DR_MAX_RANK; i++) {
+ ret = H5Sselect_hyperslab(n_cube_0_sid, H5S_SELECT_OR, starts[i], strides[i], counts[i], blocks[i]);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
} /* end for */
/* finally, clip the selection to ensure that it lies fully
* within the n-cube.
*/
- ret = H5Sselect_hyperslab(n_cube_0_sid, H5S_SELECT_AND,
- clip_start, clip_stride, clip_count, clip_block);
+ ret = H5Sselect_hyperslab(n_cube_0_sid, H5S_SELECT_AND, clip_start, clip_stride, clip_count, clip_block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
-
/* Create the large n-cube */
n_cube_1_sid = H5Screate_simple(large_rank, dims, NULL);
CHECK(n_cube_1_sid, FAIL, "H5Screate_simple");
@@ -11614,7 +11722,6 @@ test_shape_same_dr__irregular(int test_num,
H5Sselect_none(n_cube_1_sid);
CHECK(ret, FAIL, "H5Sselect_none");
-
/* Since large rank may be less than SS_DR_MAX_RANK, we may not
* use the entire start, stride, count, and block arrays. This
* is a problem, since it is inconvenient to set up the dim_selected
@@ -11628,24 +11735,23 @@ test_shape_same_dr__irregular(int test_num,
*/
i = SS_DR_MAX_RANK - large_rank;
- HDassert( i >= 0 );
+ HDassert(i >= 0);
start_ptr = &(start[i]);
stride_ptr = &(stride[i]);
count_ptr = &(count[i]);
block_ptr = &(block[i]);
-
/* Now select the irregular selection in the (possibly larger) n-cube.
*
* Basic idea is to project the pattern used in the smaller n-cube
* onto the dimensions selected in the larger n-cube, with the displacement
* specified.
*/
- for(i = 0; i < SS_DR_MAX_RANK; i++) {
+ for (i = 0; i < SS_DR_MAX_RANK; i++) {
j = 0;
- for(k = 0; k < SS_DR_MAX_RANK; k++) {
- if(dim_selected[k]) {
+ for (k = 0; k < SS_DR_MAX_RANK; k++) {
+ if (dim_selected[k]) {
start[k] = (starts[i])[j] + (hsize_t)pattern_offset;
stride[k] = (strides[i])[j];
count[k] = (counts[i])[j];
@@ -11658,35 +11764,30 @@ test_shape_same_dr__irregular(int test_num,
count[k] = 1;
block[k] = 1;
} /* end else */
- } /* end for */
+ } /* end for */
/* select the hyperslab */
- ret = H5Sselect_hyperslab(n_cube_1_sid, H5S_SELECT_OR,
- start_ptr, stride_ptr, count_ptr, block_ptr);
+ ret = H5Sselect_hyperslab(n_cube_1_sid, H5S_SELECT_OR, start_ptr, stride_ptr, count_ptr, block_ptr);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
} /* end for */
/* it is possible that the selection extends beyond the dataspace.
* clip the selection to ensure that it doesn't.
*/
- ret = H5Sselect_hyperslab(n_cube_1_sid, H5S_SELECT_AND,
- clip_start, clip_stride, clip_count, clip_block);
+ ret = H5Sselect_hyperslab(n_cube_1_sid, H5S_SELECT_AND, clip_start, clip_stride, clip_count, clip_block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
-
/* setup is done -- run the test: */
check = H5Sselect_shape_same(n_cube_0_sid, n_cube_1_sid);
VERIFY(check, expected_result, "H5Sselect_shape_same");
-
/* Close dataspaces */
ret = H5Sclose(n_cube_0_sid);
CHECK(ret, FAIL, "H5Sclose");
ret = H5Sclose(n_cube_1_sid);
CHECK(ret, FAIL, "H5Sclose");
-} /* test_shape_same_dr__irregular() */
-
+} /* test_shape_same_dr__irregular() */
/****************************************************************
**
@@ -11717,191 +11818,132 @@ test_shape_same_dr__run_irregular_tests(void)
{
hbool_t dim_selected[5];
hbool_t expected_result;
- int i, j;
- int v, w, x, y, z;
- int test_num = 0;
- int small_rank;
- int large_rank;
-
- for(large_rank = 1; large_rank <= 5; large_rank++) {
- for(small_rank = 1; small_rank <= large_rank; small_rank++) {
+ int i, j;
+ int v, w, x, y, z;
+ int test_num = 0;
+ int small_rank;
+ int large_rank;
+
+ for (large_rank = 1; large_rank <= 5; large_rank++) {
+ for (small_rank = 1; small_rank <= large_rank; small_rank++) {
v = 0;
do {
- if(v == 0)
+ if (v == 0)
dim_selected[0] = FALSE;
else
dim_selected[0] = TRUE;
w = 0;
do {
- if(w == 0)
+ if (w == 0)
dim_selected[1] = FALSE;
else
dim_selected[1] = TRUE;
x = 0;
do {
- if(x == 0)
+ if (x == 0)
dim_selected[2] = FALSE;
else
dim_selected[2] = TRUE;
y = 0;
do {
- if(y == 0)
+ if (y == 0)
dim_selected[3] = FALSE;
else
dim_selected[3] = TRUE;
z = 0;
do {
- if(z == 0)
+ if (z == 0)
dim_selected[4] = FALSE;
else
dim_selected[4] = TRUE;
-
/* compute the expected result: */
- i = 0;
- j = 4;
+ i = 0;
+ j = 4;
expected_result = TRUE;
- while((i < small_rank) && expected_result) {
- if(!dim_selected[j])
+ while ((i < small_rank) && expected_result) {
+ if (!dim_selected[j])
expected_result = FALSE;
i++;
j--;
} /* end while */
- while((i < large_rank) && expected_result) {
- if(dim_selected[j])
+ while ((i < large_rank) && expected_result) {
+ if (dim_selected[j])
expected_result = FALSE;
i++;
j--;
} /* end while */
-
/* everything is set up -- run the tests */
- test_shape_same_dr__irregular
- (
- test_num++,
- small_rank,
- large_rank,
- /* pattern_offset */ -2,
- /* slice_offset */ 0,
- dim_selected,
- expected_result
- );
-
- test_shape_same_dr__irregular
- (
- test_num++,
- small_rank,
- large_rank,
- /* pattern_offset */ -2,
- /* slice_offset */ 4,
- dim_selected,
- expected_result
- );
-
- test_shape_same_dr__irregular
- (
- test_num++,
- small_rank,
- large_rank,
- /* pattern_offset */ -2,
- /* slice_offset */ 9,
- dim_selected,
- expected_result
- );
-
-
- test_shape_same_dr__irregular
- (
- test_num++,
- small_rank,
- large_rank,
- /* pattern_offset */ 0,
- /* slice_offset */ 0,
- dim_selected,
- expected_result
- );
-
- test_shape_same_dr__irregular
- (
- test_num++,
- small_rank,
- large_rank,
- /* pattern_offset */ 0,
- /* slice_offset */ 6,
- dim_selected,
- expected_result
- );
-
- test_shape_same_dr__irregular
- (
- test_num++,
- small_rank,
- large_rank,
- /* pattern_offset */ 0,
- /* slice_offset */ 9,
- dim_selected,
- expected_result
- );
-
-
- test_shape_same_dr__irregular
- (
- test_num++,
- small_rank,
- large_rank,
- /* pattern_offset */ 2,
- /* slice_offset */ 0,
- dim_selected,
- expected_result
- );
-
- test_shape_same_dr__irregular
- (
- test_num++,
- small_rank,
- large_rank,
- /* pattern_offset */ 2,
- /* slice_offset */ 5,
- dim_selected,
- expected_result
- );
-
- test_shape_same_dr__irregular
- (
- test_num++,
- small_rank,
- large_rank,
- /* pattern_offset */ 2,
- /* slice_offset */ 9,
- dim_selected,
- expected_result
- );
+ test_shape_same_dr__irregular(test_num++, small_rank, large_rank,
+ /* pattern_offset */ -2,
+ /* slice_offset */ 0, dim_selected,
+ expected_result);
+
+ test_shape_same_dr__irregular(test_num++, small_rank, large_rank,
+ /* pattern_offset */ -2,
+ /* slice_offset */ 4, dim_selected,
+ expected_result);
+
+ test_shape_same_dr__irregular(test_num++, small_rank, large_rank,
+ /* pattern_offset */ -2,
+ /* slice_offset */ 9, dim_selected,
+ expected_result);
+
+ test_shape_same_dr__irregular(test_num++, small_rank, large_rank,
+ /* pattern_offset */ 0,
+ /* slice_offset */ 0, dim_selected,
+ expected_result);
+
+ test_shape_same_dr__irregular(test_num++, small_rank, large_rank,
+ /* pattern_offset */ 0,
+ /* slice_offset */ 6, dim_selected,
+ expected_result);
+
+ test_shape_same_dr__irregular(test_num++, small_rank, large_rank,
+ /* pattern_offset */ 0,
+ /* slice_offset */ 9, dim_selected,
+ expected_result);
+
+ test_shape_same_dr__irregular(test_num++, small_rank, large_rank,
+ /* pattern_offset */ 2,
+ /* slice_offset */ 0, dim_selected,
+ expected_result);
+
+ test_shape_same_dr__irregular(test_num++, small_rank, large_rank,
+ /* pattern_offset */ 2,
+ /* slice_offset */ 5, dim_selected,
+ expected_result);
+
+ test_shape_same_dr__irregular(test_num++, small_rank, large_rank,
+ /* pattern_offset */ 2,
+ /* slice_offset */ 9, dim_selected,
+ expected_result);
z++;
- } while((z < 2) && (large_rank >= 1));
+ } while ((z < 2) && (large_rank >= 1));
y++;
- } while((y < 2) && (large_rank >= 2));
+ } while ((y < 2) && (large_rank >= 2));
x++;
- } while((x < 2) && (large_rank >= 3));
+ } while ((x < 2) && (large_rank >= 3));
w++;
- } while((w < 2) && (large_rank >= 4));
+ } while ((w < 2) && (large_rank >= 4));
v++;
- } while((v < 2 ) && (large_rank >= 5));
+ } while ((v < 2) && (large_rank >= 5));
} /* end for */
- } /* end for */
+ } /* end for */
} /* test_shape_same_dr__run_irregular_tests() */
-
/****************************************************************
**
** test_shape_same_dr(): Tests selections on dataspace with
@@ -11925,8 +11967,7 @@ test_shape_same_dr(void)
test_shape_same_dr__run_full_space_vs_slice_tests();
test_shape_same_dr__run_checkerboard_tests();
test_shape_same_dr__run_irregular_tests();
-} /* test_shape_same_dr() */
-
+} /* test_shape_same_dr() */
/****************************************************************
**
@@ -11939,67 +11980,61 @@ test_shape_same_dr(void)
static void
test_space_rebuild(void)
{
- /* regular space IDs in span-tree form */
- hid_t sid_reg1,sid_reg2,sid_reg3,sid_reg4,sid_reg5;
+ /* regular space IDs in span-tree form */
+ hid_t sid_reg1, sid_reg2, sid_reg3, sid_reg4, sid_reg5;
- /* Original regular Space IDs */
- hid_t sid_reg_ori1,sid_reg_ori2,sid_reg_ori3,sid_reg_ori4,sid_reg_ori5;
+ /* Original regular Space IDs */
+ hid_t sid_reg_ori1, sid_reg_ori2, sid_reg_ori3, sid_reg_ori4, sid_reg_ori5;
- /* Irregular space IDs */
- hid_t sid_irreg1,sid_irreg2,sid_irreg3,sid_irreg4,sid_irreg5;
+ /* Irregular space IDs */
+ hid_t sid_irreg1, sid_irreg2, sid_irreg3, sid_irreg4, sid_irreg5;
- /* rebuild status state */
- H5S_diminfo_valid_t rebuild_stat1,rebuild_stat2;
- htri_t rebuild_check;
- herr_t ret;
+ /* rebuild status state */
+ H5S_diminfo_valid_t rebuild_stat1, rebuild_stat2;
+ htri_t rebuild_check;
+ herr_t ret;
- /* dimensions of rank 1 to rank 5 */
- hsize_t dims1[] ={SPACERE1_DIM0};
- hsize_t dims2[] ={SPACERE2_DIM0,SPACERE2_DIM1};
- hsize_t dims3[] ={SPACERE3_DIM0,SPACERE3_DIM1,SPACERE3_DIM2};
- hsize_t dims4[] ={SPACERE4_DIM0,SPACERE4_DIM1,SPACERE4_DIM2,SPACERE4_DIM3};
- hsize_t dims5[] ={SPACERE5_DIM0,SPACERE5_DIM1,SPACERE5_DIM2,SPACERE5_DIM3,SPACERE5_DIM4};
+ /* dimensions of rank 1 to rank 5 */
+ hsize_t dims1[] = {SPACERE1_DIM0};
+ hsize_t dims2[] = {SPACERE2_DIM0, SPACERE2_DIM1};
+ hsize_t dims3[] = {SPACERE3_DIM0, SPACERE3_DIM1, SPACERE3_DIM2};
+ hsize_t dims4[] = {SPACERE4_DIM0, SPACERE4_DIM1, SPACERE4_DIM2, SPACERE4_DIM3};
+ hsize_t dims5[] = {SPACERE5_DIM0, SPACERE5_DIM1, SPACERE5_DIM2, SPACERE5_DIM3, SPACERE5_DIM4};
- /* The start of the hyperslab */
- hsize_t start1[SPACERE1_RANK],start2[SPACERE2_RANK],
- start3[SPACERE3_RANK],start4[SPACERE4_RANK],
- start5[SPACERE5_RANK];
+ /* The start of the hyperslab */
+ hsize_t start1[SPACERE1_RANK], start2[SPACERE2_RANK], start3[SPACERE3_RANK], start4[SPACERE4_RANK],
+ start5[SPACERE5_RANK];
- /* The stride of the hyperslab */
- hsize_t stride1[SPACERE1_RANK],stride2[SPACERE2_RANK],
- stride3[SPACERE3_RANK],stride4[SPACERE4_RANK],
- stride5[SPACERE5_RANK];
+ /* The stride of the hyperslab */
+ hsize_t stride1[SPACERE1_RANK], stride2[SPACERE2_RANK], stride3[SPACERE3_RANK], stride4[SPACERE4_RANK],
+ stride5[SPACERE5_RANK];
- /* The number of blocks for the hyperslab */
- hsize_t count1[SPACERE1_RANK],count2[SPACERE2_RANK],
- count3[SPACERE3_RANK],count4[SPACERE4_RANK],
- count5[SPACERE5_RANK];
+ /* The number of blocks for the hyperslab */
+ hsize_t count1[SPACERE1_RANK], count2[SPACERE2_RANK], count3[SPACERE3_RANK], count4[SPACERE4_RANK],
+ count5[SPACERE5_RANK];
- /* The size of each block for the hyperslab */
- hsize_t block1[SPACERE1_RANK],block2[SPACERE2_RANK],
- block3[SPACERE3_RANK],block4[SPACERE4_RANK],
- block5[SPACERE5_RANK];
-
- /* Declarations for special test of rebuild */
- hid_t sid_spec;
+ /* The size of each block for the hyperslab */
+ hsize_t block1[SPACERE1_RANK], block2[SPACERE2_RANK], block3[SPACERE3_RANK], block4[SPACERE4_RANK],
+ block5[SPACERE5_RANK];
+ /* Declarations for special test of rebuild */
+ hid_t sid_spec;
/* Output message about test being performed */
MESSAGE(6, ("Testing functionality to rebuild regular hyperslab selection\n"));
-
MESSAGE(7, ("Testing functionality to rebuild 1-D hyperslab selection\n"));
/* Create 1-D dataspace */
- sid_reg1 = H5Screate_simple(SPACERE1_RANK,dims1,NULL);
- sid_reg_ori1 = H5Screate_simple(SPACERE1_RANK,dims1,NULL);
+ sid_reg1 = H5Screate_simple(SPACERE1_RANK, dims1, NULL);
+ sid_reg_ori1 = H5Screate_simple(SPACERE1_RANK, dims1, NULL);
/* Build up the original one dimensional regular selection */
start1[0] = 1;
count1[0] = 3;
stride1[0] = 5;
block1[0] = 4;
- ret = H5Sselect_hyperslab(sid_reg_ori1,H5S_SELECT_SET,start1,stride1,count1,block1);
+ ret = H5Sselect_hyperslab(sid_reg_ori1, H5S_SELECT_SET, start1, stride1, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Build up one dimensional regular selection with H5_SELECT_OR,
@@ -12009,71 +12044,70 @@ test_space_rebuild(void)
count1[0] = 2;
stride1[0] = 5;
block1[0] = 4;
- ret = H5Sselect_hyperslab(sid_reg1,H5S_SELECT_SET,start1,stride1,count1,block1);
+ ret = H5Sselect_hyperslab(sid_reg1, H5S_SELECT_SET, start1, stride1, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start1[0] = 11;
count1[0] = 1;
stride1[0] = 5;
block1[0] = 4;
- ret = H5Sselect_hyperslab(sid_reg1,H5S_SELECT_OR,start1,stride1,count1,block1);
+ ret = H5Sselect_hyperslab(sid_reg1, H5S_SELECT_OR, start1, stride1, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- ret = H5S__get_rebuild_status_test(sid_reg1,&rebuild_stat1,&rebuild_stat2);
+ ret = H5S__get_rebuild_status_test(sid_reg1, &rebuild_stat1, &rebuild_stat2);
CHECK(ret, FAIL, "H5S__get_rebuild_status_test");
/* In this case, rebuild_stat1 and rebuild_stat2 should be
* H5S_DIMINFO_VALID_YES. */
- if(rebuild_stat1 != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat1 != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
- if(rebuild_stat2 != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat2 != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
- if(ret != FAIL) {
- /* In this case, rebuild_check should be TRUE. */
- rebuild_check = H5Sselect_shape_same(sid_reg1, sid_reg_ori1);
- CHECK(rebuild_check, FALSE, "H5Sselect_shape_same");
+ if (ret != FAIL) {
+ /* In this case, rebuild_check should be TRUE. */
+ rebuild_check = H5Sselect_shape_same(sid_reg1, sid_reg_ori1);
+ CHECK(rebuild_check, FALSE, "H5Sselect_shape_same");
}
/* For irregular hyperslab */
- sid_irreg1 = H5Screate_simple(SPACERE1_RANK,dims1,NULL);
+ sid_irreg1 = H5Screate_simple(SPACERE1_RANK, dims1, NULL);
/* Build up one dimensional irregular selection with H5_SELECT_OR */
start1[0] = 1;
count1[0] = 2;
stride1[0] = 5;
block1[0] = 4;
- ret = H5Sselect_hyperslab(sid_irreg1,H5S_SELECT_SET,start1,stride1,count1,block1);
+ ret = H5Sselect_hyperslab(sid_irreg1, H5S_SELECT_SET, start1, stride1, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start1[0] = 12; /* Just one position switch */
count1[0] = 1;
stride1[0] = 5;
block1[0] = 4;
- ret = H5Sselect_hyperslab(sid_irreg1,H5S_SELECT_OR,start1,stride1,count1,block1);
+ ret = H5Sselect_hyperslab(sid_irreg1, H5S_SELECT_OR, start1, stride1, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- ret = H5S__get_rebuild_status_test(sid_irreg1,&rebuild_stat1,&rebuild_stat2);
+ ret = H5S__get_rebuild_status_test(sid_irreg1, &rebuild_stat1, &rebuild_stat2);
CHECK(ret, FAIL, "H5S__get_rebuild_status_test");
/* In this case, rebuild_stat1 should be H5S_DIMINFO_VALID_NO and
* rebuild_stat2 should be H5S_DIMINFO_VALID_IMPOSSIBLE. */
- if(rebuild_stat1 != H5S_DIMINFO_VALID_NO) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat1 != H5S_DIMINFO_VALID_NO) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
- if(rebuild_stat2 != H5S_DIMINFO_VALID_IMPOSSIBLE) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat2 != H5S_DIMINFO_VALID_IMPOSSIBLE) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
/* No need to do shape comparision */
-
MESSAGE(7, ("Testing functionality to rebuild 2-D hyperslab selection\n"));
/* Create 2-D dataspace */
- sid_reg2 = H5Screate_simple(SPACERE2_RANK,dims2,NULL);
- sid_reg_ori2 = H5Screate_simple(SPACERE2_RANK,dims2,NULL);
+ sid_reg2 = H5Screate_simple(SPACERE2_RANK, dims2, NULL);
+ sid_reg_ori2 = H5Screate_simple(SPACERE2_RANK, dims2, NULL);
/* Build up the original two dimensional regular selection */
start2[0] = 2;
@@ -12085,7 +12119,7 @@ test_space_rebuild(void)
stride2[1] = 3;
block2[1] = 2;
- ret = H5Sselect_hyperslab(sid_reg_ori2,H5S_SELECT_SET,start2,stride2,count2,block2);
+ ret = H5Sselect_hyperslab(sid_reg_ori2, H5S_SELECT_SET, start2, stride2, count2, block2);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Build up two dimensional regular selection with H5_SELECT_OR, inside HDF5,
@@ -12096,7 +12130,7 @@ test_space_rebuild(void)
stride2[1] = 3;
block2[1] = 2;
- ret = H5Sselect_hyperslab(sid_reg2,H5S_SELECT_SET,start2,stride2,count2,block2);
+ ret = H5Sselect_hyperslab(sid_reg2, H5S_SELECT_SET, start2, stride2, count2, block2);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start2[1] = 7; /* 7 = start(1) + count(2) * stride(3) */
@@ -12104,29 +12138,29 @@ test_space_rebuild(void)
stride2[1] = 3;
block2[1] = 2;
- ret = H5Sselect_hyperslab(sid_reg2,H5S_SELECT_OR,start2,stride2,count2,block2);
+ ret = H5Sselect_hyperslab(sid_reg2, H5S_SELECT_OR, start2, stride2, count2, block2);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- ret = H5S__get_rebuild_status_test(sid_reg2,&rebuild_stat1,&rebuild_stat2);
+ ret = H5S__get_rebuild_status_test(sid_reg2, &rebuild_stat1, &rebuild_stat2);
CHECK(ret, FAIL, "H5S__get_rebuild_status_test");
/* In this case, rebuild_stat1 and rebuild_stat2 should be
* H5S_DIMINFO_VALID_YES. */
- if(rebuild_stat1 != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat1 != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
- if(rebuild_stat2 != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat2 != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
} /* end if */
- if(ret != FAIL) {
- /* In this case, rebuild_check should be TRUE. */
- rebuild_check = H5Sselect_shape_same(sid_reg2, sid_reg_ori2);
- CHECK(rebuild_check, FALSE, "H5Sselect_shape_same");
+ if (ret != FAIL) {
+ /* In this case, rebuild_check should be TRUE. */
+ rebuild_check = H5Sselect_shape_same(sid_reg2, sid_reg_ori2);
+ CHECK(rebuild_check, FALSE, "H5Sselect_shape_same");
}
/* 2-D irregular case */
- sid_irreg2 = H5Screate_simple(SPACERE2_RANK,dims2,NULL);
+ sid_irreg2 = H5Screate_simple(SPACERE2_RANK, dims2, NULL);
/* Build up two dimensional irregular selection with H5_SELECT_OR */
start2[0] = 2;
@@ -12137,7 +12171,7 @@ test_space_rebuild(void)
count2[1] = 1;
stride2[1] = 3;
block2[1] = 2;
- ret = H5Sselect_hyperslab(sid_irreg2,H5S_SELECT_SET,start2,stride2,count2,block2);
+ ret = H5Sselect_hyperslab(sid_irreg2, H5S_SELECT_SET, start2, stride2, count2, block2);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start2[1] = 4;
@@ -12145,28 +12179,28 @@ test_space_rebuild(void)
stride2[1] = 4;
block2[1] = 3; /* Just add one element for the block */
- ret = H5Sselect_hyperslab(sid_irreg2,H5S_SELECT_OR,start2,stride2,count2,block2);
+ ret = H5Sselect_hyperslab(sid_irreg2, H5S_SELECT_OR, start2, stride2, count2, block2);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- ret = H5S__get_rebuild_status_test(sid_irreg2,&rebuild_stat1,&rebuild_stat2);
+ ret = H5S__get_rebuild_status_test(sid_irreg2, &rebuild_stat1, &rebuild_stat2);
CHECK(ret, FAIL, "H5S__get_rebuild_status_test");
/* In this case, rebuild_stat1 should be H5S_DIMINFO_VALID_NO and
* rebuild_stat2 should be H5S_DIMINFO_VALID_IMPOSSIBLE. */
- if(rebuild_stat1 != H5S_DIMINFO_VALID_NO) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat1 != H5S_DIMINFO_VALID_NO) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
- if(rebuild_stat2 != H5S_DIMINFO_VALID_IMPOSSIBLE) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat2 != H5S_DIMINFO_VALID_IMPOSSIBLE) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
/* No need to do shape comparision */
MESSAGE(7, ("Testing functionality to rebuild 3-D hyperslab selection\n"));
/* Create 3-D dataspace */
- sid_reg3 = H5Screate_simple(SPACERE3_RANK,dims3,NULL);
- sid_reg_ori3 = H5Screate_simple(SPACERE3_RANK,dims3,NULL);
+ sid_reg3 = H5Screate_simple(SPACERE3_RANK, dims3, NULL);
+ sid_reg_ori3 = H5Screate_simple(SPACERE3_RANK, dims3, NULL);
/* Build up the original three dimensional regular selection */
start3[0] = 2;
@@ -12183,8 +12217,7 @@ test_space_rebuild(void)
stride3[2] = 4;
block3[2] = 2;
-
- ret = H5Sselect_hyperslab(sid_reg_ori3,H5S_SELECT_SET,start3,stride3,count3,block3);
+ ret = H5Sselect_hyperslab(sid_reg_ori3, H5S_SELECT_SET, start3, stride3, count3, block3);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Build up three dimensional regular selection with H5_SELECT_OR, inside HDF5,
@@ -12194,7 +12227,7 @@ test_space_rebuild(void)
stride3[2] = 4;
block3[2] = 2;
- ret = H5Sselect_hyperslab(sid_reg3,H5S_SELECT_SET,start3,stride3,count3,block3);
+ ret = H5Sselect_hyperslab(sid_reg3, H5S_SELECT_SET, start3, stride3, count3, block3);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start3[2] = 5;
@@ -12202,28 +12235,28 @@ test_space_rebuild(void)
stride3[2] = 4;
block3[2] = 2;
- ret = H5Sselect_hyperslab(sid_reg3,H5S_SELECT_OR,start3,stride3,count3,block3);
+ ret = H5Sselect_hyperslab(sid_reg3, H5S_SELECT_OR, start3, stride3, count3, block3);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- ret = H5S__get_rebuild_status_test(sid_reg3,&rebuild_stat1,&rebuild_stat2);
+ ret = H5S__get_rebuild_status_test(sid_reg3, &rebuild_stat1, &rebuild_stat2);
CHECK(ret, FAIL, "H5S__get_rebuild_status_test");
/* In this case, rebuild_stat1 and rebuild_stat2 should be
* H5S_DIMINFO_VALID_YES. */
- if(rebuild_stat1 != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat1 != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
- if(rebuild_stat2 != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat2 != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
- if(ret != FAIL) {
- /* In this case, rebuild_check should be TRUE. */
- rebuild_check = H5Sselect_shape_same(sid_reg3, sid_reg_ori3);
- CHECK(rebuild_check, FALSE, "H5Sselect_shape_same");
+ if (ret != FAIL) {
+ /* In this case, rebuild_check should be TRUE. */
+ rebuild_check = H5Sselect_shape_same(sid_reg3, sid_reg_ori3);
+ CHECK(rebuild_check, FALSE, "H5Sselect_shape_same");
}
- sid_irreg3 = H5Screate_simple(SPACERE3_RANK,dims3,NULL);
+ sid_irreg3 = H5Screate_simple(SPACERE3_RANK, dims3, NULL);
/* Build up three dimensional irregular selection with H5_SELECT_OR */
start3[0] = 2;
@@ -12240,7 +12273,7 @@ test_space_rebuild(void)
stride3[2] = 2;
block3[2] = 1;
- ret = H5Sselect_hyperslab(sid_irreg3,H5S_SELECT_SET,start3,stride3,count3,block3);
+ ret = H5Sselect_hyperslab(sid_irreg3, H5S_SELECT_SET, start3, stride3, count3, block3);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start3[2] = 3;
@@ -12248,28 +12281,28 @@ test_space_rebuild(void)
stride3[2] = 3; /* Just add one element for the stride */
block3[2] = 1;
- ret = H5Sselect_hyperslab(sid_irreg3,H5S_SELECT_OR,start3,stride3,count3,block3);
+ ret = H5Sselect_hyperslab(sid_irreg3, H5S_SELECT_OR, start3, stride3, count3, block3);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- ret = H5S__get_rebuild_status_test(sid_irreg3,&rebuild_stat1,&rebuild_stat2);
+ ret = H5S__get_rebuild_status_test(sid_irreg3, &rebuild_stat1, &rebuild_stat2);
CHECK(ret, FAIL, "H5S__get_rebuild_status_test");
/* In this case, rebuild_stat1 should be H5S_DIMINFO_VALID_NO and
* rebuild_stat2 should be H5S_DIMINFO_VALID_IMPOSSIBLE. */
- if(rebuild_stat1 != H5S_DIMINFO_VALID_NO) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat1 != H5S_DIMINFO_VALID_NO) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
- if(rebuild_stat2 != H5S_DIMINFO_VALID_IMPOSSIBLE) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat2 != H5S_DIMINFO_VALID_IMPOSSIBLE) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
/* No need to do shape comparision */
MESSAGE(7, ("Testing functionality to rebuild 4-D hyperslab selection\n"));
/* Create 4-D dataspace */
- sid_reg4 = H5Screate_simple(SPACERE4_RANK,dims4,NULL);
- sid_reg_ori4 = H5Screate_simple(SPACERE4_RANK,dims4,NULL);
+ sid_reg4 = H5Screate_simple(SPACERE4_RANK, dims4, NULL);
+ sid_reg_ori4 = H5Screate_simple(SPACERE4_RANK, dims4, NULL);
/* Build up the original four dimensional regular selection */
start4[0] = 2;
@@ -12292,8 +12325,7 @@ test_space_rebuild(void)
stride4[3] = 4;
block4[3] = 2;
-
- ret = H5Sselect_hyperslab(sid_reg_ori4,H5S_SELECT_SET,start4,stride4,count4,block4);
+ ret = H5Sselect_hyperslab(sid_reg_ori4, H5S_SELECT_SET, start4, stride4, count4, block4);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Build up four dimensional regular selection with H5_SELECT_OR, inside HDF5,
@@ -12303,7 +12335,7 @@ test_space_rebuild(void)
stride4[3] = 4;
block4[3] = 2;
- ret = H5Sselect_hyperslab(sid_reg4,H5S_SELECT_SET,start4,stride4,count4,block4);
+ ret = H5Sselect_hyperslab(sid_reg4, H5S_SELECT_SET, start4, stride4, count4, block4);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start4[3] = 5;
@@ -12311,31 +12343,29 @@ test_space_rebuild(void)
stride4[3] = 4;
block4[3] = 2;
-
- ret = H5Sselect_hyperslab(sid_reg4,H5S_SELECT_OR,start4,stride4,count4,block4);
+ ret = H5Sselect_hyperslab(sid_reg4, H5S_SELECT_OR, start4, stride4, count4, block4);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
-
- ret = H5S__get_rebuild_status_test(sid_reg4,&rebuild_stat1,&rebuild_stat2);
+ ret = H5S__get_rebuild_status_test(sid_reg4, &rebuild_stat1, &rebuild_stat2);
CHECK(ret, FAIL, "H5S__get_rebuild_status_test");
/* In this case, rebuild_stat1 and rebuild_stat2 should be
* H5S_DIMINFO_VALID_YES. */
- if(rebuild_stat1 != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat1 != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
- if(rebuild_stat2 != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat2 != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
- if(ret != FAIL) {
- /* In this case, rebuild_check should be TRUE. */
- rebuild_check = H5Sselect_shape_same(sid_reg4, sid_reg_ori4);
- CHECK(rebuild_check, FALSE, "H5Sselect_shape_same");
+ if (ret != FAIL) {
+ /* In this case, rebuild_check should be TRUE. */
+ rebuild_check = H5Sselect_shape_same(sid_reg4, sid_reg_ori4);
+ CHECK(rebuild_check, FALSE, "H5Sselect_shape_same");
}
/* Testing irregular selection */
- sid_irreg4 = H5Screate_simple(SPACERE4_RANK,dims4,NULL);
+ sid_irreg4 = H5Screate_simple(SPACERE4_RANK, dims4, NULL);
/* Build up four dimensional irregular selection with H5_SELECT_OR */
start4[0] = 2;
@@ -12357,7 +12387,7 @@ test_space_rebuild(void)
stride4[3] = 4;
block4[3] = 2; /* sub-block is one element difference */
- ret = H5Sselect_hyperslab(sid_irreg4,H5S_SELECT_SET,start4,stride4,count4,block4);
+ ret = H5Sselect_hyperslab(sid_irreg4, H5S_SELECT_SET, start4, stride4, count4, block4);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start4[2] = 5;
@@ -12368,30 +12398,30 @@ test_space_rebuild(void)
start4[3] = 1;
count4[3] = 2;
stride4[3] = 4;
- block4[3] = 3; /* sub-block is one element difference */
+ block4[3] = 3; /* sub-block is one element difference */
- ret = H5Sselect_hyperslab(sid_irreg4,H5S_SELECT_OR,start4,stride4,count4,block4);
+ ret = H5Sselect_hyperslab(sid_irreg4, H5S_SELECT_OR, start4, stride4, count4, block4);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- ret = H5S__get_rebuild_status_test(sid_irreg4,&rebuild_stat1,&rebuild_stat2);
+ ret = H5S__get_rebuild_status_test(sid_irreg4, &rebuild_stat1, &rebuild_stat2);
CHECK(ret, FAIL, "H5S__get_rebuild_status_test");
/* In this case, rebuild_stat1 should be H5S_DIMINFO_VALID_NO and
* rebuild_stat2 should be H5S_DIMINFO_VALID_IMPOSSIBLE. */
- if(rebuild_stat1 != H5S_DIMINFO_VALID_NO) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat1 != H5S_DIMINFO_VALID_NO) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
- if(rebuild_stat2 != H5S_DIMINFO_VALID_IMPOSSIBLE) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat2 != H5S_DIMINFO_VALID_IMPOSSIBLE) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
/* No need to do shape comparision */
MESSAGE(7, ("Testing functionality to rebuild 5-D hyperslab selection\n"));
/* Create 5-D dataspace */
- sid_reg5 = H5Screate_simple(SPACERE5_RANK,dims5,NULL);
- sid_reg_ori5 = H5Screate_simple(SPACERE5_RANK,dims5,NULL);
+ sid_reg5 = H5Screate_simple(SPACERE5_RANK, dims5, NULL);
+ sid_reg_ori5 = H5Screate_simple(SPACERE5_RANK, dims5, NULL);
/* Build up the original five dimensional regular selection */
start5[0] = 2;
@@ -12419,7 +12449,7 @@ test_space_rebuild(void)
stride5[4] = 4;
block5[4] = 2;
- ret = H5Sselect_hyperslab(sid_reg_ori5,H5S_SELECT_SET,start5,stride5,count5,block5);
+ ret = H5Sselect_hyperslab(sid_reg_ori5, H5S_SELECT_SET, start5, stride5, count5, block5);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Build up five dimensional regular selection with H5_SELECT_OR, inside HDF5,
@@ -12429,7 +12459,7 @@ test_space_rebuild(void)
stride5[4] = 4;
block5[4] = 2;
- ret = H5Sselect_hyperslab(sid_reg5,H5S_SELECT_SET,start5,stride5,count5,block5);
+ ret = H5Sselect_hyperslab(sid_reg5, H5S_SELECT_SET, start5, stride5, count5, block5);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start5[4] = 5;
@@ -12437,30 +12467,28 @@ test_space_rebuild(void)
stride5[4] = 4;
block5[4] = 2;
-
- ret = H5Sselect_hyperslab(sid_reg5,H5S_SELECT_OR,start5,stride5,count5,block5);
+ ret = H5Sselect_hyperslab(sid_reg5, H5S_SELECT_OR, start5, stride5, count5, block5);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
-
- ret = H5S__get_rebuild_status_test(sid_reg5,&rebuild_stat1,&rebuild_stat2);
+ ret = H5S__get_rebuild_status_test(sid_reg5, &rebuild_stat1, &rebuild_stat2);
CHECK(ret, FAIL, "H5S__get_rebuild_status_test");
/* In this case, rebuild_stat1 and rebuild_stat2 should be
* H5S_DIMINFO_VALID_YES. */
- if(rebuild_stat1 != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat1 != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
- if(rebuild_stat2 != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat2 != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
- if(ret != FAIL) {
- /* In this case, rebuild_check should be TRUE. */
- rebuild_check = H5Sselect_shape_same(sid_reg5, sid_reg_ori5);
- CHECK(rebuild_check, FALSE, "H5Sselect_shape_same");
+ if (ret != FAIL) {
+ /* In this case, rebuild_check should be TRUE. */
+ rebuild_check = H5Sselect_shape_same(sid_reg5, sid_reg_ori5);
+ CHECK(rebuild_check, FALSE, "H5Sselect_shape_same");
}
- sid_irreg5 = H5Screate_simple(SPACERE5_RANK,dims5,NULL);
+ sid_irreg5 = H5Screate_simple(SPACERE5_RANK, dims5, NULL);
/* Build up five dimensional irregular selection with H5_SELECT_OR */
start5[0] = 2;
@@ -12488,7 +12516,7 @@ test_space_rebuild(void)
stride5[4] = 4;
block5[4] = 2;
- ret = H5Sselect_hyperslab(sid_irreg5,H5S_SELECT_SET,start5,stride5,count5,block5);
+ ret = H5Sselect_hyperslab(sid_irreg5, H5S_SELECT_SET, start5, stride5, count5, block5);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start5[3] = 5;
@@ -12501,26 +12529,26 @@ test_space_rebuild(void)
stride5[4] = 4;
block5[4] = 2;
- ret = H5Sselect_hyperslab(sid_irreg5,H5S_SELECT_OR,start5,stride5,count5,block5);
+ ret = H5Sselect_hyperslab(sid_irreg5, H5S_SELECT_OR, start5, stride5, count5, block5);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- ret = H5S__get_rebuild_status_test(sid_irreg5,&rebuild_stat1,&rebuild_stat2);
+ ret = H5S__get_rebuild_status_test(sid_irreg5, &rebuild_stat1, &rebuild_stat2);
CHECK(ret, FAIL, "H5S__get_rebuild_status_test");
/* In this case, rebuild_stat1 should be H5S_DIMINFO_VALID_NO and
* rebuild_stat2 should be H5S_DIMINFO_VALID_IMPOSSIBLE. */
- if(rebuild_stat1 != H5S_DIMINFO_VALID_NO) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat1 != H5S_DIMINFO_VALID_NO) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
- if(rebuild_stat2 != H5S_DIMINFO_VALID_IMPOSSIBLE) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat2 != H5S_DIMINFO_VALID_IMPOSSIBLE) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
/* No need to do shape comparision */
- /* We use 5-D to test a special case with
- rebuilding routine TRUE, FALSE and TRUE */
- sid_spec = H5Screate_simple(SPACERE5_RANK,dims5,NULL);
+ /* We use 5-D to test a special case with
+ rebuilding routine TRUE, FALSE and TRUE */
+ sid_spec = H5Screate_simple(SPACERE5_RANK, dims5, NULL);
/* Build up the original five dimensional regular selection */
start5[0] = 2;
@@ -12548,20 +12576,20 @@ test_space_rebuild(void)
stride5[4] = 4;
block5[4] = 2;
- ret = H5Sselect_hyperslab(sid_spec,H5S_SELECT_SET,start5,stride5,count5,block5);
+ ret = H5Sselect_hyperslab(sid_spec, H5S_SELECT_SET, start5, stride5, count5, block5);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- ret = H5S__get_rebuild_status_test(sid_spec,&rebuild_stat1,&rebuild_stat2);
+ ret = H5S__get_rebuild_status_test(sid_spec, &rebuild_stat1, &rebuild_stat2);
CHECK(ret, FAIL, "H5S__get_rebuild_status_test");
/* In this case, rebuild_stat1 and rebuild_stat2 should both be
* H5S_DIMINFO_VALID_YES. */
- if(rebuild_stat1 != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat1 != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
- if(rebuild_stat2 != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat2 != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
/* No need to do shape comparision */
@@ -12576,20 +12604,20 @@ test_space_rebuild(void)
stride5[4] = 4;
block5[4] = 2;
- ret = H5Sselect_hyperslab(sid_spec,H5S_SELECT_OR,start5,stride5,count5,block5);
+ ret = H5Sselect_hyperslab(sid_spec, H5S_SELECT_OR, start5, stride5, count5, block5);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- ret = H5S__get_rebuild_status_test(sid_spec,&rebuild_stat1,&rebuild_stat2);
+ ret = H5S__get_rebuild_status_test(sid_spec, &rebuild_stat1, &rebuild_stat2);
CHECK(ret, FAIL, "H5S__get_rebuild_status_test");
/* In this case, rebuild_stat1 should be H5S_DIMINFO_VALID_NO and
* rebuild_stat2 should be H5S_DIMINFO_VALID_IMPOSSIBLE. */
- if(rebuild_stat1 != H5S_DIMINFO_VALID_NO) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat1 != H5S_DIMINFO_VALID_NO) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
- if(rebuild_stat2 != H5S_DIMINFO_VALID_IMPOSSIBLE) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat2 != H5S_DIMINFO_VALID_IMPOSSIBLE) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
/* No need to do shape comparision */
@@ -12604,20 +12632,20 @@ test_space_rebuild(void)
stride5[4] = 4;
block5[4] = 2;
- ret = H5Sselect_hyperslab(sid_spec,H5S_SELECT_OR,start5,stride5,count5,block5);
+ ret = H5Sselect_hyperslab(sid_spec, H5S_SELECT_OR, start5, stride5, count5, block5);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- ret = H5S__get_rebuild_status_test(sid_spec,&rebuild_stat1,&rebuild_stat2);
+ ret = H5S__get_rebuild_status_test(sid_spec, &rebuild_stat1, &rebuild_stat2);
CHECK(ret, FAIL, "H5S__get_rebuild_status_test");
/* In this case, rebuild_stat1 should be H5S_DIMINFO_VALID_NO and
* rebuild_stat2 should be H5S_DIMINFO_VALID_YES. */
- if(rebuild_stat1 != H5S_DIMINFO_VALID_NO) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat1 != H5S_DIMINFO_VALID_NO) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
- if(rebuild_stat2 != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret,FAIL,"H5S_hyper_rebuild");
+ if (rebuild_stat2 != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
}
/* No need to do shape comparision */
@@ -12650,7 +12678,6 @@ test_space_rebuild(void)
CHECK(ret, FAIL, "H5Sclose");
}
-
/****************************************************************
**
** test_space_update_diminfo(): Tests selection diminfo update
@@ -12662,33 +12689,31 @@ test_space_rebuild(void)
static void
test_space_update_diminfo(void)
{
- hid_t space_id; /* Dataspace id */
- H5S_diminfo_valid_t diminfo_valid; /* Diminfo status */
- H5S_diminfo_valid_t rebuild_status; /* Diminfo status after rebuid */
- H5S_sel_type sel_type; /* Selection type */
- herr_t ret; /* Return value */
-
- /* dimensions of rank 1 to rank 5 */
- hsize_t dims1[] ={SPACEUD1_DIM0};
- hsize_t dims3[] ={SPACEUD3_DIM0, SPACEUD3_DIM1, SPACEUD3_DIM2};
+ hid_t space_id; /* Dataspace id */
+ H5S_diminfo_valid_t diminfo_valid; /* Diminfo status */
+ H5S_diminfo_valid_t rebuild_status; /* Diminfo status after rebuid */
+ H5S_sel_type sel_type; /* Selection type */
+ herr_t ret; /* Return value */
- /* The start of the hyperslab */
- hsize_t start1[1], start3[3];
+ /* dimensions of rank 1 to rank 5 */
+ hsize_t dims1[] = {SPACEUD1_DIM0};
+ hsize_t dims3[] = {SPACEUD3_DIM0, SPACEUD3_DIM1, SPACEUD3_DIM2};
- /* The stride of the hyperslab */
- hsize_t stride1[1], stride3[3];
+ /* The start of the hyperslab */
+ hsize_t start1[1], start3[3];
- /* The number of blocks for the hyperslab */
- hsize_t count1[1], count3[3];
+ /* The stride of the hyperslab */
+ hsize_t stride1[1], stride3[3];
- /* The size of each block for the hyperslab */
- hsize_t block1[1], block3[3];
+ /* The number of blocks for the hyperslab */
+ hsize_t count1[1], count3[3];
+ /* The size of each block for the hyperslab */
+ hsize_t block1[1], block3[3];
/* Output message about test being performed */
MESSAGE(6, ("Testing functionality to update hyperslab dimension info\n"));
-
MESSAGE(7, ("Testing functionality to update 1-D hyperslab dimension info\n"));
/*
@@ -12696,51 +12721,51 @@ test_space_update_diminfo(void)
*/
/* Create 1-D dataspace */
- space_id = H5Screate_simple(1, dims1, NULL);
+ space_id = H5Screate_simple(1, dims1, NULL);
/* Create single block */
- start1[0] = 3;
- count1[0] = 1;
- block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start1, NULL, count1, block1);
+ start1[0] = 3;
+ count1[0] = 1;
+ block1[0] = 2;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Add block after first, with OR */
- start1[0] = 6;
- count1[0] = 1;
- block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
+ start1[0] = 6;
+ count1[0] = 1;
+ block1[0] = 2;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Add block before first, this time with XOR */
- start1[0] = 0;
- count1[0] = 1;
- block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_XOR, start1, NULL, count1, block1);
+ start1[0] = 0;
+ count1[0] = 1;
+ block1[0] = 2;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_XOR, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Add two blocks after current block */
@@ -12748,15 +12773,15 @@ test_space_update_diminfo(void)
stride1[0] = 3;
count1[0] = 2;
block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, stride1, count1, block1);
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, stride1, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Add two blocks overlapping current block, with OR */
@@ -12764,15 +12789,15 @@ test_space_update_diminfo(void)
stride1[0] = 3;
count1[0] = 2;
block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, stride1, count1, block1);
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, stride1, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Add two blocks partially overlapping current block, with OR */
@@ -12780,15 +12805,15 @@ test_space_update_diminfo(void)
stride1[0] = 3;
count1[0] = 2;
block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, stride1, count1, block1);
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, stride1, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Add two blocks partially overlapping current block, with XOR */
@@ -12796,40 +12821,38 @@ test_space_update_diminfo(void)
stride1[0] = 3;
count1[0] = 2;
block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_XOR, start1, stride1, count1, block1);
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_XOR, start1, stride1, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be NO, after rebuild it should be IMPOSSIBLE */
- ret = H5S__get_rebuild_status_test(space_id, &diminfo_valid,
- &rebuild_status);
+ ret = H5S__get_rebuild_status_test(space_id, &diminfo_valid, &rebuild_status);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_NO) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_NO) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
- if(rebuild_status != H5S_DIMINFO_VALID_IMPOSSIBLE) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_rebuild");
+ if (rebuild_status != H5S_DIMINFO_VALID_IMPOSSIBLE) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
} /* end if */
/* Fill in missing block */
- start1[0] = 15;
- count1[0] = 1;
- block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_XOR, start1, NULL, count1, block1);
+ start1[0] = 15;
+ count1[0] = 1;
+ block1[0] = 2;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_XOR, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be NO, after rebuild it should be YES */
- ret = H5S__get_rebuild_status_test(space_id, &diminfo_valid,
- &rebuild_status);
+ ret = H5S__get_rebuild_status_test(space_id, &diminfo_valid, &rebuild_status);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_NO) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_NO) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
- if(rebuild_status != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_rebuild");
+ if (rebuild_status != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
} /* end if */
/*
@@ -12837,63 +12860,63 @@ test_space_update_diminfo(void)
*/
/* Create single block */
- start1[0] = 3;
- count1[0] = 1;
- block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start1, NULL, count1, block1);
+ start1[0] = 3;
+ count1[0] = 1;
+ block1[0] = 2;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Add block immediately after first, with OR */
- start1[0] = 5;
- count1[0] = 1;
- block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
+ start1[0] = 5;
+ count1[0] = 1;
+ block1[0] = 2;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Add block immediately before first, with XOR */
- start1[0] = 1;
- count1[0] = 1;
- block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
+ start1[0] = 1;
+ count1[0] = 1;
+ block1[0] = 2;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Add differently size block immediately after current, with OR */
- start1[0] = 7;
- count1[0] = 1;
- block1[0] = 7;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
+ start1[0] = 7;
+ count1[0] = 1;
+ block1[0] = 7;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/*
@@ -12901,155 +12924,153 @@ test_space_update_diminfo(void)
*/
/* Create single block */
- start1[0] = 3;
- count1[0] = 1;
- block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start1, NULL, count1, block1);
+ start1[0] = 3;
+ count1[0] = 1;
+ block1[0] = 2;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Add block completely overlapping first, with OR */
- start1[0] = 3;
- count1[0] = 1;
- block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
+ start1[0] = 3;
+ count1[0] = 1;
+ block1[0] = 2;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Add block parially overlapping first, with OR */
- start1[0] = 4;
- count1[0] = 1;
- block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
+ start1[0] = 4;
+ count1[0] = 1;
+ block1[0] = 2;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Add block completely enclosing current, with OR */
- start1[0] = 2;
- count1[0] = 1;
- block1[0] = 5;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
+ start1[0] = 2;
+ count1[0] = 1;
+ block1[0] = 5;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Add block completely enclosed by current, with OR */
- start1[0] = 3;
- count1[0] = 1;
- block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
+ start1[0] = 3;
+ count1[0] = 1;
+ block1[0] = 2;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Add equally sized block parially overlapping current, with XOR */
- start1[0] = 3;
- count1[0] = 1;
- block1[0] = 5;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_XOR, start1, NULL, count1, block1);
+ start1[0] = 3;
+ count1[0] = 1;
+ block1[0] = 5;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_XOR, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Fill in hole in block */
- start1[0] = 3;
- count1[0] = 1;
- block1[0] = 4;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
+ start1[0] = 3;
+ count1[0] = 1;
+ block1[0] = 4;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be NO, after rebuild it should be YES */
- ret = H5S__get_rebuild_status_test(space_id, &diminfo_valid,
- &rebuild_status);
+ ret = H5S__get_rebuild_status_test(space_id, &diminfo_valid, &rebuild_status);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_NO) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_NO) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
- if(rebuild_status != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_rebuild");
+ if (rebuild_status != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
} /* end if */
/* Add differently sized block parially overlapping current, with XOR */
- start1[0] = 4;
- count1[0] = 1;
- block1[0] = 5;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_XOR, start1, NULL, count1, block1);
+ start1[0] = 4;
+ count1[0] = 1;
+ block1[0] = 5;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_XOR, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be NO */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_NO) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_NO) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Fill in hole in block */
- start1[0] = 4;
- count1[0] = 1;
- block1[0] = 4;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
+ start1[0] = 4;
+ count1[0] = 1;
+ block1[0] = 4;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be NO, after rebuild it should be YES */
- ret = H5S__get_rebuild_status_test(space_id, &diminfo_valid,
- &rebuild_status);
+ ret = H5S__get_rebuild_status_test(space_id, &diminfo_valid, &rebuild_status);
CHECK(ret, FAIL, "H5S__get_rebuild_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_NO) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_NO) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
- if(rebuild_status != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_rebuild");
+ if (rebuild_status != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_rebuild");
} /* end if */
/* Add block completely overlapping current, with XOR */
- start1[0] = 2;
- count1[0] = 1;
- block1[0] = 7;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_XOR, start1, NULL, count1, block1);
+ start1[0] = 2;
+ count1[0] = 1;
+ block1[0] = 7;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_XOR, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
sel_type = H5Sget_select_type(space_id);
@@ -13064,30 +13085,30 @@ test_space_update_diminfo(void)
stride1[0] = 3;
count1[0] = 2;
block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start1, stride1, count1, block1);
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start1, stride1, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Create single block with start out of phase */
- start1[0] = 8;
- count1[0] = 1;
- block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
+ start1[0] = 8;
+ count1[0] = 1;
+ block1[0] = 2;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be NO */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_NO) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_NO) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Create multiple blocks */
@@ -13095,15 +13116,15 @@ test_space_update_diminfo(void)
stride1[0] = 3;
count1[0] = 2;
block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start1, stride1, count1, block1);
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start1, stride1, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Create multiple blocks with start out of phase */
@@ -13111,15 +13132,15 @@ test_space_update_diminfo(void)
stride1[0] = 3;
count1[0] = 2;
block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, stride1, count1, block1);
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, stride1, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be NO */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_NO) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_NO) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Create multiple blocks */
@@ -13127,15 +13148,15 @@ test_space_update_diminfo(void)
stride1[0] = 3;
count1[0] = 2;
block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start1, stride1, count1, block1);
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start1, stride1, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Create multiple blocks with wrong stride */
@@ -13143,60 +13164,60 @@ test_space_update_diminfo(void)
stride1[0] = 4;
count1[0] = 2;
block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, stride1, count1, block1);
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, stride1, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be NO */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_NO) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_NO) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Create single block */
- start1[0] = 3;
- count1[0] = 1;
- block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start1, NULL, count1, block1);
+ start1[0] = 3;
+ count1[0] = 1;
+ block1[0] = 2;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Create single block with wrong size */
- start1[0] = 6;
- count1[0] = 1;
- block1[0] = 1;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
+ start1[0] = 6;
+ count1[0] = 1;
+ block1[0] = 1;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be NO */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_NO) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_NO) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Create single block */
- start1[0] = 3;
- count1[0] = 1;
- block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start1, NULL, count1, block1);
+ start1[0] = 3;
+ count1[0] = 1;
+ block1[0] = 2;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Create multiple blocks with wrong size */
@@ -13204,15 +13225,15 @@ test_space_update_diminfo(void)
stride1[0] = 3;
count1[0] = 2;
block1[0] = 1;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, stride1, count1, block1);
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, stride1, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be NO */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_NO) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_NO) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Create multiple blocks */
@@ -13220,30 +13241,30 @@ test_space_update_diminfo(void)
stride1[0] = 3;
count1[0] = 2;
block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start1, stride1, count1, block1);
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start1, stride1, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Create single block with wrong size */
- start1[0] = 9;
- count1[0] = 1;
- block1[0] = 1;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
+ start1[0] = 9;
+ count1[0] = 1;
+ block1[0] = 1;
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, NULL, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be NO */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_NO) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_NO) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Create multiple blocks */
@@ -13251,15 +13272,15 @@ test_space_update_diminfo(void)
stride1[0] = 3;
count1[0] = 2;
block1[0] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start1, stride1, count1, block1);
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start1, stride1, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Create multiple blocks with wrong size */
@@ -13267,25 +13288,24 @@ test_space_update_diminfo(void)
stride1[0] = 3;
count1[0] = 2;
block1[0] = 1;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, stride1, count1, block1);
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start1, stride1, count1, block1);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be NO */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_NO) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_NO) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
ret = H5Sclose(space_id);
CHECK(ret, FAIL, "H5Sclose");
-
MESSAGE(7, ("Testing functionality to update 3-D hyperslab dimension info\n"));
/* Create 3-D dataspace */
- space_id = H5Screate_simple(3, dims3, NULL);
+ space_id = H5Screate_simple(3, dims3, NULL);
/* Create multiple blocks */
start3[0] = 0;
@@ -13300,15 +13320,15 @@ test_space_update_diminfo(void)
block3[0] = 1;
block3[1] = 2;
block3[2] = 3;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start3, stride3, count3, block3);
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start3, stride3, count3, block3);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Add blocks with same values in all dimensions */
@@ -13318,9 +13338,9 @@ test_space_update_diminfo(void)
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Add blocks with same values in two dimensions */
@@ -13328,15 +13348,15 @@ test_space_update_diminfo(void)
stride3[0] = 1;
count3[0] = 1;
block3[0] = 1;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start3, stride3, count3, block3);
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start3, stride3, count3, block3);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Create multiple blocks */
@@ -13352,15 +13372,15 @@ test_space_update_diminfo(void)
block3[0] = 1;
block3[1] = 2;
block3[2] = 3;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start3, stride3, count3, block3);
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start3, stride3, count3, block3);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Add blocks with same values in one dimension */
@@ -13372,15 +13392,15 @@ test_space_update_diminfo(void)
count3[1] = 1;
block3[0] = 1;
block3[1] = 2;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start3, stride3, count3, block3);
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start3, stride3, count3, block3);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be NO */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_NO) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_NO) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Create multiple blocks */
@@ -13396,15 +13416,15 @@ test_space_update_diminfo(void)
block3[0] = 1;
block3[1] = 2;
block3[2] = 3;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start3, stride3, count3, block3);
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start3, stride3, count3, block3);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be YES */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_YES) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_YES) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
/* Add blocks with same values in no dimensions */
@@ -13420,22 +13440,21 @@ test_space_update_diminfo(void)
block3[0] = 1;
block3[1] = 2;
block3[2] = 3;
- ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start3, stride3, count3, block3);
+ ret = H5Sselect_hyperslab(space_id, H5S_SELECT_OR, start3, stride3, count3, block3);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* diminfo_valid should be NO */
ret = H5S__get_diminfo_status_test(space_id, &diminfo_valid);
CHECK(ret, FAIL, "H5S__get_diminfo_status_test");
- if(diminfo_valid != H5S_DIMINFO_VALID_NO) {
- ret = FAIL;
- CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
+ if (diminfo_valid != H5S_DIMINFO_VALID_NO) {
+ ret = FAIL;
+ CHECK(ret, FAIL, "H5S_hyper_update_diminfo");
} /* end if */
ret = H5Sclose(space_id);
CHECK(ret, FAIL, "H5Sclose");
} /* end test_space_update_diminfo() */
-
/****************************************************************
**
** test_select_hyper_chunk_offset(): Tests selections on dataspace,
@@ -13446,21 +13465,21 @@ test_space_update_diminfo(void)
static void
test_select_hyper_chunk_offset(void)
{
- hid_t fid; /* File ID */
- hid_t sid; /* Dataspace ID */
- hid_t msid; /* Memory dataspace ID */
- hid_t did; /* Dataset ID */
- const hsize_t mem_dims[1] = { SPACE10_DIM1 }; /* Dataspace dimensions for memory */
- const hsize_t dims[1] = { 0 }; /* Dataspace initial dimensions */
- const hsize_t maxdims[1] = { H5S_UNLIMITED }; /* Dataspace mam dims */
- int *wbuf; /* Buffer for writing data */
- int *rbuf; /* Buffer for reading data */
- hid_t dcpl; /* Dataset creation property list ID */
- hsize_t chunks[1]={SPACE10_CHUNK_SIZE }; /* Chunk size */
- hsize_t start[1] = { 0 }; /* The start of the hyperslab */
- hsize_t count[1] = { SPACE10_CHUNK_SIZE }; /* The size of the hyperslab */
- int i,j; /* Local index */
- herr_t ret; /* Generic return value */
+ hid_t fid; /* File ID */
+ hid_t sid; /* Dataspace ID */
+ hid_t msid; /* Memory dataspace ID */
+ hid_t did; /* Dataset ID */
+ const hsize_t mem_dims[1] = {SPACE10_DIM1}; /* Dataspace dimensions for memory */
+ const hsize_t dims[1] = {0}; /* Dataspace initial dimensions */
+ const hsize_t maxdims[1] = {H5S_UNLIMITED}; /* Dataspace mam dims */
+ int * wbuf; /* Buffer for writing data */
+ int * rbuf; /* Buffer for reading data */
+ hid_t dcpl; /* Dataset creation property list ID */
+ hsize_t chunks[1] = {SPACE10_CHUNK_SIZE}; /* Chunk size */
+ hsize_t start[1] = {0}; /* The start of the hyperslab */
+ hsize_t count[1] = {SPACE10_CHUNK_SIZE}; /* The size of the hyperslab */
+ int i, j; /* Local index */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(6, ("Testing hyperslab selections using offsets in chunked datasets\n"));
@@ -13472,8 +13491,8 @@ test_select_hyper_chunk_offset(void)
CHECK_PTR(rbuf, "HDcalloc");
/* Initialize the write buffer */
- for(i=0; i<SPACE10_DIM1; i++)
- wbuf[i]=i;
+ for (i = 0; i < SPACE10_DIM1; i++)
+ wbuf[i] = i;
/* Create file */
fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
@@ -13516,14 +13535,14 @@ test_select_hyper_chunk_offset(void)
CHECK(ret, FAIL, "H5Pclose");
/* Loop over writing out each chunk */
- for(i = SPACE10_CHUNK_SIZE; i <= SPACE10_DIM1; i += SPACE10_CHUNK_SIZE) {
- hssize_t offset[1]; /* Offset of selection */
- hid_t fsid; /* File dataspace ID */
- hsize_t size[1]; /* The size to extend the dataset to */
+ for (i = SPACE10_CHUNK_SIZE; i <= SPACE10_DIM1; i += SPACE10_CHUNK_SIZE) {
+ hssize_t offset[1]; /* Offset of selection */
+ hid_t fsid; /* File dataspace ID */
+ hsize_t size[1]; /* The size to extend the dataset to */
/* Extend the dataset */
- size[0] = (hsize_t)i; /* The size to extend the dataset to */
- ret = H5Dset_extent(did, size);
+ size[0] = (hsize_t)i; /* The size to extend the dataset to */
+ ret = H5Dset_extent(did, size);
CHECK(ret, FAIL, "H5Dset_extent");
/* Get the (extended) dataspace from the dataset */
@@ -13536,12 +13555,12 @@ test_select_hyper_chunk_offset(void)
/* Set the selection offset for the file dataspace */
offset[0] = i - SPACE10_CHUNK_SIZE;
- ret = H5Soffset_simple(fsid, offset);
+ ret = H5Soffset_simple(fsid, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
/* Set the selection offset for the memory dataspace */
offset[0] = SPACE10_DIM1 - i;
- ret = H5Soffset_simple(msid, offset);
+ ret = H5Soffset_simple(msid, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
/* Write the data to the chunk */
@@ -13558,59 +13577,60 @@ test_select_hyper_chunk_offset(void)
CHECK(ret, FAIL, "H5Dread");
/* Verify the information read in */
- for(i=0; i<SPACE10_DIM1; i+=SPACE10_CHUNK_SIZE)
- for(j=0; j<SPACE10_CHUNK_SIZE; j++)
- if(wbuf[i+j]!=rbuf[((SPACE10_DIM1-i)-SPACE10_CHUNK_SIZE)+j])
- TestErrPrintf("Line: %d - Error! i=%d, j=%d, rbuf=%d, wbuf=%d\n",__LINE__,i,j,rbuf[((SPACE10_DIM1-i)-SPACE10_CHUNK_SIZE)+j],wbuf[i+j]);
-
-/* Check with 'OR'ed set of hyperslab selections, which makes certain the
- * hyperslab spanlist code gets tested. -QAK
- */
+ for (i = 0; i < SPACE10_DIM1; i += SPACE10_CHUNK_SIZE)
+ for (j = 0; j < SPACE10_CHUNK_SIZE; j++)
+ if (wbuf[i + j] != rbuf[((SPACE10_DIM1 - i) - SPACE10_CHUNK_SIZE) + j])
+ TestErrPrintf("Line: %d - Error! i=%d, j=%d, rbuf=%d, wbuf=%d\n", __LINE__, i, j,
+ rbuf[((SPACE10_DIM1 - i) - SPACE10_CHUNK_SIZE) + j], wbuf[i + j]);
+
+ /* Check with 'OR'ed set of hyperslab selections, which makes certain the
+ * hyperslab spanlist code gets tested. -QAK
+ */
/* Re-initialize the write buffer */
- for(i = 0; i < SPACE10_DIM1; i++)
+ for (i = 0; i < SPACE10_DIM1; i++)
wbuf[i] = i * 2;
/* Change the selected the region in the memory dataspace */
start[0] = 0;
- count[0] = SPACE10_CHUNK_SIZE/3;
- ret = H5Sselect_hyperslab(msid, H5S_SELECT_SET, start, NULL, count, NULL);
+ count[0] = SPACE10_CHUNK_SIZE / 3;
+ ret = H5Sselect_hyperslab(msid, H5S_SELECT_SET, start, NULL, count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- start[0] = (2 * SPACE10_CHUNK_SIZE)/3;
- ret = H5Sselect_hyperslab(msid, H5S_SELECT_OR, start, NULL, count, NULL);
+ start[0] = (2 * SPACE10_CHUNK_SIZE) / 3;
+ ret = H5Sselect_hyperslab(msid, H5S_SELECT_OR, start, NULL, count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Loop over writing out each chunk */
- for(i = SPACE10_CHUNK_SIZE; i <= SPACE10_DIM1; i += SPACE10_CHUNK_SIZE) {
- hssize_t offset[1]; /* Offset of selection */
- hid_t fsid; /* File dataspace ID */
- hsize_t size[1]; /* The size to extend the dataset to */
+ for (i = SPACE10_CHUNK_SIZE; i <= SPACE10_DIM1; i += SPACE10_CHUNK_SIZE) {
+ hssize_t offset[1]; /* Offset of selection */
+ hid_t fsid; /* File dataspace ID */
+ hsize_t size[1]; /* The size to extend the dataset to */
/* Extend the dataset */
- size[0] = (hsize_t)i; /* The size to extend the dataset to */
- ret = H5Dset_extent(did, size);
+ size[0] = (hsize_t)i; /* The size to extend the dataset to */
+ ret = H5Dset_extent(did, size);
CHECK(ret, FAIL, "H5Dset_extent");
/* Get the (extended) dataspace from the dataset */
- fsid = H5Dget_space (did);
+ fsid = H5Dget_space(did);
CHECK(fsid, FAIL, "H5Dget_space");
/* Select the correct region in the dataset */
start[0] = 0;
- ret = H5Sselect_hyperslab(fsid, H5S_SELECT_SET, start, NULL, count, NULL);
+ ret = H5Sselect_hyperslab(fsid, H5S_SELECT_SET, start, NULL, count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- start[0] = (2*SPACE10_CHUNK_SIZE)/3;
- ret = H5Sselect_hyperslab(fsid, H5S_SELECT_OR, start, NULL, count, NULL);
+ start[0] = (2 * SPACE10_CHUNK_SIZE) / 3;
+ ret = H5Sselect_hyperslab(fsid, H5S_SELECT_OR, start, NULL, count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Set the selection offset for the file dataspace */
offset[0] = i - SPACE10_CHUNK_SIZE;
- ret = H5Soffset_simple(fsid, offset);
+ ret = H5Soffset_simple(fsid, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
/* Set the selection offset for the memory dataspace */
- offset[0] = SPACE10_DIM1-i;
- ret = H5Soffset_simple(msid, offset);
+ offset[0] = SPACE10_DIM1 - i;
+ ret = H5Soffset_simple(msid, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
/* Write the data to the chunk */
@@ -13627,29 +13647,30 @@ test_select_hyper_chunk_offset(void)
CHECK(ret, FAIL, "H5Soffset_simple");
/* Verify the information read in */
- for(i=0; i<SPACE10_DIM1; i+=SPACE10_CHUNK_SIZE)
- for(j=0; j<SPACE10_CHUNK_SIZE; j++)
+ for (i = 0; i < SPACE10_DIM1; i += SPACE10_CHUNK_SIZE)
+ for (j = 0; j < SPACE10_CHUNK_SIZE; j++)
/* We're not writing out the "middle" of each chunk, so don't check that */
- if(j<(SPACE10_CHUNK_SIZE/3) || j>=((2*SPACE10_CHUNK_SIZE)/3))
- if(wbuf[i+j]!=rbuf[((SPACE10_DIM1-i)-SPACE10_CHUNK_SIZE)+j])
- TestErrPrintf("Line: %d - Error! i=%d, j=%d, rbuf=%d, wbuf=%d\n",__LINE__,i,j,rbuf[((SPACE10_DIM1-i)-SPACE10_CHUNK_SIZE)+j],wbuf[i+j]);
+ if (j < (SPACE10_CHUNK_SIZE / 3) || j >= ((2 * SPACE10_CHUNK_SIZE) / 3))
+ if (wbuf[i + j] != rbuf[((SPACE10_DIM1 - i) - SPACE10_CHUNK_SIZE) + j])
+ TestErrPrintf("Line: %d - Error! i=%d, j=%d, rbuf=%d, wbuf=%d\n", __LINE__, i, j,
+ rbuf[((SPACE10_DIM1 - i) - SPACE10_CHUNK_SIZE) + j], wbuf[i + j]);
/* Close the memory dataspace */
- ret=H5Sclose (msid);
+ ret = H5Sclose(msid);
CHECK(ret, FAIL, "H5Sclose");
/* Close the dataset */
- ret=H5Dclose (did);
+ ret = H5Dclose(did);
CHECK(ret, FAIL, "H5Dclose");
/* Close the file */
- ret=H5Fclose (fid);
+ ret = H5Fclose(fid);
CHECK(ret, FAIL, "H5Fclose");
/* Free the buffers */
HDfree(wbuf);
HDfree(rbuf);
-} /* test_select_hyper_chunk_offset() */
+} /* test_select_hyper_chunk_offset() */
/****************************************************************
**
@@ -13661,19 +13682,19 @@ test_select_hyper_chunk_offset(void)
static void
test_select_hyper_chunk_offset2(void)
{
- hid_t file, dataset; /* handles */
- hid_t dataspace;
- hid_t memspace;
- hid_t dcpl; /* Dataset creation property list */
- herr_t status;
- unsigned data_out[SPACE12_DIM0]; /* output buffer */
- unsigned data_in[SPACE12_CHUNK_DIM0]; /* input buffer */
- hsize_t dims[SPACE12_RANK]={SPACE12_DIM0}; /* Dimension size */
- hsize_t chunk_dims[SPACE12_RANK]={SPACE12_CHUNK_DIM0}; /* Chunk size */
- hsize_t start[SPACE12_RANK]; /* Start of hyperslab */
- hsize_t count[SPACE12_RANK]; /* Size of hyperslab */
- hssize_t offset[SPACE12_RANK]; /* hyperslab offset in the file */
- unsigned u, v; /* Local index variables */
+ hid_t file, dataset; /* handles */
+ hid_t dataspace;
+ hid_t memspace;
+ hid_t dcpl; /* Dataset creation property list */
+ herr_t status;
+ unsigned data_out[SPACE12_DIM0]; /* output buffer */
+ unsigned data_in[SPACE12_CHUNK_DIM0]; /* input buffer */
+ hsize_t dims[SPACE12_RANK] = {SPACE12_DIM0}; /* Dimension size */
+ hsize_t chunk_dims[SPACE12_RANK] = {SPACE12_CHUNK_DIM0}; /* Chunk size */
+ hsize_t start[SPACE12_RANK]; /* Start of hyperslab */
+ hsize_t count[SPACE12_RANK]; /* Size of hyperslab */
+ hssize_t offset[SPACE12_RANK]; /* hyperslab offset in the file */
+ unsigned u, v; /* Local index variables */
/* Output message about test being performed */
MESSAGE(6, ("Testing more hyperslab selections using offsets in chunked datasets\n"));
@@ -13719,25 +13740,25 @@ test_select_hyper_chunk_offset2(void)
*/
start[0] = 0;
count[0] = SPACE12_CHUNK_DIM0;
- status = H5Sselect_hyperslab(dataspace, H5S_SELECT_SET, start, NULL, count, NULL);
+ status = H5Sselect_hyperslab(dataspace, H5S_SELECT_SET, start, NULL, count, NULL);
CHECK(status, FAIL, "H5Sselect_hyperslab");
/* Loop through retrieving data from file, checking it against data written */
- for(u = 0; u < SPACE12_DIM0; u += SPACE12_CHUNK_DIM0) {
+ for (u = 0; u < SPACE12_DIM0; u += SPACE12_CHUNK_DIM0) {
/* Set the offset of the file selection */
offset[0] = u;
- status = H5Soffset_simple(dataspace, offset);
+ status = H5Soffset_simple(dataspace, offset);
CHECK(status, FAIL, "H5Soffset_simple");
/* Read in buffer of data */
- status = H5Dread(dataset, H5T_NATIVE_UINT, memspace, dataspace,
- H5P_DEFAULT, data_in);
+ status = H5Dread(dataset, H5T_NATIVE_UINT, memspace, dataspace, H5P_DEFAULT, data_in);
CHECK(status, FAIL, "H5Dread");
/* Check data read in */
- for(v = 0; v < SPACE12_CHUNK_DIM0; v++)
- if(data_out[u + v] != data_in[v])
- TestErrPrintf("Error! data_out[%u]=%u, data_in[%u]=%u\n",(unsigned)(u + v), data_out[u + v], v, data_in[v]);
+ for (v = 0; v < SPACE12_CHUNK_DIM0; v++)
+ if (data_out[u + v] != data_in[v])
+ TestErrPrintf("Error! data_out[%u]=%u, data_in[%u]=%u\n", (unsigned)(u + v), data_out[u + v],
+ v, data_in[v]);
} /* end for */
status = H5Dclose(dataset);
@@ -13751,7 +13772,7 @@ test_select_hyper_chunk_offset2(void)
status = H5Fclose(file);
CHECK(status, FAIL, "H5Fclose");
-} /* test_select_hyper_chunk_offset2() */
+} /* test_select_hyper_chunk_offset2() */
/****************************************************************
**
@@ -13762,23 +13783,23 @@ test_select_hyper_chunk_offset2(void)
static void
test_select_bounds(void)
{
- hid_t sid; /* Dataspace ID */
- const hsize_t dims[SPACE11_RANK] = {SPACE11_DIM1, SPACE11_DIM2}; /* Dataspace dimensions */
- hsize_t coord[SPACE11_NPOINTS][SPACE11_RANK]; /* Coordinates for point selection */
- hsize_t start[SPACE11_RANK]; /* The start of the hyperslab */
- hsize_t stride[SPACE11_RANK]; /* The stride between block starts for the hyperslab */
- hsize_t count[SPACE11_RANK]; /* The number of blocks for the hyperslab */
- hsize_t block[SPACE11_RANK]; /* The size of each block for the hyperslab */
- hssize_t offset[SPACE11_RANK]; /* Offset amount for selection */
- hsize_t low_bounds[SPACE11_RANK]; /* The low bounds for the selection */
- hsize_t high_bounds[SPACE11_RANK]; /* The high bounds for the selection */
- herr_t ret; /* Generic return value */
+ hid_t sid; /* Dataspace ID */
+ const hsize_t dims[SPACE11_RANK] = {SPACE11_DIM1, SPACE11_DIM2}; /* Dataspace dimensions */
+ hsize_t coord[SPACE11_NPOINTS][SPACE11_RANK]; /* Coordinates for point selection */
+ hsize_t start[SPACE11_RANK]; /* The start of the hyperslab */
+ hsize_t stride[SPACE11_RANK]; /* The stride between block starts for the hyperslab */
+ hsize_t count[SPACE11_RANK]; /* The number of blocks for the hyperslab */
+ hsize_t block[SPACE11_RANK]; /* The size of each block for the hyperslab */
+ hssize_t offset[SPACE11_RANK]; /* Offset amount for selection */
+ hsize_t low_bounds[SPACE11_RANK]; /* The low bounds for the selection */
+ hsize_t high_bounds[SPACE11_RANK]; /* The high bounds for the selection */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(6, ("Testing selection bounds\n"));
/* Create dataspace */
- sid = H5Screate_simple (SPACE11_RANK, dims, NULL);
+ sid = H5Screate_simple(SPACE11_RANK, dims, NULL);
CHECK(sid, FAIL, "H5Screate_simple");
/* Get bounds for 'all' selection */
@@ -13790,8 +13811,9 @@ test_select_bounds(void)
VERIFY(high_bounds[1], SPACE11_DIM2 - 1, "H5Sget_select_bounds");
/* Set offset for selection */
- offset[0] = 1; offset[1] = 1;
- ret = H5Soffset_simple(sid, offset);
+ offset[0] = 1;
+ offset[1] = 1;
+ ret = H5Soffset_simple(sid, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
/* Get bounds for 'all' selection with offset (which should be ignored) */
@@ -13803,8 +13825,9 @@ test_select_bounds(void)
VERIFY(high_bounds[1], SPACE11_DIM2 - 1, "H5Sget_select_bounds");
/* Reset offset for selection */
- offset[0] = 0; offset[1] = 0;
- ret = H5Soffset_simple(sid, offset);
+ offset[0] = 0;
+ offset[1] = 0;
+ ret = H5Soffset_simple(sid, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
/* Set 'none' selection */
@@ -13812,17 +13835,20 @@ test_select_bounds(void)
CHECK(ret, FAIL, "H5Sselect_none");
/* Get bounds for 'none' selection */
- H5E_BEGIN_TRY {
- ret = H5Sget_select_bounds(sid, low_bounds, high_bounds);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { ret = H5Sget_select_bounds(sid, low_bounds, high_bounds); }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Sget_select_bo unds");
/* Set point selection */
- coord[0][0] = 3; coord[0][1] = 3;
- coord[1][0] = 3; coord[1][1] = 96;
- coord[2][0] = 96; coord[2][1] = 3;
- coord[3][0] = 96; coord[3][1] = 96;
- ret = H5Sselect_elements(sid, H5S_SELECT_SET, (size_t)SPACE11_NPOINTS, (const hsize_t *)coord);
+ coord[0][0] = 3;
+ coord[0][1] = 3;
+ coord[1][0] = 3;
+ coord[1][1] = 96;
+ coord[2][0] = 96;
+ coord[2][1] = 3;
+ coord[3][0] = 96;
+ coord[3][1] = 96;
+ ret = H5Sselect_elements(sid, H5S_SELECT_SET, (size_t)SPACE11_NPOINTS, (const hsize_t *)coord);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Get bounds for point selection */
@@ -13834,19 +13860,20 @@ test_select_bounds(void)
VERIFY(high_bounds[1], SPACE11_DIM2 - 4, "H5Sget_select_bounds");
/* Set bad offset for selection */
- offset[0] = 5; offset[1] = -5;
- ret = H5Soffset_simple(sid, offset);
+ offset[0] = 5;
+ offset[1] = -5;
+ ret = H5Soffset_simple(sid, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
/* Get bounds for hyperslab selection with negative offset */
- H5E_BEGIN_TRY {
- ret = H5Sget_select_bounds(sid, low_bounds, high_bounds);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { ret = H5Sget_select_bounds(sid, low_bounds, high_bounds); }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Sget_select_bounds");
/* Set valid offset for selection */
- offset[0] = 2; offset[1] = -2;
- ret = H5Soffset_simple(sid, offset);
+ offset[0] = 2;
+ offset[1] = -2;
+ ret = H5Soffset_simple(sid, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
/* Get bounds for point selection with offset */
@@ -13858,16 +13885,21 @@ test_select_bounds(void)
VERIFY(high_bounds[1], SPACE11_DIM2 - 6, "H5Sget_select_bounds");
/* Reset offset for selection */
- offset[0] = 0; offset[1] = 0;
- ret = H5Soffset_simple(sid, offset);
+ offset[0] = 0;
+ offset[1] = 0;
+ ret = H5Soffset_simple(sid, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
/* Set "regular" hyperslab selection */
- start[0] = 2; start[1] = 2;
- stride[0] = 10; stride[1] = 10;
- count[0] = 4; count[1] = 4;
- block[0] = 5; block[1] = 5;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
+ start[0] = 2;
+ start[1] = 2;
+ stride[0] = 10;
+ stride[1] = 10;
+ count[0] = 4;
+ count[1] = 4;
+ block[0] = 5;
+ block[1] = 5;
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Get bounds for hyperslab selection */
@@ -13879,19 +13911,20 @@ test_select_bounds(void)
VERIFY(high_bounds[1], 36, "H5Sget_select_bounds");
/* Set bad offset for selection */
- offset[0] = 5; offset[1] = -5;
- ret = H5Soffset_simple(sid, offset);
+ offset[0] = 5;
+ offset[1] = -5;
+ ret = H5Soffset_simple(sid, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
/* Get bounds for hyperslab selection with negative offset */
- H5E_BEGIN_TRY {
- ret = H5Sget_select_bounds(sid, low_bounds, high_bounds);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { ret = H5Sget_select_bounds(sid, low_bounds, high_bounds); }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Sget_select_bounds");
/* Set valid offset for selection */
- offset[0] = 5; offset[1] = -2;
- ret = H5Soffset_simple(sid, offset);
+ offset[0] = 5;
+ offset[1] = -2;
+ ret = H5Soffset_simple(sid, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
/* Get bounds for hyperslab selection with offset */
@@ -13903,16 +13936,21 @@ test_select_bounds(void)
VERIFY(high_bounds[1], 34, "H5Sget_select_bounds");
/* Reset offset for selection */
- offset[0] = 0; offset[1] = 0;
- ret = H5Soffset_simple(sid, offset);
+ offset[0] = 0;
+ offset[1] = 0;
+ ret = H5Soffset_simple(sid, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
/* Make "irregular" hyperslab selection */
- start[0] = 20; start[1] = 20;
- stride[0] = 20; stride[1] = 20;
- count[0] = 2; count[1] = 2;
- block[0] = 10; block[1] = 10;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_OR, start, stride, count, block);
+ start[0] = 20;
+ start[1] = 20;
+ stride[0] = 20;
+ stride[1] = 20;
+ count[0] = 2;
+ count[1] = 2;
+ block[0] = 10;
+ block[1] = 10;
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Get bounds for hyperslab selection */
@@ -13924,19 +13962,20 @@ test_select_bounds(void)
VERIFY(high_bounds[1], 49, "H5Sget_select_bounds");
/* Set bad offset for selection */
- offset[0] = 5; offset[1] = -5;
- ret = H5Soffset_simple(sid, offset);
+ offset[0] = 5;
+ offset[1] = -5;
+ ret = H5Soffset_simple(sid, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
/* Get bounds for hyperslab selection with negative offset */
- H5E_BEGIN_TRY {
- ret = H5Sget_select_bounds(sid, low_bounds, high_bounds);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { ret = H5Sget_select_bounds(sid, low_bounds, high_bounds); }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Sget_select_bounds");
/* Set valid offset for selection */
- offset[0] = 5; offset[1] = -2;
- ret = H5Soffset_simple(sid, offset);
+ offset[0] = 5;
+ offset[1] = -2;
+ ret = H5Soffset_simple(sid, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
/* Get bounds for hyperslab selection with offset */
@@ -13948,15 +13987,15 @@ test_select_bounds(void)
VERIFY(high_bounds[1], 47, "H5Sget_select_bounds");
/* Reset offset for selection */
- offset[0] = 0; offset[1] = 0;
- ret = H5Soffset_simple(sid, offset);
+ offset[0] = 0;
+ offset[1] = 0;
+ ret = H5Soffset_simple(sid, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
/* Close the dataspace */
ret = H5Sclose(sid);
CHECK(ret, FAIL, "H5Sclose");
-} /* test_select_bounds() */
-
+} /* test_select_bounds() */
/****************************************************************
**
@@ -13966,22 +14005,22 @@ test_select_bounds(void)
static void
test_hyper_regular(void)
{
- hid_t sid; /* Dataspace ID */
- const hsize_t dims[SPACE13_RANK] = {SPACE13_DIM1, SPACE13_DIM2, SPACE13_DIM3}; /* Dataspace dimensions */
- hsize_t coord[SPACE13_NPOINTS][SPACE13_RANK]; /* Coordinates for point selection */
- hsize_t start[SPACE13_RANK]; /* The start of the hyperslab */
- hsize_t stride[SPACE13_RANK]; /* The stride between block starts for the hyperslab */
- hsize_t count[SPACE13_RANK]; /* The number of blocks for the hyperslab */
- hsize_t block[SPACE13_RANK]; /* The size of each block for the hyperslab */
- hsize_t t_start[SPACE13_RANK]; /* Temporary start of the hyperslab */
- hsize_t t_count[SPACE13_RANK]; /* Temporary number of blocks for the hyperslab */
- hsize_t q_start[SPACE13_RANK]; /* The queried start of the hyperslab */
- hsize_t q_stride[SPACE13_RANK]; /* The queried stride between block starts for the hyperslab */
- hsize_t q_count[SPACE13_RANK]; /* The queried number of blocks for the hyperslab */
- hsize_t q_block[SPACE13_RANK]; /* The queried size of each block for the hyperslab */
- htri_t is_regular; /* Whether a hyperslab selection is regular */
- unsigned u; /* Local index variable */
- herr_t ret; /* Generic return value */
+ hid_t sid; /* Dataspace ID */
+ const hsize_t dims[SPACE13_RANK] = {SPACE13_DIM1, SPACE13_DIM2, SPACE13_DIM3}; /* Dataspace dimensions */
+ hsize_t coord[SPACE13_NPOINTS][SPACE13_RANK]; /* Coordinates for point selection */
+ hsize_t start[SPACE13_RANK]; /* The start of the hyperslab */
+ hsize_t stride[SPACE13_RANK]; /* The stride between block starts for the hyperslab */
+ hsize_t count[SPACE13_RANK]; /* The number of blocks for the hyperslab */
+ hsize_t block[SPACE13_RANK]; /* The size of each block for the hyperslab */
+ hsize_t t_start[SPACE13_RANK]; /* Temporary start of the hyperslab */
+ hsize_t t_count[SPACE13_RANK]; /* Temporary number of blocks for the hyperslab */
+ hsize_t q_start[SPACE13_RANK]; /* The queried start of the hyperslab */
+ hsize_t q_stride[SPACE13_RANK]; /* The queried stride between block starts for the hyperslab */
+ hsize_t q_count[SPACE13_RANK]; /* The queried number of blocks for the hyperslab */
+ hsize_t q_block[SPACE13_RANK]; /* The queried size of each block for the hyperslab */
+ htri_t is_regular; /* Whether a hyperslab selection is regular */
+ unsigned u; /* Local index variable */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(6, ("Testing queries on regular hyperslabs\n"));
@@ -13991,15 +14030,13 @@ test_hyper_regular(void)
CHECK(sid, FAIL, "H5Screate_simple");
/* Query if 'all' selection is regular hyperslab (should fail) */
- H5E_BEGIN_TRY {
- is_regular = H5Sis_regular_hyperslab(sid);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { is_regular = H5Sis_regular_hyperslab(sid); }
+ H5E_END_TRY;
VERIFY(is_regular, FAIL, "H5Sis_regular_hyperslab");
/* Query regular hyperslab selection info (should fail) */
- H5E_BEGIN_TRY {
- ret = H5Sget_regular_hyperslab(sid, q_start, q_stride, q_count, q_block);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { ret = H5Sget_regular_hyperslab(sid, q_start, q_stride, q_count, q_block); }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Sget_regular_hyperslab");
/* Set 'none' selection */
@@ -14007,43 +14044,55 @@ test_hyper_regular(void)
CHECK(ret, FAIL, "H5Sselect_none");
/* Query if 'none' selection is regular hyperslab (should fail) */
- H5E_BEGIN_TRY {
- is_regular = H5Sis_regular_hyperslab(sid);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { is_regular = H5Sis_regular_hyperslab(sid); }
+ H5E_END_TRY;
VERIFY(is_regular, FAIL, "H5Sis_regular_hyperslab");
/* Query regular hyperslab selection info (should fail) */
- H5E_BEGIN_TRY {
- ret = H5Sget_regular_hyperslab(sid, q_start, q_stride, q_count, q_block);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { ret = H5Sget_regular_hyperslab(sid, q_start, q_stride, q_count, q_block); }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Sget_regular_hyperslab");
/* Set point selection */
- coord[0][0] = 3; coord[0][1] = 3; coord[0][2] = 3;
- coord[1][0] = 3; coord[1][1] = 48; coord[1][2] = 48;
- coord[2][0] = 48; coord[2][1] = 3; coord[2][2] = 3;
- coord[3][0] = 48; coord[3][1] = 48; coord[3][2] = 48;
- ret = H5Sselect_elements(sid, H5S_SELECT_SET, (size_t)SPACE13_NPOINTS, (const hsize_t *)coord);
+ coord[0][0] = 3;
+ coord[0][1] = 3;
+ coord[0][2] = 3;
+ coord[1][0] = 3;
+ coord[1][1] = 48;
+ coord[1][2] = 48;
+ coord[2][0] = 48;
+ coord[2][1] = 3;
+ coord[2][2] = 3;
+ coord[3][0] = 48;
+ coord[3][1] = 48;
+ coord[3][2] = 48;
+ ret = H5Sselect_elements(sid, H5S_SELECT_SET, (size_t)SPACE13_NPOINTS, (const hsize_t *)coord);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Query if 'point' selection is regular hyperslab (should fail) */
- H5E_BEGIN_TRY {
- is_regular = H5Sis_regular_hyperslab(sid);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { is_regular = H5Sis_regular_hyperslab(sid); }
+ H5E_END_TRY;
VERIFY(is_regular, FAIL, "H5Sis_regular_hyperslab");
/* Query regular hyperslab selection info (should fail) */
- H5E_BEGIN_TRY {
- ret = H5Sget_regular_hyperslab(sid, q_start, q_stride, q_count, q_block);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { ret = H5Sget_regular_hyperslab(sid, q_start, q_stride, q_count, q_block); }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Sget_regular_hyperslab");
/* Set "regular" hyperslab selection */
- start[0] = 2; start[1] = 2; start[2] = 2;
- stride[0] = 5; stride[1] = 5; stride[2] = 5;
- count[0] = 3; count[1] = 3; count[2] = 3;
- block[0] = 4; block[1] = 4; block[2] = 4;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
+ start[0] = 2;
+ start[1] = 2;
+ start[2] = 2;
+ stride[0] = 5;
+ stride[1] = 5;
+ stride[2] = 5;
+ count[0] = 3;
+ count[1] = 3;
+ count[2] = 3;
+ block[0] = 4;
+ block[1] = 4;
+ block[2] = 4;
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Query if 'hyperslab' selection is regular hyperslab (should be TRUE) */
@@ -14055,21 +14104,25 @@ test_hyper_regular(void)
CHECK(ret, FAIL, "H5Sget_regular_hyperslab");
/* Verify the hyperslab parameters */
- for(u = 0; u < SPACE13_RANK; u++) {
- if(start[u] != q_start[u])
+ for (u = 0; u < SPACE13_RANK; u++) {
+ if (start[u] != q_start[u])
ERROR("H5Sget_regular_hyperslab, start");
- if(stride[u] != q_stride[u])
+ if (stride[u] != q_stride[u])
ERROR("H5Sget_regular_hyperslab, stride");
- if(count[u] != q_count[u])
+ if (count[u] != q_count[u])
ERROR("H5Sget_regular_hyperslab, count");
- if(block[u] != q_block[u])
+ if (block[u] != q_block[u])
ERROR("H5Sget_regular_hyperslab, block");
} /* end for */
/* 'OR' in another point */
- t_start[0] = 0; t_start[1] = 0; t_start[2] = 0;
- t_count[0] = 1; t_count[1] = 1; t_count[2] = 1;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_OR, t_start, NULL, t_count, NULL);
+ t_start[0] = 0;
+ t_start[1] = 0;
+ t_start[2] = 0;
+ t_count[0] = 1;
+ t_count[1] = 1;
+ t_count[2] = 1;
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_OR, t_start, NULL, t_count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Query if 'hyperslab' selection is regular hyperslab (should be FALSE) */
@@ -14077,15 +14130,18 @@ test_hyper_regular(void)
VERIFY(is_regular, FALSE, "H5Sis_regular_hyperslab");
/* Query regular hyperslab selection info (should fail) */
- H5E_BEGIN_TRY {
- ret = H5Sget_regular_hyperslab(sid, q_start, q_stride, q_count, q_block);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { ret = H5Sget_regular_hyperslab(sid, q_start, q_stride, q_count, q_block); }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Sget_regular_hyperslab");
/* 'XOR' in the point again, to remove it, which should make it regular again */
- t_start[0] = 0; t_start[1] = 0; t_start[2] = 0;
- t_count[0] = 1; t_count[1] = 1; t_count[2] = 1;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_XOR, t_start, NULL, t_count, NULL);
+ t_start[0] = 0;
+ t_start[1] = 0;
+ t_start[2] = 0;
+ t_count[0] = 1;
+ t_count[1] = 1;
+ t_count[2] = 1;
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_XOR, t_start, NULL, t_count, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Query if 'hyperslab' selection is regular hyperslab (should be TRUE) */
@@ -14097,21 +14153,21 @@ test_hyper_regular(void)
CHECK(ret, FAIL, "H5Sget_regular_hyperslab");
/* Verify the hyperslab parameters */
- for(u = 0; u < SPACE13_RANK; u++) {
- if(start[u] != q_start[u])
+ for (u = 0; u < SPACE13_RANK; u++) {
+ if (start[u] != q_start[u])
ERROR("H5Sget_regular_hyperslab, start");
- if(stride[u] != q_stride[u])
+ if (stride[u] != q_stride[u])
ERROR("H5Sget_regular_hyperslab, stride");
- if(count[u] != q_count[u])
+ if (count[u] != q_count[u])
ERROR("H5Sget_regular_hyperslab, count");
- if(block[u] != q_block[u])
+ if (block[u] != q_block[u])
ERROR("H5Sget_regular_hyperslab, block");
} /* end for */
/* Close the dataspace */
ret = H5Sclose(sid);
CHECK(ret, FAIL, "H5Sclose");
-} /* test_hyper_regular() */
+} /* test_hyper_regular() */
/****************************************************************
**
@@ -14119,16 +14175,16 @@ test_hyper_regular(void)
**
****************************************************************/
static void
-test_hyper_unlim_check(hid_t sid, hsize_t *dims, hssize_t enpoints,
- hssize_t enblocks, hsize_t *eblock1, hsize_t *eblock2)
+test_hyper_unlim_check(hid_t sid, hsize_t *dims, hssize_t enpoints, hssize_t enblocks, hsize_t *eblock1,
+ hsize_t *eblock2)
{
- hid_t lim_sid;
- hsize_t start[3];
+ hid_t lim_sid;
+ hsize_t start[3];
H5S_sel_type sel_type;
- hssize_t npoints;
- hssize_t nblocks;
- hsize_t blocklist[12];
- herr_t ret;
+ hssize_t npoints;
+ hssize_t nblocks;
+ hsize_t blocklist[12];
+ herr_t ret;
HDassert(enblocks <= 2);
@@ -14151,39 +14207,37 @@ test_hyper_unlim_check(hid_t sid, hsize_t *dims, hssize_t enpoints,
CHECK(sel_type, H5S_SEL_ERROR, "H5Sget_select_type");
/* Only examine blocks for hyperslab selection */
- if(sel_type == H5S_SEL_HYPERSLABS) {
+ if (sel_type == H5S_SEL_HYPERSLABS) {
/* Get number of blocks */
nblocks = H5Sget_select_hyper_nblocks(lim_sid);
CHECK(nblocks, FAIL, "H5Sget_select_hyper_nblocks");
VERIFY(nblocks, enblocks, "H5Sget_select_hyper_nblocks");
- if(nblocks > 0) {
+ if (nblocks > 0) {
/* Get blocklist */
ret = H5Sget_select_hyper_blocklist(lim_sid, (hsize_t)0, (hsize_t)nblocks, blocklist);
CHECK(ret, FAIL, "H5Sget_select_hyper_blocklist");
/* Verify blocklist */
- if(nblocks == (hssize_t)1) {
- if(HDmemcmp(blocklist, eblock1, 6 * sizeof(eblock1[0])))
+ if (nblocks == (hssize_t)1) {
+ if (HDmemcmp(blocklist, eblock1, 6 * sizeof(eblock1[0])))
ERROR("H5Sget_select_hyper_blocklist");
} /* end if */
else {
HDassert(nblocks == (hssize_t)2);
- if(HDmemcmp(blocklist, eblock1, 6 * sizeof(eblock1[0]))) {
- if(HDmemcmp(blocklist, eblock2, 6 * sizeof(eblock2[0])))
+ if (HDmemcmp(blocklist, eblock1, 6 * sizeof(eblock1[0]))) {
+ if (HDmemcmp(blocklist, eblock2, 6 * sizeof(eblock2[0])))
ERROR("H5Sget_select_hyper_blocklist");
- if(HDmemcmp(&blocklist[6], eblock1, 6 * sizeof(eblock1[0])))
+ if (HDmemcmp(&blocklist[6], eblock1, 6 * sizeof(eblock1[0])))
ERROR("H5Sget_select_hyper_blocklist");
} /* end if */
- else
- if(HDmemcmp(&blocklist[6], eblock2, 6 * sizeof(eblock2[0])))
- ERROR("H5Sget_select_hyper_blocklist");
+ else if (HDmemcmp(&blocklist[6], eblock2, 6 * sizeof(eblock2[0])))
+ ERROR("H5Sget_select_hyper_blocklist");
} /* end else */
- } /* end if */
- } /* end if */
- else
- if(sel_type != H5S_SEL_NONE)
- ERROR("H5Sget_select_type");
+ } /* end if */
+ } /* end if */
+ else if (sel_type != H5S_SEL_NONE)
+ ERROR("H5Sget_select_type");
/* Close the limited dataspace */
ret = H5Sclose(lim_sid);
@@ -14193,20 +14247,20 @@ test_hyper_unlim_check(hid_t sid, hsize_t *dims, hssize_t enpoints,
static void
test_hyper_unlim(void)
{
- hid_t sid;
- hsize_t dims[3] = {4, 4, 7};
- hsize_t mdims[3] = {4, H5S_UNLIMITED, 7};
- hsize_t start[3] = {1, 2, 1};
- hsize_t stride[3] = {1, 1, 3};
- hsize_t count[3] = {1, 1, 2};
- hsize_t block[3] = {2, H5S_UNLIMITED, 2};
- hsize_t start2[3];
- hsize_t count2[3];
- hsize_t eblock1[6] = {1, 2, 1, 2, 3, 2};
- hsize_t eblock2[6] = {1, 2, 4, 2, 3, 5};
- hssize_t offset[3] = {0, -1, 0};
- hssize_t ssize_out;
- herr_t ret;
+ hid_t sid;
+ hsize_t dims[3] = {4, 4, 7};
+ hsize_t mdims[3] = {4, H5S_UNLIMITED, 7};
+ hsize_t start[3] = {1, 2, 1};
+ hsize_t stride[3] = {1, 1, 3};
+ hsize_t count[3] = {1, 1, 2};
+ hsize_t block[3] = {2, H5S_UNLIMITED, 2};
+ hsize_t start2[3];
+ hsize_t count2[3];
+ hsize_t eblock1[6] = {1, 2, 1, 2, 3, 2};
+ hsize_t eblock2[6] = {1, 2, 4, 2, 3, 5};
+ hssize_t offset[3] = {0, -1, 0};
+ hssize_t ssize_out;
+ herr_t ret;
/* Output message about test being performed */
MESSAGE(6, ("Testing unlimited hyperslab selections\n"));
@@ -14223,7 +14277,7 @@ test_hyper_unlim(void)
test_hyper_unlim_check(sid, dims, (hssize_t)16, (hssize_t)2, eblock1, eblock2);
/* Check with unlimited dimension clipped to 3 */
- dims[1] = 3;
+ dims[1] = 3;
eblock1[4] = 2;
eblock2[4] = 2;
test_hyper_unlim_check(sid, dims, (hssize_t)8, (hssize_t)2, eblock1, eblock2);
@@ -14237,7 +14291,7 @@ test_hyper_unlim(void)
test_hyper_unlim_check(sid, dims, (hssize_t)0, (hssize_t)0, eblock1, eblock2);
/* Check with unlimited dimension clipped to 7 */
- dims[1] = 7;
+ dims[1] = 7;
eblock1[4] = 6;
eblock2[4] = 6;
test_hyper_unlim_check(sid, dims, (hssize_t)40, (hssize_t)2, eblock1, eblock2);
@@ -14251,7 +14305,7 @@ test_hyper_unlim(void)
/* Reset offset of selection */
offset[1] = (hssize_t)0;
- ret = H5Soffset_simple(sid, offset);
+ ret = H5Soffset_simple(sid, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
/*
@@ -14259,9 +14313,9 @@ test_hyper_unlim(void)
*/
stride[1] = 3;
stride[2] = 1;
- count[1] = H5S_UNLIMITED;
- count[2] = 1;
- block[1] = 2;
+ count[1] = H5S_UNLIMITED;
+ count[2] = 1;
+ block[1] = 2;
/* Select unlimited hyperslab */
ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
@@ -14277,29 +14331,29 @@ test_hyper_unlim(void)
test_hyper_unlim_check(sid, dims, (hssize_t)16, (hssize_t)2, eblock1, eblock2);
/* Check with unlimited dimension clipped to 3 */
- dims[1] = 3;
+ dims[1] = 3;
eblock1[4] = 2;
test_hyper_unlim_check(sid, dims, (hssize_t)4, (hssize_t)1, eblock1, eblock2);
/* Check with unlimited dimension clipped to 4 */
- dims[1] = 4;
+ dims[1] = 4;
eblock1[4] = 3;
test_hyper_unlim_check(sid, dims, (hssize_t)8, (hssize_t)1, eblock1, eblock2);
/* Check with unlimited dimension clipped to 5 */
- dims[1] = 5;
+ dims[1] = 5;
eblock1[4] = 3;
test_hyper_unlim_check(sid, dims, (hssize_t)8, (hssize_t)1, eblock1, eblock2);
/* Check with unlimited dimension clipped to 6 */
- dims[1] = 6;
+ dims[1] = 6;
eblock1[4] = 3;
eblock2[4] = 5;
test_hyper_unlim_check(sid, dims, (hssize_t)12, (hssize_t)2, eblock1, eblock2);
/* Set offset of selection */
offset[1] = (hssize_t)-1;
- ret = H5Soffset_simple(sid, offset);
+ ret = H5Soffset_simple(sid, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
/* Check with adjusted offset (should not affect result) */
@@ -14307,7 +14361,7 @@ test_hyper_unlim(void)
/* Set offset of selection */
offset[1] = (hssize_t)3;
- ret = H5Soffset_simple(sid, offset);
+ ret = H5Soffset_simple(sid, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
/* Check with adjusted offset (should not affect result) */
@@ -14315,41 +14369,44 @@ test_hyper_unlim(void)
/* Reset offset of selection */
offset[1] = (hssize_t)0;
- ret = H5Soffset_simple(sid, offset);
+ ret = H5Soffset_simple(sid, offset);
CHECK(ret, FAIL, "H5Soffset_simple");
/*
* Now try invalid operations
*/
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
/* Try multiple unlimited dimensions */
- start[0] = 1;
- start[1] = 2;
- start[2] = 1;
+ start[0] = 1;
+ start[1] = 2;
+ start[2] = 1;
stride[0] = 1;
stride[1] = 3;
stride[2] = 3;
- count[0] = 1;
- count[1] = H5S_UNLIMITED;
- count[2] = H5S_UNLIMITED;
- block[0] = 2;
- block[1] = 2;
- block[2] = 2;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
+ count[0] = 1;
+ count[1] = H5S_UNLIMITED;
+ count[2] = H5S_UNLIMITED;
+ block[0] = 2;
+ block[1] = 2;
+ block[2] = 2;
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
/* Try unlimited count and block */
count[2] = 2;
block[1] = H5S_UNLIMITED;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
- } H5E_END_TRY
+ }
+ H5E_END_TRY
/* Try operations with two unlimited selections */
block[1] = 2;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
- CHECK(ret, FAIL, "H5Sselect_hyperslab");
- H5E_BEGIN_TRY {
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
+ CHECK(ret, FAIL, "H5Sselect_hyperslab");
+ H5E_BEGIN_TRY
+ {
ret = H5Sselect_hyperslab(sid, H5S_SELECT_OR, start, NULL, count, NULL);
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
ret = H5Sselect_hyperslab(sid, H5S_SELECT_AND, start, NULL, count, NULL);
@@ -14360,27 +14417,32 @@ test_hyper_unlim(void)
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
ret = H5Sselect_hyperslab(sid, H5S_SELECT_NOTA, start, NULL, count, NULL);
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
- } H5E_END_TRY
+ }
+ H5E_END_TRY
/* Try invalid combination operations */
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
ret = H5Sselect_hyperslab(sid, H5S_SELECT_OR, start, NULL, block, NULL);
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
ret = H5Sselect_hyperslab(sid, H5S_SELECT_XOR, start, NULL, block, NULL);
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
ret = H5Sselect_hyperslab(sid, H5S_SELECT_NOTB, start, NULL, block, NULL);
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
- } H5E_END_TRY
+ }
+ H5E_END_TRY
ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, NULL, block, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
ret = H5Sselect_hyperslab(sid, H5S_SELECT_OR, start, stride, count, block);
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
ret = H5Sselect_hyperslab(sid, H5S_SELECT_XOR, start, stride, count, block);
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
ret = H5Sselect_hyperslab(sid, H5S_SELECT_NOTA, start, stride, count, block);
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
- } H5E_END_TRY
+ }
+ H5E_END_TRY
/*
* Now test valid combination operations
@@ -14392,7 +14454,7 @@ test_hyper_unlim(void)
block[0] = 2;
block[1] = 2;
block[2] = 2;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start2[0] = 2;
start2[1] = 2;
@@ -14400,7 +14462,7 @@ test_hyper_unlim(void)
count2[0] = 5;
count2[1] = 4;
count2[2] = 2;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_AND, start2, NULL, count2, NULL);
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_AND, start2, NULL, count2, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
eblock1[0] = 2;
eblock1[3] = 2;
@@ -14414,9 +14476,9 @@ test_hyper_unlim(void)
eblock2[4] = 5;
eblock2[2] = 1;
eblock2[5] = 1;
- dims[0] = 50;
- dims[1] = 50;
- dims[2] = 50;
+ dims[0] = 50;
+ dims[1] = 50;
+ dims[2] = 50;
test_hyper_unlim_check(sid, dims, (hssize_t)3, (hssize_t)2, eblock1, eblock2);
/* unlim NOTA non-unlim */
@@ -14426,7 +14488,7 @@ test_hyper_unlim(void)
block[0] = 2;
block[1] = 2;
block[2] = 2;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
start2[0] = 1;
start2[1] = 5;
@@ -14434,7 +14496,7 @@ test_hyper_unlim(void)
count2[0] = 2;
count2[1] = 2;
count2[2] = 6;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_NOTA, start2, NULL, count2, NULL);
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_NOTA, start2, NULL, count2, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
eblock1[0] = 1;
eblock1[3] = 2;
@@ -14448,9 +14510,9 @@ test_hyper_unlim(void)
eblock2[4] = 6;
eblock2[2] = 6;
eblock2[5] = 7;
- dims[0] = 50;
- dims[1] = 50;
- dims[2] = 50;
+ dims[0] = 50;
+ dims[1] = 50;
+ dims[2] = 50;
test_hyper_unlim_check(sid, dims, (hssize_t)12, (hssize_t)2, eblock1, eblock2);
/* non-unlim AND unlim */
@@ -14460,7 +14522,7 @@ test_hyper_unlim(void)
count2[0] = 5;
count2[1] = 4;
count2[2] = 2;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start2, NULL, count2, NULL);
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start2, NULL, count2, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
count[0] = 1;
count[1] = H5S_UNLIMITED;
@@ -14468,7 +14530,7 @@ test_hyper_unlim(void)
block[0] = 2;
block[1] = 2;
block[2] = 2;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_AND, start, stride, count, block);
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_AND, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
eblock1[0] = 2;
eblock1[3] = 2;
@@ -14482,9 +14544,9 @@ test_hyper_unlim(void)
eblock2[4] = 5;
eblock2[2] = 1;
eblock2[5] = 1;
- dims[0] = 50;
- dims[1] = 50;
- dims[2] = 50;
+ dims[0] = 50;
+ dims[1] = 50;
+ dims[2] = 50;
test_hyper_unlim_check(sid, dims, (hssize_t)3, (hssize_t)2, eblock1, eblock2);
/* non-unlim NOTB unlim */
@@ -14494,7 +14556,7 @@ test_hyper_unlim(void)
count2[0] = 2;
count2[1] = 2;
count2[2] = 6;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start2, NULL, count2, NULL);
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start2, NULL, count2, NULL);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
count[0] = 1;
count[1] = H5S_UNLIMITED;
@@ -14502,7 +14564,7 @@ test_hyper_unlim(void)
block[0] = 2;
block[1] = 2;
block[2] = 2;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_NOTB, start, stride, count, block);
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_NOTB, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
eblock1[0] = 1;
eblock1[3] = 2;
@@ -14516,9 +14578,9 @@ test_hyper_unlim(void)
eblock2[4] = 6;
eblock2[2] = 6;
eblock2[5] = 7;
- dims[0] = 50;
- dims[1] = 50;
- dims[2] = 50;
+ dims[0] = 50;
+ dims[1] = 50;
+ dims[2] = 50;
test_hyper_unlim_check(sid, dims, (hssize_t)12, (hssize_t)2, eblock1, eblock2);
/* Test H5Sget_select_npoints() */
@@ -14556,37 +14618,37 @@ test_hyper_unlim(void)
static void
test_internal_consistency(void)
{
- hid_t all_sid; /* Dataspace ID with "all" selection */
- hid_t none_sid; /* Dataspace ID with "none" selection */
- hid_t single_pt_sid; /* Dataspace ID with single point selection */
- hid_t mult_pt_sid; /* Dataspace ID with multiple point selection */
- hid_t single_hyper_sid; /* Dataspace ID with single block hyperslab selection */
- hid_t single_hyper_all_sid; /* Dataspace ID with single block hyperslab
- * selection that is the entire dataspace
- */
- hid_t single_hyper_pt_sid; /* Dataspace ID with single block hyperslab
- * selection that is the same as the single
- * point selection
- */
- hid_t regular_hyper_sid; /* Dataspace ID with regular hyperslab selection */
- hid_t irreg_hyper_sid; /* Dataspace ID with irregular hyperslab selection */
- hid_t none_hyper_sid; /* Dataspace ID with "no hyperslabs" selection */
- hid_t scalar_all_sid; /* ID for scalar dataspace with "all" selection */
- hid_t scalar_none_sid; /* ID for scalar dataspace with "none" selection */
- hid_t tmp_sid; /* Temporary dataspace ID */
- hsize_t dims[] = {SPACE9_DIM1, SPACE9_DIM2};
- hsize_t coord1[1][SPACE2_RANK]; /* Coordinates for single point selection */
- hsize_t coord2[SPACE9_DIM2][SPACE9_RANK]; /* Coordinates for multiple point selection */
- hsize_t start[SPACE9_RANK]; /* Hyperslab start */
- hsize_t stride[SPACE9_RANK]; /* Hyperslab stride */
- hsize_t count[SPACE9_RANK]; /* Hyperslab block count */
- hsize_t block[SPACE9_RANK]; /* Hyperslab block size */
- htri_t check; /* Shape comparison return value */
- herr_t ret; /* Generic return value */
+ hid_t all_sid; /* Dataspace ID with "all" selection */
+ hid_t none_sid; /* Dataspace ID with "none" selection */
+ hid_t single_pt_sid; /* Dataspace ID with single point selection */
+ hid_t mult_pt_sid; /* Dataspace ID with multiple point selection */
+ hid_t single_hyper_sid; /* Dataspace ID with single block hyperslab selection */
+ hid_t single_hyper_all_sid; /* Dataspace ID with single block hyperslab
+ * selection that is the entire dataspace
+ */
+ hid_t single_hyper_pt_sid; /* Dataspace ID with single block hyperslab
+ * selection that is the same as the single
+ * point selection
+ */
+ hid_t regular_hyper_sid; /* Dataspace ID with regular hyperslab selection */
+ hid_t irreg_hyper_sid; /* Dataspace ID with irregular hyperslab selection */
+ hid_t none_hyper_sid; /* Dataspace ID with "no hyperslabs" selection */
+ hid_t scalar_all_sid; /* ID for scalar dataspace with "all" selection */
+ hid_t scalar_none_sid; /* ID for scalar dataspace with "none" selection */
+ hid_t tmp_sid; /* Temporary dataspace ID */
+ hsize_t dims[] = {SPACE9_DIM1, SPACE9_DIM2};
+ hsize_t coord1[1][SPACE2_RANK]; /* Coordinates for single point selection */
+ hsize_t coord2[SPACE9_DIM2][SPACE9_RANK]; /* Coordinates for multiple point selection */
+ hsize_t start[SPACE9_RANK]; /* Hyperslab start */
+ hsize_t stride[SPACE9_RANK]; /* Hyperslab stride */
+ hsize_t count[SPACE9_RANK]; /* Hyperslab block count */
+ hsize_t block[SPACE9_RANK]; /* Hyperslab block size */
+ htri_t check; /* Shape comparison return value */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(6, ("Testing Consistency of Internal States\n"));
- assert(SPACE9_DIM2>=POINT1_NPOINTS);
+ assert(SPACE9_DIM2 >= POINT1_NPOINTS);
/* Create dataspace for "all" selection */
all_sid = H5Screate_simple(SPACE9_RANK, dims, NULL);
@@ -14609,8 +14671,9 @@ test_internal_consistency(void)
CHECK(single_pt_sid, FAIL, "H5Screate_simple");
/* Select sequence of ten points for multiple point selection */
- coord1[0][0] = 2; coord1[0][1] = 2;
- ret = H5Sselect_elements(single_pt_sid, H5S_SELECT_SET, (size_t)1, (const hsize_t *)coord1);
+ coord1[0][0] = 2;
+ coord1[0][1] = 2;
+ ret = H5Sselect_elements(single_pt_sid, H5S_SELECT_SET, (size_t)1, (const hsize_t *)coord1);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Create dataspace for multiple point selection */
@@ -14618,16 +14681,26 @@ test_internal_consistency(void)
CHECK(mult_pt_sid, FAIL, "H5Screate_simple");
/* Select sequence of ten points for multiple point selection */
- coord2[0][0]=2; coord2[0][1]=2;
- coord2[1][0]=7; coord2[1][1]=2;
- coord2[2][0]=1; coord2[2][1]=4;
- coord2[3][0]=2; coord2[3][1]=6;
- coord2[4][0]=0; coord2[4][1]=8;
- coord2[5][0]=3; coord2[5][1]=2;
- coord2[6][0]=4; coord2[6][1]=4;
- coord2[7][0]=1; coord2[7][1]=0;
- coord2[8][0]=5; coord2[8][1]=1;
- coord2[9][0]=9; coord2[9][1]=3;
+ coord2[0][0] = 2;
+ coord2[0][1] = 2;
+ coord2[1][0] = 7;
+ coord2[1][1] = 2;
+ coord2[2][0] = 1;
+ coord2[2][1] = 4;
+ coord2[3][0] = 2;
+ coord2[3][1] = 6;
+ coord2[4][0] = 0;
+ coord2[4][1] = 8;
+ coord2[5][0] = 3;
+ coord2[5][1] = 2;
+ coord2[6][0] = 4;
+ coord2[6][1] = 4;
+ coord2[7][0] = 1;
+ coord2[7][1] = 0;
+ coord2[8][0] = 5;
+ coord2[8][1] = 1;
+ coord2[9][0] = 9;
+ coord2[9][1] = 3;
ret = H5Sselect_elements(mult_pt_sid, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord2);
CHECK(ret, FAIL, "H5Sselect_elements");
@@ -14636,11 +14709,15 @@ test_internal_consistency(void)
CHECK(single_hyper_sid, FAIL, "H5Screate_simple");
/* Select 10x10 hyperslab for single hyperslab selection */
- start[0]=1; start[1]=1;
- stride[0]=1; stride[1]=1;
- count[0]=1; count[1]=1;
- block[0]=(SPACE9_DIM1-2); block[1]=(SPACE9_DIM2-2);
- ret = H5Sselect_hyperslab(single_hyper_sid,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 1;
+ start[1] = 1;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 1;
+ count[1] = 1;
+ block[0] = (SPACE9_DIM1 - 2);
+ block[1] = (SPACE9_DIM2 - 2);
+ ret = H5Sselect_hyperslab(single_hyper_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Create dataspace for single hyperslab selection with entire extent selected */
@@ -14648,11 +14725,15 @@ test_internal_consistency(void)
CHECK(single_hyper_all_sid, FAIL, "H5Screate_simple");
/* Select entire extent for hyperslab selection */
- start[0]=0; start[1]=0;
- stride[0]=1; stride[1]=1;
- count[0]=1; count[1]=1;
- block[0]=SPACE9_DIM1; block[1]=SPACE9_DIM2;
- ret = H5Sselect_hyperslab(single_hyper_all_sid,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 1;
+ count[1] = 1;
+ block[0] = SPACE9_DIM1;
+ block[1] = SPACE9_DIM2;
+ ret = H5Sselect_hyperslab(single_hyper_all_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Create dataspace for single hyperslab selection with single point selected */
@@ -14660,11 +14741,15 @@ test_internal_consistency(void)
CHECK(single_hyper_pt_sid, FAIL, "H5Screate_simple");
/* Select entire extent for hyperslab selection */
- start[0]=2; start[1]=2;
- stride[0]=1; stride[1]=1;
- count[0]=1; count[1]=1;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(single_hyper_pt_sid,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 2;
+ start[1] = 2;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 1;
+ count[1] = 1;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(single_hyper_pt_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Create dataspace for regular hyperslab selection */
@@ -14672,11 +14757,15 @@ test_internal_consistency(void)
CHECK(regular_hyper_sid, FAIL, "H5Screate_simple");
/* Select regular, strided hyperslab selection */
- start[0]=2; start[1]=2;
- stride[0]=2; stride[1]=2;
- count[0]=5; count[1]=2;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(regular_hyper_sid,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 2;
+ start[1] = 2;
+ stride[0] = 2;
+ stride[1] = 2;
+ count[0] = 5;
+ count[1] = 2;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(regular_hyper_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Create dataspace for irregular hyperslab selection */
@@ -14684,18 +14773,26 @@ test_internal_consistency(void)
CHECK(irreg_hyper_sid, FAIL, "H5Screate_simple");
/* Create irregular hyperslab selection by OR'ing two blocks together */
- start[0]=2; start[1]=2;
- stride[0]=1; stride[1]=1;
- count[0]=1; count[1]=1;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(irreg_hyper_sid,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 2;
+ start[1] = 2;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 1;
+ count[1] = 1;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(irreg_hyper_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- start[0]=4; start[1]=4;
- stride[0]=1; stride[1]=1;
- count[0]=1; count[1]=1;
- block[0]=3; block[1]=3;
- ret = H5Sselect_hyperslab(irreg_hyper_sid,H5S_SELECT_OR,start,stride,count,block);
+ start[0] = 4;
+ start[1] = 4;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 1;
+ count[1] = 1;
+ block[0] = 3;
+ block[1] = 3;
+ ret = H5Sselect_hyperslab(irreg_hyper_sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Create dataspace for "no" hyperslab selection */
@@ -14703,14 +14800,18 @@ test_internal_consistency(void)
CHECK(none_hyper_sid, FAIL, "H5Screate_simple");
/* Create "no" hyperslab selection by XOR'ing same blocks together */
- start[0]=2; start[1]=2;
- stride[0]=1; stride[1]=1;
- count[0]=1; count[1]=1;
- block[0]=1; block[1]=1;
- ret = H5Sselect_hyperslab(none_hyper_sid,H5S_SELECT_SET,start,stride,count,block);
+ start[0] = 2;
+ start[1] = 2;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 1;
+ count[1] = 1;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(none_hyper_sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- ret = H5Sselect_hyperslab(none_hyper_sid,H5S_SELECT_XOR,start,stride,count,block);
+ ret = H5Sselect_hyperslab(none_hyper_sid, H5S_SELECT_XOR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Create scalar dataspace for "all" selection */
@@ -14728,7 +14829,7 @@ test_internal_consistency(void)
/* Test all the selections created */
/* Test the copy of itself */
- tmp_sid=H5Scopy(all_sid);
+ tmp_sid = H5Scopy(all_sid);
CHECK(tmp_sid, FAIL, "H5Scopy");
check = H5S__internal_consistency_test(tmp_sid);
@@ -14806,7 +14907,7 @@ test_internal_consistency(void)
CHECK(ret, FAIL, "H5Sclose");
ret = H5Sclose(scalar_none_sid);
CHECK(ret, FAIL, "H5Sclose");
-} /* test_internal_consistency() */
+} /* test_internal_consistency() */
/****************************************************************
**
@@ -14817,22 +14918,22 @@ test_internal_consistency(void)
static void
test_irreg_io(void)
{
- hid_t fid; /* File ID */
- hid_t did; /* Dataset ID */
- hid_t dcpl_id; /* Dataset creation property list ID */
- hid_t sid; /* File dataspace ID */
- hid_t mem_sid; /* Memory dataspace ID */
- hsize_t dims[] = {6, 12}; /* Dataspace dimensions */
- hsize_t chunk_dims[] = {2, 2}; /* Chunk dimensions */
- hsize_t mem_dims[] = {32}; /* Memory dataspace dimensions */
- hsize_t start[2]; /* Hyperslab start */
- hsize_t stride[2]; /* Hyperslab stride */
- hsize_t count[2]; /* Hyperslab block count */
- hsize_t block[2]; /* Hyperslab block size */
- unsigned char wbuf[72]; /* Write buffer */
- unsigned char rbuf[32]; /* Read buffer */
- unsigned u; /* Local index variable */
- herr_t ret; /* Generic return value */
+ hid_t fid; /* File ID */
+ hid_t did; /* Dataset ID */
+ hid_t dcpl_id; /* Dataset creation property list ID */
+ hid_t sid; /* File dataspace ID */
+ hid_t mem_sid; /* Memory dataspace ID */
+ hsize_t dims[] = {6, 12}; /* Dataspace dimensions */
+ hsize_t chunk_dims[] = {2, 2}; /* Chunk dimensions */
+ hsize_t mem_dims[] = {32}; /* Memory dataspace dimensions */
+ hsize_t start[2]; /* Hyperslab start */
+ hsize_t stride[2]; /* Hyperslab stride */
+ hsize_t count[2]; /* Hyperslab block count */
+ hsize_t block[2]; /* Hyperslab block size */
+ unsigned char wbuf[72]; /* Write buffer */
+ unsigned char rbuf[32]; /* Read buffer */
+ unsigned u; /* Local index variable */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(6, ("Testing Irregular Hyperslab I/O\n"));
@@ -14856,7 +14957,7 @@ test_irreg_io(void)
CHECK(did, FAIL, "H5Dcreate2");
/* Initialize the write buffer */
- for(u = 0; u < 72; u++)
+ for (u = 0; u < 72; u++)
wbuf[u] = (unsigned char)u;
/* Write entire dataset to disk */
@@ -14872,18 +14973,26 @@ test_irreg_io(void)
CHECK(mem_sid, FAIL, "H5Screate_simple");
/* Select 'L'-shaped region within dataset */
- start[0] = 0; start[1] = 10;
- stride[0] = 1; stride[1] = 1;
- count[0] = 4; count[1] = 2;
- block[0] = 1; block[1] = 1;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
+ start[0] = 0;
+ start[1] = 10;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 4;
+ count[1] = 2;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- start[0] = 4; start[1] = 0;
- stride[0] = 1; stride[1] = 1;
- count[0] = 2; count[1] = 12;
- block[0] = 1; block[1] = 1;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_OR, start, stride, count, block);
+ start[0] = 4;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 2;
+ count[1] = 12;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Reset the buffer */
@@ -14893,7 +15002,6 @@ test_irreg_io(void)
ret = H5Dread(did, H5T_NATIVE_UCHAR, mem_sid, sid, H5P_DEFAULT, rbuf);
CHECK(ret, FAIL, "H5Dread");
-
/* Close everything */
ret = H5Sclose(mem_sid);
CHECK(ret, FAIL, "H5Sclose");
@@ -14903,7 +15011,7 @@ test_irreg_io(void)
CHECK(ret, FAIL, "H5Dclose");
ret = H5Fclose(fid);
CHECK(ret, FAIL, "H5Fclose");
-} /* test_irreg_io() */
+} /* test_irreg_io() */
/****************************************************************
**
@@ -14913,22 +15021,22 @@ test_irreg_io(void)
static void
test_sel_iter(void)
{
- hid_t sid; /* Dataspace ID */
- hid_t iter_id; /* Dataspace selection iterator ID */
- hsize_t dims1[] = {6, 12}; /* 2-D Dataspace dimensions */
- hsize_t coord1[POINT1_NPOINTS][2]; /* Coordinates for point selection */
- hsize_t start[2]; /* Hyperslab start */
- hsize_t stride[2]; /* Hyperslab stride */
- hsize_t count[2]; /* Hyperslab block count */
- hsize_t block[2]; /* Hyperslab block size */
- size_t nseq; /* # of sequences retrieved */
- size_t nbytes; /* # of bytes retrieved */
- hsize_t off[SEL_ITER_MAX_SEQ]; /* Offsets for retrieved sequences */
- size_t len[SEL_ITER_MAX_SEQ]; /* Lengths for retrieved sequences */
- H5S_sel_type sel_type; /* Selection type */
- unsigned sel_share; /* Whether to share selection with dataspace */
- unsigned sel_iter_flags; /* Flags for selection iterator creation */
- herr_t ret; /* Generic return value */
+ hid_t sid; /* Dataspace ID */
+ hid_t iter_id; /* Dataspace selection iterator ID */
+ hsize_t dims1[] = {6, 12}; /* 2-D Dataspace dimensions */
+ hsize_t coord1[POINT1_NPOINTS][2]; /* Coordinates for point selection */
+ hsize_t start[2]; /* Hyperslab start */
+ hsize_t stride[2]; /* Hyperslab stride */
+ hsize_t count[2]; /* Hyperslab block count */
+ hsize_t block[2]; /* Hyperslab block size */
+ size_t nseq; /* # of sequences retrieved */
+ size_t nbytes; /* # of bytes retrieved */
+ hsize_t off[SEL_ITER_MAX_SEQ]; /* Offsets for retrieved sequences */
+ size_t len[SEL_ITER_MAX_SEQ]; /* Lengths for retrieved sequences */
+ H5S_sel_type sel_type; /* Selection type */
+ unsigned sel_share; /* Whether to share selection with dataspace */
+ unsigned sel_iter_flags; /* Flags for selection iterator creation */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(6, ("Testing Dataspace Selection Iterators\n"));
@@ -14937,36 +15045,44 @@ test_sel_iter(void)
sid = H5Screate_simple(2, dims1, NULL);
CHECK(sid, FAIL, "H5Screate_simple");
-
/* Try creating selection iterator object with bad parameters */
- H5E_BEGIN_TRY { /* Bad dataspace ID */
+ H5E_BEGIN_TRY
+ { /* Bad dataspace ID */
iter_id = H5Ssel_iter_create(H5I_INVALID_HID, (size_t)1, (unsigned)0);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
VERIFY(iter_id, FAIL, "H5Ssel_iter_create");
- H5E_BEGIN_TRY { /* Bad element size */
+ H5E_BEGIN_TRY
+ { /* Bad element size */
iter_id = H5Ssel_iter_create(sid, (size_t)0, (unsigned)0);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
VERIFY(iter_id, FAIL, "H5Ssel_iter_create");
- H5E_BEGIN_TRY { /* Bad flag(s) */
+ H5E_BEGIN_TRY
+ { /* Bad flag(s) */
iter_id = H5Ssel_iter_create(sid, (size_t)1, (unsigned)0xffff);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
VERIFY(iter_id, FAIL, "H5Ssel_iter_create");
/* Try closing selection iterator, with bad parameters */
- H5E_BEGIN_TRY { /* Invalid ID */
+ H5E_BEGIN_TRY
+ { /* Invalid ID */
ret = H5Ssel_iter_close(H5I_INVALID_HID);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Ssel_iter_close");
- H5E_BEGIN_TRY { /* Not a selection iterator ID */
+ H5E_BEGIN_TRY
+ { /* Not a selection iterator ID */
ret = H5Ssel_iter_close(sid);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Ssel_iter_close");
-
/* Try with no selection sharing, and with sharing */
- for(sel_share = 0; sel_share < 2; sel_share++) {
+ for (sel_share = 0; sel_share < 2; sel_share++) {
/* Set selection iterator sharing flags */
- if(sel_share)
+ if (sel_share)
sel_iter_flags = H5S_SEL_ITER_SHARE_WITH_DATASPACE;
else
sel_iter_flags = 0;
@@ -14980,88 +15096,111 @@ test_sel_iter(void)
CHECK(ret, FAIL, "H5Ssel_iter_close");
/* Try closing selection iterator twice */
- H5E_BEGIN_TRY { /* Invalid ID */
+ H5E_BEGIN_TRY
+ { /* Invalid ID */
ret = H5Ssel_iter_close(iter_id);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Ssel_iter_close");
-
/* Create selection iterator object */
iter_id = H5Ssel_iter_create(sid, (size_t)1, (unsigned)sel_iter_flags);
CHECK(iter_id, FAIL, "H5Ssel_iter_create");
/* Try resetting selection iterator with bad parameters */
- H5E_BEGIN_TRY {
- ret = H5Ssel_iter_reset(H5I_INVALID_HID, sid);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { ret = H5Ssel_iter_reset(H5I_INVALID_HID, sid); }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Ssel_iter_reset");
- H5E_BEGIN_TRY {
- ret = H5Ssel_iter_reset(iter_id, H5I_INVALID_HID);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { ret = H5Ssel_iter_reset(iter_id, H5I_INVALID_HID); }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Ssel_iter_reset");
/* Try retrieving sequences, with bad parameters */
- H5E_BEGIN_TRY { /* Invalid ID */
+ H5E_BEGIN_TRY
+ { /* Invalid ID */
ret = H5Ssel_iter_get_seq_list(H5I_INVALID_HID, (size_t)1, (size_t)1, &nseq, &nbytes, off, len);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Ssel_iter_get_seq_list");
- H5E_BEGIN_TRY { /* Invalid nseq pointer */
+ H5E_BEGIN_TRY
+ { /* Invalid nseq pointer */
ret = H5Ssel_iter_get_seq_list(iter_id, (size_t)1, (size_t)1, NULL, &nbytes, off, len);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Ssel_iter_get_seq_list");
- H5E_BEGIN_TRY { /* Invalid nbytes pointer */
+ H5E_BEGIN_TRY
+ { /* Invalid nbytes pointer */
ret = H5Ssel_iter_get_seq_list(iter_id, (size_t)1, (size_t)1, &nseq, NULL, off, len);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Ssel_iter_get_seq_list");
- H5E_BEGIN_TRY { /* Invalid offset array */
+ H5E_BEGIN_TRY
+ { /* Invalid offset array */
ret = H5Ssel_iter_get_seq_list(iter_id, (size_t)1, (size_t)1, &nseq, &nbytes, NULL, len);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Ssel_iter_get_seq_list");
- H5E_BEGIN_TRY { /* Invalid length array */
+ H5E_BEGIN_TRY
+ { /* Invalid length array */
ret = H5Ssel_iter_get_seq_list(iter_id, (size_t)1, (size_t)1, &nseq, &nbytes, off, NULL);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
VERIFY(ret, FAIL, "H5Ssel_iter_get_seq_list");
/* Close selection iterator */
ret = H5Ssel_iter_close(iter_id);
CHECK(ret, FAIL, "H5Ssel_iter_close");
-
/* Test iterators on various basic selection types */
- for(sel_type = H5S_SEL_NONE; sel_type <= H5S_SEL_ALL; sel_type = (H5S_sel_type)(sel_type + 1)) {
- switch(sel_type) {
- case H5S_SEL_NONE: /* "None" selection */
+ for (sel_type = H5S_SEL_NONE; sel_type <= H5S_SEL_ALL; sel_type = (H5S_sel_type)(sel_type + 1)) {
+ switch (sel_type) {
+ case H5S_SEL_NONE: /* "None" selection */
ret = H5Sselect_none(sid);
CHECK(ret, FAIL, "H5Sselect_none");
break;
- case H5S_SEL_POINTS: /* Point selection */
+ case H5S_SEL_POINTS: /* Point selection */
/* Select sequence of ten points */
- coord1[0][0] = 0; coord1[0][1] = 9;
- coord1[1][0] = 1; coord1[1][1] = 2;
- coord1[2][0] = 2; coord1[2][1] = 4;
- coord1[3][0] = 0; coord1[3][1] = 6;
- coord1[4][0] = 1; coord1[4][1] = 8;
- coord1[5][0] = 2; coord1[5][1] = 10;
- coord1[6][0] = 0; coord1[6][1] = 11;
- coord1[7][0] = 1; coord1[7][1] = 4;
- coord1[8][0] = 2; coord1[8][1] = 1;
- coord1[9][0] = 0; coord1[9][1] = 3;
- ret = H5Sselect_elements(sid, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord1);
+ coord1[0][0] = 0;
+ coord1[0][1] = 9;
+ coord1[1][0] = 1;
+ coord1[1][1] = 2;
+ coord1[2][0] = 2;
+ coord1[2][1] = 4;
+ coord1[3][0] = 0;
+ coord1[3][1] = 6;
+ coord1[4][0] = 1;
+ coord1[4][1] = 8;
+ coord1[5][0] = 2;
+ coord1[5][1] = 10;
+ coord1[6][0] = 0;
+ coord1[6][1] = 11;
+ coord1[7][0] = 1;
+ coord1[7][1] = 4;
+ coord1[8][0] = 2;
+ coord1[8][1] = 1;
+ coord1[9][0] = 0;
+ coord1[9][1] = 3;
+ ret = H5Sselect_elements(sid, H5S_SELECT_SET, (size_t)POINT1_NPOINTS,
+ (const hsize_t *)coord1);
CHECK(ret, FAIL, "H5Sselect_elements");
break;
- case H5S_SEL_HYPERSLABS: /* Hyperslab selection */
+ case H5S_SEL_HYPERSLABS: /* Hyperslab selection */
/* Select regular hyperslab */
- start[0] = 3; start[1] = 0;
- stride[0] = 2; stride[1] = 2;
- count[0] = 2; count[1] = 5;
- block[0] = 1; block[1] = 1;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
+ start[0] = 3;
+ start[1] = 0;
+ stride[0] = 2;
+ stride[1] = 2;
+ count[0] = 2;
+ count[1] = 5;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
break;
- case H5S_SEL_ALL: /* "All" selection */
+ case H5S_SEL_ALL: /* "All" selection */
ret = H5Sselect_all(sid);
CHECK(ret, FAIL, "H5Sselect_all");
break;
@@ -15088,27 +15227,28 @@ test_sel_iter(void)
VERIFY(nbytes, 0, "H5Ssel_iter_get_seq_list");
/* Try retrieving all sequences */
- ret = H5Ssel_iter_get_seq_list(iter_id, (size_t)SEL_ITER_MAX_SEQ, (size_t)(1024 * 1024), &nseq, &nbytes, off, len);
+ ret = H5Ssel_iter_get_seq_list(iter_id, (size_t)SEL_ITER_MAX_SEQ, (size_t)(1024 * 1024), &nseq,
+ &nbytes, off, len);
CHECK(ret, FAIL, "H5Ssel_iter_get_seq_list");
/* Check results from retrieving sequence list */
- switch(sel_type) {
- case H5S_SEL_NONE: /* "None" selection */
+ switch (sel_type) {
+ case H5S_SEL_NONE: /* "None" selection */
VERIFY(nseq, 0, "H5Ssel_iter_get_seq_list");
VERIFY(nbytes, 0, "H5Ssel_iter_get_seq_list");
break;
- case H5S_SEL_POINTS: /* Point selection */
+ case H5S_SEL_POINTS: /* Point selection */
VERIFY(nseq, 10, "H5Ssel_iter_get_seq_list");
VERIFY(nbytes, 10, "H5Ssel_iter_get_seq_list");
break;
- case H5S_SEL_HYPERSLABS: /* Hyperslab selection */
+ case H5S_SEL_HYPERSLABS: /* Hyperslab selection */
VERIFY(nseq, 10, "H5Ssel_iter_get_seq_list");
VERIFY(nbytes, 10, "H5Ssel_iter_get_seq_list");
break;
- case H5S_SEL_ALL: /* "All" selection */
+ case H5S_SEL_ALL: /* "All" selection */
VERIFY(nseq, 1, "H5Ssel_iter_get_seq_list");
VERIFY(nbytes, 72, "H5Ssel_iter_get_seq_list");
break;
@@ -15131,40 +15271,55 @@ test_sel_iter(void)
/* Test iterators on various basic selection types using
* H5Ssel_iter_reset instead of creating multiple iterators */
- for(sel_type = H5S_SEL_NONE; sel_type <= H5S_SEL_ALL; sel_type = (H5S_sel_type)(sel_type + 1)) {
- switch(sel_type) {
- case H5S_SEL_NONE: /* "None" selection */
+ for (sel_type = H5S_SEL_NONE; sel_type <= H5S_SEL_ALL; sel_type = (H5S_sel_type)(sel_type + 1)) {
+ switch (sel_type) {
+ case H5S_SEL_NONE: /* "None" selection */
ret = H5Sselect_none(sid);
CHECK(ret, FAIL, "H5Sselect_none");
break;
- case H5S_SEL_POINTS: /* Point selection */
+ case H5S_SEL_POINTS: /* Point selection */
/* Select sequence of ten points */
- coord1[0][0] = 0; coord1[0][1] = 9;
- coord1[1][0] = 1; coord1[1][1] = 2;
- coord1[2][0] = 2; coord1[2][1] = 4;
- coord1[3][0] = 0; coord1[3][1] = 6;
- coord1[4][0] = 1; coord1[4][1] = 8;
- coord1[5][0] = 2; coord1[5][1] = 10;
- coord1[6][0] = 0; coord1[6][1] = 11;
- coord1[7][0] = 1; coord1[7][1] = 4;
- coord1[8][0] = 2; coord1[8][1] = 1;
- coord1[9][0] = 0; coord1[9][1] = 3;
- ret = H5Sselect_elements(sid, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord1);
+ coord1[0][0] = 0;
+ coord1[0][1] = 9;
+ coord1[1][0] = 1;
+ coord1[1][1] = 2;
+ coord1[2][0] = 2;
+ coord1[2][1] = 4;
+ coord1[3][0] = 0;
+ coord1[3][1] = 6;
+ coord1[4][0] = 1;
+ coord1[4][1] = 8;
+ coord1[5][0] = 2;
+ coord1[5][1] = 10;
+ coord1[6][0] = 0;
+ coord1[6][1] = 11;
+ coord1[7][0] = 1;
+ coord1[7][1] = 4;
+ coord1[8][0] = 2;
+ coord1[8][1] = 1;
+ coord1[9][0] = 0;
+ coord1[9][1] = 3;
+ ret = H5Sselect_elements(sid, H5S_SELECT_SET, (size_t)POINT1_NPOINTS,
+ (const hsize_t *)coord1);
CHECK(ret, FAIL, "H5Sselect_elements");
break;
- case H5S_SEL_HYPERSLABS: /* Hyperslab selection */
+ case H5S_SEL_HYPERSLABS: /* Hyperslab selection */
/* Select regular hyperslab */
- start[0] = 3; start[1] = 0;
- stride[0] = 2; stride[1] = 2;
- count[0] = 2; count[1] = 5;
- block[0] = 1; block[1] = 1;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
+ start[0] = 3;
+ start[1] = 0;
+ stride[0] = 2;
+ stride[1] = 2;
+ count[0] = 2;
+ count[1] = 5;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
break;
- case H5S_SEL_ALL: /* "All" selection */
+ case H5S_SEL_ALL: /* "All" selection */
ret = H5Sselect_all(sid);
CHECK(ret, FAIL, "H5Sselect_all");
break;
@@ -15191,27 +15346,28 @@ test_sel_iter(void)
CHECK(ret, FAIL, "H5Ssel_iter_reset");
/* Try retrieving all sequences */
- ret = H5Ssel_iter_get_seq_list(iter_id, (size_t)SEL_ITER_MAX_SEQ, (size_t)(1024 * 1024), &nseq, &nbytes, off, len);
+ ret = H5Ssel_iter_get_seq_list(iter_id, (size_t)SEL_ITER_MAX_SEQ, (size_t)(1024 * 1024), &nseq,
+ &nbytes, off, len);
CHECK(ret, FAIL, "H5Ssel_iter_get_seq_list");
/* Check results from retrieving sequence list */
- switch(sel_type) {
- case H5S_SEL_NONE: /* "None" selection */
+ switch (sel_type) {
+ case H5S_SEL_NONE: /* "None" selection */
VERIFY(nseq, 0, "H5Ssel_iter_get_seq_list");
VERIFY(nbytes, 0, "H5Ssel_iter_get_seq_list");
break;
- case H5S_SEL_POINTS: /* Point selection */
+ case H5S_SEL_POINTS: /* Point selection */
VERIFY(nseq, 10, "H5Ssel_iter_get_seq_list");
VERIFY(nbytes, 10, "H5Ssel_iter_get_seq_list");
break;
- case H5S_SEL_HYPERSLABS: /* Hyperslab selection */
+ case H5S_SEL_HYPERSLABS: /* Hyperslab selection */
VERIFY(nseq, 10, "H5Ssel_iter_get_seq_list");
VERIFY(nbytes, 10, "H5Ssel_iter_get_seq_list");
break;
- case H5S_SEL_ALL: /* "All" selection */
+ case H5S_SEL_ALL: /* "All" selection */
VERIFY(nseq, 1, "H5Ssel_iter_get_seq_list");
VERIFY(nbytes, 72, "H5Ssel_iter_get_seq_list");
break;
@@ -15228,27 +15384,28 @@ test_sel_iter(void)
CHECK(ret, FAIL, "H5Ssel_iter_reset");
/* Try retrieving all sequences again */
- ret = H5Ssel_iter_get_seq_list(iter_id, (size_t)SEL_ITER_MAX_SEQ, (size_t)(1024 * 1024), &nseq, &nbytes, off, len);
+ ret = H5Ssel_iter_get_seq_list(iter_id, (size_t)SEL_ITER_MAX_SEQ, (size_t)(1024 * 1024), &nseq,
+ &nbytes, off, len);
CHECK(ret, FAIL, "H5Ssel_iter_get_seq_list");
/* Check results from retrieving sequence list */
- switch(sel_type) {
- case H5S_SEL_NONE: /* "None" selection */
+ switch (sel_type) {
+ case H5S_SEL_NONE: /* "None" selection */
VERIFY(nseq, 0, "H5Ssel_iter_get_seq_list");
VERIFY(nbytes, 0, "H5Ssel_iter_get_seq_list");
break;
- case H5S_SEL_POINTS: /* Point selection */
+ case H5S_SEL_POINTS: /* Point selection */
VERIFY(nseq, 10, "H5Ssel_iter_get_seq_list");
VERIFY(nbytes, 10, "H5Ssel_iter_get_seq_list");
break;
- case H5S_SEL_HYPERSLABS: /* Hyperslab selection */
+ case H5S_SEL_HYPERSLABS: /* Hyperslab selection */
VERIFY(nseq, 10, "H5Ssel_iter_get_seq_list");
VERIFY(nbytes, 10, "H5Ssel_iter_get_seq_list");
break;
- case H5S_SEL_ALL: /* "All" selection */
+ case H5S_SEL_ALL: /* "All" selection */
VERIFY(nseq, 1, "H5Ssel_iter_get_seq_list");
VERIFY(nbytes, 72, "H5Ssel_iter_get_seq_list");
break;
@@ -15270,16 +15427,26 @@ test_sel_iter(void)
CHECK(ret, FAIL, "H5Ssel_iter_close");
/* Point selection which will merge into smaller # of sequences */
- coord1[0][0] = 0; coord1[0][1] = 9;
- coord1[1][0] = 0; coord1[1][1] = 10;
- coord1[2][0] = 0; coord1[2][1] = 11;
- coord1[3][0] = 0; coord1[3][1] = 6;
- coord1[4][0] = 1; coord1[4][1] = 8;
- coord1[5][0] = 2; coord1[5][1] = 10;
- coord1[6][0] = 0; coord1[6][1] = 11;
- coord1[7][0] = 1; coord1[7][1] = 4;
- coord1[8][0] = 1; coord1[8][1] = 5;
- coord1[9][0] = 1; coord1[9][1] = 6;
+ coord1[0][0] = 0;
+ coord1[0][1] = 9;
+ coord1[1][0] = 0;
+ coord1[1][1] = 10;
+ coord1[2][0] = 0;
+ coord1[2][1] = 11;
+ coord1[3][0] = 0;
+ coord1[3][1] = 6;
+ coord1[4][0] = 1;
+ coord1[4][1] = 8;
+ coord1[5][0] = 2;
+ coord1[5][1] = 10;
+ coord1[6][0] = 0;
+ coord1[6][1] = 11;
+ coord1[7][0] = 1;
+ coord1[7][1] = 4;
+ coord1[8][0] = 1;
+ coord1[8][1] = 5;
+ coord1[9][0] = 1;
+ coord1[9][1] = 6;
ret = H5Sselect_elements(sid, H5S_SELECT_SET, (size_t)POINT1_NPOINTS, (const hsize_t *)coord1);
CHECK(ret, FAIL, "H5Sselect_elements");
@@ -15288,7 +15455,8 @@ test_sel_iter(void)
CHECK(iter_id, FAIL, "H5Ssel_iter_create");
/* Try retrieving all sequences */
- ret = H5Ssel_iter_get_seq_list(iter_id, (size_t)SEL_ITER_MAX_SEQ, (size_t)(1024 * 1024), &nseq, &nbytes, off, len);
+ ret = H5Ssel_iter_get_seq_list(iter_id, (size_t)SEL_ITER_MAX_SEQ, (size_t)(1024 * 1024), &nseq,
+ &nbytes, off, len);
CHECK(ret, FAIL, "H5Ssel_iter_get_seq_list");
VERIFY(nseq, 6, "H5Ssel_iter_get_seq_list");
VERIFY(nbytes, 10, "H5Ssel_iter_get_seq_list");
@@ -15298,7 +15466,8 @@ test_sel_iter(void)
CHECK(ret, FAIL, "H5Ssel_iter_reset");
/* Try retrieving all sequences again */
- ret = H5Ssel_iter_get_seq_list(iter_id, (size_t)SEL_ITER_MAX_SEQ, (size_t)(1024 * 1024), &nseq, &nbytes, off, len);
+ ret = H5Ssel_iter_get_seq_list(iter_id, (size_t)SEL_ITER_MAX_SEQ, (size_t)(1024 * 1024), &nseq,
+ &nbytes, off, len);
CHECK(ret, FAIL, "H5Ssel_iter_get_seq_list");
VERIFY(nseq, 6, "H5Ssel_iter_get_seq_list");
VERIFY(nbytes, 10, "H5Ssel_iter_get_seq_list");
@@ -15307,20 +15476,27 @@ test_sel_iter(void)
ret = H5Ssel_iter_close(iter_id);
CHECK(ret, FAIL, "H5Ssel_iter_close");
-
/* Select irregular hyperslab, which will merge into smaller # of sequences */
- start[0] = 3; start[1] = 0;
- stride[0] = 2; stride[1] = 2;
- count[0] = 2; count[1] = 5;
- block[0] = 1; block[1] = 1;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
+ start[0] = 3;
+ start[1] = 0;
+ stride[0] = 2;
+ stride[1] = 2;
+ count[0] = 2;
+ count[1] = 5;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
- start[0] = 3; start[1] = 3;
- stride[0] = 2; stride[1] = 2;
- count[0] = 2; count[1] = 5;
- block[0] = 1; block[1] = 1;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_OR, start, stride, count, block);
+ start[0] = 3;
+ start[1] = 3;
+ stride[0] = 2;
+ stride[1] = 2;
+ count[0] = 2;
+ count[1] = 5;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Create selection iterator object */
@@ -15328,7 +15504,8 @@ test_sel_iter(void)
CHECK(iter_id, FAIL, "H5Ssel_iter_create");
/* Try retrieving all sequences */
- ret = H5Ssel_iter_get_seq_list(iter_id, (size_t)SEL_ITER_MAX_SEQ, (size_t)(1024 * 1024), &nseq, &nbytes, off, len);
+ ret = H5Ssel_iter_get_seq_list(iter_id, (size_t)SEL_ITER_MAX_SEQ, (size_t)(1024 * 1024), &nseq,
+ &nbytes, off, len);
CHECK(ret, FAIL, "H5Ssel_iter_get_seq_list");
VERIFY(nseq, 6, "H5Ssel_iter_get_seq_list");
VERIFY(nbytes, 20, "H5Ssel_iter_get_seq_list");
@@ -15338,7 +15515,8 @@ test_sel_iter(void)
CHECK(ret, FAIL, "H5Ssel_iter_reset");
/* Try retrieving all sequences again */
- ret = H5Ssel_iter_get_seq_list(iter_id, (size_t)SEL_ITER_MAX_SEQ, (size_t)(1024 * 1024), &nseq, &nbytes, off, len);
+ ret = H5Ssel_iter_get_seq_list(iter_id, (size_t)SEL_ITER_MAX_SEQ, (size_t)(1024 * 1024), &nseq,
+ &nbytes, off, len);
CHECK(ret, FAIL, "H5Ssel_iter_get_seq_list");
VERIFY(nseq, 6, "H5Ssel_iter_get_seq_list");
VERIFY(nbytes, 20, "H5Ssel_iter_get_seq_list");
@@ -15352,7 +15530,7 @@ test_sel_iter(void)
/* Close dataspace */
ret = H5Sclose(sid);
CHECK(ret, FAIL, "H5Sclose");
-} /* test_sel_iter() */
+} /* test_sel_iter() */
/****************************************************************
**
@@ -15363,20 +15541,20 @@ test_sel_iter(void)
static void
test_select_intersect_block(void)
{
- hid_t sid; /* Dataspace ID */
- hsize_t dims1[] = {6, 12}; /* 2-D Dataspace dimensions */
- hsize_t block_start[] = {1, 3}; /* Start offset for block */
- hsize_t block_end[] = {2, 5}; /* End offset for block */
- hsize_t block_end2[] = {0, 5}; /* Bad end offset for block */
- hsize_t block_end3[] = {2, 2}; /* Another bad end offset for block */
- hsize_t block_end4[] = {1, 3}; /* End offset that makes a single element block */
- hsize_t coord[10][2]; /* Coordinates for point selection */
- hsize_t start[2]; /* Starting location of hyperslab */
- hsize_t stride[2]; /* Stride of hyperslab */
- hsize_t count[2]; /* Element count of hyperslab */
- hsize_t block[2]; /* Block size of hyperslab */
- htri_t status; /* Intersection status */
- herr_t ret; /* Generic return value */
+ hid_t sid; /* Dataspace ID */
+ hsize_t dims1[] = {6, 12}; /* 2-D Dataspace dimensions */
+ hsize_t block_start[] = {1, 3}; /* Start offset for block */
+ hsize_t block_end[] = {2, 5}; /* End offset for block */
+ hsize_t block_end2[] = {0, 5}; /* Bad end offset for block */
+ hsize_t block_end3[] = {2, 2}; /* Another bad end offset for block */
+ hsize_t block_end4[] = {1, 3}; /* End offset that makes a single element block */
+ hsize_t coord[10][2]; /* Coordinates for point selection */
+ hsize_t start[2]; /* Starting location of hyperslab */
+ hsize_t stride[2]; /* Stride of hyperslab */
+ hsize_t count[2]; /* Element count of hyperslab */
+ hsize_t block[2]; /* Block size of hyperslab */
+ htri_t status; /* Intersection status */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(6, ("Testing Dataspace Selection Block Intersection\n"));
@@ -15385,30 +15563,38 @@ test_select_intersect_block(void)
sid = H5Screate_simple(2, dims1, NULL);
CHECK(sid, FAIL, "H5Screate_simple");
-
/* Try intersection calls with bad parameters */
- H5E_BEGIN_TRY { /* Bad dataspace ID */
+ H5E_BEGIN_TRY
+ { /* Bad dataspace ID */
status = H5Sselect_intersect_block(H5I_INVALID_HID, block_start, block_end);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
VERIFY(status, FAIL, "H5Sselect_intersect_block");
- H5E_BEGIN_TRY { /* Bad start pointer */
+ H5E_BEGIN_TRY
+ { /* Bad start pointer */
status = H5Sselect_intersect_block(sid, NULL, block_end);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
VERIFY(status, FAIL, "H5Sselect_intersect_block");
- H5E_BEGIN_TRY { /* Bad end pointer */
+ H5E_BEGIN_TRY
+ { /* Bad end pointer */
status = H5Sselect_intersect_block(sid, block_start, NULL);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
VERIFY(status, FAIL, "H5Sselect_intersect_block");
- H5E_BEGIN_TRY { /* Invalid block */
+ H5E_BEGIN_TRY
+ { /* Invalid block */
status = H5Sselect_intersect_block(sid, block_start, block_end2);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
VERIFY(status, FAIL, "H5Sselect_intersect_block");
- H5E_BEGIN_TRY { /* Another invalid block */
+ H5E_BEGIN_TRY
+ { /* Another invalid block */
status = H5Sselect_intersect_block(sid, block_start, block_end3);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
VERIFY(status, FAIL, "H5Sselect_intersect_block");
-
/* Set selection to 'none' */
ret = H5Sselect_none(sid);
CHECK(ret, FAIL, "H5Sselect_none");
@@ -15417,7 +15603,6 @@ test_select_intersect_block(void)
status = H5Sselect_intersect_block(sid, block_start, block_end);
VERIFY(status, FALSE, "H5Sselect_intersect_block");
-
/* Set selection to 'all' */
ret = H5Sselect_all(sid);
CHECK(ret, FAIL, "H5Sselect_all");
@@ -15426,19 +15611,28 @@ test_select_intersect_block(void)
status = H5Sselect_intersect_block(sid, block_start, block_end);
VERIFY(status, TRUE, "H5Sselect_intersect_block");
-
/* Select sequence of ten points */
- coord[0][0] = 0; coord[0][1] = 10;
- coord[1][0] = 1; coord[1][1] = 2;
- coord[2][0] = 2; coord[2][1] = 4;
- coord[3][0] = 0; coord[3][1] = 6;
- coord[4][0] = 1; coord[4][1] = 8;
- coord[5][0] = 2; coord[5][1] = 11;
- coord[6][0] = 0; coord[6][1] = 4;
- coord[7][0] = 1; coord[7][1] = 0;
- coord[8][0] = 2; coord[8][1] = 1;
- coord[9][0] = 0; coord[9][1] = 3;
- ret = H5Sselect_elements(sid, H5S_SELECT_SET, (size_t)10, (const hsize_t *)coord);
+ coord[0][0] = 0;
+ coord[0][1] = 10;
+ coord[1][0] = 1;
+ coord[1][1] = 2;
+ coord[2][0] = 2;
+ coord[2][1] = 4;
+ coord[3][0] = 0;
+ coord[3][1] = 6;
+ coord[4][0] = 1;
+ coord[4][1] = 8;
+ coord[5][0] = 2;
+ coord[5][1] = 11;
+ coord[6][0] = 0;
+ coord[6][1] = 4;
+ coord[7][0] = 1;
+ coord[7][1] = 0;
+ coord[8][0] = 2;
+ coord[8][1] = 1;
+ coord[9][0] = 0;
+ coord[9][1] = 3;
+ ret = H5Sselect_elements(sid, H5S_SELECT_SET, (size_t)10, (const hsize_t *)coord);
CHECK(ret, FAIL, "H5Sselect_elements");
/* Test block intersection with 'point' selection */
@@ -15447,13 +15641,16 @@ test_select_intersect_block(void)
status = H5Sselect_intersect_block(sid, block_start, block_end4);
VERIFY(status, FALSE, "H5Sselect_intersect_block");
-
/* Select single 4x6 hyperslab block at (2,1) */
- start[0] = 2; start[1] = 1;
- stride[0] = 1; stride[1] = 1;
- count[0] = 4; count[1] = 6;
- block[0] = 1; block[1] = 1;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
+ start[0] = 2;
+ start[1] = 1;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 4;
+ count[1] = 6;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Test block intersection with single 'hyperslab' selection */
@@ -15463,11 +15660,15 @@ test_select_intersect_block(void)
VERIFY(status, FALSE, "H5Sselect_intersect_block");
/* 'OR' another hyperslab block in, making an irregular hyperslab selection */
- start[0] = 3; start[1] = 2;
- stride[0] = 1; stride[1] = 1;
- count[0] = 4; count[1] = 6;
- block[0] = 1; block[1] = 1;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_OR, start, stride, count, block);
+ start[0] = 3;
+ start[1] = 2;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 4;
+ count[1] = 6;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_OR, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Test block intersection with 'hyperslab' selection */
@@ -15477,11 +15678,15 @@ test_select_intersect_block(void)
VERIFY(status, FALSE, "H5Sselect_intersect_block");
/* Select regular, strided hyperslab selection */
- start[0] = 2; start[1] = 1;
- stride[0] = 2; stride[1] = 2;
- count[0] = 2; count[1] = 4;
- block[0] = 1; block[1] = 1;
- ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
+ start[0] = 2;
+ start[1] = 1;
+ stride[0] = 2;
+ stride[1] = 2;
+ count[0] = 2;
+ count[1] = 4;
+ block[0] = 1;
+ block[1] = 1;
+ ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
CHECK(ret, FAIL, "H5Sselect_hyperslab");
/* Test block intersection with single 'hyperslab' selection */
@@ -15490,13 +15695,11 @@ test_select_intersect_block(void)
status = H5Sselect_intersect_block(sid, block_start, block_end4);
VERIFY(status, FALSE, "H5Sselect_intersect_block");
-
/* Close dataspace */
ret = H5Sclose(sid);
CHECK(ret, FAIL, "H5Sclose");
-} /* test_select_intersect_block() */
+} /* test_select_intersect_block() */
-
/****************************************************************
**
** test_hyper_io_1d():
@@ -15511,20 +15714,20 @@ test_select_intersect_block(void)
static void
test_hyper_io_1d(void)
{
- hid_t fid; /* File ID */
- hid_t did; /* Dataset ID */
- hid_t sid, mid; /* Dataspace IDs */
- hid_t dcpl; /* Dataset creation property list ID */
- hsize_t dims[1], maxdims[1], dimsm[1]; /* Dataset dimension sizes */
- hsize_t chunk_dims[1]; /* Chunk dimension size */
- hsize_t offset[1]; /* Starting offset for hyperslab */
- hsize_t stride[1]; /* Distance between blocks in the hyperslab selection */
- hsize_t count[1]; /* # of blocks in the the hyperslab selection */
- hsize_t block[1]; /* Size of block in the hyperslab selection */
- unsigned int wdata[CHUNKSZ]; /* Data to be written */
- unsigned int rdata[NUM_ELEMENTS/10]; /* Data to be read */
- herr_t ret; /* Generic return value */
- unsigned i; /* Local index variable */
+ hid_t fid; /* File ID */
+ hid_t did; /* Dataset ID */
+ hid_t sid, mid; /* Dataspace IDs */
+ hid_t dcpl; /* Dataset creation property list ID */
+ hsize_t dims[1], maxdims[1], dimsm[1]; /* Dataset dimension sizes */
+ hsize_t chunk_dims[1]; /* Chunk dimension size */
+ hsize_t offset[1]; /* Starting offset for hyperslab */
+ hsize_t stride[1]; /* Distance between blocks in the hyperslab selection */
+ hsize_t count[1]; /* # of blocks in the the hyperslab selection */
+ hsize_t block[1]; /* Size of block in the hyperslab selection */
+ unsigned int wdata[CHUNKSZ]; /* Data to be written */
+ unsigned int rdata[NUM_ELEMENTS / 10]; /* Data to be read */
+ herr_t ret; /* Generic return value */
+ unsigned i; /* Local index variable */
/* Output message about test being performed */
MESSAGE(6, ("Testing Hyperslab I/O for 1-d single block memory space\n"));
@@ -15537,14 +15740,14 @@ test_hyper_io_1d(void)
CHECK(fid, H5I_INVALID_HID, "H5Fcreate");
/* Create file dataspace */
- dims[0] = CHUNKSZ;
+ dims[0] = CHUNKSZ;
maxdims[0] = H5S_UNLIMITED;
- sid = H5Screate_simple(RANK, dims, maxdims);
+ sid = H5Screate_simple(RANK, dims, maxdims);
CHECK(sid, H5I_INVALID_HID, "H5Pcreate");
/* Create memory dataspace */
dimsm[0] = CHUNKSZ;
- mid = H5Screate_simple(RANK, dimsm, NULL);
+ mid = H5Screate_simple(RANK, dimsm, NULL);
CHECK(mid, H5I_INVALID_HID, "H5Pcreate");
/* Set up to create a chunked dataset */
@@ -15552,7 +15755,7 @@ test_hyper_io_1d(void)
CHECK(dcpl, H5I_INVALID_HID, "H5Pcreate");
chunk_dims[0] = CHUNKSZ;
- ret = H5Pset_chunk(dcpl, RANK, chunk_dims);
+ ret = H5Pset_chunk(dcpl, RANK, chunk_dims);
CHECK(ret, FAIL, "H5Pset_chunk");
/* Create a chunked dataset */
@@ -15562,8 +15765,8 @@ test_hyper_io_1d(void)
/* Set up hyperslab selection for file dataspace */
offset[0] = 0;
stride[0] = 1;
- count[0] = 1;
- block[0] = CHUNKSZ;
+ count[0] = 1;
+ block[0] = CHUNKSZ;
/* Write to each chunk in the dataset */
for (i = 0; i < NUMCHUNKS; i++) {
@@ -15576,10 +15779,10 @@ test_hyper_io_1d(void)
CHECK(ret, FAIL, "H5Dwrite");
/* Extend the dataset's dataspace */
- if(i < (NUMCHUNKS - 1)) {
+ if (i < (NUMCHUNKS - 1)) {
offset[0] = offset[0] + CHUNKSZ;
- dims[0] = dims[0] + CHUNKSZ;
- ret = H5Dset_extent(did, dims);
+ dims[0] = dims[0] + CHUNKSZ;
+ ret = H5Dset_extent(did, dims);
CHECK(ret, FAIL, "H5Dset_extent");
/* Get the dataset's current dataspace */
@@ -15611,8 +15814,8 @@ test_hyper_io_1d(void)
/* Set up to read every 10th element in file dataspace */
offset[0] = 1;
stride[0] = 10;
- count[0] = NUM_ELEMENTS/10;
- block[0] = 1;
+ count[0] = NUM_ELEMENTS / 10;
+ block[0] = 1;
/* Get the dataset's dataspace */
sid = H5Dget_space(did);
@@ -15622,7 +15825,7 @@ test_hyper_io_1d(void)
/* Set up contiguous memory dataspace for the selected elements */
dimsm[0] = count[0];
- mid = H5Screate_simple(RANK, dimsm, NULL);
+ mid = H5Screate_simple(RANK, dimsm, NULL);
CHECK(mid, H5I_INVALID_HID, "H5Screate_simple");
/* Read all the selected 10th elements in the dataset into "rdata" */
@@ -15630,9 +15833,9 @@ test_hyper_io_1d(void)
CHECK(ret, FAIL, "H5Dread");
/* Verify data read is correct */
- for(i = 0; i < 6; i += 2) {
+ for (i = 0; i < 6; i += 2) {
VERIFY(rdata[i], 1, "H5Dread\n");
- VERIFY(rdata[i+1], 11, "H5Dread\n");
+ VERIFY(rdata[i + 1], 11, "H5Dread\n");
}
/* Closing */
@@ -15645,9 +15848,8 @@ test_hyper_io_1d(void)
ret = H5Fclose(fid);
CHECK(ret, FAIL, "H5Fclose");
-} /* test_hyper_io_1d() */
+} /* test_hyper_io_1d() */
-
/****************************************************************
**
** test_h5s_set_extent_none:
@@ -15658,18 +15860,18 @@ test_hyper_io_1d(void)
static void
test_h5s_set_extent_none(void)
{
- hid_t sid = H5I_INVALID_HID;
- hid_t dst_sid = H5I_INVALID_HID;
- hid_t null_sid = H5I_INVALID_HID;
- int rank = 1;
- hsize_t current_dims = 123;
+ hid_t sid = H5I_INVALID_HID;
+ hid_t dst_sid = H5I_INVALID_HID;
+ hid_t null_sid = H5I_INVALID_HID;
+ int rank = 1;
+ hsize_t current_dims = 123;
H5S_class_t cls;
- int out_rank;
- hsize_t out_dims;
- hsize_t out_maxdims;
- hssize_t out_points;
- htri_t equal;
- herr_t ret;
+ int out_rank;
+ hsize_t out_dims;
+ hsize_t out_maxdims;
+ hssize_t out_points;
+ htri_t equal;
+ herr_t ret;
/* Specific values here don't matter as we're just going to reset */
sid = H5Screate_simple(rank, &current_dims, NULL);
@@ -15718,7 +15920,6 @@ test_h5s_set_extent_none(void)
} /* test_h5s_set_extent_none() */
-
/****************************************************************
**
** test_select(): Main H5S selection testing routine.
@@ -15727,14 +15928,14 @@ test_h5s_set_extent_none(void)
void
test_select(void)
{
- hid_t plist_id; /* Property list for reading random hyperslabs */
- hid_t fapl; /* Property list accessing the file */
- int mdc_nelmts; /* Metadata number of elements */
- size_t rdcc_nelmts; /* Raw data number of elements */
- size_t rdcc_nbytes; /* Raw data number of bytes */
- double rdcc_w0; /* Raw data write percentage */
+ hid_t plist_id; /* Property list for reading random hyperslabs */
+ hid_t fapl; /* Property list accessing the file */
+ int mdc_nelmts; /* Metadata number of elements */
+ size_t rdcc_nelmts; /* Raw data number of elements */
+ size_t rdcc_nbytes; /* Raw data number of bytes */
+ double rdcc_w0; /* Raw data write percentage */
hssize_t offset[SPACE7_RANK] = {1, 1}; /* Offset for testing selection offsets */
- herr_t ret; /* Generic return value */
+ herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Selections\n"));
@@ -15748,31 +15949,39 @@ test_select(void)
CHECK(ret, FAIL, "H5Pset_buffer");
/* These next tests use the same file */
- test_select_hyper(H5P_DEFAULT); /* Test basic H5S hyperslab selection code */
- test_select_hyper(plist_id); /* Test basic H5S hyperslab selection code */
- test_select_point(H5P_DEFAULT); /* Test basic H5S element selection code, also tests appending to existing element selections */
- test_select_point(plist_id); /* Test basic H5S element selection code, also tests appending to existing element selections */
- test_select_all(H5P_DEFAULT); /* Test basic all & none selection code */
- test_select_all(plist_id); /* Test basic all & none selection code */
- test_select_all_hyper(H5P_DEFAULT); /* Test basic all & none selection code */
- test_select_all_hyper(plist_id); /* Test basic all & none selection code */
+ test_select_hyper(H5P_DEFAULT); /* Test basic H5S hyperslab selection code */
+ test_select_hyper(plist_id); /* Test basic H5S hyperslab selection code */
+ test_select_point(H5P_DEFAULT); /* Test basic H5S element selection code, also tests appending to existing
+ element selections */
+ test_select_point(plist_id); /* Test basic H5S element selection code, also tests appending to existing
+ element selections */
+ test_select_all(H5P_DEFAULT); /* Test basic all & none selection code */
+ test_select_all(plist_id); /* Test basic all & none selection code */
+ test_select_all_hyper(H5P_DEFAULT); /* Test basic all & none selection code */
+ test_select_all_hyper(plist_id); /* Test basic all & none selection code */
/* These next tests use the same file */
- test_select_combo(); /* Test combined hyperslab & element selection code */
+ test_select_combo(); /* Test combined hyperslab & element selection code */
test_select_hyper_stride(H5P_DEFAULT); /* Test strided hyperslab selection code */
- test_select_hyper_stride(plist_id); /* Test strided hyperslab selection code */
+ test_select_hyper_stride(plist_id); /* Test strided hyperslab selection code */
test_select_hyper_contig(H5T_STD_U16LE, H5P_DEFAULT); /* Test contiguous hyperslab selection code */
- test_select_hyper_contig(H5T_STD_U16LE, plist_id); /* Test contiguous hyperslab selection code */
+ test_select_hyper_contig(H5T_STD_U16LE, plist_id); /* Test contiguous hyperslab selection code */
test_select_hyper_contig(H5T_STD_U16BE, H5P_DEFAULT); /* Test contiguous hyperslab selection code */
- test_select_hyper_contig(H5T_STD_U16BE, plist_id); /* Test contiguous hyperslab selection code */
- test_select_hyper_contig2(H5T_STD_U16LE, H5P_DEFAULT); /* Test more contiguous hyperslab selection cases */
+ test_select_hyper_contig(H5T_STD_U16BE, plist_id); /* Test contiguous hyperslab selection code */
+ test_select_hyper_contig2(H5T_STD_U16LE,
+ H5P_DEFAULT); /* Test more contiguous hyperslab selection cases */
test_select_hyper_contig2(H5T_STD_U16LE, plist_id); /* Test more contiguous hyperslab selection cases */
- test_select_hyper_contig2(H5T_STD_U16BE, H5P_DEFAULT); /* Test more contiguous hyperslab selection cases */
+ test_select_hyper_contig2(H5T_STD_U16BE,
+ H5P_DEFAULT); /* Test more contiguous hyperslab selection cases */
test_select_hyper_contig2(H5T_STD_U16BE, plist_id); /* Test more contiguous hyperslab selection cases */
- test_select_hyper_contig3(H5T_STD_U16LE, H5P_DEFAULT); /* Test yet more contiguous hyperslab selection cases */
- test_select_hyper_contig3(H5T_STD_U16LE, plist_id); /* Test yet more contiguous hyperslab selection cases */
- test_select_hyper_contig3(H5T_STD_U16BE, H5P_DEFAULT); /* Test yet more contiguous hyperslab selection cases */
- test_select_hyper_contig3(H5T_STD_U16BE, plist_id); /* Test yet more contiguous hyperslab selection cases */
+ test_select_hyper_contig3(H5T_STD_U16LE,
+ H5P_DEFAULT); /* Test yet more contiguous hyperslab selection cases */
+ test_select_hyper_contig3(H5T_STD_U16LE,
+ plist_id); /* Test yet more contiguous hyperslab selection cases */
+ test_select_hyper_contig3(H5T_STD_U16BE,
+ H5P_DEFAULT); /* Test yet more contiguous hyperslab selection cases */
+ test_select_hyper_contig3(H5T_STD_U16BE,
+ plist_id); /* Test yet more contiguous hyperslab selection cases */
test_select_hyper_contig_dr(H5T_STD_U16LE, H5P_DEFAULT);
test_select_hyper_contig_dr(H5T_STD_U16LE, plist_id);
test_select_hyper_contig_dr(H5T_STD_U16BE, H5P_DEFAULT);
@@ -15781,28 +15990,28 @@ test_select(void)
test_select_hyper_checker_board_dr(H5T_STD_U16LE, plist_id);
test_select_hyper_checker_board_dr(H5T_STD_U16BE, H5P_DEFAULT);
test_select_hyper_checker_board_dr(H5T_STD_U16BE, plist_id);
- test_select_hyper_copy(); /* Test hyperslab selection copying code */
- test_select_point_copy(); /* Test point selection copying code */
- test_select_hyper_offset(); /* Test selection offset code with hyperslabs */
- test_select_hyper_offset2();/* Test more selection offset code with hyperslabs */
- test_select_point_offset(); /* Test selection offset code with elements */
- test_select_hyper_union(); /* Test hyperslab union code */
+ test_select_hyper_copy(); /* Test hyperslab selection copying code */
+ test_select_point_copy(); /* Test point selection copying code */
+ test_select_hyper_offset(); /* Test selection offset code with hyperslabs */
+ test_select_hyper_offset2(); /* Test more selection offset code with hyperslabs */
+ test_select_point_offset(); /* Test selection offset code with elements */
+ test_select_hyper_union(); /* Test hyperslab union code */
/* Fancy hyperslab API tests */
- test_select_hyper_union_stagger(); /* Test hyperslab union code for staggered slabs */
- test_select_hyper_union_3d(); /* Test hyperslab union code for 3-D dataset */
+ test_select_hyper_union_stagger(); /* Test hyperslab union code for staggered slabs */
+ test_select_hyper_union_3d(); /* Test hyperslab union code for 3-D dataset */
test_select_hyper_valid_combination(); /* Test different input combinations */
- test_select_hyper_and_2d(); /* Test hyperslab intersection (AND) code for 2-D dataset */
- test_select_hyper_xor_2d(); /* Test hyperslab XOR code for 2-D dataset */
+ test_select_hyper_and_2d(); /* Test hyperslab intersection (AND) code for 2-D dataset */
+ test_select_hyper_xor_2d(); /* Test hyperslab XOR code for 2-D dataset */
test_select_hyper_notb_2d(); /* Test hyperslab NOTB code for 2-D dataset */
test_select_hyper_nota_2d(); /* Test hyperslab NOTA code for 2-D dataset */
/* test the random hyperslab I/O with the default property list for reading */
- test_select_hyper_union_random_5d(H5P_DEFAULT); /* Test hyperslab union code for random 5-D hyperslabs */
+ test_select_hyper_union_random_5d(H5P_DEFAULT); /* Test hyperslab union code for random 5-D hyperslabs */
/* test random hyperslab I/O with a small buffer for reads */
- test_select_hyper_union_random_5d(plist_id); /* Test hyperslab union code for random 5-D hyperslabs */
+ test_select_hyper_union_random_5d(plist_id); /* Test hyperslab union code for random 5-D hyperslabs */
/* Create a dataset transfer property list */
fapl = H5Pcreate(H5P_FILE_ACCESS);
@@ -15910,8 +16119,7 @@ test_select(void)
*/
test_h5s_set_extent_none();
-} /* test_select() */
-
+} /* test_select() */
/*-------------------------------------------------------------------------
* Function: cleanup_select
@@ -15930,4 +16138,3 @@ cleanup_select(void)
{
HDremove(FILENAME);
}
-