philipp/hdf5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix DS examples (#307)

Browse Source 
* fixed missed closing of a dataset

* fixed missed closing of a dataset
This commit is contained in:
Scot Breitenfeld
2021-02-04 07:17:49 -06:00
committed by GitHub
parent c55ac8ab71
commit a06693be21
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
hl/fortran/examples/ex_ds1.f90
View File

@@ -180,8 +180,9 @@ PROGRAM example_ds
WRITE(*,'(/,5X,A,I0,2A,/)') 'Dimension Scale Label for dimension ', DIM2, ' is ... ', label(1:label_len)
! close DS id
! close DS ids
CALL H5Dclose_f(dsid, err)
CALL H5Dclose_f(did, err)
! close file
CALL H5Fclose_f(fid, err)