ucs4_join_default Function

  1. json_string_utilities.F90
  2. json_string_utilities
  3. ucs4_join_default

private pure function ucs4_join_default(ucs4_str, def_str) result(res)

CK//CDK operator.

Arguments

Type IntentOptional AttributesName
character(kind=CK,len=*), intent(in) :: ucs4_str
character(kind=CDK,len=*), intent(in) :: def_str

Return Value character(kind=CK,len=(len(ucs4_str)+len(def_str)))


Calls

proc~~ucs4_join_default~~CallsGraph proc~ucs4_join_default ucs4_join_default interface~to_unicode to_unicode proc~ucs4_join_default->interface~to_unicode proc~to_uni_vec to_uni_vec interface~to_unicode->proc~to_uni_vec proc~to_uni to_uni interface~to_unicode->proc~to_uni

Contents

Source Code

ucs4_join_default

Source Code

    pure function ucs4_join_default(ucs4_str,def_str) result(res)

    implicit none

    character(kind=CK, len=*), intent(in) :: ucs4_str
    character(kind=CDK,len=*), intent(in) :: def_str
    character(kind=CK,len=(len(ucs4_str)+len(def_str))) :: res

    res = ucs4_str//to_unicode(def_str)

    end function ucs4_join_default