Added deletion feature of datasets/groups/attributes.

Author: mpickem

README.md

@@ -195,6 +195,15 @@ program attributes
 end program
 ```
 
+## Deletion
+
+| hdf5 command                                         | description                          |
+| ---------------------------------------------------- | ------------------------------------ |
+| `hdf5_delete(ifile, location)`                       | delete group/dataset                 |
+| `hdf5_delete_attribute(ifile, location, attr_name)`  | delete attribute                     |
+
+Deletion of datasets and groups is internally done simply by unlinking the objects.
+
 ## Summary of commands
 
 | hdf5 command                                                  | description                          |
@@ -217,6 +226,8 @@ end program
 | `hdf5_read_attribute(ifile, location, attr_name, variable)`   | read attribute                       |
 | `hdf5_get_number_attributes(ifile, location)`                 | get number of attributes             |
 | `hdf5_list_attributes(ifile, location, list)`                 | get list of attributes               |
+| `hdf5_delete(ifile, location)`                                | delete group/dataset                 |
+| `hdf5_delete_attribute(ifile, location, attr_name)`           | delete attribute                     |
 
 ## Future Features
 

hdf5_wrapper.f90

@@ -2896,6 +2896,23 @@ subroutine hdf5_list_attributes(ifile, location, attrs)
     enddo
   end subroutine
 
+  subroutine hdf5_delete_attribute(ifile, location, attr)
+    integer(hid_t), intent(in)   :: ifile
+    character(len=*), intent(in) :: location
+    character(len=*), intent(in) :: attr
+
+    integer(hid_t) :: obj_id
+    call h5oopen_f(ifile, trim(adjustl(location)), obj_id, hdf_err)
+    call h5adelete_f(obj_id, attr, hdf_err)
+    call h5oclose_f(obj_id, hdf_err)
+  end subroutine hdf5_delete_attribute
+
+  subroutine hdf5_delete(ifile, location)
+    integer(hid_t), intent(in)                  :: ifile
+    character(len=*), intent(in)                :: location
+    call h5ldelete_f(ifile, location, hdf_err)
+  end subroutine hdf5_delete
+
   ! help function with separates /group1/group2/dset -> /group1/group2 and dset
   subroutine hdf5_help_separate_dsetname(dsetfull, gname, dset)
     character(len=*), intent(in)    :: dsetfull

test_examples.f90

@@ -47,11 +47,14 @@ program bla
   call hdf5_write_attribute(ifile, 'group1/group2', 'att2', 123)
   call hdf5_write_attribute(ifile, 'dataset1', 'att3', 1.22d-2)
 
+  call hdf5_delete_attribute(ifile, 'dataset1', 'att3')
+
   ! close the file again
   call hdf5_close_file(ifile)
 
 
 
+
   ! open the file again in readonly mode
   call hdf5_open_file('test.hdf5', ifile, rdonly=.true.)