avoid use of low-level HDF5 routines

src/homogenization.f90

@@ -23,7 +23,6 @@ module homogenization
   use damage_local
   use damage_nonlocal
   use results
-  use HDF5_utilities
  
   implicit none
   private
@@ -801,18 +800,18 @@ subroutine homogenization_results
                                              
   do p=1,size(config_name_homogenization)
     group = trim('current/materialpoint')//'/'//trim(config_name_homogenization(p))
-    call HDF5_closeGroup(results_addGroup(group))
+    call results_closeGroup(results_addGroup(group))
     
     group = trim(group)//'/mech'
     
-    call HDF5_closeGroup(results_addGroup(group))  
+    call results_closeGroup(results_addGroup(group))  
     select case(material_homogenization_type(p))
       case(HOMOGENIZATION_rgc_ID)
         call mech_RGC_results(homogenization_typeInstance(p),group)
     end select
     
     group = trim('current/materialpoint')//'/'//trim(config_name_homogenization(p))//'/generic'
-    call HDF5_closeGroup(results_addGroup(group))
+    call results_closeGroup(results_addGroup(group))
     
     !temp = reshape(materialpoint_F,[3,3,discretization_nIP*discretization_nElem])
     !call results_writeDataset(group,temp,'F',&

src/mesh_marc.f90

@@ -18,7 +18,6 @@ module mesh
   use element
   use discretization
   use geometry_plastic_nonlocal
-  use HDF5_utilities
   use results
 
   implicit none
@@ -152,7 +151,7 @@ subroutine writeGeometry(elemType, &
 
 #if defined(DAMASK_HDF5)
   call results_openJobFile
-  call HDF5_closeGroup(results_addGroup('geometry'))
+  call results_closeGroup(results_addGroup('geometry'))
   
   connectivity_temp = connectivity_elem
   call results_writeDataset('geometry',connectivity_temp,'T_e',&