mirror of
https://github.com/HDFGroup/hdf5.git
synced 2024-11-27 02:10:55 +08:00
8baa675250
Changes since 19990616 ---------------------- ./src/H5T.c ./src/H5Tconv.c All conversion functions take an extra argument called `stride' which is the number of bytes to advance the source and destination pointers after each element is converted. If the value is zero then the old behavior is preserved (source and destination values are packed). This feature was necessary to implement the compound datatype conversion optimizations and it causes a minor change to the API (application-defined type conversion functions take an extra size_t stride argument). ./src/H5Tconv.c An additional compound data type conversion function was added which is applied unless the destination type is larger than the source type. I'm measuring significant performance increases for certain operations: Test Name Struct-Conv Noop-Conv New(Old) MB/s New(Old) MB/s ---------- ------------- ------------- Reordering 2.062(0.3936) 54087(0.9047) Subsetting 2.901(0.6581) 40192(1.1100) Shrinking 1.976(0.3925) 33628(1.1500) ---------- ------------- ------------- ./test/dtypes.c Added various compound datatype conversion tests. Fixed return values from functions. ./src/H5T.c Conversion timers are updated only if H5T debugging is turned on a runtime (in addition to compile time). This allows the data type layer to be compiled with debugging support without having to pay a big runtime penalty if the debugging isn't actually used. ./src/H5A.c ./src/H5D.c ./src/H5Ofill.c ./src/H5P.c ./src/H5T.c ./src/H5Tconv.c ./src/H5Tpkg.h ./src/H5Tprivate.h ./src/H5Tpublic.h Added the stride argument to the H5T_convert() calls. The stride is always zero, which means that the source and destination data values are packed. ./configure.in ./configure [REGENERATED] If API tracing is turned off then libhdf5.settings will say `no' instead of nothing. ./test/flush1.c ./test/flush2.c Added better error messages in a couple places.
104 lines
2.5 KiB
C
104 lines
2.5 KiB
C
/*
|
||
* Copyright (C) 1998 NCSA
|
||
* All rights reserved.
|
||
*
|
||
* Programmer: Robb Matzke <matzke@llnl.gov>
|
||
* Friday, October 23, 1998
|
||
*
|
||
* Purpose: This is the second half of a two-part test that makes sure
|
||
* that a file can be read after an application crashes as long
|
||
* as the file was flushed first. This half tries to read the
|
||
* file created by the first half.
|
||
*/
|
||
#include <h5test.h>
|
||
|
||
const char *FILENAME[] = {
|
||
"flush",
|
||
NULL
|
||
};
|
||
|
||
|
||
/*-------------------------------------------------------------------------
|
||
* Function: main
|
||
*
|
||
* Purpose: Part 1 of a two-part H5Fflush() test.
|
||
*
|
||
* Return: Success: 0
|
||
*
|
||
* Failure: 1
|
||
*
|
||
* Programmer: Robb Matzke
|
||
* Friday, October 23, 1998
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
int
|
||
main(void)
|
||
{
|
||
hid_t fapl, file, space, dset, groups, grp;
|
||
hsize_t ds_size[2];
|
||
double the_data[100][100], error;
|
||
hsize_t i, j;
|
||
char name[1024];
|
||
|
||
h5_reset();
|
||
fapl = h5_fileaccess();
|
||
TESTING("H5Fflush (part2)");
|
||
|
||
/* Open the file */
|
||
h5_fixname(FILENAME[0], fapl, name, sizeof name);
|
||
if ((file=H5Fopen(name, H5F_ACC_RDONLY, fapl))<0) goto error;
|
||
|
||
/* Open the dataset */
|
||
if ((dset=H5Dopen(file, "dset"))<0) goto error;
|
||
if ((space=H5Dget_space(dset))<0) goto error;
|
||
if (H5Sget_simple_extent_dims(space, ds_size, NULL)<0) goto error;
|
||
assert(100==ds_size[0] && 100==ds_size[1]);
|
||
|
||
/* Read some data */
|
||
if (H5Dread(dset, H5T_NATIVE_DOUBLE, space, space, H5P_DEFAULT,
|
||
the_data)<0) goto error;
|
||
for (i=0; i<ds_size[0]; i++) {
|
||
for (j=0; j<ds_size[1]; j++) {
|
||
/*
|
||
* The extra cast in the following statement is a bug workaround
|
||
* for the Win32 version 5.0 compiler.
|
||
* 1998-11-06 ptl
|
||
*/
|
||
error = fabs(the_data[i][j]-(double)(hssize_t)i/((hssize_t)j+1));
|
||
if (error>0.0001) {
|
||
FAILED();
|
||
printf(" dset[%lu][%lu] = %g\n",
|
||
(unsigned long)i, (unsigned long)j, the_data[i][j]);
|
||
printf(" should be %g\n",
|
||
(double)(hssize_t)i/(hssize_t)(j+1));
|
||
goto error;
|
||
}
|
||
}
|
||
}
|
||
|
||
/* Open some groups */
|
||
if ((groups=H5Gopen(file, "some_groups"))<0) goto error;
|
||
for (i=0; i<100; i++) {
|
||
sprintf(name, "grp%02u", (unsigned)i);
|
||
if ((grp=H5Gopen(groups, name))<0) goto error;
|
||
if (H5Gclose(grp)<0) goto error;
|
||
}
|
||
|
||
if (H5Gclose(groups)<0) goto error;
|
||
if (H5Dclose(dset)<0) goto error;
|
||
if (H5Fclose(file)<0) goto error;
|
||
PASSED();
|
||
h5_cleanup(fapl);
|
||
return 0;
|
||
|
||
error:
|
||
return 1;
|
||
}
|
||
|
||
|
||
|
||
|