diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2010-04-15 14:49:08 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2010-04-15 14:49:08 (GMT) |
commit | fee129b9c2ad2b841ebe26294cf1b27182d24d17 (patch) | |
tree | 5991176c60c43f2098ea7fc1fda53844e680924b /fortran/src/H5Fff.f90 | |
parent | fcff5fc0f8a9b1a75a924c339a3a03fa40595cb8 (diff) | |
download | hdf5-fee129b9c2ad2b841ebe26294cf1b27182d24d17.zip hdf5-fee129b9c2ad2b841ebe26294cf1b27182d24d17.tar.gz hdf5-fee129b9c2ad2b841ebe26294cf1b27182d24d17.tar.bz2 |
[svn-r18557] Description:
Merged Fortran changes from the trunk into the branch
svn merge -r 18098:18556 https://svn.hdfgroup.uiuc.edu/hdf5/trunk/fortran
Tested: jam (intel)
Diffstat (limited to 'fortran/src/H5Fff.f90')
-rw-r--r-- | fortran/src/H5Fff.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/src/H5Fff.f90 b/fortran/src/H5Fff.f90 index a1ebe58..dcd6ff6 100644 --- a/fortran/src/H5Fff.f90 +++ b/fortran/src/H5Fff.f90 @@ -89,8 +89,8 @@ creation_prp_default = H5P_DEFAULT_F access_prp_default = H5P_DEFAULT_F - IF (PRESENT(creation_prp)) creation_prp_default = creation_prp - IF (PRESENT(access_prp)) access_prp_default = access_prp + if (present(creation_prp)) creation_prp_default = creation_prp + if (present(access_prp)) access_prp_default = access_prp namelen = LEN_TRIM(name) hdferr = h5fcreate_c(name, namelen, access_flags, & |