223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Parallel works for groups and included write function for integer data

This commit is contained in:
Vitesh Shah 2018-11-21 19:35:37 +01:00
parent 5cc6d86c61
commit a6bc2a16f1
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/HDF5_utilities.f90
View File

@ -166,13 +166,17 @@ end subroutine HDF5_closeFile
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief adds a new group to the fileHandle (additional to addGroup2) !> @brief adds a new group to the fileHandle (additional to addGroup2)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
integer(HID_T) function HDF5_addGroup2(fileHandle,groupName) integer(HID_T) function HDF5_addGroup2(fileHandle,groupName,parallel)
implicit none implicit none
character(len=*), intent(in) :: groupName character(len=*), intent(in) :: groupName
integer(HID_T), intent(in) :: fileHandle integer(HID_T), intent(in) :: fileHandle
integer(HDF5_ERR_TYPE) :: hdferr integer(HDF5_ERR_TYPE) :: hdferr
logical,intent(in), optional :: parallel
integer(HID_T) :: plist_id,gapl_id
call h5gcreate_f(fileHandle, trim(groupName), HDF5_addGroup2, hdferr) call h5gcreate_f(fileHandle, trim(groupName), HDF5_addGroup2, hdferr)
if (hdferr < 0) call IO_error(1_pInt,ext_msg = 'HDF5_addGroup2: h5gcreate_f ('//trim(groupName)//')') if (hdferr < 0) call IO_error(1_pInt,ext_msg = 'HDF5_addGroup2: h5gcreate_f ('//trim(groupName)//')')