diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2003-06-05 12:37:49 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2003-06-05 12:37:49 (GMT) |
| commit | 650600f1430d6be1d521a891240ec732cb892f0b (patch) | |
| tree | 6510fcb3247a2611bb7bd263bf27d97e53371735 | |
| parent | 115e88e6450e7ac509e5e4df40edf6d4c8713b5e (diff) | |
| download | hdf5-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.f90 | 2 |
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. |