Alternate version of assign_string_to_json_file, where “str” is kind=CDK.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(json_file), | intent(inout) | :: | me | |||
character(kind=CDK, len=*), | intent(in) | :: | str |
subroutine wrap_assign_string_to_json_file(me,str) implicit none class(json_file),intent(inout) :: me character(kind=CDK,len=*),intent(in) :: str call me%assign_string_to_json_file(to_unicode(str)) end subroutine wrap_assign_string_to_json_file