Skip to content

Commit 4f8b299

Browse files
committed
Fix: Remove invalid h5tset_size_f call for integer attributes in h5_add_attribute_i
1 parent e75c637 commit 4f8b299

File tree

1 file changed

+0
-3
lines changed

1 file changed

+0
-3
lines changed

src/shared/hdf5_manager.F90

Lines changed: 0 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1504,9 +1504,6 @@ subroutine h5_add_attribute_i(attribute_name, data)
15041504
call h5tcopy_f(H5T_NATIVE_INTEGER, atype_id, error) ! for a string tag of attribute value
15051505
if (error /= 0) write(*,*) 'hdf5 tcopy failed for attribute, ', attribute_name
15061506
call check_error()
1507-
call h5tset_size_f(atype_id, taglen, error)
1508-
if (error /= 0) write(*,*) 'hdf5 set_size failed for attribute, ', attribute_name
1509-
call check_error()
15101507
! here the attribute is written on the current openning dataset
15111508
call h5acreate_f(dataset_id, trim(attribute_name), atype_id, aspace_id, attr_id, error)
15121509
if (error /= 0) write(*,*) 'hdf5 acreate failed for attribute, ', attribute_name

0 commit comments

Comments
 (0)