ne_char_string Function

private elemental function ne_char_string(lhs, rhs) result(is_ne)

Compare two character sequences for inequality. In this version the right-hand side character sequences is by a string.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: lhs
type(string_type), intent(in) :: rhs

Return Value logical


Called by

proc~~ne_char_string~~CalledByGraph proc~ne_char_string ne_char_string interface~operator(SLASH=) operator(/=) interface~operator(SLASH=)->proc~ne_char_string

Source Code

elemental function ne_char_string(lhs, rhs) result(is_ne)
   character(len=*), intent(in) :: lhs
   type(string_type), intent(in) :: rhs
   logical :: is_ne

   is_ne = lhs > rhs
   if (.not. is_ne) then
      is_ne = rhs > lhs
   end if

end function ne_char_string