default_join_ucs4 Function

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

CDK//CK operator.

Arguments

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

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


Calls

proc~~default_join_ucs4~~CallsGraph proc~default_join_ucs4 default_join_ucs4 interface~to_unicode to_unicode proc~default_join_ucs4->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


Source Code

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

    implicit none

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

    res = to_unicode(def_str)//ucs4_str

    end function default_join_ucs4