diff options
| author | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2018-06-08 19:45:23 (GMT) |
|---|---|---|
| committer | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2018-06-08 19:45:23 (GMT) |
| commit | fe325fb554eddceccfa1674d804d5c7aed846bde (patch) | |
| tree | c5f191e25f44bdac61cfd590414cface520e6058 /fortran/src/H5Fff.F90 | |
| parent | e6aa306354b3b0f2fb707fd49351b7c08c1f49a2 (diff) | |
| download | hdf5-fe325fb554eddceccfa1674d804d5c7aed846bde.zip hdf5-fe325fb554eddceccfa1674d804d5c7aed846bde.tar.gz hdf5-fe325fb554eddceccfa1674d804d5c7aed846bde.tar.bz2 | |
HDFFV-10405: Using h5fget_obj_count_f with a file id of H5F_OBJ_ALL_F does not work properly
misc. clean-up
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 45d9f38..358e421 100644 --- a/fortran/src/H5Fff.F90 +++ b/fortran/src/H5Fff.F90 @@ -43,7 +43,7 @@ MODULE H5F IMPLICIT NONE ! Number of objects opened in H5open_f - INTEGER(SIZE_T) :: H5OPEN_NUM_OPEN_OBJ + INTEGER(SIZE_T) :: H5OPEN_NUM_OBJ CONTAINS !****s* H5F/h5fcreate_f @@ -624,7 +624,7 @@ CONTAINS ! Don't include objects created by H5open in the H5F_OBJ_ALL_F count IF(file_id.EQ.INT(H5F_OBJ_ALL_F,HID_T))THEN - obj_count = obj_count - H5OPEN_NUM_OPEN_OBJ + obj_count = obj_count - H5OPEN_NUM_OBJ ENDIF END SUBROUTINE h5fget_obj_count_f |