default_neq_ucs4 Function

private pure elemental function default_neq_ucs4(def_str, ucs4_str) result(res)

CDK/=CK operator.

Arguments

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

Return Value logical(kind=LK)


Calls

proc~~default_neq_ucs4~~CallsGraph proc~default_neq_ucs4 json_string_utilities::default_neq_ucs4 interface~to_unicode json_string_utilities::to_unicode proc~default_neq_ucs4->interface~to_unicode proc~to_uni json_string_utilities::to_uni interface~to_unicode->proc~to_uni proc~to_uni_vec json_string_utilities::to_uni_vec interface~to_unicode->proc~to_uni_vec

Source Code

    pure elemental function default_neq_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
    logical(LK) :: res

    res = (to_unicode(def_str) /= ucs4_str)

    end function default_neq_ucs4