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

no need to have fixed string here

This commit is contained in:
Martin Diehl 2020-08-09 06:27:29 +02:00
parent 28bc1fae50
commit 93adee2581
1 changed files with 26 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/HDF5_utilities.f90
View File

@ -246,6 +246,7 @@ end function HDF5_openGroup
subroutine HDF5_closeGroup(group_id)
integer(HID_T), intent(in) :: group_id
integer :: hdferr
call h5gclose_f(group_id, hdferr)
@ -263,7 +264,7 @@ logical function HDF5_objectExists(loc_id,path)
character(len=*), intent(in), optional :: path
integer :: hdferr
character(len=pStringLen) :: p
character(len=:), allocatable :: p
if (present(path)) then
p = trim(path)
@ -291,10 +292,10 @@ subroutine HDF5_addAttribute_str(loc_id,attrLabel,attrValue,path)
character(len=*), intent(in) :: attrLabel, attrValue
character(len=*), intent(in), optional :: path
integer :: hdferr
integer(HID_T) :: attr_id, space_id, type_id
logical :: attrExists
character(len=pStringLen) :: p
integer :: hdferr
character(len=:), allocatable :: p
if (present(path)) then
p = trim(path)
@ -338,10 +339,10 @@ subroutine HDF5_addAttribute_int(loc_id,attrLabel,attrValue,path)
integer, intent(in) :: attrValue
character(len=*), intent(in), optional :: path
integer :: hdferr
integer(HID_T) :: attr_id, space_id
integer :: hdferr
logical :: attrExists
character(len=pStringLen) :: p
character(len=:), allocatable :: p
if (present(path)) then
p = trim(path)
@ -379,10 +380,10 @@ subroutine HDF5_addAttribute_real(loc_id,attrLabel,attrValue,path)
real(pReal), intent(in) :: attrValue
character(len=*), intent(in), optional :: path
integer :: hdferr
integer(HID_T) :: attr_id, space_id
integer :: hdferr
logical :: attrExists
character(len=pStringLen) :: p
character(len=:), allocatable :: p
if (present(path)) then
p = trim(path)
@ -420,11 +421,11 @@ subroutine HDF5_addAttribute_int_array(loc_id,attrLabel,attrValue,path)
integer, intent(in), dimension(:) :: attrValue
character(len=*), intent(in), optional :: path
integer :: hdferr
integer(HID_T) :: attr_id, space_id
integer(HSIZE_T),dimension(1) :: array_size
integer(HID_T) :: attr_id, space_id
integer :: hdferr
logical :: attrExists
character(len=pStringLen) :: p
character(len=:), allocatable :: p
if (present(path)) then
p = trim(path)
@ -464,11 +465,11 @@ subroutine HDF5_addAttribute_real_array(loc_id,attrLabel,attrValue,path)
real(pReal), intent(in), dimension(:) :: attrValue
character(len=*), intent(in), optional :: path
integer :: hdferr
integer(HID_T) :: attr_id, space_id
integer(HSIZE_T),dimension(1) :: array_size
integer(HID_T) :: attr_id, space_id
integer :: hdferr
logical :: attrExists
character(len=pStringLen) :: p
character(len=:), allocatable :: p
if (present(path)) then
p = trim(path)