summaryrefslogtreecommitdiffstats
path: root/hl
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2008-04-30 19:23:26 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2008-04-30 19:23:26 (GMT)
commit5773fd34bc5adf59b4530d95ac9f0c0585902803 (patch)
tree456ad239799382e1f083fb7fc74399e43b471912 /hl
parent0138995d1ce2068db1f790503435a2121132d3ad (diff)
downloadhdf5-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.c4
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)