diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-08-25 21:49:36 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-08-25 21:49:36 (GMT) |
| commit | 4939ee241909f476bc25ad6f3a7f7ee56c443fa8 (patch) | |
| tree | f7e374207794aed674c2980dd68847b73bcc7feb /fortran/src/H5Dff.F90 | |
| parent | 8aef26f78594fc4f642e3bf5f170867c64839d2c (diff) | |
| download | hdf5-4939ee241909f476bc25ad6f3a7f7ee56c443fa8.zip hdf5-4939ee241909f476bc25ad6f3a7f7ee56c443fa8.tar.gz hdf5-4939ee241909f476bc25ad6f3a7f7ee56c443fa8.tar.bz2 | |
[svn-r27580] Fix for:
HDFFV-9283
Add H5Dget_offset fortran wrapper
tested: h5committest
Diffstat (limited to 'fortran/src/H5Dff.F90')
| -rw-r--r-- | fortran/src/H5Dff.F90 | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/fortran/src/H5Dff.F90 b/fortran/src/H5Dff.F90 index afdb5ba..e44d90e 100644 --- a/fortran/src/H5Dff.F90 +++ b/fortran/src/H5Dff.F90 @@ -1094,8 +1094,7 @@ CONTAINS offset = h5dget_offset(dset_id) - hdferr = 0 - IF(offset .LT. 0) hdferr = -1 + hdferr = 0 ! never returns a function error because C API never returns a function error. END SUBROUTINE h5dget_offset_f |