ucs4_neq_default Function

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

CK/=CDK operator.

Arguments

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

Return Value logical(kind=LK)


Calls

proc~~ucs4_neq_default~~CallsGraph proc~ucs4_neq_default json_string_utilities::ucs4_neq_default interface~to_unicode json_string_utilities::to_unicode proc~ucs4_neq_default->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

Called by

proc~~ucs4_neq_default~~CalledByGraph proc~ucs4_neq_default json_string_utilities::ucs4_neq_default interface~operator(SLASH=) json_string_utilities::operator(/=) interface~operator(SLASH=)->proc~ucs4_neq_default

Source Code

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

    res = ( ucs4_str /= to_unicode(def_str) )

    end function ucs4_neq_default