length is known
This commit is contained in:
parent
71e17ba917
commit
26e1e979f5
|
@ -312,7 +312,7 @@ subroutine HDF5_addAttribute_str(loc_id,attrLabel,attrValue,path)
|
||||||
logical :: attrExists
|
logical :: attrExists
|
||||||
integer :: hdferr
|
integer :: hdferr
|
||||||
character(len=:), allocatable :: p
|
character(len=:), allocatable :: p
|
||||||
character(len=:,kind=C_CHAR), allocatable,target :: attrValue_
|
character(len=len_trim(attrValue)+1,kind=C_CHAR), target :: attrValue_
|
||||||
type(c_ptr), target, dimension(1) :: ptr
|
type(c_ptr), target, dimension(1) :: ptr
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue