diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-04-30 19:23:26 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2008-04-30 19:23:26 (GMT) |
| commit | 5773fd34bc5adf59b4530d95ac9f0c0585902803 (patch) | |
| tree | 456ad239799382e1f083fb7fc74399e43b471912 /hl | |
| parent | 0138995d1ce2068db1f790503435a2121132d3ad (diff) | |
| download | hdf5-5773fd34bc5adf59b4530d95ac9f0c0585902803.zip hdf5-5773fd34bc5adf59b4530d95ac9f0c0585902803.tar.gz hdf5-5773fd34bc5adf59b4530d95ac9f0c0585902803.tar.bz2 | |
[svn-r14902] Merged fortran_1_8 branch changes r14505:14901 into the trunk. New fortran wrappers added.
Diffstat (limited to 'hl')
| -rw-r--r-- | hl/src/H5TB.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/hl/src/H5TB.c b/hl/src/H5TB.c index e80f86c..3502b3a 100644 --- a/hl/src/H5TB.c +++ b/hl/src/H5TB.c @@ -1353,7 +1353,9 @@ herr_t H5TBdelete_record( hid_t loc_id, size_t *src_offset; size_t *src_sizes; hsize_t nrows; +#if defined (SHRINK) hsize_t dims[1]; +#endif /*------------------------------------------------------------------------- @@ -1441,9 +1443,11 @@ herr_t H5TBdelete_record( hid_t loc_id, * Change the table dimension *------------------------------------------------------------------------- */ +#if defined (SHRINK) dims[0] = ntotal_records - nrecords; if(H5Dset_extent( did, dims ) < 0) goto out; +#endif /* End access to the dataset */ if(H5Dclose( did ) < 0) |