diff options
| author | Larry Knox <lrknox@hdfgroup.org> | 2021-02-20 14:11:24 (GMT) |
|---|---|---|
| committer | Larry Knox <lrknox@hdfgroup.org> | 2021-02-20 14:11:24 (GMT) |
| commit | a544ef1441cc91f5d55d47deb13a0e90058825e5 (patch) | |
| tree | d8ef3918808427bd4c0610d7047fc0301c6a9075 /hl/fortran | |
| parent | 8d4a9d589b816276f729ef2091cb7efb7e31f034 (diff) | |
| parent | 9dc3ddaad57625ee7f15eab912b48bee7ed0f325 (diff) | |
| download | hdf5-a544ef1441cc91f5d55d47deb13a0e90058825e5.zip hdf5-a544ef1441cc91f5d55d47deb13a0e90058825e5.tar.gz hdf5-a544ef1441cc91f5d55d47deb13a0e90058825e5.tar.bz2 | |
Merge branch 'hdf5_1_12' of https://github.com/HDFGroup/hdf5 into hdf5_1_12
Diffstat (limited to 'hl/fortran')
| -rw-r--r-- | hl/fortran/examples/ex_ds1.f90 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/hl/fortran/examples/ex_ds1.f90 b/hl/fortran/examples/ex_ds1.f90 index 7040950..d1ff678 100644 --- a/hl/fortran/examples/ex_ds1.f90 +++ b/hl/fortran/examples/ex_ds1.f90 @@ -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) |