diff options
Diffstat (limited to 'fortran/src/H5Dff.f90')
| -rw-r--r-- | fortran/src/H5Dff.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/src/H5Dff.f90 b/fortran/src/H5Dff.f90 index f573ea7..4fd234e 100644 --- a/fortran/src/H5Dff.f90 +++ b/fortran/src/H5Dff.f90 @@ -106,7 +106,7 @@ INTEGER, EXTERNAL :: h5dcreate_c creation_prp_default = H5P_DEFAULT_F - if (present(creation_prp)) creation_prp_default = creation_prp + if (present(creation_prp)) creation_prp_default = creation_prp namelen = LEN(name) hdferr = h5dcreate_c(loc_id, name, namelen, type_id, space_id, & creation_prp_default, dset_id) |