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

required for HDF5 output

This commit is contained in:
Martin Diehl 2019-03-09 15:51:50 +00:00
parent 04b572e263
commit 121bafd989
2 changed files with 50 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

94
src/HDF5_utilities.f90
View File

@ -14,8 +14,6 @@ module HDF5_utilities
implicit none implicit none
public public
integer(pInt), parameter, private :: &
HDF5_ERR_TYPE = 4_pInt !< kind of the integer return in the HDF5 library
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief reads pInt or pReal data of defined shape from file ! ToDo: order of arguments wrong !> @brief reads pInt or pReal data of defined shape from file ! ToDo: order of arguments wrong
@ -91,7 +89,7 @@ contains
subroutine HDF5_utilities_init subroutine HDF5_utilities_init
implicit none implicit none
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
integer(SIZE_T) :: typeSize integer(SIZE_T) :: typeSize
write(6,'(/,a)') ' <<<+- HDF5_Utilities init -+>>>' write(6,'(/,a)') ' <<<+- HDF5_Utilities init -+>>>'
@ -126,7 +124,7 @@ integer(HID_T) function HDF5_openFile(fileName,mode,parallel) ! ToDo: simply "op
character :: m character :: m
integer(HID_T) :: plist_id integer(HID_T) :: plist_id
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
if (present(mode)) then if (present(mode)) then
m = mode m = mode
@ -171,7 +169,7 @@ subroutine HDF5_closeFile(fileHandle)
implicit none implicit none
integer(HID_T), intent(in) :: fileHandle integer(HID_T), intent(in) :: fileHandle
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
call h5fclose_f(fileHandle,hdferr) call h5fclose_f(fileHandle,hdferr)
if (hdferr < 0) call IO_error(1_pInt,ext_msg='HDF5_closeFile: h5fclose_f') if (hdferr < 0) call IO_error(1_pInt,ext_msg='HDF5_closeFile: h5fclose_f')
@ -188,7 +186,7 @@ integer(HID_T) function HDF5_addGroup(fileHandle,groupName)
integer(HID_T), intent(in) :: fileHandle integer(HID_T), intent(in) :: fileHandle
character(len=*), intent(in) :: groupName character(len=*), intent(in) :: groupName
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
integer(HID_T) :: aplist_id integer(HID_T) :: aplist_id
!------------------------------------------------------------------------------------------------- !-------------------------------------------------------------------------------------------------
@ -198,8 +196,10 @@ integer(HID_T) function HDF5_addGroup(fileHandle,groupName)
!------------------------------------------------------------------------------------------------- !-------------------------------------------------------------------------------------------------
! setting I/O mode to collective ! setting I/O mode to collective
#ifdef PETSc
call h5pset_all_coll_metadata_ops_f(aplist_id, .true., hdferr) call h5pset_all_coll_metadata_ops_f(aplist_id, .true., hdferr)
if (hdferr < 0) call IO_error(1_pInt,ext_msg = 'HDF5_addGroup: h5pset_all_coll_metadata_ops_f ('//trim(groupName)//')') if (hdferr < 0) call IO_error(1_pInt,ext_msg = 'HDF5_addGroup: h5pset_all_coll_metadata_ops_f ('//trim(groupName)//')')
#endif
!------------------------------------------------------------------------------------------------- !-------------------------------------------------------------------------------------------------
! Create group ! Create group
@ -219,7 +219,7 @@ integer(HID_T) function HDF5_openGroup(fileHandle,groupName)
character(len=*), intent(in) :: groupName character(len=*), intent(in) :: groupName
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
integer(HID_T) :: aplist_id integer(HID_T) :: aplist_id
logical :: is_collective logical :: is_collective
@ -231,8 +231,10 @@ integer(HID_T) function HDF5_openGroup(fileHandle,groupName)
!------------------------------------------------------------------------------------------------- !-------------------------------------------------------------------------------------------------
! setting I/O mode to collective ! setting I/O mode to collective
#ifdef PETSc
call h5pget_all_coll_metadata_ops_f(aplist_id, is_collective, hdferr) call h5pget_all_coll_metadata_ops_f(aplist_id, is_collective, hdferr)
if (hdferr < 0) call IO_error(1_pInt,ext_msg = 'HDF5_openGroup: h5pset_all_coll_metadata_ops_f ('//trim(groupName)//')') if (hdferr < 0) call IO_error(1_pInt,ext_msg = 'HDF5_openGroup: h5pset_all_coll_metadata_ops_f ('//trim(groupName)//')')
#endif
!------------------------------------------------------------------------------------------------- !-------------------------------------------------------------------------------------------------
! opening the group ! opening the group
@ -249,7 +251,7 @@ subroutine HDF5_closeGroup(group_id)
implicit none implicit none
integer(HID_T), intent(in) :: group_id integer(HID_T), intent(in) :: group_id
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
call h5gclose_f(group_id, hdferr) call h5gclose_f(group_id, hdferr)
if (hdferr < 0) call IO_error(1_pInt,ext_msg = 'HDF5_closeGroup: h5gclose_f (el is ID)', el = int(group_id,pInt)) if (hdferr < 0) call IO_error(1_pInt,ext_msg = 'HDF5_closeGroup: h5gclose_f (el is ID)', el = int(group_id,pInt))
@ -265,7 +267,7 @@ logical function HDF5_objectExists(loc_id,path)
implicit none implicit none
integer(HID_T), intent(in) :: loc_id integer(HID_T), intent(in) :: loc_id
character(len=*), intent(in), optional :: path character(len=*), intent(in), optional :: path
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
character(len=256) :: p character(len=256) :: p
if (present(path)) then if (present(path)) then
@ -294,7 +296,7 @@ subroutine HDF5_addAttribute_str(loc_id,attrLabel,attrValue,path)
integer(HID_T), intent(in) :: loc_id integer(HID_T), intent(in) :: loc_id
character(len=*), intent(in) :: attrLabel, attrValue character(len=*), intent(in) :: attrLabel, attrValue
character(len=*), intent(in), optional :: path character(len=*), intent(in), optional :: path
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
integer(HID_T) :: attr_id, space_id, type_id integer(HID_T) :: attr_id, space_id, type_id
logical :: attrExists logical :: attrExists
character(len=256) :: p character(len=256) :: p
@ -341,7 +343,7 @@ subroutine HDF5_addAttribute_pInt(loc_id,attrLabel,attrValue,path)
character(len=*), intent(in) :: attrLabel character(len=*), intent(in) :: attrLabel
integer(pInt), intent(in) :: attrValue integer(pInt), intent(in) :: attrValue
character(len=*), intent(in), optional :: path character(len=*), intent(in), optional :: path
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
integer(HID_T) :: attr_id, space_id, type_id integer(HID_T) :: attr_id, space_id, type_id
logical :: attrExists logical :: attrExists
character(len=256) :: p character(len=256) :: p
@ -388,7 +390,7 @@ subroutine HDF5_addAttribute_pReal(loc_id,attrLabel,attrValue,path)
character(len=*), intent(in) :: attrLabel character(len=*), intent(in) :: attrLabel
real(pReal), intent(in) :: attrValue real(pReal), intent(in) :: attrValue
character(len=*), intent(in), optional :: path character(len=*), intent(in), optional :: path
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
integer(HID_T) :: attr_id, space_id, type_id integer(HID_T) :: attr_id, space_id, type_id
logical :: attrExists logical :: attrExists
character(len=256) :: p character(len=256) :: p
@ -434,7 +436,7 @@ subroutine HDF5_setLink(loc_id,target_name,link_name)
implicit none implicit none
character(len=*), intent(in) :: target_name, link_name character(len=*), intent(in) :: target_name, link_name
integer(HID_T), intent(in) :: loc_id integer(HID_T), intent(in) :: loc_id
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
logical :: linkExists logical :: linkExists
call h5lexists_f(loc_id, link_name,linkExists, hdferr) call h5lexists_f(loc_id, link_name,linkExists, hdferr)
@ -465,7 +467,7 @@ subroutine HDF5_read_pReal1(loc_id,dataset,datasetName,parallel)
myStart, & myStart, &
localShape, & !< shape of the dataset (this process) localShape, & !< shape of the dataset (this process)
globalShape !< shape of the dataset (all processes) globalShape !< shape of the dataset (all processes)
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
! determine shape of dataset ! determine shape of dataset
@ -506,7 +508,7 @@ subroutine HDF5_read_pReal2(loc_id,dataset,datasetName,parallel)
myStart, & myStart, &
localShape, & !< shape of the dataset (this process) localShape, & !< shape of the dataset (this process)
globalShape !< shape of the dataset (all processes) globalShape !< shape of the dataset (all processes)
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
! determine shape of dataset ! determine shape of dataset
@ -547,7 +549,7 @@ subroutine HDF5_read_pReal3(loc_id,dataset,datasetName,parallel)
myStart, & myStart, &
localShape, & !< shape of the dataset (this process) localShape, & !< shape of the dataset (this process)
globalShape !< shape of the dataset (all processes) globalShape !< shape of the dataset (all processes)
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
! determine shape of dataset ! determine shape of dataset
@ -588,7 +590,7 @@ subroutine HDF5_read_pReal4(loc_id,dataset,datasetName,parallel)
myStart, & myStart, &
localShape, & !< shape of the dataset (this process) localShape, & !< shape of the dataset (this process)
globalShape !< shape of the dataset (all processes) globalShape !< shape of the dataset (all processes)
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
! determine shape of dataset ! determine shape of dataset
@ -629,7 +631,7 @@ subroutine HDF5_read_pReal5(loc_id,dataset,datasetName,parallel)
myStart, & myStart, &
localShape, & !< shape of the dataset (this process) localShape, & !< shape of the dataset (this process)
globalShape !< shape of the dataset (all processes) globalShape !< shape of the dataset (all processes)
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
! determine shape of dataset ! determine shape of dataset
@ -670,7 +672,7 @@ subroutine HDF5_read_pReal6(loc_id,dataset,datasetName,parallel)
myStart, & myStart, &
localShape, & !< shape of the dataset (this process) localShape, & !< shape of the dataset (this process)
globalShape !< shape of the dataset (all processes) globalShape !< shape of the dataset (all processes)
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
! determine shape of dataset ! determine shape of dataset
@ -711,7 +713,7 @@ subroutine HDF5_read_pReal7(loc_id,dataset,datasetName,parallel)
myStart, & myStart, &
localShape, & !< shape of the dataset (this process) localShape, & !< shape of the dataset (this process)
globalShape !< shape of the dataset (all processes) globalShape !< shape of the dataset (all processes)
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
! determine shape of dataset ! determine shape of dataset
@ -753,7 +755,7 @@ subroutine HDF5_read_pInt1(loc_id,dataset,datasetName,parallel)
myStart, & myStart, &
localShape, & !< shape of the dataset (this process) localShape, & !< shape of the dataset (this process)
globalShape !< shape of the dataset (all processes) globalShape !< shape of the dataset (all processes)
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
! determine shape of dataset ! determine shape of dataset
@ -794,7 +796,7 @@ subroutine HDF5_read_pInt2(loc_id,dataset,datasetName,parallel)
myStart, & myStart, &
localShape, & !< shape of the dataset (this process) localShape, & !< shape of the dataset (this process)
globalShape !< shape of the dataset (all processes) globalShape !< shape of the dataset (all processes)
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
! determine shape of dataset ! determine shape of dataset
@ -835,7 +837,7 @@ subroutine HDF5_read_pInt3(loc_id,dataset,datasetName,parallel)
myStart, & myStart, &
localShape, & !< shape of the dataset (this process) localShape, & !< shape of the dataset (this process)
globalShape !< shape of the dataset (all processes) globalShape !< shape of the dataset (all processes)
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
! determine shape of dataset ! determine shape of dataset
@ -876,7 +878,7 @@ subroutine HDF5_read_pInt4(loc_id,dataset,datasetName,parallel)
myStart, & myStart, &
localShape, & !< shape of the dataset (this process) localShape, & !< shape of the dataset (this process)
globalShape !< shape of the dataset (all processes) globalShape !< shape of the dataset (all processes)
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
! determine shape of dataset ! determine shape of dataset
@ -917,7 +919,7 @@ subroutine HDF5_read_pInt5(loc_id,dataset,datasetName,parallel)
myStart, & myStart, &
localShape, & !< shape of the dataset (this process) localShape, & !< shape of the dataset (this process)
globalShape !< shape of the dataset (all processes) globalShape !< shape of the dataset (all processes)
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
! determine shape of dataset ! determine shape of dataset
@ -958,7 +960,7 @@ subroutine HDF5_read_pInt6(loc_id,dataset,datasetName,parallel)
myStart, & myStart, &
localShape, & !< shape of the dataset (this process) localShape, & !< shape of the dataset (this process)
globalShape !< shape of the dataset (all processes) globalShape !< shape of the dataset (all processes)
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
! determine shape of dataset ! determine shape of dataset
@ -999,7 +1001,7 @@ subroutine HDF5_read_pInt7(loc_id,dataset,datasetName,parallel)
myStart, & myStart, &
localShape, & !< shape of the dataset (this process) localShape, & !< shape of the dataset (this process)
globalShape !< shape of the dataset (all processes) globalShape !< shape of the dataset (all processes)
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
! determine shape of dataset ! determine shape of dataset
@ -1037,7 +1039,7 @@ subroutine HDF5_write_pReal1(loc_id,dataset,datasetName,parallel)
logical, intent(in), optional :: parallel logical, intent(in), optional :: parallel
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id
integer(HSIZE_T), dimension(size(shape(dataset))) :: & integer(HSIZE_T), dimension(size(shape(dataset))) :: &
myStart, & myStart, &
@ -1077,7 +1079,7 @@ subroutine HDF5_write_pReal2(loc_id,dataset,datasetName,parallel)
logical, intent(in), optional :: parallel logical, intent(in), optional :: parallel
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id
integer(HSIZE_T), dimension(size(shape(dataset))) :: & integer(HSIZE_T), dimension(size(shape(dataset))) :: &
myStart, & myStart, &
@ -1117,7 +1119,7 @@ subroutine HDF5_write_pReal3(loc_id,dataset,datasetName,parallel)
logical, intent(in), optional :: parallel logical, intent(in), optional :: parallel
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id
integer(HSIZE_T), dimension(size(shape(dataset))) :: & integer(HSIZE_T), dimension(size(shape(dataset))) :: &
myStart, & myStart, &
@ -1157,7 +1159,7 @@ subroutine HDF5_write_pReal4(loc_id,dataset,datasetName,parallel)
logical, intent(in), optional :: parallel logical, intent(in), optional :: parallel
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id
integer(HSIZE_T), dimension(size(shape(dataset))) :: & integer(HSIZE_T), dimension(size(shape(dataset))) :: &
myStart, & myStart, &
@ -1198,7 +1200,7 @@ subroutine HDF5_write_pReal5(loc_id,dataset,datasetName,parallel)
logical, intent(in), optional :: parallel logical, intent(in), optional :: parallel
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id
integer(HSIZE_T), dimension(size(shape(dataset))) :: & integer(HSIZE_T), dimension(size(shape(dataset))) :: &
myStart, & myStart, &
@ -1238,7 +1240,7 @@ subroutine HDF5_write_pReal6(loc_id,dataset,datasetName,parallel)
logical, intent(in), optional :: parallel logical, intent(in), optional :: parallel
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id
integer(HSIZE_T), dimension(size(shape(dataset))) :: & integer(HSIZE_T), dimension(size(shape(dataset))) :: &
myStart, & myStart, &
@ -1278,7 +1280,7 @@ subroutine HDF5_write_pReal7(loc_id,dataset,datasetName,parallel)
logical, intent(in), optional :: parallel logical, intent(in), optional :: parallel
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id
integer(HSIZE_T), dimension(size(shape(dataset))) :: & integer(HSIZE_T), dimension(size(shape(dataset))) :: &
myStart, & myStart, &
@ -1319,7 +1321,7 @@ subroutine HDF5_write_pInt1(loc_id,dataset,datasetName,parallel)
logical, intent(in), optional :: parallel logical, intent(in), optional :: parallel
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id
integer(HSIZE_T), dimension(size(shape(dataset))) :: & integer(HSIZE_T), dimension(size(shape(dataset))) :: &
myStart, & myStart, &
@ -1359,7 +1361,7 @@ subroutine HDF5_write_pInt2(loc_id,dataset,datasetName,parallel)
logical, intent(in), optional :: parallel logical, intent(in), optional :: parallel
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id
integer(HSIZE_T), dimension(size(shape(dataset))) :: & integer(HSIZE_T), dimension(size(shape(dataset))) :: &
myStart, & myStart, &
@ -1399,7 +1401,7 @@ subroutine HDF5_write_pInt3(loc_id,dataset,datasetName,parallel)
logical, intent(in), optional :: parallel logical, intent(in), optional :: parallel
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id
integer(HSIZE_T), dimension(size(shape(dataset))) :: & integer(HSIZE_T), dimension(size(shape(dataset))) :: &
myStart, & myStart, &
@ -1439,7 +1441,7 @@ subroutine HDF5_write_pInt4(loc_id,dataset,datasetName,parallel)
logical, intent(in), optional :: parallel logical, intent(in), optional :: parallel
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id
integer(HSIZE_T), dimension(size(shape(dataset))) :: & integer(HSIZE_T), dimension(size(shape(dataset))) :: &
myStart, & myStart, &
@ -1479,7 +1481,7 @@ subroutine HDF5_write_pInt5(loc_id,dataset,datasetName,parallel)
logical, intent(in), optional :: parallel logical, intent(in), optional :: parallel
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id
integer(HSIZE_T), dimension(size(shape(dataset))) :: & integer(HSIZE_T), dimension(size(shape(dataset))) :: &
myStart, & myStart, &
@ -1519,7 +1521,7 @@ subroutine HDF5_write_pInt6(loc_id,dataset,datasetName,parallel)
logical, intent(in), optional :: parallel logical, intent(in), optional :: parallel
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id
integer(HSIZE_T), dimension(size(shape(dataset))) :: & integer(HSIZE_T), dimension(size(shape(dataset))) :: &
myStart, & myStart, &
@ -1559,7 +1561,7 @@ subroutine HDF5_write_pInt7(loc_id,dataset,datasetName,parallel)
logical, intent(in), optional :: parallel logical, intent(in), optional :: parallel
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id integer(HID_T) :: dset_id, filespace_id, memspace_id, plist_id
integer(HSIZE_T), dimension(size(shape(dataset))) :: & integer(HSIZE_T), dimension(size(shape(dataset))) :: &
myStart, & myStart, &
@ -1612,7 +1614,7 @@ subroutine initialize_read(dset_id, filespace_id, memspace_id, plist_id, aplist_
integer(pInt), dimension(worldsize) :: & integer(pInt), dimension(worldsize) :: &
readSize !< contribution of all processes readSize !< contribution of all processes
integer :: ierr integer :: ierr
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
!------------------------------------------------------------------------------------------------- !-------------------------------------------------------------------------------------------------
! creating a property list for transfer properties (is collective for MPI) ! creating a property list for transfer properties (is collective for MPI)
@ -1643,8 +1645,10 @@ subroutine initialize_read(dset_id, filespace_id, memspace_id, plist_id, aplist_
! creating a property list for IO and set it to collective ! creating a property list for IO and set it to collective
call h5pcreate_f(H5P_DATASET_ACCESS_F, aplist_id, hdferr) call h5pcreate_f(H5P_DATASET_ACCESS_F, aplist_id, hdferr)
if (hdferr < 0) call IO_error(1_pInt,ext_msg='initialize_read: h5pcreate_f') if (hdferr < 0) call IO_error(1_pInt,ext_msg='initialize_read: h5pcreate_f')
#ifdef PETSc
call h5pset_all_coll_metadata_ops_f(aplist_id, .true., hdferr) call h5pset_all_coll_metadata_ops_f(aplist_id, .true., hdferr)
if (hdferr < 0) call IO_error(1_pInt,ext_msg='initialize_read: h5pset_all_coll_metadata_ops_f') if (hdferr < 0) call IO_error(1_pInt,ext_msg='initialize_read: h5pset_all_coll_metadata_ops_f')
#endif
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! open the dataset in the file and get the space ID ! open the dataset in the file and get the space ID
@ -1668,7 +1672,7 @@ subroutine finalize_read(dset_id, filespace_id, memspace_id, plist_id, aplist_id
implicit none implicit none
integer(HID_T), intent(in) :: dset_id, filespace_id, memspace_id, plist_id, aplist_id integer(HID_T), intent(in) :: dset_id, filespace_id, memspace_id, plist_id, aplist_id
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
call h5pclose_f(plist_id, hdferr) call h5pclose_f(plist_id, hdferr)
if (hdferr < 0) call IO_error(1_pInt,ext_msg='finalize_read: plist_id') if (hdferr < 0) call IO_error(1_pInt,ext_msg='finalize_read: plist_id')
@ -1707,7 +1711,7 @@ subroutine initialize_write(dset_id, filespace_id, memspace_id, plist_id, &
integer(pInt), dimension(worldsize) :: & integer(pInt), dimension(worldsize) :: &
writeSize !< contribution of all processes writeSize !< contribution of all processes
integer :: ierr integer :: ierr
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
!------------------------------------------------------------------------------------------------- !-------------------------------------------------------------------------------------------------
! creating a property list for transfer properties ! creating a property list for transfer properties
@ -1758,7 +1762,7 @@ subroutine finalize_write(plist_id, dset_id, filespace_id, memspace_id)
implicit none implicit none
integer(HID_T), intent(in) :: dset_id, filespace_id, memspace_id, plist_id integer(HID_T), intent(in) :: dset_id, filespace_id, memspace_id, plist_id
integer(HDF5_ERR_TYPE) :: hdferr integer :: hdferr
call h5pclose_f(plist_id, hdferr) call h5pclose_f(plist_id, hdferr)
if (hdferr < 0) call IO_error(1_pInt,ext_msg='finalize_write: plist_id') if (hdferr < 0) call IO_error(1_pInt,ext_msg='finalize_write: plist_id')

1
src/commercialFEM_fileList.f90
View File

@ -9,6 +9,7 @@
#include "config.f90" #include "config.f90"
#ifdef DAMASKHDF5 #ifdef DAMASKHDF5
#include "HDF5_utilities.f90" #include "HDF5_utilities.f90"
#include "results.f90"
#endif #endif
#include "math.f90" #include "math.f90"
#include "quaternions.f90" #include "quaternions.f90"