diff options
author | Dana Robinson <derobins@hdfgroup.org> | 2021-04-05 22:35:03 (GMT) |
---|---|---|
committer | Dana Robinson <derobins@hdfgroup.org> | 2021-04-05 22:35:03 (GMT) |
commit | 4402e696e43e4428a37953edbfd67c448ba93ac1 (patch) | |
tree | b2cffca0aa461b4e0440d18cfc16cab9258e98d7 /hl/fortran/examples/ex_ds1.f90 | |
parent | 4d459e1cebb8b4ba3e74054ac5501603dc2698c2 (diff) | |
download | hdf5-4402e696e43e4428a37953edbfd67c448ba93ac1.zip hdf5-4402e696e43e4428a37953edbfd67c448ba93ac1.tar.gz hdf5-4402e696e43e4428a37953edbfd67c448ba93ac1.tar.bz2 |
Normalized high-level library with develop
Diffstat (limited to 'hl/fortran/examples/ex_ds1.f90')
-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) |