summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2003-06-05 12:37:49 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2003-06-05 12:37:49 (GMT)
commit650600f1430d6be1d521a891240ec732cb892f0b (patch)
tree6510fcb3247a2611bb7bd263bf27d97e53371735
parent115e88e6450e7ac509e5e4df40edf6d4c8713b5e (diff)
downloadhdf5-650600f1430d6be1d521a891240ec732cb892f0b.zip
hdf5-650600f1430d6be1d521a891240ec732cb892f0b.tar.gz
hdf5-650600f1430d6be1d521a891240ec732cb892f0b.tar.bz2
[svn-r6968] Purpose:
Code cleanup Description: h5pset_preserve_f function changed from an INTEGER to a LOGICAL parameter, change it here too. Platforms tested: h5committested
-rw-r--r--fortran/examples/compound.f902
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/examples/compound.f90 b/fortran/examples/compound.f90
index 422f1d8..0b111d5 100644
--- a/fortran/examples/compound.f90
+++ b/fortran/examples/compound.f90
@@ -87,7 +87,7 @@
! during write/read to/from dataset with compound datatype.
!
CALL h5pcreate_f(H5P_DATASET_XFER_F, plist_id, error)
- CALL h5pset_preserve_f(plist_id, 1, error)
+ CALL h5pset_preserve_f(plist_id, .TRUE., error)
!
! Create a new file using default properties.